home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBODSG / NSWPT.MQC / NSWPT.MÁC
Text File  |  2000-06-30  |  65KB  |  5,082 lines
  1. ; NSWP VERS 2.05.26 as of 03/02/86
  2. ; BY DISZILOG 12/03/85 (VER .21,.22 LOST)
  3. ;
  4. .Z80
  5. ;
  6. CR    EQU    0DH
  7. LF    EQU    0AH
  8. ;
  9. BDOS    EQU    5
  10. RSTDSK    EQU    13        ; RESET DISK SYSTEM (HERE: RESET DMA)
  11. SELDSK    EQU    14        ; SELECT DISK
  12. FOPEN    EQU    15        ; OPEN FILE
  13. FCLOSE    EQU    16        ; CLOSE FILE
  14. SFIRST    EQU    17        ; SEARCH FOR FIRST
  15. SNEXT    EQU    18        ; SEARCH FOR NEXT
  16. FDELT    EQU    19        ; FILE DELETE
  17. FREAD    EQU    20        ; FILE READ
  18. FWRIT    EQU    21        ; FILE WRITE
  19. FMAKE    EQU    22        ; MAKE FILE
  20. FRENAM    EQU    23        ; RENAME FILE
  21. GETDRV    EQU    25        ; GET DRIVE
  22. SETDMA    EQU    26        ; SET DMA ADDRESS
  23. SETATT    EQU    30        ; SET ATTRIBUTE
  24. GSUSER    EQU    32        ; GET/SET USER
  25. ;
  26. TDOS    EQU    50H
  27. SABORT    EQU    8        ; SET ABORT ADDRESS
  28. GETSER    EQU    12        ; GET SERIAL NUMBER / PRIVILEGE STATUS
  29. COMPAT    EQU    13        ; SET COMPATIBILITY FLAGS
  30. SNDCL    EQU    18        ; SEND COMMAND LINE
  31. ;
  32. DFCB    EQU    5CH
  33. DBUF    EQU    80H
  34. STACK    EQU    3C00H
  35. ;
  36.     CSEG
  37. ;
  38. START:    JP    BEGIN
  39. ;
  40. MAXLIN::DB    24
  41. ;
  42. REVON::    DS    7
  43. REVOF::    DS    7
  44.     DB    'NSWP (c) 1983 by Dave Rand'
  45. ;
  46. BEGIN:    LD    SP,STACK        ; SET UP LOCAL STACK
  47.     LD    A,(TDOS)        ; CHECK IF RUNNING TURBODOS
  48.     CP    0C3H
  49.     JR    Z,ISTURB        ; SKIP IF TD...
  50.     CALL    ILPRT            ;   ELSE BARF
  51.     DB    CR,LF,7
  52.     'ERROR: TurboDOS ver 1.3 and up only!',CR,LF,0
  53.     RST    0
  54. ;
  55. ISTURB:    LD    C,GETSER        ; CHECK PRIV STATUS
  56.     CALL    TDOS
  57.     BIT    7,B
  58.     JR    NZ,..ISP
  59.     CALL    ILPRT
  60.     DB    CR,LF,7
  61.     'NON-PRIVILEGED USER',CR,LF,0
  62.     RST    0
  63. ;
  64. ..ISP:    LD    C,COMPAT
  65.     LD    E,0F8H            ; SET COMPAT FLAGS
  66.     CALL    TDOS
  67.     LD    C,SABORT
  68.     LD    DE,LOOP            ; SET ABORT ADDRESS
  69.     CALL    TDOS
  70.     LD    HL,(BDOS+1)        ; GET BDOS ENTRY POINT
  71.     DEC    H            ; PROTECT ZONE
  72.     LD    L,0            ; MAKE EVEN PAGE
  73.     LD    (RAMTOP),HL        ; STORE AS END OF TPA
  74.     LD    C,GETDRV        ; GET CURRENT DRIVE
  75.     CALL    BDOS
  76.     LD    (DRIVE1),A        ; STORE IT AWAY
  77.     LD    (DRIVE2),A
  78.     LD    C,GSUSER        ; GET CURRENT USER
  79.     LD    E,0FFH
  80.     CALL    BDOS
  81.     LD    (USER1),A        ; STORE IT AWAY, TOO
  82.     LD    (USER2),A
  83.     LD    HL,DFCB+1        ; MOVE DEFAULT FCB...
  84.     LD    DE,FCB1+1        ;   INTO INTERNAL FCB
  85.     LD    B,11            ; (11 BYTES)
  86.     CALL    MOVHDB
  87.     LD    A,'?'            ; SET EXTENT BYTES
  88.     LD    (DE),A            ;   TO WILDCARD
  89.     INC    DE
  90.     LD    (DE),A
  91.     INC    DE
  92.     LD    (DE),A
  93.     INC    DE
  94.     LD    (DE),A
  95.     LD    HL,-1            ; INITIALIZE FILECOUNT
  96.     LD    (NMBFLS),HL        ;   AND FILE POINTER
  97.     LD    (FILNMB),HL
  98.     CALL    PRCMDL            ; PROCESS COMMAND LINE
  99.     CALL    CRCRCT            ; SET UP CRC LOOKUP TABLE
  100. RELOG:    LD    C,RSTDSK        ; SET DMA TO 80H
  101.     CALL    BDOS
  102.     CALL    DSPBNR            ; DISPLAY BANNER
  103.     CALL    GTBKSZ            ; GET DRIVE'S BLOCK SIZE
  104.     CALL    ILPRT            ; PRINT INFO
  105.     DB    'Drive ',0
  106.     LD    A,(USER2)        ; GET USER
  107.     INC    A            ; IF USER<>0FFH...
  108.     JR    NZ,.NALL        ;   THEN DISPLAY USER NUMBER
  109.     LD    A,'*'            ;     ELSE DISPLAY A "*"
  110.     CALL    PUTCH
  111.     LD    A,'?'            ;     BE SURE FCB BYTE 1 IS "?"
  112.     JR    .ALLU
  113. ;
  114. .NALL:    DEC    A
  115.     PUSH    AF
  116.     LD    E,A
  117.     CALL    LOGUSR
  118.     POP    AF
  119.     LD    L,A
  120.     LD    H,0
  121.     CALL    HXDCNX
  122.     XOR    A
  123. .ALLU:    LD    (FCB1),A        ; SET DRIVE FIELD
  124.     LD    A,(DRIVE2)
  125.     ADD    A,'A'
  126.     CALL    PUTCH
  127.     CALL    ILPRT
  128.     DB    ':  ',0
  129.     LD    HL,-1
  130.     LD    (NMBFLS),HL        ; INITIALIZE # OF FILES
  131.     INC    HL
  132.     LD    (FREEK),HL        ; INITIALIZE FREESPACE
  133.     LD    (TOTALK),HL        ;   AND TOTAL FILESIZE
  134.     CALL    CALCFS            ; CALCULATE FREE SPACE
  135.     LD    HL,STACK        ; HL = BUFFER
  136.     LD    DE,FCB1            ; DE = FILENAME MATCH
  137.     CALL    WILDEX            ; EXPAND WILDCARD INTO BUFFER
  138.     LD    A,L            ; CHECK IF ANY FILES
  139.     OR    H
  140.     DEC    HL
  141.     JR    Z,.NFLSF        ; NO FILES FOUND
  142.     INC    HL            ; ELSE INCREMENT COUNT
  143.     LD    (NMBFLS),HL        ;   AND STORE
  144.     CALL    PRPBUF            ; PRE-PROCESS BUFFER
  145.     CALL    SORTBF            ; SORT FILENAME BUFFER
  146.     CALL    UNDUPE            ; REMOVE DUPLICATES
  147.     LD    HL,(Y2C15)
  148.     DEC    HL
  149.     LD    (NMBFLS),HL
  150. .NFLSF:    PUSH    HL
  151.     CALL    PSTATS
  152.     POP    HL
  153.     INC    HL
  154.     CALL    CLCFPT
  155.     LD    (FILPTR),HL
  156.     LD    HL,0
  157.     LD    (FILNMB),HL
  158.     LD    (TAGTOT),HL
  159.     LD    (TAGTO1),HL
  160. ;
  161. ; MAIN LOOP. COME HERE AFTER EVERY COMMAND.
  162. ;
  163. LOOP:    LD    SP,STACK        ; RESET STACK
  164.     LD    A,(USER2)        ; GET REQUESTED USER
  165.     LD    (USER3),A        ; SAVE IT
  166.     CALL    LOGDUE            ; LOG IT IN
  167.     LD    HL,(NMBFLS)        ; CHECK NUMBER OF FILES
  168.     INC    HL
  169.     LD    A,L            ; HAVE ANY?
  170.     OR    H
  171.     JR    NZ,HAVEFL        ;   YES, SKIP TO MAIN COMMAND ENTRY
  172.     CALL    ILPRT            ;     ELSE DISPLAY MESSAGE
  173.     DB    CR,LF,CR,LF
  174.     DB    'No files.',0
  175.     CALL    CIN            ; ACCEPT ONLY L,S,X,Z COMMANDS
  176.     CP    'X'
  177.     JP    Z,0            ; QUIT
  178.     CP    'L'
  179.     JP    Z,LOGNEW
  180.     CP    'S'
  181.     JP    Z,FREESP
  182.     CP    'Z'
  183.     JP    Z,CHANGE
  184.     LD    A,7
  185.     CALL    PUTCH
  186.     JR    LOOP
  187. ;
  188. ; COME HERE FOR MAIN COMMAND ACCEPTOR
  189. ;
  190. HAVEFL:    CALL    CRLF            ; NEW LINE
  191.     LD    HL,(FILNMB)        ; GET CURRNT FILE NUMBER
  192.     CALL    CLCFPT            ; POINT TO FILENAME
  193.     CALL    DSPCFN            ; DISPLAY IT WITH SIZE/STATUS
  194.     CALL    CIN            ; GET A CHARACTER
  195.     LD    B,A            ; MOVE CHAR INTO B
  196.     LD    HL,LOOP            ; SET UP RETURN STACK
  197.     PUSH    HL
  198.     LD    HL,CMDTBL        ; POINT TO COMMAND TABLE
  199. SRHCMD:    LD    A,(HL)            ; GET COMMAND BYTE
  200.     OR    A            ; IF ZERO
  201.     JR    Z,..ERR            ;   THEN COMMAND NOT FOUND
  202.     CP    B            ; CHECK IF FOUND
  203.     INC    HL            ; POINT TO ADDRESS
  204.     JR    Z,FNDCMD        ; BRANCH IF FOUND
  205.     INC    HL            ; ELSE POINT TO
  206.     INC    HL            ;   NEXT CHARACTER
  207.     JR    SRHCMD            ;   AND REPEAT
  208. ;
  209. FNDCMD:    LD    E,(HL)            ; GET COMMAND ROUTINE ADDRESS
  210.     INC    HL
  211.     LD    D,(HL)
  212.     PUSH    DE            ; GO TO COMMAND ROUTINE
  213.     RET
  214. ;
  215. ..ERR:    LD    A,7            ; SOUND BELL IF ERROR
  216.     JP    PUTCH
  217. ;
  218. ; PRINT STATS
  219. ;
  220. PSTATS:    PUSH    HL
  221.     CALL    CLCTLK
  222.     LD    HL,(TOTALK)
  223.     LD    C,4
  224.     CALL    HEXDEC
  225.     CALL    ILPRT
  226.     DB    'K in ',0
  227.     POP    HL
  228.     INC    HL
  229.     LD    C,4
  230.     CALL    HEXDEC
  231.     CALL    ILPRT
  232.     DB    ' files.  ',0
  233.     LD    HL,(FREEK)
  234.     LD    C,4
  235.     CALL    HEXDEC
  236.     CALL    ILPRT
  237.     DB    'K free.',0
  238.     RET
  239. ;
  240. ; COMMAND TABLE - LETTER FOLLOWED BY ADDRESS
  241. ;
  242. CMDTBL:    DB    ' '
  243.     DW    FORWRD
  244.     DB    CR
  245.     DW    FORWRD
  246.     DB    'B'
  247.     DW    BAKWRD
  248.     DB    'X'
  249.     DW    0            ; QUIT
  250.     DB    'S'
  251.     DW    FREESP
  252.     DB    'D'
  253.     DW    DELETE
  254.     DB    'T'
  255.     DW    TAGFLE
  256.     DB    'U'
  257.     DW    UNTAGF
  258.     DB    'V'
  259.     DW    VIEWFL
  260.     DB    'P'
  261.     DW    PRINTF
  262.     DB    'E'
  263.     DW    ERASEF
  264.     DB    'L'
  265.     DW    LOGNEW
  266.     DB    'C'
  267.     DW    COPYFL
  268.     DB    'M'
  269.     DW    MASSCP
  270.     DB    'A'
  271.     DW    TAGAGN
  272.     DB    'R'
  273.     DW    RENAME
  274.     DB    'F'
  275.     DW    FINDFL
  276.     DB    'W'
  277.     DW    MASSTG
  278.     DB    'Y'
  279.     DW    SETATR
  280.     DB    '?'
  281.     DW    HELPME
  282.     DB    'Q'
  283.     DW    SQZUSQ
  284.     DB    'Z'
  285.     DW    CHANGE
  286.     DB    'G'
  287.     DW    GOEXEC
  288.     DB    0
  289. ;
  290. ; EXECUTE A COMMAND
  291. ;
  292. GOEXEC:    LD    HL,(FILNMB)
  293.     CALL    CLCFPT            ; HL=FILENAME POINTER
  294.     PUSH    HL            ; SAVE
  295.     LD    DE,8
  296.     ADD    HL,DE            ; POINT TO TYPE
  297.     LD    A,(HL)
  298.     AND    7FH
  299.     CP    'C'
  300.     JR    NZ,NOCOMF
  301.     INC    HL
  302.     LD    A,(HL)
  303.     AND    7FH
  304.     CP    'O'
  305.     JR    NZ,NOCOMF
  306.     INC    HL
  307.     LD    A,(HL)
  308.     AND    7FH
  309.     CP    'M'
  310.     JR    NZ,NOCOMF
  311.     LD    HL,80H
  312.     LD    (HL),'\'
  313.     INC    HL
  314.     POP    DE            ; GET FP
  315.     LD    B,8            ; 8 CHARS MAX
  316. .CCL:    LD    A,(DE)            ; GET A CHAR
  317.     CP    ' '            ; BLANK?
  318.     JR    Z,.CCE            ;   YES
  319.     LD    (HL),A
  320.     INC    HL
  321.     INC    DE
  322.     DJNZ    .CCL
  323. .CCE:    XOR    A
  324.     LD    (HL),A
  325.     LD    E,0FFH
  326.     LD    C,47
  327.     CALL    5
  328. ;
  329. NOCOMF:    CALL    ILPRT
  330.     DB    ' not a .COM file',7,0
  331.     JP    LOOP
  332. ;
  333. ; FORWARD A FILE
  334. ;
  335. FORWRD:    LD    HL,(FILNMB)
  336.     INC    HL
  337. A0346:    LD    (FILNMB),HL
  338.     EX    DE,HL
  339.     LD    HL,(NMBFLS)
  340.     CALL    CPHLDE
  341.     JP    NC,LOOP
  342.     LD    HL,0
  343.     LD    (FILNMB),HL
  344.     CALL    CRLF
  345.     JP    LOOP
  346. ;
  347. ; BACKWARD A FILE
  348. ;
  349. BAKWRD:    LD    HL,(FILNMB)
  350.     LD    A,H
  351.     OR    L
  352.     DEC    HL
  353.     LD    (FILNMB),HL
  354.     JP    NZ,LOOP
  355.     CALL    CRLF
  356.     LD    HL,(NMBFLS)
  357.     LD    (FILNMB),HL
  358.     JP    LOOP
  359. ;
  360. ; CHANGE DRIVE
  361. ;
  362. CHANGE:    CALL    GETDR
  363.     SUB    41H
  364.     LD    E,A
  365.     PUSH    DE
  366.     LD    C,26
  367.     LD    D,DBUF
  368.     CALL    TDOS
  369.     POP    DE
  370.     LD    C,25
  371.     LD    D,-1
  372.     PUSH    DE
  373.     CALL    TDOS
  374.     OR    A
  375.     JR    Z,LOKOK
  376.     CALL    ILPRT
  377.     DB    CR,LF
  378.     DB    '-- DRIVE IN USE --',7,0
  379.     JP    LOOP
  380. ;
  381. LOKOK:    CALL    ILPRT
  382.     DB    CR,LF
  383.     DB    'Change disk, press RETURN to continue:',0
  384. ..R?.:    LD    C,3
  385.     CALL    BDOS
  386.     CP    CR
  387.     LD    A,7
  388.     JR    Z,..RT.
  389.     CALL    PUTCH
  390.     JR    ..R?.
  391. ;
  392. ..RT.:    LD    C,25
  393.     POP    DE
  394.     INC    D
  395.     CALL    TDOS
  396.     JP    LOOP
  397. ;
  398. GETDR:    CALL    ILPRT
  399.     DB    '  Which drive? ',0
  400.     CALL    INPLN
  401.     LD    A,(LINET)
  402.     CP    'A'
  403.     JP    C,LOOP
  404.     CP    'P'+1
  405.     JP    NC,LOOP
  406.     RET
  407. ;
  408. ; DISPLAY FREE SPACE
  409. ;
  410. FREESP:    CALL    GETDR
  411.     PUSH    AF
  412.     LD    C,RSTDSK
  413.     CALL    BDOS
  414.     LD    A,(DRIVE2)
  415.     LD    B,A
  416.     POP    AF
  417.     SUB    41H
  418.     LD    (DRIVE2),A
  419.     PUSH    BC
  420.     PUSH    AF
  421.     CALL    CRLF
  422.     CALL    GTBKSZ
  423.     CALL    CALCFS
  424.     CALL    CRLF
  425.     LD    HL,(FREEK)
  426.     LD    C,4
  427.     CALL    HEXDEC
  428.     CALL    ILPRT
  429.     DB    'K remaining on drive ',0
  430.     POP    AF
  431.     ADD    A,'A'
  432.     CALL    PUTCH
  433.     LD    A,':'
  434.     CALL    PUTCH
  435.     CALL    CRLF
  436.     POP    BC
  437.     LD    A,B
  438.     LD    (DRIVE2),A
  439.     CALL    GTBKSZ
  440.     JP    LOOP
  441. ;
  442. ; SET ATTRIBUTES
  443. ;
  444. SETATR:    CALL    ILPRT
  445.     DB    '  Which attributes (2-4,R,G,A)? ',0
  446.     CALL    INPLN
  447.     LD    HL,DSTFCB+1
  448.     LD    B,11
  449. A0419:    LD    (HL),0
  450.     INC    HL
  451.     DJNZ    A0419
  452.     LD    HL,LINEC
  453.     LD    A,(HL)
  454.     OR    A
  455.     JP    Z,LOOP
  456.     INC    HL
  457.     LD    (Y2C3D),HL
  458. A042C:    LD    HL,(Y2C3D)
  459.     EX    DE,HL
  460.     CALL    SKNBL
  461.     EX    DE,HL
  462.     INC    HL
  463.     LD    (Y2C3D),HL
  464.     OR    A
  465.     JR    Z,A0457
  466.     LD    HL,ATTRS
  467.     LD    DE,DSTFCB+1
  468.     LD    B,11
  469. A0444:    CP    (HL)
  470.     JR    Z,A0451
  471.     INC    HL
  472.     INC    DE
  473.     DJNZ    A0444
  474.     JR    A042C
  475. ;
  476. A0451:    LD    A,80H
  477.     LD    (DE),A
  478.     JR    A042C
  479. ;
  480. A0457:    LD    A,2
  481.     JP    A098F
  482. ;
  483. ATTRS:    DB    'z234zzzzRGA'
  484. ;
  485. ; DELETE A FILE
  486. ;
  487. DELETE:    CALL    ILPRT
  488.     DB    '  Delete file? ',0
  489.     CALL    CIN
  490.     CP    'Y'
  491.     JP    NZ,LOOP
  492.     LD    HL,(FILNMB)
  493.     CALL    DELFHL
  494.     JP    LOOP
  495. ;
  496. ; DELETE FILE # IN HL
  497. ;
  498. DELFHL:    CALL    CLCFPT
  499.     PUSH    HL
  500.     CALL    SUBUP
  501.     POP    HL
  502.     PUSH    HL
  503.     LD    DE,DFCB+1
  504.     XOR    A
  505.     LD    (DFCB),A
  506.     LD    B,11
  507.     CALL    MOVHDB
  508.     PUSH    HL
  509.     PUSH    DE
  510.     POP    HL
  511.     INC    DE
  512.     LD    B,22
  513.     LD    (HL),0
  514.     CALL    MOVHDB
  515.     LD    E,0FFH
  516.     CALL    LOGUSR
  517.     LD    E,A
  518.     POP    HL
  519.     PUSH    DE
  520.     LD    E,(HL)
  521.     CALL    LOGUSR
  522.     LD    A,(DFCB+9)
  523.     AND    80H
  524.     JR    Z,NOTRDO
  525.     CALL    ILPRT
  526.     DB    '  R/O. Delete? ',7,0
  527.     CALL    CIN
  528.     CP    'Y'
  529.     JR    Z,DELRDO
  530.     POP    DE
  531.     POP    HL
  532.     RET
  533. ;
  534. ; DELETE R/O FILE
  535. ;
  536. DELRDO:    LD    A,(DFCB+9)
  537.     AND    7FH
  538.     LD    (DFCB+9),A
  539.     LD    DE,DFCB
  540.     CALL    SATTRB
  541. NOTRDO:    LD    DE,DFCB
  542.     CALL    DELDE
  543.     JR    NZ,DLTD
  544. NTDLT:    CALL    ILPRT
  545.     DB    ' Can''t delete file',7,0
  546.     JP    LOOP
  547. ;
  548. DLTD:    POP    DE
  549.     CALL    LOGUSR
  550.     LD    HL,(NMBFLS)
  551.     LD    DE,(FILNMB)
  552.     OR    A
  553.     SBC    HL,DE
  554.     ADD    HL,HL
  555.     ADD    HL,HL
  556.     ADD    HL,HL
  557.     ADD    HL,HL
  558.     PUSH    HL
  559.     POP    BC
  560.     POP    HL
  561.     PUSH    HL
  562.     LD    DE,10H
  563.     ADD    HL,DE
  564.     POP    DE
  565.     LD    A,B
  566.     OR    C
  567.     JR    Z,A0523
  568. A0519:    LD    A,(HL)
  569.     LD    (DE),A
  570.     INC    HL
  571.     INC    DE
  572.     DEC    BC
  573.     LD    A,B
  574.     OR    C
  575.     JR    NZ,A0519
  576. A0523:    LD    HL,(NMBFLS)
  577.     DEC    HL
  578.     LD    (NMBFLS),HL
  579.     EX    DE,HL
  580.     LD    HL,(FILNMB)
  581.     CALL    CPHLDE
  582.     RET    C
  583.     RET    Z
  584.     DEC    HL
  585.     LD    (FILNMB),HL
  586.     RET
  587. ;
  588. ; ERASE FILE
  589. ;
  590. ERASEF:    CALL    ILPRT
  591.     DB    CR,LF
  592.     DB    'Erase Tagged or Untagged files (T/U)? ',0
  593.     CALL    CIN
  594.     CP    'T'
  595.     JR    Z,A0571
  596.     CP    'U'
  597.     JP    NZ,LOOP
  598. A0571:    CP    'T'
  599.     LD    A,1
  600.     JR    Z,A0579
  601.     XOR    A
  602. A0579:    LD    (Y2C0C),A
  603. A057C:    CALL    ILPRT
  604.     DB    CR,LF
  605.     DB    'Do you wish to be prompted (Y/N/A)? ',0
  606.     CALL    CIN
  607.     CP    3
  608.     JP    Z,LOOP
  609.     CP    'A'
  610.     JP    Z,LOOP
  611.     CP    'N'
  612.     JR    Z,A05C2
  613.     CP    'Y'
  614.     LD    A,1
  615.     JR    NZ,A057C
  616.     JR    A05C3
  617. ;
  618. A05C2:    XOR    A
  619. A05C3:    LD    (Y2C33),A
  620.     LD    HL,0
  621. A05C9:    PUSH    HL
  622.     LD    (FILNMB),HL
  623.     CALL    CLCFPT
  624.     PUSH    HL
  625.     CALL    ADDH12
  626.     LD    A,(HL)
  627.     AND    1
  628.     LD    B,A
  629.     LD    A,(Y2C0C)
  630.     CP    B
  631.     POP    HL
  632.     JR    NZ,A0633
  633.     PUSH    HL
  634.     CALL    ILPRT
  635.     DB    CR,LF
  636.     DB    'Deleting  ---> ',0
  637.     POP    HL
  638.     CALL    A13DA
  639.     LD    A,(Y2C33)
  640.     OR    A
  641.     JR    Z,A0624
  642.     CALL    ILPRT
  643.     DB    '  Delete (Y/N/A)? ',0
  644.     CALL    CIN
  645.     CP    'A'
  646.     JR    Z,A0647
  647.     CP    'Y'
  648.     JR    NZ,A0633
  649. A0624:    CALL    A1598
  650.     JR    Z,A0650
  651.     POP    HL
  652.     PUSH    HL
  653.     CALL    DELFHL
  654.     POP    HL
  655.     JR    A0635
  656. ;
  657. A0633:    POP    HL
  658.     INC    HL
  659. A0635:    EX    DE,HL
  660.     LD    HL,(NMBFLS)
  661.     INC    HL
  662.     LD    A,L
  663.     OR    H
  664.     JR    Z,A0647
  665.     DEC    HL
  666.     CALL    CPHLDE
  667.     EX    DE,HL
  668.     JP    NC,A05C9
  669. A0647:    LD    HL,0
  670.     LD    (FILNMB),HL
  671.     JP    LOOP
  672. ;
  673. A0650:    LD    HL,0
  674.     LD    (FILNMB),HL
  675.     JP    A0B55
  676. ;
  677. ; ADD UP TAGGED FILES AND DISPLAY
  678. ;
  679. ADDUP:    LD    A,(HL)            ; GET TAG FLAG
  680.     LD    (HL),1            ; SET TO TAGGED
  681.     CP    1            ; IF ALREADY TAGGED
  682.     JR    Z,.TALRY        ;   THEN SKIP
  683.     INC    HL
  684.     CALL    CLCFSZ            ; CALC FILE SIZE
  685.     PUSH    HL
  686.     LD    HL,(TAGTO1)        ; ACCUMULATE 1K SIZE TOTAL
  687.     ADD    HL,DE
  688.     LD    (TAGTO1),HL
  689.     POP    HL
  690.     EX    DE,HL
  691.     LD    HL,(TAGTOT)        ; ACCUMULATE CUR BLK TOTAL
  692.     ADD    HL,DE
  693.     LD    (TAGTOT),HL
  694. .TALRY:    LD    HL,(TAGTOT)
  695.     LD    C,4
  696.     CALL    HEXDEC
  697.     CALL    ILPRT
  698.     DB    'K (',0
  699.     LD    HL,(TAGTO1)
  700.     LD    C,4
  701.     CALL    HEXDEC
  702.     CALL    ILPRT
  703.     DB    'K).',0
  704.     RET
  705. ;
  706. ; TAG FILE
  707. ;
  708. TAGFLE:    CALL    .MTGDF
  709.     LD    HL,(FILNMB)
  710.     CALL    CLCFPT
  711.     CALL    ADDH12
  712.     CALL    ADDUP
  713.     JP    FORWRD
  714. ;
  715. .MTGDF:    CALL    ILPRT
  716.     DB    '  Tagged files = ',0
  717.     RET
  718. ;
  719. ; UNTAG FILE
  720. ;
  721. UNTAGF:    CALL    .MTGDF            ; DISPLAY MESSAGE
  722.     LD    HL,(FILNMB)
  723.     CALL    CLCFPT
  724.     CALL    SUBUP            ; SUBTRACT FILESIZE FROM TOTAL
  725.     CALL    .TALRY
  726.     JP    FORWRD
  727. ;
  728. SUBUP:    CALL    ADDH12
  729.     LD    A,(HL)
  730.     LD    (HL),0
  731.     CP    1
  732.     RET    NZ
  733.     PUSH    HL
  734.     INC    HL
  735.     CALL    CLCFSZ
  736.     PUSH    HL
  737.     LD    HL,(TAGTO1)
  738.     OR    A
  739.     SBC    HL,DE
  740.     LD    (TAGTO1),HL
  741.     POP    HL
  742.     EX    DE,HL
  743.     LD    HL,(TAGTOT)
  744.     OR    A
  745.     SBC    HL,DE
  746.     LD    (TAGTOT),HL
  747.     POP    HL
  748.     RET
  749. ;
  750. ; LOG INTO NEW DRIVE, USER OR FILEMATCH
  751. ;
  752. LOGNEW:    LD    C,GETDRV        ; GET DRIVE
  753.     CALL    BDOS
  754.     LD    E,A            ; DRIVE TO E
  755.     LD    C,26            ; FLUSH
  756.     LD    D,80H            ; UNCONDITIONAL
  757.     CALL    TDOS
  758.     CALL    ILPRT
  759.     DB    '  New drive/user/mask? ',0
  760.     CALL    INPLN
  761.     LD    HL,LINEC
  762.     LD    A,(HL)
  763.     OR    A
  764.     JP    Z,LOOP
  765.     INC    HL
  766.     LD    (Y2C3D),HL
  767.     CALL    PARSDF
  768.     LD    A,(DFCB)
  769.     OR    A
  770.     JR    NZ,A072C
  771.     LD    A,(DRIVE2)
  772.     INC    A
  773. A072C:    DEC    A
  774.     LD    (DRIVE2),A
  775.     LD    A,(Y2C3A)
  776.     CP    0FFH
  777.     JR    NZ,A0745
  778.     LD    A,(LINET+1)
  779.     CP    '*'
  780.     LD    A,0FFH
  781.     JR    Z,A0745
  782.     LD    A,(USER2)
  783. A0745:    LD    (USER2),A
  784.     LD    A,(DFCB+1)
  785.     CP    ' '
  786.     JR    NZ,A075D
  787.     LD    HL,DFCB+1
  788.     LD    DE,DFCB+2
  789.     LD    B,10
  790.     LD    (HL),'?'
  791.     CALL    MOVHDB
  792. A075D:    LD    HL,DFCB
  793.     LD    DE,FCB1
  794.     LD    B,12
  795.     CALL    MOVHDB
  796.     CALL    CRLF
  797.     CALL    CRLF
  798.     JP    RELOG
  799. ;
  800. A0771:    PUSH    HL
  801.     XOR    A
  802.     LD    (CRCFLG),A
  803. A0776:    LD    A,(HL)
  804.     OR    A
  805.     JR    Z,A0784
  806.     CP    'V'
  807.     INC    HL
  808.     JR    NZ,A0776
  809.     LD    (CRCFLG),A
  810. A0784:    POP    HL
  811.     RET
  812. ;
  813. A0786:    CALL    ILPRT
  814.     DB    CR,LF
  815.     DB    'Illegal drive code.',0
  816.     JP    LOOP
  817. ;
  818. A07A2:    CALL    A0771
  819.     LD    A,(USER2)
  820.     LD    (Y2C3A),A
  821.     LD    A,(DRIVE2)
  822.     LD    (Y2C38),A
  823.     LD    A,(HL)
  824.     CP    '0'
  825.     JR    C,A0786
  826.     CP    '9'+1
  827.     JR    C,A07D2
  828.     CP    'A'
  829.     JR    C,A0786
  830.     CP    'P'+1
  831.     JR    NC,A0786
  832.     SUB    'A'
  833.     LD    (Y2C38),A
  834.     INC    HL
  835.     LD    A,(HL)
  836.     CP    ':'
  837.     RET    Z
  838.     OR    A
  839.     RET    Z
  840. ;
  841. ; FOLLOWING CODE CALCULATES USER #
  842. ;
  843. A07D2:    CP    '*'
  844.     JR    Z,A0806
  845.     CP    '0'
  846.     RET    C
  847.     CP    '9'+1
  848.     RET    NC
  849.     AND    0FH
  850.     LD    C,A
  851.     CALL    USRPAT            ; MULTIPLY
  852.     LD    B,A
  853.     INC    HL
  854.     LD    A,(HL)
  855.     CP    ':'
  856.     JR    Z,A07FF
  857.     OR    A
  858.     JR    Z,A07FF
  859.     CP    '0'
  860.     JR    C,A07FF
  861.     CP    '9'+1
  862.     JR    NC,A07FF
  863.     SUB    '0'
  864.     ADD    A,B
  865.     CP    32
  866.     RET    NC
  867.     LD    (Y2C3A),A
  868.     RET
  869. ;
  870. A07FF:    LD    A,C
  871.     LD    (Y2C3A),A
  872.     RET
  873. ;
  874. A0806:    LD    A,0FFH
  875.     LD    (Y2C3A),A
  876.     RET
  877. ;
  878. ; GET TAGGED/UNTAGGED RESPONSE AND SET A
  879. ;
  880. GTUR.:    CALL    ILPRT
  881.     DB    CR,LF
  882.     DB    'Tagged or Untagged files (T/U)? ',0
  883.     CALL    CIN
  884.     CP    'T'
  885.     JR    Z,.GTURT
  886.     CP    'U'
  887.     JP    NZ,LOOP
  888.     XOR    A
  889.     JR    .GTURS
  890. ;
  891. .GTURT:    LD    A,1
  892. .GTURS:    LD    (.TOTU.),A
  893.     RET
  894. ;
  895. ; LINE INPUT
  896. ;
  897. INPLN:    LD    DE,LINE
  898.     LD    C,10
  899.     CALL    BDOS
  900.     LD    HL,LINEC
  901.     PUSH    HL
  902.     LD    E,(HL)
  903.     INC    HL
  904.     LD    D,0
  905.     ADD    HL,DE
  906.     LD    (HL),0
  907.     INC    HL
  908.     LD    (HL),B
  909.     POP    HL
  910. A0822:    INC    HL
  911.     LD    A,(HL)
  912.     OR    A
  913.     RET    Z
  914.     CALL    CAPS
  915.     LD    (HL),A
  916.     JR    A0822
  917. ;
  918. A082D:    CALL    ILPRT
  919.     DB    '  Copy to drive/user? ',0
  920.     CALL    INPLN
  921.     LD    HL,LINEC
  922.     LD    A,(HL)
  923.     OR    A
  924.     JP    Z,LOOP
  925.     PUSH    HL
  926.     LD    C,RSTDSK
  927.     CALL    BDOS
  928.     CALL    GTBKSZ
  929.     POP    HL
  930.     INC    HL
  931.     CALL    A07A2
  932.     LD    A,(Y2C43)
  933.     OR    A
  934.     RET    NZ
  935. A0865:    LD    A,(USER3)
  936.     LD    B,A
  937.     LD    A,(Y2C3A)
  938.     CP    0FFH
  939.     JR    Z,A0873
  940.     CP    B
  941.     RET    NZ
  942. A0873:    LD    A,(Y2C38)
  943.     LD    B,A
  944.     LD    A,(DRIVE2)
  945.     CP    B
  946.     RET    NZ
  947.     CALL    ILPRT
  948.     DB    CR,LF
  949.     DB    'Can''t copy to same drive and user.',0
  950.     JP    LOOP
  951. ;
  952. ; COPY A FILE
  953. ;
  954. COPYFL:    LD    HL,(FILNMB)
  955.     CALL    CLCFPT
  956.     PUSH    HL
  957.     XOR    A
  958.     LD    (SRCFCB),A
  959.     LD    DE,SRCFCB+1
  960.     LD    B,11
  961.     CALL    MOVHDB
  962.     LD    A,(HL)
  963.     LD    (USER3),A
  964.     CALL    ILPRT
  965.     DB    '  Copy to (filespec)? ',0
  966.     CALL    INPLN
  967.     LD    HL,LINEC
  968.     LD    A,(HL)
  969.     OR    A
  970.     JP    Z,LOOP
  971.     INC    HL
  972.     LD    (Y2C3D),HL
  973.     CALL    PARSDF
  974.     LD    HL,(Y2C3D)
  975.     CALL    A0771
  976.     LD    A,(DFCB+1)
  977.     CP    ' '
  978.     JR    NZ,A090A
  979.     LD    HL,SRCFCB+1
  980.     LD    DE,DFCB+1
  981.     LD    B,11
  982. A0900:    LD    A,(HL)
  983.     AND    7FH
  984.     LD    (DE),A
  985.     INC    HL
  986.     INC    DE
  987.     DJNZ    A0900
  988. A090A:    LD    A,(DFCB)
  989.     DEC    A
  990.     LD    (Y2C38),A
  991.     LD    HL,SRCFCB+1
  992.     LD    DE,DFCB+1
  993.     CALL    A100E
  994.     JR    NZ,A0920
  995.     CALL    A0865
  996. A0920:    LD    HL,DFCB+1
  997.     LD    DE,SRCFCB+1
  998.     LD    B,11
  999. A0928:    LD    A,(DE)
  1000.     AND    80H
  1001.     OR    (HL)
  1002.     LD    (HL),A
  1003.     INC    HL
  1004.     INC    DE
  1005.     DJNZ    A0928
  1006.     LD    HL,DFCB
  1007.     LD    DE,DSTFCB
  1008.     LD    B,12
  1009.     CALL    MOVHDB
  1010.     LD    A,1
  1011.     LD    (.CPFL),A
  1012.     POP    HL
  1013.     CALL    A0DB4
  1014.     JP    LOOP
  1015. ;
  1016. ; SQ/USQ ENTRY POINT
  1017. ;
  1018. SQZUSQ:    CALL    ILPRT
  1019.     DB    CR,LF
  1020.     DB    '  Squeeze, Unsqueeze or Reverse (S,U,R)? ',0
  1021.     CALL    CIN
  1022.     LD    (Y2C00),A
  1023.     CP    'S'
  1024.     JR    Z,A0989
  1025.     CP    'U'
  1026.     JR    Z,A0989
  1027.     CP    'R'
  1028.     JP    NZ,LOOP
  1029. A0989:    LD    A,1
  1030.     JR    A098F
  1031. ;
  1032. ; MOVE FILES
  1033. ;
  1034. MASSCP:    XOR    A
  1035. A098F:    LD    (Y2C43),A
  1036.     PUSH    AF
  1037.     CALL    GTUR.            ; ASK TAG/UNTAG
  1038.     CALL    CRLF
  1039.     LD    A,(USER2)
  1040.     LD    (USER3),A
  1041.     POP    AF
  1042.     CP    2
  1043.     JR    Z,A09A5
  1044.     CALL    A082D
  1045. A09A5:    LD    HL,0
  1046. A09A8:    PUSH    HL
  1047.     CALL    CLCFPT
  1048.     PUSH    HL
  1049.     CALL    ADDH12
  1050.     LD    A,(HL)
  1051.     AND    1
  1052.     CP    1
  1053. .TOTU.    EQU    $-1            ; T/U FLAG
  1054.     DEC    HL
  1055.     LD    B,(HL)
  1056.     POP    HL
  1057.     JP    NZ,.NTTGD        ; SKIP IF NOT TAGGED
  1058.     PUSH    HL
  1059.     LD    A,B
  1060.     LD    (USER3),A
  1061.     LD    A,(Y2C43)
  1062.     OR    A
  1063.     JR    NZ,A0A08
  1064.     LD    A,(DRIVE2)
  1065.     LD    B,A
  1066.     LD    A,(Y2C38)
  1067.     CP    B
  1068.     JR    NZ,A0A08
  1069.     LD    A,(USER3)
  1070.     LD    B,A
  1071.     LD    A,(Y2C3A)
  1072.     CP    B
  1073.     JR    NZ,A0A08
  1074.     CALL    ILPRT
  1075.     DB    CR,LF
  1076.     DB    'Skipping, same drive & user --> ',0
  1077.     POP    HL
  1078.     CALL    A13DA
  1079.     JP    .NTTGD
  1080. ;
  1081. A0A08:    LD    A,(Y2C43)
  1082.     CP    1
  1083.     JR    Z,A0A2C
  1084.     CP    2
  1085.     JR    Z,A0A43
  1086.     CALL    ILPRT
  1087.     DB    CR,LF
  1088.     DB    'Copying  --> ',0
  1089.     JR    A0A57
  1090. ;
  1091. A0A2C:    CALL    ILPRT
  1092.     DB    CR,LF
  1093.     DB    'SQ/USQ   --> ',0
  1094.     JR    A0A57
  1095. ;
  1096. A0A43:    CALL    ILPRT
  1097.     DB    CR,LF
  1098.     DB    'Setting  --> ',0
  1099. A0A57:    POP    HL
  1100.     PUSH    HL
  1101.     CALL    A13DA
  1102.     CALL    ILPRT
  1103.     DB    ' to ',0
  1104. A0A64:    LD    A,(Y2C43)
  1105.     CP    2
  1106.     JR    NZ,A0AE2
  1107.     LD    HL,DSTFCB+1
  1108.     LD    DE,T0AC2
  1109.     LD    B,4
  1110. A0A74:    LD    A,(HL)
  1111.     OR    A
  1112.     CALL    NZ,A0AA3
  1113.     INC    HL
  1114.     INC    DE
  1115.     INC    DE
  1116.     INC    DE
  1117.     DEC    B
  1118.     DJNZ    A0A74
  1119.     LD    HL,DSTFCT
  1120.     LD    DE,T0ACE
  1121.     LD    A,(HL)
  1122.     OR    A
  1123.     CALL    Z,A0ABA
  1124.     LD    DE,T0AD3
  1125.     LD    B,3
  1126. A0A91:    LD    A,(HL)
  1127.     OR    A
  1128.     CALL    NZ,A0ABA
  1129.     INC    HL
  1130.     INC    DE
  1131.     INC    DE
  1132.     INC    DE
  1133.     INC    DE
  1134.     INC    DE
  1135.     DJNZ    A0A91
  1136.     JR    A0B1E
  1137. ;
  1138. A0AA3:    PUSH    HL
  1139.     PUSH    DE
  1140.     PUSH    BC
  1141.     LD    B,3
  1142. A0AA8:    EX    DE,HL
  1143. A0AA9:    LD    A,(HL)
  1144.     PUSH    HL
  1145.     PUSH    BC
  1146.     CALL    PUTCH
  1147.     POP    BC
  1148.     POP    HL
  1149.     INC    HL
  1150.     DJNZ    A0AA9
  1151.     POP    BC
  1152.     POP    DE
  1153.     POP    HL
  1154.     RET
  1155. ;
  1156. A0ABA:    PUSH    HL
  1157.     PUSH    DE
  1158.     PUSH    BC
  1159.     LD    B,5
  1160.     JR    A0AA8
  1161. ;
  1162. T0AC2:    DB    ' F  2  3  4 '
  1163. T0ACE:    DB    ' R/W '
  1164. T0AD3:    DB    ' R/O  GLB  ARC '
  1165. ;
  1166. A0AE2:    LD    A,(Y2C3A)
  1167.     CP    0FFH
  1168.     JR    NZ,A0AF5
  1169.     LD    A,(USER3)
  1170. A0AF5:    LD    L,A
  1171.     LD    H,0
  1172.     CP    10
  1173.     LD    C,1
  1174.     JR    C,A0B00
  1175.     INC    C
  1176. A0B00:    CALL    HEXDEC
  1177.     LD    A,(Y2C38)
  1178.     ADD    A,'A'
  1179.     CALL    PUTCH
  1180.     LD    A,':'
  1181.     CALL    PUTCH
  1182.     LD    A,(CRCFLG)
  1183.     OR    A
  1184.     JR    Z,A0B1E
  1185.     CALL    ILPRT
  1186.     DB    '  with CRC',0
  1187. A0B1E:    POP    HL
  1188.     PUSH    HL
  1189.     LD    A,(Y2C43)
  1190.     CP    1
  1191.     JR    Z,A0B33
  1192.     CP    2
  1193.     JR    Z,A0B6D
  1194.     CALL    A0DBA
  1195.     JR    A0B36
  1196. ;
  1197. A0B33:    CALL    A0C33
  1198. A0B36:    POP    HL
  1199.     CALL    SUBUP
  1200.     LD    A,(.TOTU.)
  1201.     DEC    A
  1202.     JR    NZ,.NTTGD
  1203.     LD    (HL),2
  1204. .NTTGD:    CALL    A1598
  1205.     JR    Z,A0B55
  1206.     POP    HL
  1207.     INC    HL
  1208.     EX    DE,HL
  1209.     LD    HL,(NMBFLS)
  1210.     CALL    CPHLDE
  1211.     EX    DE,HL
  1212.     JP    NC,A09A8
  1213.     CALL    CRLF
  1214.     JR    A0B6A
  1215. ;
  1216. A0B55:    CALL    ILPRT
  1217.     DB    CR,LF
  1218.     DB    '-- Aborted --',7,0
  1219. A0B6A:    JP    LOOP
  1220. ;
  1221. A0B6D:    PUSH    HL
  1222.     LD    DE,SRCFCB
  1223.     XOR    A
  1224.     LD    (DE),A
  1225.     INC    DE
  1226.     LD    B,11
  1227.     CALL    MOVHDB
  1228.     LD    A,(HL)
  1229.     PUSH    AF
  1230.     PUSH    DE
  1231.     POP    HL
  1232.     INC    DE
  1233.     LD    (HL),0
  1234.     LD    B,22
  1235.     CALL    MOVHDB
  1236.     POP    AF
  1237.     LD    (USER3),A
  1238.     CALL    LOGDUE
  1239.     LD    HL,SRCFCB+1
  1240.     LD    DE,DSTFCB+1
  1241.     LD    B,11
  1242. A0B94:    LD    A,(HL)
  1243.     AND    7FH
  1244.     LD    (HL),A
  1245.     LD    A,(DE)
  1246.     OR    (HL)
  1247.     LD    (HL),A
  1248.     INC    HL
  1249.     INC    DE
  1250.     DJNZ    A0B94
  1251.     LD    DE,SRCFCB
  1252.     CALL    SATTRB
  1253.     LD    HL,SRCFCB+1
  1254.     POP    DE
  1255.     LD    B,11
  1256.     CALL    MOVHDB
  1257.     JR    A0B36
  1258. ;
  1259. ; TAG FILES AGAIN AFTER COPY
  1260. ;
  1261. TAGAGN:    LD    HL,0
  1262. A0BB8:    PUSH    HL
  1263.     CALL    CLCFPT
  1264.     PUSH    HL
  1265.     CALL    ADDH12
  1266.     LD    A,(HL)
  1267.     CP    2
  1268.     JR    NZ,A0BEC
  1269.     CALL    ILPRT
  1270.     DB    CR,LF
  1271.     DB    'Retagging --> ',0
  1272.     POP    HL
  1273.     PUSH    HL
  1274.     CALL    A13DA
  1275.     LD    A,' '
  1276.     CALL    PUTCH
  1277.     POP    HL
  1278.     CALL    ADDH12
  1279.     CALL    ADDUP
  1280.     PUSH    HL
  1281. A0BEC:    POP    HL
  1282.     POP    HL
  1283.     INC    HL
  1284.     EX    DE,HL
  1285.     LD    HL,(NMBFLS)
  1286.     CALL    CPHLDE
  1287.     EX    DE,HL
  1288.     JR    NC,A0BB8
  1289.     JP    LOOP
  1290. ;
  1291. A0BFD:    CALL    A1FED
  1292.     OR    A
  1293.     RET    NZ
  1294.     PUSH    AF
  1295.     PUSH    DE
  1296.     PUSH    HL
  1297.     CALL    ILPRT
  1298.     DB    '(',0
  1299. A0C0A:    POP    HL
  1300.     PUSH    HL
  1301. A0C0C:    LD    A,(HL)
  1302.     INC    HL
  1303.     OR    A
  1304.     JR    Z,A0C1A
  1305.     PUSH    HL
  1306.     CALL    PUTCH
  1307.     POP    HL
  1308.     JR    A0C0C
  1309. ;
  1310. A0C1A:    CALL    ILPRT
  1311.     DB    ')',0
  1312.     POP    HL
  1313.     POP    DE
  1314.     POP    AF
  1315.     RET
  1316. ;
  1317. ; PRINT B BYTES OF FILE NAME
  1318. ;
  1319. PFNBYT:    LD    A,(HL)
  1320.     CP    ' '
  1321.     PUSH    HL
  1322.     PUSH    BC
  1323.     CALL    NZ,PUTCH
  1324.     POP    BC
  1325.     POP    HL
  1326.     INC    HL
  1327.     DJNZ    PFNBYT
  1328.     RET
  1329. ;
  1330. A0C33:    LD    (Y2C01),HL
  1331.     CALL    A15B8
  1332.     CALL    A0D6E
  1333.     EX    DE,HL
  1334.     LD    HL,(FILPTR)
  1335.     LD    (Y2C21),HL
  1336.     LD    HL,(Y2C01)
  1337.     JP    NZ,A0DAC
  1338.     EX    DE,HL
  1339.     LD    DE,0FF76H
  1340.     CALL    CPHLDE
  1341.     JR    NZ,A0C66
  1342.     LD    HL,(Y2C01)
  1343.     LD    A,(Y2C00)
  1344.     CP    'U'
  1345.     JP    Z,A0CDD
  1346.     CP    'R'
  1347.     JP    Z,A0CDD
  1348.     JP    A0DAC
  1349. ;
  1350. A0C66:    LD    HL,(Y2C01)
  1351.     LD    A,(Y2C00)
  1352.     CP    'R'
  1353.     JR    Z,A0C76
  1354.     CP    'U'
  1355.     JP    Z,A0DAC
  1356. A0C76:    LD    HL,Y2EED
  1357.     CALL    A2160
  1358.     OR    A
  1359.     LD    HL,(Y2C01)
  1360.     JP    NZ,A0DAC
  1361.     CALL    A16C0
  1362.     LD    HL,SRCFCB
  1363.     LD    DE,DSTFCB
  1364.     LD    B,0CH
  1365.     LD    (HL),0
  1366.     CALL    MOVHDB
  1367.     LD    HL,DSTFCT
  1368.     LD    A,(HL)
  1369.     AND    7FH
  1370.     CP    ' '
  1371.     JR    NZ,A0CA3
  1372.     LD    (HL),'Q'
  1373.     INC    HL
  1374.     LD    (HL),'Q'
  1375. A0CA3:    INC    HL
  1376.     LD    (HL),'Q'
  1377.     CALL    ILPRT
  1378.     DB    '(',0
  1379. A0CAB:    LD    HL,DSTFCB+1
  1380.     LD    B,8
  1381.     CALL    PFNBYT
  1382.     PUSH    HL
  1383.     LD    A,'.'
  1384.     CALL    PUTCH
  1385.     POP    HL
  1386.     LD    B,3
  1387.     CALL    PFNBYT
  1388.     CALL    ILPRT
  1389.     DB    ')',0
  1390.     CALL    A1625
  1391.     LD    HL,(Y2C01)
  1392.     CALL    A15B8
  1393.     LD    HL,SRCFCB
  1394.     CALL    A2576
  1395.     CALL    A1739
  1396.     CALL    CLSDST
  1397.     JP    A16C0
  1398. ;
  1399. A0CDD:    LD    HL,Y2EED
  1400.     CALL    A0BFD
  1401.     OR    A
  1402.     JR    Z,A0CFC
  1403.     CALL    ILPRT
  1404.     DB    '  Not a SQ file.',0
  1405.     RET
  1406. ;
  1407. A0CFC:    LD    (Y2C3D),HL
  1408.     EX    DE,HL
  1409.     LD    (Y2C41),HL
  1410.     LD    A,(Y2C3A)
  1411.     PUSH    AF
  1412.     CALL    A1B9C
  1413.     POP    AF
  1414.     LD    (Y2C3A),A
  1415.     LD    HL,DFCB
  1416.     LD    DE,DSTFCB
  1417.     LD    (HL),0
  1418.     LD    B,0CH
  1419.     CALL    MOVHDB
  1420.     CALL    A1625
  1421.     LD    HL,0
  1422. A0D21:    PUSH    HL
  1423.     CALL    A20BA
  1424.     POP    HL
  1425.     JR    NZ,A0D35
  1426.     LD    E,A
  1427.     LD    D,0
  1428.     ADD    HL,DE
  1429.     PUSH    HL
  1430.     CALL    A171C
  1431.     POP    HL
  1432.     JR    A0D21
  1433. ;
  1434. A0D35:    EX    DE,HL
  1435.     LD    HL,(Y2C41)
  1436.     CALL    CPHLDE
  1437.     PUSH    AF
  1438.     CALL    A1739
  1439.     CALL    CLSDST
  1440.     CALL    A16C0
  1441.     POP    AF
  1442.     RET    Z
  1443.     CALL    ILPRT
  1444.     DB    CR,LF
  1445.     DB    'ERROR - Checksum error in file ',0
  1446.     RET
  1447. ;
  1448. A0D6E:    CALL    A1773
  1449.     RET    NZ
  1450.     PUSH    AF
  1451.     CALL    A1773
  1452.     LD    H,A
  1453.     POP    AF
  1454.     LD    L,A
  1455.     CP    A
  1456.     RET
  1457. ;
  1458. A0D7B:    CALL    A0D6E
  1459.     RET    Z
  1460.     CALL    ILPRT
  1461.     DB    CR,LF
  1462.     DB    'Premature EOF on file... aborted.',0
  1463.     JP    LOOP
  1464. ;
  1465. A0DAC:    PUSH    HL
  1466.     CALL    A16C0
  1467.     POP    HL
  1468.     JR    A0DBA
  1469. ;
  1470. A0DB4:    CALL    A15B8
  1471.     JR    A0DE3
  1472. ;
  1473. A0DBA:    LD    A,(Y2C38)
  1474.     LD    B,A
  1475.     LD    A,(DRIVE2)
  1476.     CP    B
  1477.     JR    NZ,A0DD1
  1478.     LD    A,(USER3)
  1479.     LD    B,A
  1480.     LD    A,(Y2C3A)
  1481.     CP    0FFH
  1482.     RET    Z
  1483.     CP    B
  1484.     RET    Z
  1485. A0DD1:    CALL    A15B8
  1486.     LD    HL,SRCFCB
  1487.     LD    DE,DSTFCB
  1488.     LD    B,0CH
  1489.     CALL    MOVHDB
  1490.     XOR    A
  1491.     LD    (DSTFCB),A
  1492. A0DE3:    LD    HL,0
  1493.     LD    (CRCACC),HL
  1494.     CALL    A1625
  1495.     CALL    LOGDUE
  1496.     LD    HL,(FILPTR)
  1497.     LD    (Y2C34),HL
  1498. A0DF5:    PUSH    HL
  1499.     EX    DE,HL
  1500.     LD    C,SETDMA
  1501.     CALL    BDOS
  1502.     LD    DE,SRCFCB
  1503.     LD    C,FREAD
  1504.     CALL    BDOS
  1505.     POP    HL
  1506.     OR    A
  1507.     JR    NZ,A0E1E
  1508.     LD    DE,80H
  1509.     ADD    HL,DE
  1510.     LD    (Y2C34),HL
  1511.     EX    DE,HL
  1512.     LD    HL,(RAMTOP)
  1513.     CALL    CPHLDE
  1514.     EX    DE,HL
  1515.     CALL    C,A0ED5
  1516.     JR    A0DF5
  1517. ;
  1518. A0E1E:    CALL    A0ED5
  1519.     CALL    CLSDST
  1520.     CALL    A16C0
  1521.     LD    A,(CRCFLG)
  1522.     OR    A
  1523.     RET    Z
  1524.     LD    HL,.CPFL
  1525.     LD    A,(HL)
  1526.     LD    (HL),0
  1527.     OR    A
  1528.     CALL    NZ,CRLF
  1529.     CALL    ILPRT
  1530.     DB    '  Verifying... ',0
  1531.     CALL    A1604
  1532.     LD    HL,Y2C76
  1533.     LD    DE,Y2C77
  1534.     LD    B,21
  1535.     LD    (HL),0
  1536.     CALL    MOVHDB
  1537.     LD    DE,DSTFCB
  1538.     LD    C,FOPEN
  1539.     CALL    BDOS
  1540.     INC    A
  1541.     JR    NZ,A0E74
  1542.     CALL    ILPRT
  1543.     DB    ' Can''t open file!',0
  1544.     JP    LOOP
  1545. ;
  1546. A0E74:    LD    DE,80H
  1547.     LD    C,SETDMA
  1548.     CALL    BDOS
  1549.     LD    HL,(CRCACC)
  1550.     LD    (SRCCRC),HL
  1551.     LD    HL,0
  1552.     LD    (CRCACC),HL
  1553. .VFYLP:    LD    C,FREAD
  1554.     LD    DE,DSTFCB
  1555.     CALL    BDOS
  1556.     OR    A
  1557.     JR    NZ,VFYDUN
  1558.     LD    HL,DBUF
  1559.     LD    DE,100H
  1560.     CALL    CRCBLK
  1561.     JR    .VFYLP
  1562. ;
  1563. VFYDUN:    CALL    CLSDST            ; CLOSE DESTINATION FILE
  1564.     LD    DE,(SRCCRC)
  1565.     LD    HL,(CRCACC)
  1566.     CALL    CPHLDE
  1567.     JR    Z,.VFYOK
  1568.     CALL    ILPRT
  1569.     DB    'verify error',7,0
  1570.     JP    LOOP
  1571. ;
  1572. .VFYOK:    CALL    ILPRT
  1573.     DB    'file ok.',0
  1574.     RET
  1575. ;
  1576. A0ED5:    LD    DE,(Y2C34)
  1577.     LD    HL,(FILPTR)
  1578.     CALL    CPHLDE
  1579.     RET    Z
  1580.     CALL    CRCBLK
  1581.     CALL    A1604
  1582.     LD    HL,(FILPTR)
  1583. A0EE9:    PUSH    HL
  1584.     EX    DE,HL
  1585.     LD    C,SETDMA
  1586.     CALL    BDOS
  1587.     LD    DE,DSTFCB
  1588.     LD    C,FWRIT
  1589.     CALL    BDOS
  1590.     POP    HL
  1591.     OR    A
  1592.     JR    NZ,A0F16
  1593.     LD    DE,80H
  1594.     ADD    HL,DE
  1595.     LD    DE,(Y2C34)
  1596.     CALL    CPHLDE
  1597.     JR    NZ,A0EE9
  1598.     CALL    LOGDUE
  1599.     LD    HL,(FILPTR)
  1600.     LD    (Y2C34),HL
  1601.     RET
  1602. ;
  1603. A0F16:    LD    C,GETDRV        ; GET DRIVE
  1604.     CALL    BDOS
  1605.     LD    E,A            ; DRIVE TO E
  1606.     LD    C,26            ; FLUSH
  1607.     LD    D,80H            ; UNCONDITIONAL
  1608.     CALL    TDOS
  1609.     CALL    ILPRT
  1610.     DB    CR,LF
  1611.     DB    'Destination disk full.',0
  1612.     CALL    CLSDST
  1613.     CALL    A16C0
  1614.     CALL    A16E7
  1615.     JP    LOOP
  1616. ;
  1617. FINDFL:    CALL    ILPRT
  1618.     DB    '  Find what? ',0
  1619.     CALL    INPLN
  1620.     LD    HL,LINET
  1621.     LD    (Y2C3D),HL
  1622.     CALL    A1B9C
  1623.     LD    HL,DFCB+1
  1624.     LD    A,(HL)
  1625.     CP    ' '
  1626.     JP    Z,LOOP
  1627.     LD    B,11
  1628. A0F6D:    LD    A,(HL)
  1629.     CP    ' '
  1630.     JR    NZ,A0F75
  1631.     LD    (HL),'?'
  1632. A0F75:    INC    HL
  1633.     DJNZ    A0F6D
  1634.     CALL    ILPRT
  1635.     DB    CR,LF,0
  1636.     LD    HL,-1
  1637.     CALL    A0FEF
  1638.     JP    NZ,LOOP
  1639.     LD    (FILNMB),HL
  1640.     JP    LOOP
  1641. ;
  1642. MASSTG:    CALL    ILPRT
  1643.     DB    '  Tag what? ',0
  1644.     CALL    INPLN
  1645.     LD    HL,LINET
  1646.     LD    (Y2C3D),HL
  1647.     CALL    A1B9C
  1648.     LD    HL,DFCB+1
  1649.     LD    A,(HL)
  1650.     CP    ' '
  1651.     JP    Z,LOOP
  1652.     CALL    ILPRT
  1653.     DB    CR,LF,0
  1654.     LD    HL,-1
  1655. A0FBD:    CALL    A0FEF
  1656.     JP    NZ,LOOP
  1657.     PUSH    HL
  1658.     CALL    ILPRT
  1659.     DB    CR,LF
  1660.     DB    'Tagging --> ',0
  1661.     POP    HL
  1662.     PUSH    HL
  1663.     CALL    CLCFPT
  1664.     PUSH    HL
  1665.     CALL    A13DA
  1666.     LD    A,' '
  1667.     CALL    PUTCH
  1668.     POP    HL
  1669.     CALL    ADDH12
  1670.     CALL    ADDUP
  1671.     POP    HL
  1672.     JR    A0FBD
  1673. ;
  1674. A0FEF:    INC    HL
  1675.     EX    DE,HL
  1676.     LD    HL,(NMBFLS)
  1677.     CALL    CPHLDE
  1678.     JR    C,A100A
  1679.     EX    DE,HL
  1680.     PUSH    HL
  1681.     CALL    CLCFPT
  1682.     LD    DE,5DH
  1683.     CALL    A100E
  1684.     POP    HL
  1685.     RET    Z
  1686.     JR    A0FEF
  1687. ;
  1688. A100A:    LD    A,1
  1689.     OR    A
  1690.     RET
  1691. ;
  1692. A100E:    LD    B,11
  1693.     EX    DE,HL
  1694. A1011:    LD    A,(HL)
  1695.     CP    '?'
  1696.     JR    Z,A101C
  1697.     LD    A,(DE)
  1698.     AND    7FH
  1699.     CP    (HL)
  1700.     RET    NZ
  1701. A101C:    INC    HL
  1702.     INC    DE
  1703.     DJNZ    A1011
  1704.     RET
  1705. ;
  1706. RENAME:    LD    HL,(FILNMB)
  1707.     CALL    CLCFPT
  1708.     LD    DE,11
  1709.     ADD    HL,DE
  1710.     LD    A,(HL)
  1711.     LD    (USER3),A
  1712.     CALL    ILPRT
  1713.     DB    '  New name, or *? ',0
  1714.     CALL    INPLN
  1715.     LD    HL,LINET
  1716.     LD    (Y2C3D),HL
  1717.     LD    HL,DFCB+16
  1718.     PUSH    HL
  1719.     CALL    PARSFN
  1720.     POP    HL
  1721.     INC    HL
  1722.     LD    A,(HL)
  1723.     CP    ' '
  1724.     JP    Z,LOOP
  1725.     LD    B,11
  1726. A1061:    CP    '?'
  1727.     JP    Z,RENWIL
  1728.     INC    HL
  1729.     DJNZ    A1061
  1730.     LD    A,(Y2C3A)
  1731.     CP    0FFH
  1732.     JR    NZ,A1076
  1733.     LD    A,(USER3)
  1734. A1076:    LD    (HL),A
  1735.     LD    HL,(FILNMB)
  1736.     CALL    CLCFPT
  1737.     CALL    A10B9
  1738.     CP    '.'
  1739.     JR    NZ,A108D
  1740.     LD    C,RSTDSK
  1741.     CALL    BDOS
  1742.     CALL    GTBKSZ
  1743. A108D:    LD    HL,(FILNMB)
  1744.     PUSH    HL
  1745.     LD    HL,(NMBFLS)
  1746.     INC    HL
  1747.     LD    (NMBFLS),HL
  1748.     CALL    SORTBF
  1749.     CALL    UNDUPE
  1750.     LD    HL,(Y2C15)
  1751.     DEC    HL
  1752.     LD    (NMBFLS),HL
  1753.     EX    DE,HL
  1754.     POP    HL
  1755.     LD    (FILNMB),HL
  1756.     CALL    CPHLDE
  1757.     JP    C,LOOP
  1758.     LD    HL,0
  1759.     LD    (FILNMB),HL
  1760.     JP    LOOP
  1761. ;
  1762. A10B9:    PUSH    HL            ; ANYTHING MISSING BELOW HERE?????
  1763.     LD    (Y2C38),A
  1764.     LD    DE,DFCB
  1765.     XOR    A
  1766.     LD    (DFCB),A
  1767.     INC    DE
  1768.     LD    B,0BH
  1769.     CALL    MOVHDB
  1770.     LD    B,4
  1771.     XOR    A
  1772. A10D0:    LD    (DE),A
  1773.     INC    DE
  1774.     DJNZ    A10D0
  1775.     CALL    LOGDUE
  1776.     LD    A,(DFCB+9)
  1777.     AND    80H
  1778.     JR    Z,A10F9
  1779.     LD    A,(DFCB+9)
  1780.     AND    7FH
  1781.     LD    (DFCB+9),A
  1782.     LD    A,(DFCB+25)
  1783.     AND    7FH
  1784.     LD    (DFCB+25),A
  1785.     LD    DE,DFCB
  1786.     CALL    SATTRB
  1787. A10F9:    LD    A,(Y2C3A)
  1788.     CP    0FFH
  1789.     LD    E,A
  1790.     LD    A,(USER3)
  1791.     JR    NZ,A1106
  1792.     LD    E,A
  1793. A1106:    CALL    LOGUSR
  1794.     LD    HL,6DH
  1795.     LD    DE,SRCFCB+1
  1796.     LD    B,0BH
  1797.     CALL    MOVHDB
  1798.     XOR    A
  1799.     LD    (SRCFCB),A
  1800.     CALL    A15AB
  1801.     LD    DE,SRCFCB
  1802.     LD    HL,(FILPTR)
  1803.     CALL    WILDEX
  1804.     LD    A,L
  1805.     OR    H
  1806.     JR    Z,A1152
  1807.     CALL    ILPRT
  1808.     DB    CR,LF
  1809.     DB    'Destination file exists!',0
  1810.     LD    C,RSTDSK
  1811.     CALL    BDOS
  1812.     CALL    GTBKSZ
  1813.     JP    LOOP
  1814. ;
  1815. A1152:    LD    A,(Y2C3A)
  1816.     CP    0FFH
  1817.     JR    Z,A1162
  1818.     LD    B,A
  1819.     LD    A,(USER3)
  1820.     CP    B
  1821.     JR    NZ,DIF.US
  1822. A1162:    LD    A,(USER3)
  1823.     LD    E,A
  1824.     CALL    LOGUSR
  1825.     LD    E,0FFH
  1826.     CALL    LOGUSR
  1827.     PUSH    AF
  1828.     LD    DE,DFCB
  1829.     LD    C,FRENAM
  1830.     CALL    BDOS
  1831.     POP    AF
  1832.     LD    E,A
  1833.     CALL    LOGUSR
  1834.     XOR    A
  1835. A117D:    POP    DE
  1836.     PUSH    AF
  1837.     LD    HL,6DH
  1838.     LD    B,12
  1839.     CALL    MOVHDB
  1840.     POP    AF
  1841.     CP    A
  1842.     RET
  1843. ;
  1844. DIF.US:    CALL    ILPRT
  1845.     DB    CR,LF,LF,7
  1846.     DB    'ERROR: Cannot rename file to different user'
  1847.     DB    CR,LF,0
  1848.     JP    LOOP
  1849. ;
  1850. WILDEX:    PUSH    HL
  1851.     PUSH    DE
  1852.     LD    C,SETDMA
  1853.     LD    DE,DBUF
  1854.     CALL    BDOS
  1855.     POP    DE
  1856.     PUSH    DE
  1857.     LD    C,SFIRST
  1858.     CALL    BDOS
  1859.     INC    A
  1860.     POP    DE
  1861.     POP    HL
  1862.     LD    BC,0
  1863.     JR    NZ,GETFLN
  1864.     LD    HL,0
  1865.     RET
  1866. ;
  1867. GETFLN:    PUSH    DE
  1868.     PUSH    BC
  1869.     PUSH    HL
  1870.     DEC    A
  1871.     ADD    A,A
  1872.     ADD    A,A
  1873.     ADD    A,A
  1874.     ADD    A,A
  1875.     ADD    A,A
  1876.     LD    HL,DBUF
  1877.     ADD    A,L
  1878.     LD    L,A
  1879.     POP    DE
  1880.     LD    B,32
  1881.     CALL    MOVHDB
  1882.     PUSH    DE
  1883.     INC    D
  1884.     LD    HL,(RAMTOP)
  1885.     CALL    CPHLDE
  1886.     JR    NC,NOTOM
  1887.     CALL    ILPRT
  1888.     DB    CR,LF
  1889.     DB    'OUT OF MEMORY?',0
  1890.     RST    0
  1891. ;
  1892. NOTOM:    POP    DE
  1893.     PUSH    DE
  1894.     POP    HL
  1895.     POP    BC
  1896.     INC    BC
  1897.     POP    DE
  1898.     PUSH    DE
  1899.     PUSH    BC
  1900.     PUSH    HL
  1901.     LD    C,SNEXT
  1902.     CALL    BDOS
  1903.     INC    A
  1904.     POP    HL
  1905.     POP    BC
  1906.     POP    DE
  1907.     JR    NZ,GETFLN
  1908.     LD    L,C
  1909.     LD    H,B
  1910.     RET
  1911. ;
  1912. ; WILDCARD RENAME
  1913. ;
  1914. RENWIL:    CALL    ILPRT
  1915.     DB    CR,LF,CR,LF
  1916.     DB    'Old name? ',0
  1917.     CALL    INPLN
  1918.     LD    HL,LINET
  1919.     LD    (Y2C3D),HL
  1920.     LD    HL,FCB0
  1921.     CALL    PARSFN
  1922.     LD    A,(FCB0+1)
  1923.     CP    ' '
  1924.     JP    Z,LOOP
  1925.     LD    A,(Y2C3A)
  1926.     LD    (Y2C0C),A
  1927.     CALL    ILPRT
  1928.     DB    CR,LF
  1929.     DB    'New name? ',0
  1930.     CALL    INPLN
  1931.     LD    HL,LINET
  1932.     LD    (Y2C3D),HL
  1933.     LD    HL,DSTFCB
  1934.     CALL    PARSFN
  1935.     LD    A,(DSTFCB+1)
  1936.     CP    ' '
  1937.     JP    Z,LOOP
  1938.     CALL    CRLF
  1939.     LD    HL,0
  1940. A1312:    PUSH    HL
  1941.     CALL    CLCFPT
  1942.     PUSH    HL
  1943.     LD    DE,FCB0+1
  1944.     CALL    A1385
  1945.     JR    NZ,A1362
  1946.     CALL    ILPRT
  1947.     DB    CR,LF
  1948.     DB    'Renaming --> ',0
  1949.     POP    HL
  1950.     PUSH    HL
  1951.     CALL    A13DA
  1952.     POP    HL
  1953.     PUSH    HL
  1954.     LD    DE,11
  1955.     ADD    HL,DE
  1956.     LD    A,(HL)
  1957.     LD    (USER3),A
  1958.     CALL    ILPRT
  1959.     DB    ' to ',0
  1960.     POP    HL
  1961.     PUSH    HL
  1962.     CALL    A13B2
  1963.     LD    HL,6DH
  1964.     CALL    A13DA
  1965.     POP    HL
  1966.     CALL    A10B9
  1967.     LD    B,A
  1968.     LD    A,(D1374)
  1969.     OR    B
  1970.     LD    (D1374),A
  1971.     PUSH    HL
  1972. A1362:    POP    HL
  1973.     POP    HL
  1974.     INC    HL
  1975.     EX    DE,HL
  1976.     LD    HL,(NMBFLS)
  1977.     CALL    CPHLDE
  1978.     EX    DE,HL
  1979.     JR    NC,A1312
  1980.     CALL    CRLF
  1981.     LD    A,0
  1982. D1374    EQU    $-1
  1983.     CP    '.'
  1984.     JP    NZ,A108D
  1985.     LD    C,RSTDSK
  1986.     CALL    BDOS
  1987.     CALL    GTBKSZ
  1988.     JP    A108D
  1989. ;
  1990. A1385:    LD    A,(HL)
  1991.     CP    0E5H
  1992.     JR    Z,A13AF
  1993.     PUSH    HL
  1994.     LD    BC,11
  1995.     ADD    HL,BC
  1996.     LD    B,(HL)
  1997.     POP    HL
  1998.     LD    A,(Y2C0C)
  1999.     CP    0FFH
  2000.     JR    Z,A139C
  2001.     CP    B
  2002.     RET    NZ
  2003. A139C:    LD    A,(DE)
  2004.     CP    03FH
  2005.     JR    Z,A13A8
  2006.     LD    B,A
  2007.     LD    A,7FH
  2008.     AND    (HL)
  2009.     CP    B
  2010.     RET    NZ
  2011. A13A8:    INC    HL
  2012.     INC    DE
  2013.     DEC    C
  2014.     JR    NZ,A139C
  2015.     RET
  2016. ;
  2017. A13AF:    XOR    A
  2018.     CPL
  2019.     RET
  2020. ;
  2021. A13B2:    LD    DE,DSTFCB+1
  2022.     LD    BC,6DH
  2023.     LD    A,0BH
  2024. A13BA:    PUSH    AF
  2025.     LD    A,(DE)
  2026.     CP    03FH
  2027.     JR    NZ,A13C4
  2028.     LD    A,(HL)
  2029.     AND    7FH
  2030. A13C4:    LD    (BC),A
  2031.     INC    HL
  2032.     INC    DE
  2033.     INC    BC
  2034.     POP    AF
  2035.     DEC    A
  2036.     JR    NZ,A13BA
  2037.     LD    A,(Y2C3A)
  2038.     CP    0FFH
  2039.     JR    NZ,A13D8
  2040.     LD    A,(USER3)
  2041. A13D8:    LD    (BC),A
  2042.     RET
  2043. ;
  2044. A13DA:    PUSH    HL
  2045.     LD    DE,11
  2046.     ADD    HL,DE
  2047.     LD    L,(HL)
  2048.     LD    H,0
  2049.     LD    A,L
  2050.     CP    10
  2051.     LD    C,1
  2052.     JR    C,A13F5
  2053.     INC    C
  2054. A13F5:    PUSH    BC
  2055.     CALL    HEXDEC
  2056.     LD    A,(DRIVE2)
  2057.     ADD    A,41H
  2058.     CALL    PUTCH
  2059.     LD    A,':'
  2060.     CALL    PUTCH
  2061.     POP    BC
  2062.     LD    A,C
  2063.     CP    2
  2064.     JR    Z,A140A
  2065.     LD    A,' '
  2066.     CALL    PUTCH
  2067. A140A:    LD    B,8
  2068.     POP    HL
  2069.     CALL    A1460
  2070.     PUSH    HL
  2071.     LD    A,'.'
  2072.     CALL    PUTCH
  2073.     POP    HL
  2074.     LD    B,3
  2075.     JR    A1460
  2076. ;
  2077. ; DISPLAY CURRENT FILE NAME
  2078. ;
  2079. DSPCFN:    PUSH    HL
  2080.     LD    HL,(FILNMB)
  2081.     INC    HL
  2082.     LD    C,4
  2083.     CALL    HEXDEC
  2084.     CALL    ILPRT
  2085.     DB    '. ',0
  2086.     POP    HL
  2087.     CALL    A13DA
  2088.     INC    HL
  2089.     LD    A,(HL)
  2090.     PUSH    AF
  2091.     INC    HL
  2092.     PUSH    HL
  2093.     LD    A,' '
  2094.     CALL    PUTCH
  2095.     POP    HL
  2096.     CALL    CLCFSZ
  2097.     LD    C,4
  2098.     CALL    HEXDEC
  2099.     CALL    ILPRT
  2100.     DB    'K :',0
  2101.     POP    AF
  2102.     OR    A
  2103.     LD    C,' '
  2104.     JR    Z,A145B
  2105.     CP    1
  2106.     LD    C,'*'
  2107.     JR    Z,A145B
  2108.     LD    C,'#'
  2109. A145B:    LD    A,C
  2110.     JP    PUTCH
  2111. ;
  2112. A1460:    PUSH    BC
  2113.     PUSH    HL
  2114.     LD    A,(HL)
  2115.     CALL    PUTCH
  2116.     POP    HL
  2117.     POP    BC
  2118.     INC    HL
  2119.     DJNZ    A1460
  2120.     RET
  2121. ;
  2122. PRINTF:    CALL    CRLF
  2123.     LD    A,5
  2124.     LD    (Y2C3C),A
  2125.     JR    A14C9
  2126. ;
  2127. VIEWFL:    CALL    CRLF
  2128.     XOR    A
  2129.     LD    (Y2C3C),A
  2130.     INC    A
  2131.     LD    (Y2C32),A
  2132. A1484:    CALL    ILPRT
  2133.     DB    'Press ^X to abort, L to advance a line, cr to advance '
  2134.     DB    'a page.',CR,LF,0
  2135.     LD    A,2
  2136. A14C9:    LD    (Y2C3B),A
  2137.     LD    HL,(FILNMB)
  2138.     CALL    CLCFPT
  2139.     CALL    A15B8
  2140.     CALL    A0D7B
  2141.     LD    DE,0FF76H
  2142.     CALL    CPHLDE
  2143.     LD    HL,A1773
  2144.     JR    NZ,A14FD
  2145.     LD    HL,(FILPTR)
  2146.     LD    (Y2C21),HL
  2147.     LD    HL,Y2EED
  2148.     CALL    A0BFD
  2149.     OR    A
  2150.     JR    NZ,A14FD
  2151.     CALL    CRLF
  2152.     LD    HL,A20BA
  2153.     JR    A1505
  2154. ;
  2155. A14FD:    PUSH    HL
  2156.     LD    HL,(FILPTR)
  2157.     LD    (Y2C21),HL
  2158.     POP    HL
  2159. A1505:    LD    (D151B),HL
  2160. A1508:    CALL    A15A4
  2161.     CP    'X'-40H
  2162.     JR    Z,A1575
  2163.     CP    3
  2164.     JR    Z,A1575
  2165.     CP    'S'-40H
  2166.     JR    Z,A157B
  2167.     CALL    A1773
  2168. D151B    EQU    $-2
  2169.     JR    NZ,A1575
  2170.     CP    'Z'-40H
  2171.     JR    Z,A1575
  2172.     AND    7FH
  2173.     LD    E,A
  2174.     CP    CR
  2175.     JR    NZ,A1534
  2176.     LD    A,(Y2C32)
  2177.     INC    A
  2178.     LD    (Y2C32),A
  2179. A1534:    LD    A,(Y2C3B)
  2180.     LD    C,A
  2181.     CALL    BDOS
  2182.     LD    A,(Y2C3C)
  2183.     OR    A
  2184.     JR    NZ,A1508
  2185.     LD    A,(Y2C32)
  2186.     LD    B,A
  2187.     LD    A,(MAXLIN)
  2188.     CP    B
  2189.     JR    NZ,A1508
  2190.     CALL    A1590
  2191.     CP    04CH
  2192.     JR    Z,A156B
  2193.     CP    06CH
  2194.     JR    Z,A156B
  2195.     CP    018H
  2196.     JR    Z,A1575
  2197.     CP    03H
  2198.     JR    Z,A1575
  2199.     XOR    A
  2200.     LD    (Y2C32),A
  2201.     JR    A1508
  2202. ;
  2203. A156B:    LD    A,(Y2C32)
  2204.     DEC    A
  2205.     LD    (Y2C32),A
  2206.     JR    A1508
  2207. ;
  2208. A1575:    CALL    A16C0
  2209.     LD    A,(Y2C3C)        ; GET FLAG
  2210.     CP    5            ; PRINTER?
  2211.     JP    NZ,LOOP            ;   NO, GO BACK
  2212.     LD    C,28            ; ELSE SIGNAL EOP
  2213.     CALL    TDOS
  2214.     JP    LOOP
  2215. ;
  2216. A157B:    CALL    A1590
  2217.     JR    A1508
  2218. ;
  2219. CONDIN:    LD    C,11
  2220.     CALL    BDOS
  2221.     OR    A
  2222.     RET    Z
  2223. CIN:    LD    C,1
  2224.     CALL    BDOS
  2225.     JP    CAPS
  2226. ;
  2227. A1590:    CALL    A15A4
  2228.     OR    A
  2229.     JR    Z,A1590
  2230.     RET
  2231. ;
  2232. A1598:    CALL    CONDIN
  2233.     CP    3
  2234.     RET    Z
  2235.     CALL    CAPS
  2236.     CP    58H
  2237.     RET
  2238. ;
  2239. A15A4:    LD    E,0FFH
  2240.     LD    C,6
  2241.     JP    BDOS
  2242. ;
  2243. A15AB:    LD    HL,Y2C50
  2244.     LD    DE,Y2C51
  2245.     LD    B,20
  2246.     LD    (HL),0
  2247.     JP    MOVHDB
  2248. ;
  2249. A15B8:    LD    DE,SRCFCB
  2250.     XOR    A
  2251.     LD    (SRCFCB),A
  2252.     INC    DE
  2253.     LD    B,11
  2254.     CALL    MOVHDB
  2255.     LD    A,(HL)
  2256.     PUSH    AF
  2257.     CALL    A15AB
  2258.     POP    AF
  2259.     LD    (USER3),A
  2260.     CALL    LOGDUE
  2261.     LD    HL,(FILPTR)
  2262.     LD    (Y2C21),HL
  2263.     LD    (Y2C1F),HL
  2264.     LD    DE,SRCFCB
  2265.     LD    C,FOPEN
  2266.     CALL    BDOS
  2267.     INC    A
  2268.     RET    NZ
  2269.     CALL    ILPRT
  2270.     DB    CR,LF
  2271.     DB    'Can''t open file!',0
  2272.     JP    LOOP
  2273. ;
  2274. A1604:    LD    A,(Y2C38)
  2275.     LD    E,A
  2276.     LD    C,SELDSK
  2277.     CALL    BDOS
  2278.     LD    A,(Y2C3A)
  2279. LOGUSA:    LD    E,A
  2280. LOGUSR:    LD    C,GSUSER
  2281.     JP    BDOS
  2282. ;
  2283. ; LOG INTO ENTRY DU:
  2284. ;
  2285. LOGDUE:    LD    A,(DRIVE2)
  2286.     LD    E,A
  2287.     LD    C,SELDSK
  2288.     CALL    BDOS
  2289.     LD    A,(USER3)
  2290.     JR    LOGUSA
  2291. ;
  2292. A1625:    LD    HL,(FILPTR)
  2293.     LD    DE,1400H
  2294.     ADD    HL,DE
  2295.     LD    (Y2C25),HL
  2296.     LD    (Y2C23),HL
  2297.     LD    DE,1000H
  2298.     ADD    HL,DE
  2299.     LD    (Y2C27),HL
  2300.     CALL    A1604
  2301.     LD    DE,DSTFCB
  2302.     PUSH    DE
  2303.     LD    A,(DSTFCT)
  2304.     AND    7FH
  2305.     LD    (DSTFCT),A
  2306.     CALL    A16B2
  2307.     POP    DE
  2308.     PUSH    DE
  2309.     LD    C,FOPEN
  2310.     CALL    BDOS
  2311.     INC    A
  2312.     JR    Z,A167E
  2313.     POP    DE
  2314.     PUSH    DE
  2315.     LD    C,FCLOSE
  2316.     CALL    BDOS
  2317.     LD    A,(DSTFCT)
  2318.     AND    80H
  2319.     JR    Z,A1677
  2320.     LD    A,(DSTFCT)
  2321.     AND    7FH
  2322.     LD    (DSTFCT),A
  2323.     CALL    A16B2
  2324.     POP    DE
  2325.     PUSH    DE
  2326.     CALL    SATTRB
  2327. A1677:    POP    DE
  2328.     PUSH    DE
  2329.     CALL    DELDE
  2330.     JP    Z,NTDLT
  2331.     CP    4
  2332.     JR    Z,A167E
  2333.     LD    HL,.CPFL
  2334.     LD    A,(HL)
  2335.     LD    (HL),0
  2336.     OR    A
  2337.     CALL    NZ,CRLF
  2338.     CALL    ILPRT
  2339.     DB    '  (D)',0
  2340. A167E:    CALL    A16B2
  2341.     POP    DE
  2342.     LD    C,FMAKE
  2343.     CALL    BDOS
  2344.     INC    A
  2345.     RET    NZ
  2346.     CALL    ILPRT
  2347.     DB    CR,LF
  2348.     DB    'Destination disk directory full.',0
  2349.     JP    LOOP
  2350. ;
  2351. A16B2:    LD    HL,Y2C76
  2352.     LD    DE,Y2C77
  2353.     LD    B,22
  2354.     LD    (HL),0
  2355.     JP    MOVHDB
  2356. ;
  2357. A16C0:    CALL    LOGDUE
  2358.     LD    DE,SRCFCB
  2359.     LD    C,FCLOSE
  2360.     CALL    BDOS
  2361.     INC    A
  2362.     RET    NZ
  2363. A16CD:    CALL    ILPRT
  2364.     DB    CR,LF
  2365.     DB    'Can''t close file!',0
  2366.     JP    LOOP
  2367. ;
  2368. A16E7:    CALL    A1604
  2369.     CALL    A16B2
  2370.     LD    DE,DSTFCB
  2371.     CALL    DELDE
  2372.     RET    NZ
  2373.     JP    NTDLT
  2374. ;
  2375. CLSDST:    CALL    A1604
  2376.     LD    DE,DSTFCB
  2377.     LD    C,FCLOSE
  2378.     CALL    BDOS
  2379.     INC    A
  2380.     JR    Z,A16CD
  2381.     LD    HL,DSTFCT
  2382.     LD    A,(SRCFCT)
  2383.     AND    80H
  2384.     JR    Z,.CGLO
  2385.     SET    7,(HL)
  2386. .CGLO:    LD    A,(SRCFCT+1)
  2387.     AND    80H
  2388.     JR    Z,.DSET
  2389.     INC    HL
  2390.     SET    7,(HL)
  2391. .DSET:    LD    DE,DSTFCB
  2392. SATTRB:    LD    C,SETATT        ; ATTEMPT TO SET ATTRIBUTE
  2393.     CALL    BDOS
  2394.     OR    A
  2395.     RET    Z            ; OK
  2396.     CALL    ILPRT            ;   ELSE REPORT ERROR
  2397.     DB    ' -- unable to set attributes --',7,0
  2398.     RET
  2399. ;
  2400. A171C:    LD    DE,(Y2C27)
  2401.     LD    HL,(Y2C23)
  2402.     LD    B,A
  2403.     CALL    CPHLDE
  2404.     LD    A,B
  2405.     JR    Z,A1731
  2406.     LD    (HL),A
  2407.     INC    HL
  2408.     LD    (Y2C23),HL
  2409.     RET
  2410. ;
  2411. A1731:    PUSH    AF
  2412.     CALL    A1739
  2413.     POP    AF
  2414.     JR    A171C
  2415. ;
  2416. A1739:    LD    DE,(Y2C23)
  2417.     LD    HL,(Y2C25)
  2418.     CALL    CPHLDE
  2419.     RET    Z
  2420.     PUSH    HL
  2421.     CALL    A1604
  2422.     POP    HL
  2423. A1749:    PUSH    HL
  2424.     EX    DE,HL
  2425.     LD    C,SETDMA
  2426.     CALL    BDOS
  2427.     LD    DE,DSTFCB
  2428.     LD    C,FWRIT
  2429.     CALL    BDOS
  2430.     OR    A
  2431.     JP    NZ,A0F16
  2432.     POP    HL
  2433.     LD    DE,80H
  2434.     ADD    HL,DE
  2435.     EX    DE,HL
  2436.     LD    HL,(Y2C23)
  2437.     EX    DE,HL
  2438.     CALL    CPHLDE
  2439.     JR    C,A1749
  2440.     LD    HL,(Y2C25)
  2441.     LD    (Y2C23),HL
  2442.     RET
  2443. ;
  2444. A1773:    LD    DE,(Y2C1F)
  2445.     LD    HL,(Y2C21)
  2446.     CALL    CPHLDE
  2447.     JR    Z,A1787
  2448.     LD    A,(HL)
  2449.     INC    HL
  2450.     LD    (Y2C21),HL
  2451.     CP    A
  2452.     RET
  2453. ;
  2454. A1787:    CALL    LOGDUE
  2455.     LD    HL,(FILPTR)
  2456.     LD    (Y2C21),HL
  2457.     LD    (Y2C1F),HL
  2458.     LD    B,20H
  2459. A1795:    PUSH    BC
  2460.     EX    DE,HL
  2461.     LD    C,SETDMA
  2462.     CALL    BDOS
  2463.     LD    DE,SRCFCB
  2464.     LD    C,FREAD
  2465.     CALL    BDOS
  2466.     POP    BC
  2467.     OR    A
  2468.     JR    NZ,A17BA
  2469.     LD    HL,(Y2C1F)
  2470.     LD    DE,80H
  2471.     ADD    HL,DE
  2472.     LD    (Y2C1F),HL
  2473.     DJNZ    A1795
  2474.     JR    A1773
  2475. ;
  2476. A17BA:    LD    DE,(Y2C21)
  2477.     LD    HL,(Y2C1F)
  2478.     CALL    CPHLDE
  2479.     JR    NZ,A1773
  2480.     XOR    A
  2481.     DEC    A
  2482.     RET
  2483. ;
  2484. A17CA:    LD    HL,(NMBFLS)
  2485.     PUSH    HL
  2486.     POP    BC
  2487.     LD    HL,STACK
  2488.     LD    DE,STACK
  2489.     RET
  2490. ;
  2491. ; PROCESS FILENAME ON INITIAL COMMAND LINE
  2492. ;
  2493. PRCMDL:    LD    A,(DFCB)
  2494.     OR    A
  2495.     JR    Z,.CRDV
  2496.     DEC    A
  2497.     LD    (DRIVE2),A
  2498. .CRDV:    LD    A,(DFCB+17)
  2499.     CP    '?'
  2500.     JR    NZ,.NALU
  2501.     LD    A,0FFH
  2502.     LD    (USER2),A
  2503. .NALU:    LD    HL,FCB1+1
  2504.     LD    A,(HL)
  2505.     CP    ' '
  2506.     RET    NZ
  2507.     LD    DE,FCB1+2
  2508.     LD    (HL),'?'
  2509.     LD    B,10
  2510.     JP    MOVHDB
  2511. ;
  2512. PRPBUF:    CALL    A17CA
  2513. A1802:    LD    A,(HL)
  2514.     CP    ' '
  2515.     JR    NC,A1834
  2516.     PUSH    HL
  2517.     PUSH    AF
  2518.     INC    HL
  2519.     PUSH    BC
  2520.     LD    B,11
  2521.     CALL    MOVHDB
  2522.     POP    BC
  2523.     POP    AF
  2524.     LD    (DE),A
  2525.     LD    A,(HL)
  2526.     PUSH    AF
  2527.     INC    HL
  2528.     INC    DE
  2529.     XOR    A
  2530.     LD    (DE),A
  2531.     INC    HL
  2532.     INC    DE
  2533.     LD    A,(HL)
  2534.     LD    (DE),A
  2535.     INC    DE
  2536.     POP    AF
  2537.     LD    (DE),A
  2538.     INC    DE
  2539.     INC    HL
  2540.     LD    A,(HL)
  2541.     LD    (DE),A
  2542.     INC    DE
  2543.     POP    HL
  2544. A1827:    PUSH    DE
  2545.     LD    DE,20H
  2546.     ADD    HL,DE
  2547.     POP    DE
  2548.     DEC    BC
  2549.     LD    A,B
  2550.     OR    C
  2551.     JR    NZ,A1802
  2552.     RET
  2553. ;
  2554. A1834:    PUSH    BC
  2555.     LD    B,16
  2556.     LD    A,0E5H
  2557. A1839:    LD    (DE),A
  2558.     INC    DE
  2559.     DJNZ    A1839
  2560.     POP    BC
  2561.     JR    A1827
  2562. ;
  2563. SORTBF:    LD    HL,(NMBFLS)
  2564.     LD    (Y2C19),HL
  2565.     DEC    HL
  2566.     LD    A,H
  2567.     OR    L
  2568.     RET    Z
  2569. A184D:    LD    HL,(Y2C19)
  2570.     LD    A,H
  2571.     OR    L
  2572.     RET    Z
  2573.     XOR    A
  2574.     LD    A,H
  2575.     RRA
  2576.     LD    H,A
  2577.     LD    A,L
  2578.     RRA
  2579.     LD    L,A
  2580.     LD    (Y2C19),HL
  2581.     OR    H
  2582.     JR    NZ,A1862
  2583.     INC    HL
  2584. A1862:    LD    (Y2C1B),HL
  2585.     EX    DE,HL
  2586.     LD    HL,(NMBFLS)
  2587.     DEC    HL
  2588.     OR    A
  2589.     SBC    HL,DE
  2590.     LD    (Y2C15),HL
  2591.     LD    HL,0
  2592.     LD    (Y2C13),HL
  2593. A1879:    LD    HL,(Y2C13)
  2594.     LD    (FILNMB),HL
  2595. A187F:    LD    DE,(FILNMB)
  2596.     LD    HL,(Y2C1B)
  2597.     ADD    HL,DE
  2598.     LD    (Y2C17),HL
  2599.     CALL    A18C4
  2600.     JR    Z,A18B0
  2601.     JR    C,A18B0
  2602.     CALL    A18F5
  2603.     LD    DE,(Y2C1B)
  2604.     LD    HL,(FILNMB)
  2605.     OR    A
  2606.     SBC    HL,DE
  2607.     LD    (FILNMB),HL
  2608.     JP    M,A18B0
  2609.     OR    L
  2610.     JR    Z,A18B0
  2611.     JR    A187F
  2612. ;
  2613. A18B0:    LD    HL,(Y2C13)
  2614.     INC    HL
  2615.     LD    (Y2C13),HL
  2616.     EX    DE,HL
  2617.     LD    HL,(Y2C15)
  2618.     CALL    CPHLDE
  2619.     JR    C,A184D
  2620.     JR    A1879
  2621. ;
  2622. A18C4:    LD    HL,(FILNMB)
  2623.     CALL    CLCFPT
  2624.     LD    (Y2C0D),HL
  2625.     PUSH    HL
  2626.     LD    HL,(Y2C17)
  2627.     CALL    CLCFPT
  2628.     LD    (Y2C0F),HL
  2629.     POP    DE
  2630.     LD    B,11
  2631. A18DA:    LD    A,(HL)
  2632.     AND    7FH
  2633.     LD    C,A
  2634.     LD    A,(DE)
  2635.     AND    7FH
  2636.     CP    C
  2637.     RET    NZ
  2638.     INC    HL
  2639.     INC    DE
  2640.     DJNZ    A18DA
  2641.     LD    B,5
  2642. A18EB:    LD    A,(DE)
  2643.     CP    (HL)
  2644.     RET    NZ
  2645.     INC    HL
  2646.     INC    DE
  2647.     DJNZ    A18EB
  2648.     RET
  2649. ;
  2650. A18F5:    LD    DE,(Y2C0D)
  2651.     LD    HL,(Y2C0F)
  2652.     LD    C,10H
  2653. A18FE:    LD    B,(HL)
  2654.     LD    A,(DE)
  2655.     LD    (HL),A
  2656.     LD    A,B
  2657.     LD    (DE),A
  2658.     INC    DE
  2659.     INC    HL
  2660.     DEC    C
  2661.     JR    NZ,A18FE
  2662.     RET
  2663. ;
  2664. CPHLDE:    LD    A,H
  2665.     CP    D
  2666.     RET    NZ
  2667.     LD    A,L
  2668.     CP    E
  2669.     RET
  2670. ;
  2671. UNDUPE:    LD    HL,0
  2672.     LD    (FILNMB),HL
  2673.     LD    (Y2C15),HL
  2674.     INC    HL
  2675.     LD    (Y2C13),HL
  2676.     LD    HL,(NMBFLS)
  2677.     LD    (SRCCRC),HL
  2678. A1923:    CALL    A195D
  2679.     JR    Z,A192F
  2680.     CALL    A197D
  2681.     CALL    Z,A1946
  2682. A192F:    LD    HL,(Y2C13)
  2683.     LD    (FILNMB),HL
  2684.     INC    HL
  2685.     LD    (Y2C13),HL
  2686.     LD    HL,(SRCCRC)
  2687.     DEC    HL
  2688.     LD    (SRCCRC),HL
  2689.     LD    A,H
  2690.     OR    L
  2691.     JR    NZ,A1923
  2692.     RET
  2693. ;
  2694. A1946:    LD    HL,(Y2C15)
  2695.     CALL    CLCFPT
  2696.     EX    DE,HL
  2697.     LD    HL,(Y2C0D)
  2698.     LD    B,10H
  2699.     CALL    MOVHDB
  2700.     LD    HL,(Y2C15)
  2701.     INC    HL
  2702.     LD    (Y2C15),HL
  2703.     RET
  2704. ;
  2705. A195D:    LD    HL,(FILNMB)
  2706.     CALL    CLCFPT
  2707.     LD    (Y2C0D),HL
  2708.     PUSH    HL
  2709.     LD    HL,(Y2C13)
  2710.     CALL    CLCFPT
  2711.     LD    (Y2C0F),HL
  2712.     POP    DE
  2713.     LD    B,12
  2714. A1973:    LD    A,(DE)
  2715.     CP    (HL)
  2716.     RET    NZ
  2717.     INC    HL
  2718.     INC    DE
  2719.     DJNZ    A1973
  2720.     RET
  2721. ;
  2722. A197D:    LD    HL,(Y2C0D)
  2723.     LD    A,(HL)
  2724.     CP    0E5H
  2725.     JR    Z,A19B5
  2726.     PUSH    HL
  2727.     LD    DE,11
  2728.     ADD    HL,DE
  2729.     LD    B,(HL)
  2730.     POP    HL
  2731.     LD    DE,FCB1+1
  2732.     LD    C,11
  2733.     LD    A,B
  2734.     CP    32
  2735.     JR    NC,A19B5
  2736.     LD    A,(USER2)
  2737.     CP    0FFH
  2738.     JR    Z,A19A2
  2739.     CP    B
  2740.     RET    NZ
  2741. A19A2:    LD    A,(DE)
  2742.     CP    03FH
  2743.     JR    Z,A19AE
  2744.     LD    B,A
  2745.     LD    A,7FH
  2746.     AND    (HL)
  2747.     CP    B
  2748.     RET    NZ
  2749. A19AE:    INC    HL
  2750.     INC    DE
  2751.     DEC    C
  2752.     JR    NZ,A19A2
  2753.     RET
  2754. ;
  2755. A19B5:    OR    A
  2756.     RET
  2757. ;
  2758. ; CALC TOTAL K
  2759. ;
  2760. CLCTLK:    LD    HL,0
  2761.     LD    (TOTALK),HL
  2762.     LD    HL,(NMBFLS)
  2763.     INC    HL
  2764.     LD    A,L
  2765.     OR    H
  2766.     RET    Z
  2767.     PUSH    HL
  2768.     POP    BC
  2769.     LD    HL,STACK+13
  2770.     LD    DE,16
  2771. CTLKL1:    PUSH    HL
  2772.     PUSH    DE
  2773.     PUSH    BC
  2774.     CALL    CLCFSZ
  2775.     EX    DE,HL
  2776.     LD    HL,(TOTALK)
  2777.     ADD    HL,DE
  2778.     LD    (TOTALK),HL
  2779.     POP    BC
  2780.     POP    DE
  2781.     POP    HL
  2782.     ADD    HL,DE
  2783.     DEC    BC
  2784.     LD    A,B
  2785.     OR    C
  2786.     JR    NZ,CTLKL1
  2787.     RET
  2788. ;
  2789. HEXDEC:    PUSH    HL
  2790.     LD    DE,10000
  2791.     CALL    CPHLDE
  2792.     JR    C,HEXDC4
  2793.     LD    D,5
  2794.     JR    HEXDC0
  2795. ;
  2796. HEXDC4:    LD    DE,1000
  2797.     CALL    CPHLDE
  2798.     JR    C,HEXDC3
  2799.     LD    D,4
  2800.     JR    HEXDC0
  2801. ;
  2802. HEXDC3:    LD    DE,100
  2803.     CALL    CPHLDE
  2804.     JR    C,HEXDC2
  2805.     LD    D,3
  2806.     JR    HEXDC0
  2807. ;
  2808. HEXDC2:    LD    A,L
  2809.     CP    10
  2810.     JR    C,HEXDC1
  2811.     LD    D,2
  2812.     JR    HEXDC0
  2813. ;
  2814. HEXDC1:    LD    D,1
  2815. HEXDC0:    LD    A,C
  2816.     SUB    D
  2817.     JR    Z,HDNLB
  2818.     JR    C,HDNLB
  2819. LDBL:    PUSH    AF
  2820.     LD    A,' '
  2821.     CALL    PUTCH
  2822.     POP    AF
  2823.     DEC    A
  2824.     JR    NZ,LDBL
  2825. HDNLB:    POP    HL
  2826. HXDCNX:    PUSH    AF
  2827.     PUSH    BC
  2828.     PUSH    DE
  2829.     PUSH    HL
  2830.     LD    BC,-10
  2831.     LD    DE,-1
  2832. HXDCLP:    ADD    HL,BC
  2833.     INC    DE
  2834.     JR    C,HXDCLP
  2835.     LD    BC,10
  2836.     ADD    HL,BC
  2837.     EX    DE,HL
  2838.     LD    A,H
  2839.     OR    L
  2840.     CALL    NZ,HXDCNX
  2841.     LD    A,E
  2842.     ADD    A,'0'
  2843.     CALL    PUTCH
  2844.     POP    HL
  2845.     POP    DE
  2846.     POP    BC
  2847.     POP    AF
  2848.     RET
  2849. ;
  2850. CALCFS:    LD    DE,DBUF
  2851.     LD    C,SETDMA
  2852.     CALL    BDOS
  2853.     LD    A,(DRIVE2)
  2854.     LD    E,A
  2855.     LD    C,46
  2856.     CALL    BDOS
  2857.     LD    HL,(DBUF)
  2858.     LD    A,(DBUF+2)
  2859.     LD    B,A
  2860.     LD    C,3
  2861. A1AB9:    OR    A
  2862.     RR    B
  2863.     RR    H
  2864.     RR    L
  2865.     DEC    C
  2866.     JR    NZ,A1AB9
  2867.     LD    (FREEK),HL
  2868.     RET
  2869. ;
  2870. CLCFSZ:    LD    D,0
  2871.     LD    E,(HL)
  2872.     EX    DE,HL
  2873.     ADD    HL,HL
  2874.     ADD    HL,HL
  2875.     ADD    HL,HL
  2876.     ADD    HL,HL
  2877.     ADD    HL,HL
  2878.     EX    DE,HL
  2879.     INC    HL
  2880.     LD    A,(HL)
  2881.     PUSH    HL
  2882.     LD    H,0
  2883.     LD    L,A
  2884.     ADD    HL,DE
  2885.     ADD    HL,HL
  2886.     ADD    HL,HL
  2887.     ADD    HL,HL
  2888.     ADD    HL,HL
  2889.     POP    DE
  2890.     INC    DE
  2891.     LD    A,(DE)
  2892.     RRCA
  2893.     RRCA
  2894.     RRCA
  2895.     PUSH    AF
  2896.     AND    1FH
  2897.     ADD    A,L
  2898.     LD    L,A
  2899.     JR    NC,A1AEE
  2900.     INC    H
  2901. A1AEE:    POP    AF
  2902.     AND    0E0H
  2903.     JR    Z,A1AF5
  2904.     INC    HL
  2905. A1AF5:    PUSH    HL
  2906.     POP    DE
  2907.     LD    A,(BLKSZE)
  2908.     OR    A
  2909.     RET    Z
  2910.     CP    1
  2911.     JR    Z,A1B38
  2912.     CP    2
  2913.     JR    Z,A1B29
  2914.     CP    3
  2915.     JR    Z,A1B1A
  2916.     LD    A,L
  2917.     AND    0FH
  2918.     RET    Z
  2919.     PUSH    DE
  2920.     LD    A,0F0H
  2921.     AND    L
  2922.     LD    L,A
  2923.     LD    DE,10H
  2924.     ADD    HL,DE
  2925.     POP    DE
  2926.     RET
  2927. ;
  2928. A1B1A:    LD    A,L
  2929.     AND    7
  2930.     RET    Z
  2931.     PUSH    DE
  2932.     LD    DE,8
  2933.     ADD    HL,DE
  2934.     LD    A,L
  2935.     AND    0F8H
  2936.     LD    L,A
  2937.     POP    DE
  2938.     RET
  2939. ;
  2940. A1B29:    LD    A,L
  2941.     AND    3
  2942.     RET    Z
  2943.     LD    A,L
  2944.     AND    0FCH
  2945.     LD    L,A
  2946.     PUSH    DE
  2947.     LD    DE,4
  2948.     ADD    HL,DE
  2949.     POP    DE
  2950.     RET
  2951. ;
  2952. A1B38:    LD    A,L
  2953.     AND    1
  2954.     RET    Z
  2955.     INC    HL
  2956.     RET
  2957. ;
  2958. ; MOVE HL->DE, B BYTES
  2959. ;
  2960. MOVHDB:    LD    C,B
  2961.     LD    B,0
  2962.     LDIR
  2963.     RET
  2964. ;
  2965. CAPS:    CP    'a'
  2966.     RET    C
  2967.     CP    'z'+1
  2968.     RET    NC
  2969.     AND    5FH
  2970.     RET
  2971. ;
  2972. ; GET BLOCK SIZE AND LOG DRIVE
  2973. ;
  2974. GTBKSZ:    LD    A,(DRIVE2)
  2975.     LD    E,A
  2976.     PUSH    DE
  2977.     LD    C,SELDSK
  2978.     CALL    BDOS
  2979.     POP    DE
  2980.     LD    C,19
  2981.     CALL    TDOS
  2982.     CP    0FFH            ; NETWORK ERROR?
  2983.     JR    Z,NTWERR
  2984.     AND    7
  2985.     SUB    3
  2986.     LD    (BLKSZE),A
  2987.     RET
  2988. ;
  2989. NTWERR:    CALL    ILPRT
  2990.     DB    CR,LF,LF,7
  2991.     DB    'Network Error',CR,LF,0
  2992.     RST    0
  2993. ;
  2994. HELPME:    CALL    DSPBNR
  2995.     LD    DE,HLPMSG
  2996.     CALL    PRINTM
  2997.     LD    HL,(NMBFLS)
  2998.     CALL    PSTATS
  2999.     CALL    CRLF
  3000.     CALL    .MTGDF
  3001.     CALL    .TALRY
  3002.     JP    CRLF
  3003. ;
  3004. DSPBNR:    LD    DE,BANNER
  3005.     CALL    PRINTM
  3006.     LD    C,GETSER
  3007.     CALL    TDOS
  3008.     PUSH    BC
  3009.     PUSH    DE
  3010.     LD    C,2
  3011.     CALL    HEXDEC
  3012.     LD    A,'/'
  3013.     CALL    PUTCH
  3014.     POP    HL
  3015.     LD    C,1
  3016.     CALL    HEXDEC
  3017.     LD    C,12
  3018.     CALL    5
  3019.     PUSH    DE
  3020.     LD    DE,BANN1
  3021.     CALL    PRINTM
  3022.     POP    HL
  3023.     LD    C,1
  3024.     CALL    HEXDEC
  3025.     LD    DE,BANN2
  3026.     CALL    PRINTM
  3027.     POP    HL
  3028.     CALL    PVERS
  3029.     LD    DE,BANN3
  3030.     CALL    PRINTM
  3031.     LD    C,12
  3032.     CALL    5
  3033.     CALL    PVERS
  3034.     LD    DE,BANN4
  3035.     JP    PRINTM
  3036. ;
  3037. PVERS:    LD    A,L
  3038.     AND    0F0H
  3039.     RRA
  3040.     RRA
  3041.     RRA
  3042.     RRA
  3043.     OR    30H
  3044.     PUSH    HL
  3045.     CALL    PUTCH
  3046.     LD    A,'.'
  3047.     CALL    PUTCH
  3048.     POP    HL
  3049.     LD    A,L
  3050.     AND    0FH
  3051.     OR    30H
  3052.     JP    PUTCH
  3053. ;
  3054. A1B9C:    LD    HL,(Y2C3D)
  3055.     EX    DE,HL
  3056.     CALL    SKNBL
  3057.     LD    HL,DFCB
  3058.     XOR    A
  3059.     LD    (HL),A
  3060.     DEC    A
  3061.     JP    A1C26
  3062. ;
  3063. ; PARSE TO DEFAULT FCB
  3064. ;
  3065. PARSDF:    LD    HL,DFCB
  3066. ;
  3067. ; PARSE FILE NAME
  3068. ; 
  3069. ;
  3070. PARSFN:    LD    DE,(Y2C3D)    ; GET SOURCE
  3071.     CALL    SKNBL        ; ADVANCE DE TO FIRST NONBLANK
  3072.     LD    A,(DRIVE2)    ; GET DEFAULT DRIVE
  3073.     INC    A        ; MAKE 1..16
  3074.     LD    B,A        ; SAVE IT
  3075.     LD    C,0FFH        ; SET USER TO NONE
  3076.     LD    A,(DE)        ; GET CHAR
  3077.     OR    A        ; IF EOL
  3078.     JR    Z,A1C07        ;   THEN DONE PARSING
  3079.     PUSH    DE        ; SAVE POINTER
  3080.     CP    '0'        ; IF NON-NUMBERIC
  3081.     JR    C,A1BCF        ;   THEN SKIP
  3082.     CP    '9'+1        ; IF NUMERIC
  3083.     JR    C,A1BE2        ;   THEN PROCESS USER NUMBER
  3084. A1BCF:    SBC    A,40H        ; MAY BE A DRIVESPEC - SAVE AS SUCH
  3085.     LD    B,A
  3086.     INC    DE
  3087.     LD    A,(DE)        ; GET NECT CHAR
  3088.     CP    ':'        ; DRIVE/USER TERMINATOR?
  3089.     JR    Z,A1C11        ;   YES
  3090.     OR    A        ; EOL?
  3091.     JR    Z,A1C11        ;   YES
  3092.     CP    '*'        ; WILDCARD?
  3093.     JR    Z,A1BE5        ;   YES
  3094. A1BE2:    SUB    '0'        ; MAKE BINARY 0..9
  3095.     LD    C,A
  3096. A1BE5:    INC    DE
  3097.     LD    A,(DE)        ; GET NEXT BYTE
  3098.     CP    '9'+1        ; NUMERIC CHECK AGAIN
  3099.     JR    Z,A1C11
  3100.     OR    A
  3101.     JR    Z,A1C11
  3102.     PUSH    AF
  3103.     CALL    USRPAT
  3104.     LD    C,A
  3105.     POP    AF
  3106.     SUB    '0'
  3107.     ADD    A,C
  3108.     LD    C,A
  3109.     INC    DE
  3110.     LD    A,(DE)
  3111.     CP    ':'
  3112.     JR    Z,A1C11
  3113.     OR    A
  3114.     JR    Z,A1C11
  3115. A1C06:    POP    DE
  3116. A1C07:    LD    A,(DRIVE2)
  3117.     INC    A
  3118.     LD    (HL),A
  3119.     LD    A,0FFH
  3120.     JR    A1C26
  3121. ;
  3122. A1C11:    LD    A,B
  3123.     CP    11H
  3124.     JR    NC,A1C06
  3125.     LD    A,C
  3126.     CP    0FFH
  3127.     JR    Z,A1C22
  3128.     CP    ' '
  3129.     JR    NC,A1C06
  3130. A1C22:    POP    AF
  3131.     LD    (HL),B
  3132.     INC    DE
  3133.     LD    A,C
  3134. A1C26:    LD    (Y2C3A),A
  3135.     LD    B,8
  3136. A1C2B:    CALL    CKDLIM
  3137.     JR    Z,A1C4C
  3138.     INC    HL
  3139.     CP    '*'
  3140.     JR    NZ,A1C3C
  3141.     LD    (HL),'?'
  3142.     JR    A1C3E
  3143. ;
  3144. A1C3C:    LD    (HL),A
  3145.     INC    DE
  3146. A1C3E:    DJNZ    A1C2B
  3147. A1C42:    CALL    CKDLIM
  3148.     JR    Z,A1C53
  3149.     INC    DE
  3150.     JR    A1C42
  3151. ;
  3152. A1C4C:    INC    HL
  3153.     LD    (HL),' '
  3154.     DJNZ    A1C4C
  3155. A1C53:    LD    B,3
  3156.     CP    '.'
  3157.     JR    NZ,A1C7C
  3158.     INC    DE
  3159. A1C5B:    CALL    CKDLIM
  3160.     JR    Z,A1C7C
  3161.     INC    HL
  3162.     CP    '*'
  3163.     JR    NZ,A1C6C
  3164.     LD    (HL),'?'
  3165.     JR    A1C6E
  3166. ;
  3167. A1C6C:    LD    (HL),A
  3168.     INC    DE
  3169. A1C6E:    DJNZ    A1C5B
  3170. A1C72:    CALL    CKDLIM
  3171.     JR    Z,A1C83
  3172.     INC    DE
  3173.     JR    A1C72
  3174. ;
  3175. A1C7C:    INC    HL
  3176.     LD    (HL),' '
  3177.     DJNZ    A1C7C
  3178. A1C83:    LD    B,3
  3179. A1C85:    INC    HL
  3180.     LD    (HL),0
  3181.     DJNZ    A1C85
  3182.     EX    DE,HL
  3183.     LD    (Y2C3D),HL
  3184.     RET
  3185. ;
  3186. CKDLIM:    LD    A,(DE)
  3187.     OR    A
  3188.     RET    Z
  3189.     CP    ' '
  3190.     RET    Z
  3191.     CP    3DH
  3192.     RET    Z
  3193.     CP    5FH
  3194.     RET    Z
  3195.     CP    '.'
  3196.     RET    Z
  3197.     CP    ':'
  3198.     RET    Z
  3199.     CP    3BH
  3200.     RET    Z
  3201.     CP    3CH
  3202.     RET    Z
  3203.     CP    3EH
  3204.     RET
  3205. ;
  3206. ; SKIP TO NONBLANK OR EOL
  3207. ;
  3208. SKNBL:    LD    A,(DE)
  3209.     OR    A
  3210.     RET    Z
  3211.     CP    ' '
  3212.     RET    NZ
  3213.     INC    DE
  3214.     JR    SKNBL
  3215. ;
  3216. ; CREATE CRC LOOKUP TABLE
  3217. ;
  3218. CRCRCT:    LD    HL,CRCTBL
  3219.     LD    C,0
  3220. A1CBB:    EX    DE,HL
  3221.     LD    HL,0
  3222.     LD    A,C
  3223.     PUSH    BC
  3224.     LD    B,8
  3225.     XOR    H
  3226.     LD    H,A
  3227. A1CC5:    ADD    HL,HL
  3228.     JR    NC,A1CD1
  3229.     LD    A,10H
  3230.     XOR    H
  3231.     LD    H,A
  3232.     LD    A,21H
  3233.     XOR    L
  3234.     LD    L,A
  3235. A1CD1:    DJNZ    A1CC5
  3236.     POP    BC
  3237.     EX    DE,HL
  3238.     LD    (HL),D
  3239.     INC    H
  3240.     LD    (HL),E
  3241.     DEC    H
  3242.     INC    HL
  3243.     INC    C
  3244.     JR    NZ,A1CBB
  3245.     RET
  3246. ;
  3247. ; CALCULATE CRC OF ALL BYTES BETWEEN HL AND DE, INCLUSIVELY
  3248. ;
  3249. CRCBLK:    LD    A,(CRCFLG)        ; CHECK IF CRC ENABLED
  3250.     OR    A
  3251.     RET    Z            ; RETURN IF NOT
  3252. .CRCLP:    LD    A,(HL)
  3253.     CALL    CRCK
  3254.     INC    HL
  3255.     CALL    CPHLDE
  3256.     JR    NZ,.CRCLP
  3257.     RET
  3258. ;
  3259. CRCK:    PUSH    BC
  3260.     PUSH    HL
  3261.     PUSH    DE
  3262.     LD    HL,(CRCACC)
  3263.     EX    DE,HL
  3264.     LD    B,0
  3265.     XOR    D
  3266.     LD    C,A
  3267.     LD    HL,CRCTBL
  3268.     ADD    HL,BC
  3269.     LD    A,(HL)
  3270.     XOR    E
  3271.     LD    D,A
  3272.     INC    H
  3273.     LD    E,(HL)
  3274.     EX    DE,HL
  3275.     LD    (CRCACC),HL
  3276.     POP    DE
  3277.     POP    HL
  3278.     POP    BC
  3279.     RET
  3280. ;
  3281. ADDH12:    LD    DE,12
  3282.     ADD    HL,DE
  3283.     RET
  3284. ;
  3285. CRLF:    CALL    ILPRT
  3286.     DB    CR,LF,0
  3287.     RET
  3288. ;
  3289. ILPRT:    POP    HL
  3290.     LD    A,(HL)
  3291.     OR    A
  3292.     INC    HL
  3293.     PUSH    HL
  3294.     RET    Z
  3295.     CALL    PUTCH
  3296.     JR    ILPRT
  3297. ;
  3298. PRINTM:    LD    C,9
  3299.     JP    BDOS
  3300. ;
  3301. PUTCH:    BIT    7,A
  3302.     JR    Z,OUTCHR
  3303.     PUSH    AF
  3304.     CALL    A1D46
  3305.     POP    AF
  3306.     CALL    OUTCHR
  3307.     JR    A1D4C
  3308. ;
  3309. OUTCHR:    AND    7FH
  3310.     LD    E,A
  3311.     LD    C,2
  3312.     JP    BDOS
  3313. ;
  3314. A1D46:    LD    HL,REVON
  3315.     JR    A1D4F
  3316. ;
  3317. A1D4C:    LD    HL,REVOF
  3318. A1D4F:    LD    A,(HL)
  3319.     INC    HL
  3320.     OR    A
  3321.     RET    Z
  3322.     LD    B,A
  3323. A1D54:    PUSH    HL
  3324.     PUSH    BC
  3325.     LD    A,(HL)
  3326.     CALL    OUTCHR
  3327.     POP    BC
  3328.     POP    HL
  3329.     INC    HL
  3330.     DJNZ    A1D54
  3331.     RET
  3332. ;
  3333. ; CALCULATE FILE POINTER
  3334. ;
  3335. CLCFPT:    ADD    HL,HL
  3336.     ADD    HL,HL
  3337.     ADD    HL,HL
  3338.     ADD    HL,HL
  3339.     LD    DE,STACK
  3340.     ADD    HL,DE
  3341.     RET
  3342. ;
  3343. USRPAT:    PUSH    BC
  3344.     XOR    A
  3345.     LD    B,10
  3346. DC10LP:    ADD    A,B
  3347.     DEC    C
  3348.     JR    NZ,DC10LP
  3349.     POP    BC
  3350.     RET
  3351. ;
  3352. ; DELETE FILE (FCB IN DE), RETURN Z=ERROR
  3353. ;
  3354. DELDE:    PUSH    DE
  3355.     LD    C,SFIRST            ; SEE IF EXISTS
  3356.     CALL    BDOS
  3357.     INC    A
  3358.     LD    A,3
  3359.     JR    Z,.XDL            ; EXIT IF NOT THERE
  3360.     POP    DE
  3361.     PUSH    DE
  3362.     LD    C,FDELT            ; WIPE IT OUT
  3363.     CALL    BDOS
  3364.     INC    A
  3365.     JR    NZ,.XDL            ; OK TO EXIT
  3366.     POP    DE
  3367.     RET
  3368. ;
  3369. .XDL:    POP    DE
  3370.     INC    A
  3371.     RET
  3372. ;
  3373. BANNER:
  3374. CLS::    DB    '    '
  3375.     DB    CR,LF
  3376.     DB    'NSWP Version 2.05.26 for TurboDOS',CR,LF
  3377.     DB    'Original (c) Dave Rand, 1983,1984',CR,LF
  3378.     DB    'Serial number $'
  3379. BANN1:    DB    '  Network CPU : $'
  3380. BANN2:    DB    CR,LF,'TurboDOS version : $'
  3381. BANN3:    DB    '  CP/M version : $'
  3382. BANN4:    DB    CR,LF,CR,LF,'$'
  3383. ;
  3384. HLPMSG:    DB    CR,LF
  3385.     DB    9,'A - Retag files       | Q - Squeeze/Unsqueeze files'
  3386.     DB    CR,LF
  3387.     DB    9,'B - Back one file     | R - Rename file(s)'
  3388.     DB    CR,LF
  3389.     DB    9,'C - Copy file         | S - Check remaining space'
  3390.     DB    CR,LF
  3391.     DB    9,'D - Delete file       | T - Tag file for transfer'
  3392.     DB    CR,LF
  3393.     DB    9,'E - Erase T/U files   | U - Untag file'
  3394.     DB    CR,LF
  3395.     DB    9,'F - Find file         | V - View file'
  3396.     DB    CR,LF
  3397.     DB    9,'G - Go execute file   | W - Wildcard tag of files'
  3398.     DB    CR,LF
  3399.     DB    9,'L - Log new disk/user | Y - Set file status.'
  3400.     DB    CR,LF
  3401.     DB    9,'M - Mass file copy    | Z - Change disk'
  3402.     DB    CR,LF
  3403.     DB    9,'P - Print file        | ? - Display this help'
  3404.     DB    CR,LF
  3405.     DB    9,'X - Exit to TurboDOS  | cr, sp - Forward one file'
  3406.     DB    CR,LF,CR,LF,'$'
  3407. ;
  3408. ; INPUT LINE
  3409. ;
  3410. LINE:    DB    18
  3411. LINEC:    DB    2
  3412. LINET:    DB    '23'
  3413.     DS    18
  3414. ;
  3415. A1FED:    LD    DE,16
  3416.     LD    (D2156),HL
  3417.     ADD    HL,DE
  3418.     LD    (D2158),HL
  3419.     LD    HL,0
  3420.     ADD    HL,SP
  3421.     LD    (A206A+1),HL
  3422.     CALL    A2141
  3423.     LD    DE,0FF76H
  3424.     CALL    CMPHD
  3425.     LD    A,1
  3426.     RET    NZ
  3427.     XOR    A
  3428.     LD    (D2152),A
  3429.     LD    (D2155),A
  3430.     CALL    A2141
  3431.     LD    (D215C),HL
  3432.     LD    HL,(D2156)
  3433. A201A:    PUSH    HL
  3434.     CALL    A1773
  3435.     POP    HL
  3436.     PUSH    AF
  3437. D2020:    CALL    CAPS
  3438.     LD    B,A
  3439.     POP    AF
  3440.     LD    (HL),B
  3441.     INC    HL
  3442.     JR    NZ,A206A
  3443.     OR    A
  3444.     JR    NZ,A201A
  3445.     CALL    A2141
  3446.     LD    (D215E),HL
  3447.     LD    DE,102H
  3448.     CALL    CMPHD
  3449.     JR    C,A2041
  3450.     LD    A,2
  3451.     OR    A
  3452.     RET
  3453. ;
  3454. A2041:    LD    DE,(D2158)
  3455. A2046:    LD    (D215A),HL
  3456.     LD    A,H
  3457.     OR    L
  3458.     JR    Z,A2071
  3459.     PUSH    DE
  3460.     CALL    A2141
  3461.     POP    DE
  3462.     EX    DE,HL
  3463.     LD    (HL),E
  3464.     INC    HL
  3465.     LD    (HL),D
  3466.     INC    HL
  3467.     PUSH    HL
  3468.     CALL    A2141
  3469.     EX    DE,HL
  3470.     POP    HL
  3471.     LD    (HL),E
  3472.     INC    HL
  3473.     LD    (HL),D
  3474.     INC    HL
  3475.     EX    DE,HL
  3476.     LD    HL,(D215A)
  3477.     DEC    HL
  3478.     JR    A2046
  3479. ;
  3480. A206A:    LD    SP,0            ; FILLED LATER
  3481.     LD    A,3
  3482.     OR    A
  3483.     RET
  3484. ;
  3485. A2071:    LD    HL,(D2156)
  3486.     LD    DE,(D215C)
  3487.     XOR    A
  3488.     RET
  3489. ;
  3490.     DB    'USQ SECTION (C) DAVE RAND'
  3491. ;
  3492. A20BA:    LD    HL,0
  3493.     ADD    HL,SP
  3494.     LD    (A206A+1),HL
  3495.     LD    A,(D2155)
  3496.     OR    A
  3497.     JR    Z,A20D1
  3498.     DEC    A
  3499.     LD    (D2155),A
  3500.     LD    A,(D2154)
  3501.     CP    A
  3502.     RET
  3503. ;
  3504. A20D1:    CALL    A20F3
  3505.     CP    90H
  3506.     JR    NZ,A20EE
  3507.     CALL    A20F3
  3508.     OR    A
  3509.     JR    NZ,A20E4
  3510.     LD    A,90H
  3511.     CP    A
  3512.     RET
  3513. ;
  3514. A20E4:    DEC    A
  3515.     DEC    A
  3516.     LD    (D2155),A
  3517.     LD    A,(D2154)
  3518.     CP    A
  3519.     RET
  3520. ;
  3521. A20EE:    LD    (D2154),A
  3522.     CP    A
  3523.     RET
  3524. ;
  3525. A20F3:    LD    DE,0
  3526.     LD    A,(D2153)
  3527.     LD    C,A
  3528. A20FA:    LD    A,(D2152)
  3529.     OR    A
  3530.     JR    NZ,A210C
  3531.     PUSH    DE
  3532.     CALL    A1773
  3533.     JP    NZ,A206A
  3534.     POP    DE
  3535.     LD    C,A
  3536.     LD    A,8
  3537. A210C:    DEC    A
  3538.     LD    (D2152),A
  3539.     LD    A,C
  3540.     RRCA
  3541.     LD    C,A
  3542.     LD    HL,(D2158)
  3543.     JR    NC,A211B
  3544.     INC    HL
  3545.     INC    HL
  3546. A211B:    ADD    HL,DE
  3547.     ADD    HL,DE
  3548.     ADD    HL,DE
  3549.     ADD    HL,DE
  3550.     LD    E,(HL)
  3551.     INC    HL
  3552.     LD    D,(HL)
  3553.     LD    A,D
  3554.     AND    80H
  3555.     JR    Z,A20FA
  3556.     LD    A,C
  3557.     LD    (D2153),A
  3558.     LD    A,D
  3559.     CP    0FEH
  3560.     LD    A,1AH
  3561.     JR    Z,A2138
  3562.     LD    A,E
  3563.     CPL
  3564.     CP    A
  3565.     RET
  3566. ;
  3567. A2138:    POP    HL
  3568.     OR    A
  3569.     RET
  3570. ;
  3571. CMPHD:    LD    A,H
  3572.     CP    D
  3573.     RET    NZ
  3574.     LD    A,L
  3575.     CP    E
  3576.     RET
  3577. ;
  3578. A2141:    CALL    A1773
  3579.     JP    NZ,A206A
  3580.     PUSH    AF
  3581.     CALL    A1773
  3582.     JP    NZ,A206A
  3583.     LD    H,A
  3584.     POP    AF
  3585.     LD    L,A
  3586.     RET
  3587. ;
  3588. D2152:    DB    0
  3589. D2153:    DB    0
  3590. D2154:    DB    0
  3591. D2155:    DB    0
  3592. D2156:    DW    0
  3593. D2158:    DW    0
  3594. D215A:    DW    0
  3595. D215C:    DW    0
  3596. D215E:    DW    0
  3597. ;
  3598. A2160:    LD    A,0FFH
  3599.     LD    (D29C6),A
  3600.     LD    (D2A20),HL
  3601.     LD    HL,0
  3602.     ADD    HL,SP
  3603.     LD    (D2A60),HL
  3604.     LD    SP,D2A60
  3605.     LD    HL,(D2A20)
  3606.     LD    A,L
  3607.     AND    0FCH
  3608.     LD    L,A
  3609.     LD    A,4
  3610.     CALL    A296B
  3611.     LD    (D29C7),HL
  3612.     LD    DE,1024
  3613.     ADD    HL,DE
  3614.     LD    (D2A1C),HL
  3615.     LD    DE,1024
  3616.     ADD    HL,DE
  3617.     LD    (D2A1E),HL
  3618.     CALL    A2904
  3619.     XOR    A
  3620.     LD    (D29CC),A
  3621.     CALL    A2935
  3622.     JR    NZ,A21A1
  3623.     LD    A,2
  3624.     JP    A256E
  3625. ;
  3626. A21A1:    LD    DE,0FF76H
  3627.     CALL    CMPHD
  3628.     JR    NZ,A21AF
  3629.     LD    A,1
  3630.     JP    A256E
  3631. ;
  3632. A21AF:    LD    A,L
  3633.     LD    (D29CB),A
  3634.     PUSH    HL
  3635.     CALL    A28E6
  3636.     POP    HL
  3637.     LD    A,H
  3638.     JR    A21C2
  3639. ;
  3640. A21BC:    CALL    A2941
  3641.     JP    Z,A221D
  3642. A21C2:    LD    HL,D29CB
  3643.     CP    (HL)
  3644.     JR    Z,A21F7
  3645.     INC    HL
  3646.     INC    (HL)
  3647.     DEC    (HL)
  3648.     JR    Z,A2214
  3649.     PUSH    AF
  3650.     LD    A,(HL)
  3651.     LD    (HL),0
  3652.     CP    3
  3653.     JR    NC,A21E8
  3654.     LD    B,A
  3655.     DEC    HL
  3656.     LD    A,(HL)
  3657. A21DB:    PUSH    AF
  3658.     CALL    A28E6
  3659.     POP    AF
  3660.     DJNZ    A21DB
  3661.     POP    AF
  3662.     JR    A2214
  3663. ;
  3664. A21E8:    PUSH    AF
  3665.     LD    A,90H
  3666.     CALL    A28EF
  3667.     POP    AF
  3668.     INC    A
  3669.     CALL    A28EF
  3670.     POP    AF
  3671.     JR    A2214
  3672. ;
  3673. A21F7:    CP    90H
  3674.     JR    Z,A2214
  3675.     INC    HL
  3676.     INC    (HL)
  3677.     LD    A,(HL)
  3678.     CP    0FFH
  3679.     JR    NZ,A21BC
  3680.     PUSH    HL
  3681.     LD    A,90H
  3682.     CALL    A28EF
  3683.     POP    HL
  3684.     LD    A,(HL)
  3685.     LD    (HL),0
  3686.     CALL    A28EF
  3687.     LD    A,(D29CB)
  3688. A2214:    LD    (D29CB),A
  3689.     CALL    A28E6
  3690.     JR    A21BC
  3691. ;
  3692. A221D:    LD    A,(D29CC)
  3693.     OR    A
  3694.     JR    Z,A222F
  3695.     PUSH    AF
  3696.     LD    A,90H
  3697.     CALL    A28EF
  3698.     POP    AF
  3699.     INC    A
  3700.     CALL    A28EF
  3701. A222F:    LD    B,0
  3702.     LD    HL,(D2A1C)
  3703. A2234:    LD    E,(HL)
  3704.     INC    HL
  3705.     LD    D,(HL)
  3706.     INC    HL
  3707.     LD    C,(HL)
  3708.     INC    HL
  3709.     LD    A,D
  3710.     OR    E
  3711.     OR    C
  3712.     JR    NZ,A224A
  3713.     INC    HL
  3714.     DJNZ    A2234
  3715.     LD    A,2
  3716.     JP    A256E
  3717. ;
  3718. A224A:    DEC    B
  3719.     LD    A,(HL)
  3720.     PUSH    HL
  3721.     LD    HL,(D2A1E)
  3722.     LD    (HL),A
  3723.     INC    HL
  3724.     LD    (HL),E
  3725.     INC    HL
  3726.     LD    (HL),D
  3727.     INC    HL
  3728.     LD    (HL),C
  3729.     INC    HL
  3730.     LD    (D29D9),HL
  3731.     POP    HL
  3732.     LD    A,1
  3733.     LD    (D29CD),A
  3734.     INC    HL
  3735. A2262:    LD    E,(HL)
  3736.     INC    HL
  3737.     LD    D,(HL)
  3738.     INC    HL
  3739.     LD    C,(HL)
  3740.     INC    HL
  3741.     LD    A,(HL)
  3742.     INC    HL
  3743.     LD    (D2A1A),A
  3744.     LD    A,E
  3745.     OR    D
  3746.     OR    C
  3747.     JR    Z,A22D1
  3748.     PUSH    HL
  3749.     PUSH    BC
  3750.     LD    A,(D29CD)
  3751.     LD    B,A
  3752.     LD    HL,(D2A1E)
  3753.     INC    HL
  3754. A227D:    PUSH    HL
  3755.     CALL    A298C
  3756.     JR    C,A2294
  3757.     POP    HL
  3758.     INC    HL
  3759.     INC    HL
  3760.     INC    HL
  3761.     INC    HL
  3762.     DJNZ    A227D
  3763.     LD    A,C
  3764.     LD    (D2A1B),A
  3765.     JR    A22B0
  3766. ;
  3767. A2294:    LD    HL,(D29D9)
  3768.     LD    A,C
  3769.     LD    (D2A1B),A
  3770.     POP    BC
  3771.     PUSH    BC
  3772.     DEC    BC
  3773.     LD    A,L
  3774.     SUB    C
  3775.     LD    C,A
  3776.     LD    A,H
  3777.     SBC    A,B
  3778.     LD    B,A
  3779.     PUSH    DE
  3780.     LD    D,H
  3781.     LD    E,L
  3782.     INC    DE
  3783.     INC    DE
  3784.     INC    DE
  3785.     DEC    HL
  3786.     CALL    A29B5
  3787.     POP    DE
  3788.     POP    HL
  3789. A22B0:    DEC    HL
  3790.     POP    BC
  3791.     LD    A,(D2A1A)
  3792.     LD    (HL),A
  3793.     INC    HL
  3794.     LD    (HL),E
  3795.     INC    HL
  3796.     LD    (HL),D
  3797.     INC    HL
  3798.     LD    A,(D2A1B)
  3799.     LD    (HL),A
  3800.     LD    HL,(D29D9)
  3801.     INC    HL
  3802.     INC    HL
  3803.     INC    HL
  3804.     INC    HL
  3805.     LD    (D29D9),HL
  3806.     LD    A,(D29CD)
  3807.     INC    A
  3808.     LD    (D29CD),A
  3809.     POP    HL
  3810. A22D1:    DJNZ    A2262
  3811.     LD    A,(D29CD)
  3812.     LD    HL,T2860
  3813.     LD    B,7
  3814.     OR    A
  3815.     JR    Z,A22F3
  3816. A22E1:    INC    (HL)
  3817.     DEC    (HL)
  3818.     JR    NZ,A22EA
  3819.     CP    (HL)
  3820.     JR    NZ,A22EE
  3821. A22EA:    CP    (HL)
  3822.     JR    NC,A22F3
  3823. A22EE:    INC    HL
  3824.     DJNZ    A22E1
  3825. A22F3:    INC    B
  3826.     INC    B
  3827.     INC    B
  3828.     LD    HL,D285F
  3829.     LD    (HL),B
  3830.     XOR    A
  3831.     LD    (D2A15),A
  3832.     LD    (D2A16),A
  3833. A2301:    CALL    A284A
  3834.     XOR    A
  3835.     LD    H,A
  3836.     LD    (D29CC),A
  3837.     LD    (D29D8),A
  3838.     INC    A
  3839.     LD    L,A
  3840.     LD    (D29CB),A
  3841.     LD    (D29D6),HL
  3842.     INC    A
  3843.     LD    (D29D2),A
  3844.     LD    HL,(D29C7)
  3845.     LD    (D29D4),HL
  3846.     LD    HL,0
  3847.     LD    (D29E9),HL
  3848.     LD    (D29EB),HL
  3849.     LD    HL,T2A02
  3850.     LD    DE,T2A03
  3851.     LD    BC,10H
  3852.     LD    (HL),0
  3853.     CALL    A29AA
  3854.     LD    A,(D2A15)
  3855.     OR    A
  3856.     JR    NZ,A236B
  3857. A233C:    CALL    A2832
  3858.     JP    Z,A2432
  3859.     CALL    A2883
  3860.     JR    Z,A23A3
  3861.     LD    B,A
  3862.     LD    A,(D29CB)
  3863.     CP    C
  3864.     JR    Z,A2358
  3865. A2350:    CALL    A26EB
  3866.     INC    A
  3867.     CP    C
  3868.     JR    NZ,A2350
  3869. A2358:    LD    A,(D29D2)
  3870.     CP    1
  3871.     JR    Z,A23A8
  3872.     LD    HL,D29CC
  3873.     INC    (HL)
  3874.     LD    A,B
  3875.     CALL    A2771
  3876.     JR    A233C
  3877. ;
  3878. A236B:    CALL    A2832
  3879.     JP    Z,A2432
  3880.     LD    B,A
  3881. A2372:    LD    HL,D29CB
  3882.     LD    A,(D285F)
  3883.     CP    (HL)
  3884.     JR    C,A23A4
  3885.     LD    A,(HL)
  3886.     LD    HL,T29F1
  3887.     CALL    A296B
  3888.     LD    A,(D29CC)
  3889.     CP    (HL)
  3890.     JR    NZ,A2390
  3891.     CALL    A26EB
  3892.     JR    A2372
  3893. ;
  3894. A2390:    LD    A,(D29D2)
  3895.     CP    1
  3896.     JR    Z,A23A8
  3897.     LD    HL,D29CC
  3898.     INC    (HL)
  3899.     LD    A,B
  3900.     CALL    A2771
  3901.     JR    A236B
  3902. ;
  3903. A23A3:    LD    B,A
  3904. A23A4:    PUSH    BC
  3905.     JR    A23AC
  3906. ;
  3907. A23A8:    PUSH    BC
  3908. A23A9:    CALL    A26EB
  3909. A23AC:    LD    HL,D29CE
  3910.     LD    A,(HL)
  3911.     CP    0FEH
  3912.     JR    C,A23C0
  3913.     LD    A,(D29CB)
  3914.     CP    7
  3915.     LD    A,(HL)
  3916.     JR    NC,A23C0
  3917.     LD    A,0FDH
  3918. A23C0:    INC    A
  3919.     INC    A
  3920.     LD    B,A
  3921.     LD    A,(D29D2)
  3922.     ADD    A,A
  3923.     SUB    B
  3924.     JR    NC,A2400
  3925.     LD    A,(D29D2)
  3926.     OR    A
  3927.     RLA
  3928.     JR    NC,A23D8
  3929.     RRA
  3930.     RRA
  3931.     JR    A23E0
  3932. ;
  3933. A23D8:    RRA
  3934.     CALL    A28CB
  3935.     OR    A
  3936.     JR    Z,A23A9
  3937. A23E0:    LD    (D29D3),A
  3938.     POP    BC
  3939.     JR    A23EE
  3940. ;
  3941. A23E7:    CALL    A2832
  3942.     JR    Z,A2432
  3943.     LD    B,A
  3944. A23EE:    LD    HL,D29CC
  3945.     INC    (HL)
  3946.     LD    A,(D29D3)
  3947.     CP    (HL)
  3948.     JR    C,A23A8
  3949.     LD    A,B
  3950.     CALL    A2771
  3951.     JR    A23E7
  3952. ;
  3953. A2400:    LD    (D29D3),A
  3954.     POP    BC
  3955.     JR    A240E
  3956. ;
  3957. A2407:    CALL    A2832
  3958.     JR    Z,A2432
  3959.     LD    B,A
  3960. A240E:    LD    HL,D29CC
  3961.     INC    (HL)
  3962.     LD    A,(D29D3)
  3963.     CP    (HL)
  3964.     LD    A,B
  3965.     JR    C,A2420
  3966.     CALL    A2771
  3967.     JR    A2407
  3968. ;
  3969. A2420:    CALL    A26EB
  3970.     JR    A242C
  3971. ;
  3972. A2426:    CALL    A2832
  3973.     JR    Z,A2432
  3974. A242C:    CALL    A2771
  3975.     JR    A2426
  3976. ;
  3977. A2432:    LD    A,(D2A16)
  3978.     OR    A
  3979.     PUSH    AF
  3980.     CALL    NZ,A2817
  3981.     POP    AF
  3982.     JP    NZ,A250D
  3983.     LD    A,(D2A15)
  3984.     OR    A
  3985.     JR    NZ,A246F
  3986.     LD    HL,D29E9
  3987.     LD    DE,T29ED
  3988.     LD    BC,4
  3989.     CALL    A29AA
  3990.     LD    HL,T2A02
  3991.     LD    DE,T29F1
  3992.     LD    BC,11H
  3993.     CALL    A29AA
  3994.     LD    A,(D29C0)
  3995.     DEC    A
  3996.     LD    (D2A13),A
  3997.     LD    A,0FFH
  3998.     LD    (D2A15),A
  3999.     LD    (D2A17),A
  4000.     JR    A24E7
  4001. ;
  4002. A246F:    LD    A,0FFH
  4003.     LD    (D2A17),A
  4004.     LD    HL,D29E9
  4005.     LD    DE,T29ED
  4006.     LD    B,4
  4007.     CALL    A2999
  4008.     JR    C,A24B0
  4009. A2482:    XOR    A
  4010.     LD    (D2A17),A
  4011. A2486:    LD    HL,T29F1
  4012.     LD    A,(D2A13)
  4013.     CALL    A296B
  4014.     LD    A,(D2A18)
  4015.     LD    C,(HL)
  4016.     LD    (HL),A
  4017.     LD    A,(D2A14)
  4018.     CPL
  4019.     INC    A
  4020.     CP    0FFH
  4021.     JR    Z,A24E7
  4022.     LD    B,A
  4023.     LD    A,(D2A19)
  4024.     SUB    C
  4025.     CP    02H
  4026.     JR    NC,A24E7
  4027.     INC    (HL)
  4028.     LD    A,B
  4029.     LD    (D2A14),A
  4030.     JR    A24D1
  4031. ;
  4032. A24B0:    LD    HL,T2A02
  4033.     LD    DE,T29F1
  4034.     LD    BC,11H
  4035.     CALL    A29AA
  4036. A24BC:    LD    HL,T29F1
  4037.     LD    A,(D2A13)
  4038.     CALL    A296B
  4039.     LD    A,(HL)
  4040.     LD    (D2A18),A
  4041.     LD    A,(D2A14)
  4042.     ADD    A,(HL)
  4043.     JP    M,A2486
  4044.     LD    (HL),A
  4045. A24D1:    LD    A,(D2A17)
  4046.     OR    A
  4047.     JP    Z,A2301
  4048.     LD    HL,D29E9
  4049.     LD    DE,T29ED
  4050.     LD    BC,4
  4051.     CALL    A29AA
  4052.     JP    A2301
  4053. ;
  4054. A24E7:    LD    A,0FFH
  4055.     LD    (D2A14),A
  4056.     LD    A,(D285F)
  4057.     LD    HL,D2A13
  4058.     INC    (HL)
  4059.     CP    (HL)
  4060.     JR    NC,A24FF
  4061.     LD    A,0FFH
  4062.     LD    (D2A16),A
  4063.     JP    A2301
  4064. ;
  4065. A24FF:    LD    A,(HL)
  4066.     LD    HL,T29F1
  4067.     CALL    A296B
  4068.     LD    A,(HL)
  4069.     LD    (D2A19),A
  4070.     JR    A24BC
  4071. ;
  4072. A250D:    LD    HL,D29E9
  4073.     LD    BC,1027
  4074.     CALL    A2A62
  4075.     XOR    A
  4076.     LD    (D29C6),A
  4077.     LD    HL,(D29D6)
  4078.     ADD    HL,HL
  4079.     ADD    HL,HL
  4080.     LD    A,0FH
  4081.     CALL    A296B
  4082.     LD    DE,D29E9
  4083.     LD    (D29E0),HL
  4084.     LD    HL,0
  4085.     LD    (D29E2),HL
  4086.     LD    HL,D29E0
  4087.     LD    B,4
  4088.     CALL    A2970
  4089.     EX    DE,HL
  4090.     LD    A,(HL)
  4091.     OR    7FH
  4092.     LD    (HL),A
  4093.     EX    DE,HL
  4094.     LD    (HL),1
  4095.     PUSH    HL
  4096.     INC    HL
  4097.     XOR    A
  4098.     LD    (HL),A
  4099.     INC    HL
  4100.     LD    (HL),A
  4101.     INC    HL
  4102.     LD    (HL),A
  4103.     POP    HL
  4104.     LD    B,4
  4105.     CALL    A2970
  4106.     EX    DE,HL
  4107.     LD    BC,1031
  4108.     CALL    A2A62
  4109.     LD    HL,D29DD
  4110.     LD    BC,307H
  4111.     CALL    A2A62
  4112.     LD    HL,(D29DD)
  4113.     EX    DE,HL
  4114.     LD    HL,(D29E9)
  4115.     CALL    CMPHD
  4116.     LD    A,3
  4117.     JR    NC,A256E
  4118.     XOR    A
  4119. A256E:    LD    HL,(D2A60)
  4120.     LD    SP,HL
  4121.     LD    HL,(D29E9)
  4122.     RET
  4123. ;
  4124. A2576:    LD    A,(D29C6)
  4125.     OR    A
  4126.     JR    Z,A257F
  4127.     XOR    A
  4128.     RET
  4129. ;
  4130. A257F:    LD    (D2A22),HL
  4131.     LD    HL,0
  4132.     ADD    HL,SP
  4133.     LD    (D2A60),HL
  4134.     LD    SP,D2A60
  4135.     LD    HL,0FF76H
  4136.     CALL    A26DC
  4137.     LD    HL,(D29DB)
  4138.     CALL    A26DC
  4139.     EX    DE,HL
  4140.     LD    HL,0
  4141.     OR    A
  4142.     SBC    HL,DE
  4143.     LD    (D29DB),HL
  4144.     LD    HL,(D2A22)
  4145.     INC    HL
  4146.     LD    B,8
  4147. A25A8:    LD    A,(HL)
  4148.     CP    ' '
  4149.     JR    Z,A25B6
  4150.     CALL    A26E1
  4151.     INC    HL
  4152.     DJNZ    A25A8
  4153. A25B6:    LD    A,'.'
  4154.     CALL    A26E1
  4155.     LD    A,B
  4156.     CALL    A296B
  4157.     LD    B,3
  4158. A25C1:    LD    A,(HL)
  4159.     CP    ' '
  4160.     JR    Z,A25CF
  4161.     CALL    A26E1
  4162.     INC    HL
  4163.     DJNZ    A25C1
  4164. A25CF:    XOR    A
  4165.     CALL    A26E1
  4166.     LD    HL,(D29D6)
  4167.     CALL    A26DC
  4168.     ADD    HL,HL
  4169.     ADD    HL,HL
  4170.     EX    DE,HL
  4171.     LD    HL,(D29C7)
  4172. A25DF:    LD    A,(HL)
  4173.     CALL    A26E1
  4174.     INC    HL
  4175.     DEC    DE
  4176.     LD    A,D
  4177.     OR    E
  4178.     JR    NZ,A25DF
  4179.     XOR    A
  4180.     LD    (D29CA),A
  4181.     LD    (D29CC),A
  4182.     LD    A,8
  4183.     LD    (D29C9),A
  4184.     CALL    A2941
  4185.     JR    A2654
  4186. ;
  4187. A25FC:    CALL    A2941
  4188.     JR    Z,A265D
  4189.     LD    HL,D29CB
  4190.     CP    (HL)
  4191.     JR    Z,A2637
  4192.     INC    HL
  4193.     INC    (HL)
  4194.     DEC    (HL)
  4195.     JR    Z,A2654
  4196.     PUSH    AF
  4197.     LD    A,(HL)
  4198.     LD    (HL),0
  4199.     CP    3
  4200.     JR    NC,A2628
  4201.     LD    B,A
  4202.     DEC    HL
  4203.     LD    A,(HL)
  4204. A261B:    PUSH    AF
  4205.     CALL    A26A3
  4206.     POP    AF
  4207.     DJNZ    A261B
  4208.     POP    AF
  4209.     JR    A2654
  4210. ;
  4211. A2628:    PUSH    AF
  4212.     LD    A,90H
  4213.     CALL    A26AC
  4214.     POP    AF
  4215.     INC    A
  4216.     CALL    A26AC
  4217.     POP    AF
  4218.     JR    A2654
  4219. ;
  4220. A2637:    CP    90H
  4221.     JR    Z,A2654
  4222.     INC    HL
  4223.     INC    (HL)
  4224.     LD    A,(HL)
  4225.     CP    0FFH
  4226.     JR    NZ,A25FC
  4227.     PUSH    HL
  4228.     LD    A,90H
  4229.     CALL    A26AC
  4230.     POP    HL
  4231.     LD    A,(HL)
  4232.     LD    (HL),0
  4233.     CALL    A26AC
  4234.     LD    A,(D29CB)
  4235. A2654:    LD    (D29CB),A
  4236.     CALL    A26A3
  4237.     JR    A25FC
  4238. ;
  4239. A265D:    LD    A,(D29CC)
  4240.     OR    A
  4241.     JR    Z,A266F
  4242.     PUSH    AF
  4243.     LD    A,90H
  4244.     CALL    A26AC
  4245.     POP    AF
  4246.     INC    A
  4247.     CALL    A26AC
  4248. A266F:    LD    A,0FFH
  4249.     CALL    A295F
  4250.     INC    HL
  4251.     INC    HL
  4252.     INC    HL
  4253.     CALL    A26B1
  4254.     LD    A,(D29C9)
  4255.     CP    8
  4256.     JR    Z,A268E
  4257.     LD    B,A
  4258.     LD    A,(D29CA)
  4259. A2686:    RRA
  4260.     DJNZ    A2686
  4261.     CALL    A26E1
  4262. A268E:    LD    A,0FFH
  4263.     LD    (D29C6),A
  4264.     LD    HL,(D29DB)
  4265.     LD    A,H
  4266.     OR    L
  4267.     LD    A,1
  4268.     JR    NZ,A269E
  4269.     XOR    A
  4270. A269E:    LD    HL,(D2A60)
  4271.     LD    SP,HL
  4272.     RET
  4273. ;
  4274. A26A3:    CP    90H
  4275.     JR    NZ,A26AC
  4276.     CALL    A26AC
  4277.     XOR    A
  4278. A26AC:    PUSH    BC
  4279.     CALL    A295F
  4280.     POP    BC
  4281. A26B1:    PUSH    BC
  4282.     LD    B,(HL)
  4283.     INC    HL
  4284.     LD    E,(HL)
  4285.     INC    HL
  4286.     LD    D,(HL)
  4287.     LD    A,(D29C9)
  4288.     LD    C,A
  4289. A26BB:    RL    E
  4290.     RL    D
  4291. ;    LD    A,E
  4292. ;    RLA
  4293. ;    LD    E,A
  4294. ;    LD    A,D
  4295. ;    RLA
  4296. ;    LD    D,A
  4297.     LD    A,(D29CA)
  4298.     RRA
  4299.     DEC    C
  4300.     JR    NZ,A26CF
  4301.     CALL    A26E1
  4302.     LD    C,8
  4303.     XOR    A
  4304. A26CF:    LD    (D29CA),A
  4305.     DJNZ    A26BB
  4306.     LD    A,C
  4307.     LD    (D29C9),A
  4308.     POP    BC
  4309.     RET
  4310. ;
  4311. A26DC:    LD    A,L
  4312.     CALL    A26E1
  4313.     LD    A,H
  4314. A26E1:    PUSH    BC
  4315.     PUSH    DE
  4316.     PUSH    HL
  4317.     CALL    A171C
  4318.     POP    HL
  4319.     POP    DE
  4320.     POP    BC
  4321.     RET
  4322. ;
  4323. A26EB:    PUSH    AF
  4324.     PUSH    BC
  4325.     LD    A,(D2A16)
  4326.     OR    A
  4327.     JR    Z,A2727
  4328.     LD    A,(D29D2)
  4329.     LD    HL,(D29D6)
  4330.     EX    DE,HL
  4331.     LD    HL,(D29D4)
  4332.     LD    B,A
  4333.     LD    A,(D29D8)
  4334.     LD    C,A
  4335. A2703:    LD    (HL),E
  4336.     INC    HL
  4337.     LD    (HL),D
  4338.     INC    HL
  4339.     LD    A,L
  4340.     AND    2
  4341.     JR    NZ,A270E
  4342.     INC    C
  4343. A270E:    INC    DE
  4344.     LD    A,D
  4345.     OR    A
  4346.     JR    Z,A2718
  4347.     CP    E
  4348.     JR    Z,A273E
  4349. A2718:    DJNZ    A2703
  4350.     LD    (D29D4),HL
  4351.     EX    DE,HL
  4352.     LD    (D29D6),HL
  4353.     LD    A,C
  4354.     LD    (D29D8),A
  4355. A2727:    LD    HL,D29CB
  4356.     INC    (HL)
  4357.     LD    A,(HL)
  4358.     CP    11H
  4359.     JR    NC,A273E
  4360.     XOR    A
  4361.     LD    (D29CC),A
  4362.     LD    HL,D29D2
  4363.     LD    A,(HL)
  4364.     ADD    A,A
  4365.     LD    (HL),A
  4366.     POP    BC
  4367.     POP    AF
  4368.     RET
  4369. ;
  4370. A273E:    POP    BC
  4371.     POP    AF
  4372.     POP    HL
  4373.     LD    A,(D285F)
  4374.     DEC    A
  4375.     LD    B,A
  4376.     JR    NZ,A274E
  4377.     LD    A,4
  4378.     JP    P,A256E
  4379. A274E:    LD    A,(D2A16)
  4380.     OR    A
  4381.     JR    NZ,A275C
  4382.     LD    A,(D2A15)
  4383.     OR    A
  4384.     JP    NZ,A2482
  4385. A275C:    LD    HL,D285F
  4386.     LD    (HL),B
  4387.     LD    A,(D2A16)
  4388.     OR    A
  4389.     JP    Z,A2301
  4390.     XOR    A
  4391.     LD    (D2A16),A
  4392.     LD    (D2A15),A
  4393.     JP    A2301
  4394. ;
  4395. A2771:    PUSH    AF
  4396.     CALL    A295F
  4397. A2775:    LD    A,(D29CB)
  4398.     LD    (HL),A
  4399.     INC    HL
  4400.     PUSH    HL
  4401.     LD    HL,(D29D0)
  4402.     DEC    HL
  4403.     LD    (D29E5),A
  4404.     LD    DE,T29E3
  4405.     LD    BC,3
  4406.     XOR    A
  4407.     LD    (DE),A
  4408.     DEC    DE
  4409.     CALL    A29B5
  4410.     LD    HL,0
  4411.     LD    (D29E6),HL
  4412.     LD    (D29E7),HL
  4413.     LD    B,4
  4414.     LD    DE,D29E5
  4415.     LD    HL,D29E0
  4416.     CALL    A2B43
  4417.     LD    DE,D29E9
  4418.     LD    HL,D29E0
  4419.     LD    B,4
  4420.     CALL    A2970
  4421.     LD    A,(D29CB)
  4422.     LD    HL,T2A02
  4423.     CALL    A296B
  4424.     INC    (HL)
  4425.     LD    HL,D29D2
  4426.     DEC    (HL)
  4427.     LD    A,(D2A16)
  4428.     OR    A
  4429.     JR    NZ,A27C5
  4430.     POP    HL
  4431.     POP    AF
  4432.     RET
  4433. ;
  4434. A27C5:    LD    HL,(D29D4)
  4435.     LD    DE,0
  4436.     LD    (HL),0FFH
  4437.     LD    A,(D29D8)
  4438.     LD    C,A
  4439. A27D1:    LD    A,L
  4440.     AND    2
  4441.     JR    Z,A27D8
  4442.     SCF
  4443. A27D8:    LD    A,D
  4444.     RRA
  4445.     LD    D,A
  4446.     LD    A,E
  4447.     RRA
  4448.     LD    E,A
  4449.     LD    A,(HL)
  4450.     CP    3
  4451.     JR    C,A27FD
  4452.     LD    B,C
  4453. A27E5:    DEC    HL
  4454.     LD    A,(HL)
  4455.     DEC    HL
  4456.     PUSH    AF
  4457.     LD    A,L
  4458.     AND    2
  4459.     JR    Z,A27F0
  4460.     DEC    C
  4461. A27F0:    POP    AF
  4462.     OR    A
  4463.     JR    NZ,A27E5
  4464.     LD    A,(HL)
  4465.     CP    B
  4466.     JR    Z,A27D1
  4467.     JR    A27E5
  4468. ;
  4469. A27FD:    POP    HL
  4470.     LD    (HL),E
  4471.     INC    HL
  4472.     LD    (HL),D
  4473.     LD    HL,(D29D4)
  4474.     POP    AF
  4475.     CPL
  4476.     LD    (HL),A
  4477.     INC    HL
  4478.     LD    (HL),0FFH
  4479.     INC    HL
  4480.     LD    (D29D4),HL
  4481.     LD    A,L
  4482.     AND    2
  4483.     RET    NZ
  4484.     LD    HL,D29D8
  4485.     INC    (HL)
  4486.     RET
  4487. ;
  4488. A2817:    LD    A,0FFH
  4489.     CALL    A295F
  4490.     INC    HL
  4491.     INC    HL
  4492.     INC    HL
  4493.     PUSH    HL
  4494.     LD    HL,T2827
  4495.     EX    (SP),HL
  4496.     CALL    A2775
  4497. T2827:    LD    HL,(D29D4)
  4498.     LD    A,0FEH
  4499.     DEC    HL
  4500.     LD    (HL),A
  4501.     DEC    HL
  4502.     INC    A
  4503.     LD    (HL),A
  4504.     RET
  4505. ;
  4506. A2832:    LD    HL,(D29CE)
  4507.     LD    A,L
  4508.     OR    H
  4509.     RET    Z
  4510.     DEC    HL
  4511.     LD    (D29CE),HL
  4512.     LD    HL,(D29D0)
  4513.     LD    A,(HL)
  4514.     INC    HL
  4515.     LD    D,H
  4516.     LD    E,L
  4517.     INC    HL
  4518.     INC    HL
  4519.     INC    HL
  4520.     LD    (D29D0),HL
  4521.     RET
  4522. ;
  4523. A284A:    LD    A,(D29CD)
  4524.     LD    L,A
  4525.     LD    H,0
  4526.     OR    A
  4527.     JR    NZ,A2855
  4528.     INC    H
  4529. A2855:    LD    (D29CE),HL
  4530.     LD    HL,(D2A1E)
  4531.     LD    (D29D0),HL
  4532.     RET
  4533. ;
  4534. D285F:    DB    0
  4535. T2860:    DB    80H,40H,20H,10H,8,4,2
  4536. T2867:    DW    0FFFFH,30H,18H,0CH,6,3
  4537.     DW    180H,0C0H,60H,30H,18H,0CH,6,3
  4538. ;
  4539. A2883:    PUSH    AF
  4540.     CALL    A28B2
  4541.     LD    HL,(D29E0)
  4542.     EX    DE,HL
  4543.     LD    C,1
  4544.     LD    HL,T2867
  4545.     LD    A,(D285F)
  4546.     LD    B,A
  4547. A2894:    LD    A,(HL)
  4548.     INC    HL
  4549.     PUSH    HL
  4550.     LD    H,(HL)
  4551.     LD    L,A
  4552.     OR    A
  4553.     SBC    HL,DE
  4554.     POP    HL
  4555.     JR    C,A28AB
  4556.     INC    C
  4557.     INC    HL
  4558.     DJNZ    A2894
  4559.     POP    AF
  4560.     LD    B,A
  4561.     XOR    A
  4562.     LD    A,B
  4563.     RET
  4564. ;
  4565. A28AB:    POP    AF
  4566.     OR    A
  4567.     RET    NZ
  4568.     DEC    A
  4569.     LD    A,0
  4570.     RET
  4571. ;
  4572. A28B2:    EX    DE,HL
  4573.     LD    DE,D29E0
  4574.     PUSH    DE
  4575.     XOR    A
  4576.     LD    (DE),A
  4577.     INC    DE
  4578.     LD    (DE),A
  4579.     INC    DE
  4580.     LD    BC,3
  4581.     CALL    A29AA
  4582.     POP    HL
  4583.     LD    DE,T29C1
  4584.     LD    B,5
  4585.     JP    A2A82
  4586. ;
  4587. A28CB:    LD    B,0
  4588. A28CD:    SUB    3
  4589.     JR    C,A28D6
  4590.     INC    B
  4591.     JR    A28CD
  4592. ;
  4593. A28D6:    LD    A,B
  4594.     RET
  4595. ;
  4596. A28D8:    LD    HL,T29C1
  4597.     INC    (HL)
  4598.     RET    NZ
  4599.     INC    HL
  4600.     INC    (HL)
  4601.     RET    NZ
  4602.     INC    HL
  4603.     INC    (HL)
  4604.     RET    NZ
  4605.     INC    HL
  4606.     INC    (HL)
  4607.     RET
  4608. ;
  4609. A28E6:    CP    90H
  4610.     JR    NZ,A28EF
  4611.     CALL    A28EF
  4612.     XOR    A
  4613. A28EF:    CALL    A28D8
  4614.     LD    L,A
  4615.     LD    H,0
  4616.     ADD    HL,HL
  4617.     ADD    HL,HL
  4618.     EX    DE,HL
  4619.     LD    HL,(D2A1C)
  4620.     ADD    HL,DE
  4621.     INC    (HL)
  4622.     RET    NZ
  4623.     INC    HL
  4624.     INC    (HL)
  4625.     RET    NZ
  4626.     INC    HL
  4627.     INC    (HL)
  4628.     RET
  4629. ;
  4630. A2904:    XOR    A
  4631.     LD    B,A
  4632.     LD    C,A
  4633.     LD    HL,(D2A1C)
  4634. A290A:    LD    (HL),A
  4635.     INC    HL
  4636.     LD    (HL),A
  4637.     INC    HL
  4638.     LD    (HL),A
  4639.     INC    HL
  4640.     LD    (HL),C
  4641.     INC    HL
  4642.     INC    C
  4643.     DJNZ    A290A
  4644.     LD    HL,T29C1
  4645.     LD    (HL),A
  4646.     INC    HL
  4647.     LD    (HL),A
  4648.     INC    HL
  4649.     LD    (HL),A
  4650.     INC    HL
  4651.     LD    (HL),A
  4652.     INC    HL
  4653.     LD    HL,T29C1
  4654.     LD    DE,D29DD
  4655.     LD    BC,4
  4656.     CALL    A29AA
  4657.     LD    HL,0
  4658.     LD    (D29DB),HL
  4659.     RET
  4660. ;
  4661. A2935:    CALL    A2941
  4662.     RET    Z
  4663.     LD    L,A
  4664.     PUSH    HL
  4665.     CALL    A2941
  4666.     POP    HL
  4667.     LD    H,A
  4668.     RET
  4669. ;
  4670. A2941:    CALL    A1773
  4671.     JR    Z,A2949
  4672.     CP    A
  4673.     RET
  4674. ;
  4675. A2949:    PUSH    AF
  4676.     LD    HL,(D29DB)
  4677.     CALL    A296B
  4678.     LD    (D29DB),HL
  4679.     POP    AF
  4680.     LD    HL,D29DD
  4681.     INC    (HL)
  4682.     RET    NZ
  4683.     INC    HL
  4684.     INC    (HL)
  4685.     RET    NZ
  4686.     INC    HL
  4687.     INC    (HL)
  4688.     RET
  4689. ;
  4690. A295F:    LD    HL,(D2A1C)
  4691.     LD    B,A
  4692.     CALL    A296B
  4693.     LD    A,B
  4694.     CALL    A296B
  4695.     LD    A,B
  4696. A296B:    ADD    A,L
  4697.     LD    L,A
  4698.     RET    NC
  4699.     INC    H
  4700.     RET
  4701. ;
  4702. A2970:    PUSH    HL
  4703.     PUSH    DE
  4704.     OR    A
  4705. A2973:    LD    A,(DE)
  4706.     ADC    A,(HL)
  4707.     LD    (DE),A
  4708.     INC    DE
  4709.     INC    HL
  4710.     DJNZ    A2973
  4711.     POP    DE
  4712.     POP    HL
  4713.     RET
  4714. ;
  4715. A298C:    INC    HL
  4716.     INC    HL
  4717.     LD    A,(HL)
  4718.     CP    C
  4719.     RET    NZ
  4720.     DEC    HL
  4721.     LD    A,(HL)
  4722.     CP    D
  4723.     RET    NZ
  4724.     DEC    HL
  4725.     LD    A,(HL)
  4726.     CP    E
  4727.     RET
  4728. ;
  4729. A2999:    LD    C,B
  4730.     LD    B,0
  4731.     ADD    HL,BC
  4732.     EX    DE,HL
  4733.     ADD    HL,BC
  4734. A299F:    DEC    HL
  4735.     DEC    DE
  4736.     LD    A,(DE)
  4737.     CP    (HL)
  4738.     RET    NZ
  4739.     DEC    C
  4740.     JR    NZ,A299F
  4741.     CP    (HL)
  4742.     RET
  4743. ;
  4744. A29AA:    LD    A,B
  4745.     OR    C
  4746.     RET    Z
  4747.     DEC    BC
  4748.     LD    A,(HL)
  4749.     LD    (DE),A
  4750.     INC    HL
  4751.     INC    DE
  4752.     JR    A29AA
  4753. ;
  4754. A29B5:    LD    A,B
  4755.     OR    C
  4756.     RET    Z
  4757.     DEC    BC
  4758.     LD    A,(HL)
  4759.     LD    (DE),A
  4760.     DEC    HL
  4761.     DEC    DE
  4762.     JR    A29B5
  4763. ;
  4764. D29C0:    DB    4
  4765. T29C1:    DS    5
  4766. D29C6:    DB    0FFH
  4767. D29C7:    DW    0
  4768. D29C9:    DB    0
  4769. D29CA:    DB    0
  4770. D29CB:    DB    0
  4771. D29CC:    DB    0
  4772. D29CD:    DB    0
  4773. D29CE:    DW    0
  4774. D29D0:    DW    0
  4775. D29D2:    DB    0
  4776. D29D3:    DB    0
  4777. D29D4:    DW    0
  4778. D29D6:    DW    0
  4779. D29D8:    DB    0
  4780. D29D9:    DW    0
  4781. D29DB:    DW    0
  4782. D29DD:    DS    3
  4783. D29E0:    DW    0
  4784. D29E2:    DB    0
  4785. T29E3:    DW    0
  4786. D29E5:    DB    0
  4787. D29E6:    DB    0
  4788. D29E7:    DW    0
  4789. D29E9:    DW    0
  4790. D29EB:    DW    0
  4791. T29ED:    DS    4
  4792. T29F1:    DS    17
  4793. T2A02:    DB    0
  4794. T2A03:    DS    16
  4795. D2A13:    DB    0
  4796. D2A14:    DB    0
  4797. D2A15:    DB    0
  4798. D2A16:    DB    0
  4799. D2A17:    DB    0
  4800. D2A18:    DB    0
  4801. D2A19:    DB    0
  4802. D2A1A:    DB    0
  4803. D2A1B:    DB    0
  4804. D2A1C:    DW    0
  4805. D2A1E:    DW    0
  4806. D2A20:    DW    0
  4807. D2A22:    DS    62
  4808. D2A60:    DW    0
  4809. ;
  4810. A2A62:    LD    A,C
  4811.     OR    A
  4812.     RET    Z
  4813.     LD    A,B
  4814.     OR    A
  4815.     RET    Z
  4816.     LD    E,B
  4817.     LD    D,0
  4818.     ADD    HL,DE
  4819.     DEC    HL
  4820.     OR    A
  4821. A2A6E:    PUSH    AF
  4822.     LD    B,A
  4823.     LD    E,L
  4824.     LD    D,H
  4825. A2A72:    LD    A,(HL)
  4826.     RRA
  4827.     LD    (HL),A
  4828.     DEC    HL
  4829.     DJNZ    A2A72
  4830.     LD    L,E
  4831.     LD    H,D
  4832.     POP    AF
  4833.     DEC    C
  4834.     JR    NZ,A2A6E
  4835.     RET
  4836. ;
  4837. A2A82:    LD    A,B
  4838.     OR    A
  4839.     JP    Z,A2B25
  4840.     LD    (D2B2A),HL
  4841.     EX    DE,HL
  4842.     LD    (D2B2C),HL
  4843.     LD    C,B
  4844.     LD    L,C
  4845.     LD    H,0
  4846.     ADD    HL,HL
  4847.     ADD    HL,HL
  4848.     ADD    HL,HL
  4849.     INC    HL
  4850.     LD    (D2B32),HL
  4851.     LD    HL,T2B35
  4852.     LD    DE,T2B3C
  4853.     LD    B,C
  4854.     XOR    A
  4855. A2AA1:    LD    (HL),A
  4856.     LD    (DE),A
  4857.     INC    HL
  4858.     INC    DE
  4859.     DJNZ    A2AA1
  4860.     LD    HL,T2B35
  4861.     LD    (D2B2E),HL
  4862.     LD    HL,T2B3C
  4863.     LD    (D2B30),HL
  4864.     LD    HL,(D2B2C)
  4865.     LD    B,C
  4866.     XOR    A
  4867. A2ABA:    OR    (HL)
  4868.     INC    HL
  4869.     DJNZ    A2ABA
  4870.     OR    A
  4871.     JR    Z,A2B21
  4872.     OR    A
  4873. A2AC5:    LD    B,C
  4874.     LD    HL,(D2B2A)
  4875. A2AC9:    LD    A,(HL)
  4876.     RLA
  4877.     LD    (HL),A
  4878.     INC    HL
  4879.     DJNZ    A2AC9
  4880.     LD    HL,D2B32
  4881.     DEC    (HL)
  4882.     JR    NZ,A2ADD
  4883.     INC    HL
  4884.     DEC    (HL)
  4885.     JP    M,A2B25
  4886. A2ADD:    LD    HL,(D2B2E)
  4887.     LD    B,C
  4888. A2AE1:    LD    A,(HL)
  4889.     LD    (HL),A
  4890.     INC    HL
  4891.     DJNZ    A2AE1
  4892.     PUSH    BC
  4893.     LD    A,C
  4894.     LD    (D2B34),A
  4895.     LD    HL,(D2B30)
  4896.     LD    B,H
  4897.     LD    C,L
  4898.     LD    HL,(D2B2E)
  4899.     EX    DE,HL
  4900.     LD    HL,(D2B2C)
  4901.     OR    A
  4902. A2AFB:    LD    A,(DE)
  4903.     SBC    A,(HL)
  4904.     LD    (BC),A
  4905.     INC    HL
  4906.     INC    DE
  4907.     INC    BC
  4908.     LD    A,(D2B34)
  4909.     DEC    A
  4910.     LD    (D2B34),A
  4911.     JR    NZ,A2AFB
  4912.     POP    BC
  4913.     CCF
  4914.     JR    NC,A2AC5
  4915.     LD    HL,(D2B2E)
  4916.     EX    DE,HL
  4917.     LD    HL,(D2B30)
  4918.     LD    (D2B2E),HL
  4919.     EX    DE,HL
  4920.     LD    (D2B30),HL
  4921.     JR    A2AC5
  4922. ;
  4923. A2B21:    SCF
  4924.     JR    A2B26
  4925. ;
  4926. A2B25:    OR    A
  4927. A2B26:    LD    HL,(D2B2E)
  4928.     RET
  4929. ;
  4930. D2B2A:    DW    0
  4931. D2B2C:    DW    0
  4932. D2B2E:    DW    0
  4933. D2B30:    DW    0
  4934. D2B32:    DW    0
  4935. D2B34:    DB    0
  4936. T2B35:    DS    7
  4937. T2B3C:    DS    7
  4938. ;
  4939. A2B43:    LD    A,B
  4940.     OR    A
  4941.     RET    Z
  4942.     LD    C,B
  4943.     LD    B,0
  4944.     ADD    HL,BC
  4945.     EX    DE,HL
  4946.     LD    (D2BAB),HL
  4947.     LD    HL,T2BAD
  4948.     ADD    HL,BC
  4949.     LD    (D2BA9),HL
  4950.     LD    L,C
  4951.     LD    H,B
  4952.     ADD    HL,HL
  4953.     ADD    HL,HL
  4954.     ADD    HL,HL
  4955.     INC    HL
  4956.     LD    (D2BA7),HL
  4957.     LD    B,C
  4958.     LD    HL,T2BAD
  4959. A2B62:    LD    (HL),0
  4960.     INC    HL
  4961.     DJNZ    A2B62
  4962.     OR    A
  4963. A2B6A:    LD    B,C
  4964.     LD    HL,(D2BA9)
  4965. A2B6E:    DEC    HL
  4966.     LD    A,(HL)
  4967.     RRA
  4968.     LD    (HL),A
  4969.     DJNZ    A2B6E
  4970.     LD    L,E
  4971.     LD    H,D
  4972.     LD    B,C
  4973. A2B79:    DEC    HL
  4974.     LD    A,(HL)
  4975.     RRA
  4976.     LD    (HL),A
  4977.     DJNZ    A2B79
  4978.     JR    NC,A2B98
  4979.     PUSH    DE
  4980.     LD    HL,(D2BAB)
  4981.     EX    DE,HL
  4982.     LD    HL,T2BAD
  4983.     LD    B,C
  4984.     OR    A
  4985. A2B8E:    LD    A,(DE)
  4986.     ADC    A,(HL)
  4987.     LD    (HL),A
  4988.     INC    DE
  4989.     INC    HL
  4990.     DJNZ    A2B8E
  4991.     POP    DE
  4992. A2B98:    LD    HL,D2BA7
  4993.     DEC    (HL)
  4994.     JR    NZ,A2B6A
  4995.     INC    HL
  4996.     INC    (HL)
  4997.     DEC    (HL)
  4998.     RET    Z
  4999.     DEC    (HL)
  5000.     JR    A2B6A
  5001. ;
  5002. D2BA7:    DW    0
  5003. D2BA9:    DW    0
  5004. D2BAB:    DW    0
  5005. T2BAD:    DS    83
  5006. ;
  5007. Y2C00:    DB    0
  5008. Y2C01:    DW    0
  5009. CRCFLG:    DB    0
  5010. .CPFL:    DB    0        ; 1="C" COMMAND, 0=OTHERS (FOR CRC)
  5011. DRIVE1:    DB    0
  5012. DRIVE2:    DB    0
  5013. USER1:    DB    0
  5014. USER2:    DB    0
  5015. SRCCRC:    DW    0
  5016. NMBFLS:    DW    0
  5017. Y2C0C:    DB    0
  5018. Y2C0D:    DW    0
  5019. Y2C0F:    DW    0
  5020. FILNMB:    DW    0        ; POINTER TO FILENAME ARRAY (FILE #)
  5021. Y2C13:    DW    0
  5022. Y2C15:    DW    0
  5023. Y2C17:    DW    0
  5024. Y2C19:    DW    0
  5025. Y2C1B:    DW    0
  5026. FILPTR:    DW    0
  5027. Y2C1F:    DW    0
  5028. Y2C21:    DW    0
  5029. Y2C23:    DW    0
  5030. Y2C25:    DW    0
  5031. Y2C27:    DW    0
  5032. BLKSZE:    DB    0
  5033. FREEK:    DW    0
  5034. TOTALK:    DW    0
  5035. TAGTOT:    DW    0            ; TOTAL K FILES TAGGED
  5036. TAGTO1:    DW    0            ; TOTAL FILES TAGGED IF 1K/BLOCK
  5037. Y2C32:    DB    0
  5038. Y2C33:    DB    0
  5039. Y2C34:    DW    0
  5040. RAMTOP:    DW    0
  5041. Y2C38:    DB    0
  5042. USER3:    DB    0
  5043. Y2C3A:    DB    0
  5044. Y2C3B:    DB    0
  5045. Y2C3C:    DB    0
  5046. Y2C3D:    DW    0
  5047. CRCACC:    DW    0
  5048. Y2C41:    DW    0
  5049. Y2C43:    DB    0
  5050. ;
  5051. SRCFCB:    DB    0
  5052.     DS    8
  5053. SRCFCT:    DS    3
  5054. Y2C50:    DB    0
  5055. Y2C51:    DB    0
  5056. Y2C52:    DS    24
  5057. ;
  5058. DSTFCB:    DB    0
  5059.     DS    8
  5060. DSTFCT:    DS    3
  5061. Y2C76:    DB    0
  5062. Y2C77:    DS    25
  5063. ;
  5064. FCB0:    DB    0
  5065.     DS    37
  5066. FCB1:    DB    0
  5067.     DS    37
  5068. CRCTBL:    DS    512
  5069. Y2EDC:    DW    0
  5070. Y2EDE:    DW    0
  5071. Y2EE0:    DS    3
  5072. Y2EE3:    DS    10
  5073. Y2EED:    DB    0
  5074.     END
  5075. 2BA9:    DW    0
  5076. D2BAB:    DW    0
  5077. T2BAD:    DS    83
  5078. ;
  5079. Y2C00:    DB    0
  5080. Y2C01:    DW    0
  5081. CRCFLG:    DB    0
  5082. .CPFL:    DB    0