%%HP: T(3)A(D)F(.);
DIR
  SETUP
    \<< CLLCD -13 CF
"Processing:
Workspace"
1 DISP VARS '\Gt' DUP
CRDIR EVAL LIST\-> 2
SWAP
      START DUP
\->STR 2 DISP DUP RCL
        IF DUP TYPE
2 ==
        THEN
          IF DUP
NUM 40 ==
          THEN \->RPL
          END
        END SWAP
STO
      NEXT DROP
"Library" 2 DISP
D\->LIB
"Cleanup...



" 1
DISP -13 SF UPDIR
'\Gt' PGDIR
    \>>
  $ROMID 4
  $VISIBLE { }
  $CONFIG
"($CONFIG)
ASSEMBLE
1STPROC   EQU #7067E
1STPROC_G EQU #807FC
RPL
::
 41 TestSysFlag ?SKIP
 CODE
  AD0EX
  D0=(5) #00101 Contrast register
  LC(2)  #7     HP def.=0B
  DAT0=C B
  D0=A
  LOOP
 ENDCODE

 ID ABRT

 ID GetSG
  1STPROC
  1STPROC_G
 CODE
start
  LC(5)  15+(end)-(start)
  A=A+C  A
  CD0EX
  RSTK=C
  C=DAT1 A
  D1=D1+ 5
  D=D+1  A
  CD0EX
  DAT0=A A
  C=RSTK
  D0=C
  LOOP
end
 ENDCODE
;"
  GetSG
"(GetSG)
::
 'R'R
 CODE
  AD0EX
  D0=(5)  14+(=INHARDROM?)
  C=DAT0  B
  AD0EX
  ?CBIT=1 3
  GOYES   ptl
ptl
  GOVLNG  =PushT/FLoop
 ENDCODE
 ?SWAP DROP
;"
  ABRT
"(ABRT)
::
 ' ID NoCfg Sys@
 NOT?SEMI
 DUPTYPEREAL?
 IT ONE{}N
 DUPTYPELIST?
 NOTcaseDROP
 SWAPDUP
 ZERO_DO
  ISTOP-INDEX #2+
  DUP#1+ ROLL
  4PICKOVER UNCOERCE
  EQUALPOSCOMP
  #0=ITE
  :: SWAP UNROLL
  ;
  :: TOSRRP DROP#1-
  ;
 LOOP
 SWAPDROP
 0 INDEXSTO
 DUP#1+ ISTOPSTO
;"
  INST
"(INST)
ASSEMBLE
ONSRRP?   EQU #77C2
ONSRRP?_G EQU #778D
STOSF     EQU #1C731
STOALM{}  EQU #E54D
DELALM%   EQU #E724
RPL
::
 ::
  DATE
  TOD % .00004 %HMS+
  '
  ::
   DELALM%
   { %9600
     %0 %1 %1 %1 %3
   }
   ' ID IOPAR
   ?STO_HERE
   %2 InitMenu%
   HISTON UNDO_ON
   ID GetSG
    HXS 10 0FF0481900300803 (S)
    HXS 10 0FF0000840300043 (G)
   STOSF
   1234
   ID GetSG
    ONSRRP?
    ONSRRP?_G
   EVAL NOT?SEMI
   ' ROMPTR 4D2 F (4/5/7)
   ROMPTR@
   case COLA_EVAL
  ;
  THREE{}N
  STOALM{} DROP
 ;
 ERRTRAP NOP

 CODE
  D0=(5) (=StartupProc)+5
  LOOP
 ENDCODE
;"
END