home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug056.arc / CHECKS.Z80 < prev    next >
Text File  |  1979-12-31  |  54KB  |  3,253 lines
  1.     .Z80
  2.     PAGE 60
  3. ;
  4. ; Checking program for the Big Board
  5. ; Written by Ralph Sherman , 15 Hydaway Drive , Forest , Va. 24551
  6. ; 
  7. ; Rev 1.0   --  3/27/1982       ;FIRST REVISION RELEASED
  8. ; REV 1.1   --  3/28/1982       ;ADDED SPACE BETWEEN DAY AND CHECKS
  9. ;                ; DURING UNPACK...CMAX NOW $83000
  10. ; REV 1.2   --  3/29/1982    COMPUTED CONSOLE INPUT FOR CPM 1.4 
  11. ;                NOP'S ADDED FOR WARM START AT 100H
  12. ;                CTRL-X RESETS CURSOR TO BEGINNING
  13. ;                FIXED BUG IN FWD SPACE CURSOR
  14. ;                SEND FORM FEEDS WHEN PRINTING TALLY
  15. ; REV 1.3   --  4/1/82        ADDED AUTO NUMBER COMMAND
  16. ;                RING BELL WHEN INPUTLINE OVERFLOW
  17. ;                CTRL X CANCELS COMMAND
  18. ;                CTRL B PUTS CURSOR AT BEGINNING
  19. ;                ADDED C,D,W INDICATION ON LIST
  20. ;                ADDED OUTSTANDING INDICATION
  21. ; REV 1.4   --  4/3/82        ADDED W TO HELP COMMAND
  22. ;                FIXED BUG IN NAME ENTRY
  23. ; REV 1.5   --  1/2/83        BUG1-FIXES ERROR DURING TALLEY WHICH
  24. ;                CAUSED OVERWRITING PROGRAM
  25. ;                BUG2-FIXED BUG DURING TALLY WHEN STARTING
  26. ;                WITH A NEGATIVE STARTING BALANCE
  27. ;                BUG3-FIXED BUG DURING SAVE WITH 32 CHECKS
  28. ;
  29. ;
  30. ;
  31. ;
  32. ;
  33. ;
  34. ;
  35.     ASEG
  36. ;
  37. ;
  38. ; SYSTEM DEFINITIONS
  39. ;
  40. BELL    EQU    7        ;BELL CONTROL CODE
  41. CANCEL    EQU    18H        ;CONTROL CODE TO CANCEL COMMAND
  42. MOVE    EQU    2        ;CTRL CODE TO PUT CURSOR AT BEGINNING
  43. CLRSCR    EQU    1AH        ;CONSOLE CLEAR SCREEN
  44. BS    EQU    8        ;CONSOLE BACKSPACE
  45. FWDSP    EQU    0CH        ;FORWARD SPACE CONSOLE CURSOR
  46. DELCHAR    EQU    4        ;CONSOLE DELETE CHAR AT CURSOR
  47. ADDCHAR    EQU    1        ;CONSOLE ADD CHAR AT CURSOR
  48. FORMFD    EQU    0CH        ;PRINTER FORM FEED CONTROL CHAR
  49. ;
  50. DFTUNT    EQU    4        ;DEFAULT DRIVE NUMBER
  51. BDOS    EQU    5
  52. COLD    EQU    0
  53. DMA    EQU    80H
  54. FCB    EQU    5CH
  55. FCB2    EQU    6CH
  56. OPENFC    EQU    15        ;BDOS FUNCTION #
  57. CLSFC    EQU    16        ;BDOS FUNCTION #
  58. DELFC    EQU    19        ;BDOS FUNCTION #
  59. READFC    EQU    20        ;BDOS READ SEQUENTIAL
  60. WRTFC    EQU    21        ;BDOS WRITE SEQUENTIAL
  61. MAKEFC    EQU    22        ;BDOS CREATE FUNCTION #
  62. RENAFC    EQU    23        ;BDOS RENAME FILE FUNCTION #
  63. ;
  64. CFILE    EQU    3000H        ;START OF CHECK FILE
  65. NFILE    EQU    5000H        ;START OF THE NAME FILE
  66. CKLOC    EQU    CFILE
  67. NAMLOC    EQU    NFILE
  68. CCPBAS    EQU    8000H        ;CAN BE UP TO CCP BASE
  69. ;
  70.     ORG 0100H
  71. ;
  72. START:    JP    START1
  73. ;
  74. GETCMD:    LD    SP,STACK+128    ;RESET STACK JUST IN CASE
  75.     CALL    CRLF
  76.     XOR    A        ;ACC. = 0
  77.     LD    (PTRFLG),A    ;TURN PRINTER OFF
  78. CMD2:    CALL    PRINT
  79.     DEFB    'COMMAND',0H
  80.     CALL    INPUT        ;GET CHARACTER FROM CONSOLE
  81.     LD    (CMD),A        ;SAVE THE COMMAND AWAY
  82.     PUSH    AF
  83.     CALL    CCRLF
  84.     POP    AF
  85.     LD    B,0
  86.     LD    C,NCMDS
  87.     LD    HL,CMDS+NCMDS-1
  88.     CPDR            ;HUNT FOR A MATCH IN CMDS
  89.     JR    Z,CMD1        ;IF MATCH FOUND, INDEX IN TABLE IS C
  90.     CALL    PRINT
  91.     DEFB    '   NO SUCH COMMAND',0H
  92.     JP    GETCMD
  93. CMD1:    LD    IX,CMDADR
  94.     SLA    C        ;DOUBLE THE INDEX
  95.     ADD    IX,BC        ;ADD INDEX TO POINTER TO CMD ADDR'S.
  96.     LD    L,(IX+0)    ;LSB FIRST
  97.     LD    H,(IX+1)
  98.     JP    (HL)        ;JUMP TO THE COMMAND
  99. ;
  100. ;
  101. ; COMMANDS
  102. ;
  103. CMDS:    DEFB     'BCDFILMNOPQRSTWVG?A'
  104. CMDEND    EQU    $
  105. NCMDS     EQU    CMDEND-CMDS    ;NUMBER OF COMMANDS
  106. ;
  107. CMDADR:    DEFW BALANC,CHECK,DEPOS,FIX,CATSRC,PRNT
  108.     DEFW MATCH,LIST,OUTSTD,TOGGLE,QUIT,RETURN,SAVE
  109.     DEFW TALLY,WITHDR,VALUE,GET,HELP,AUTO
  110. ;
  111. ; INSERT AUTO NUMBER ON CHECKS
  112. ;
  113. AUTO:    LD    A,'C'        ;FAKE CHECK LOOKUP
  114.     LD    (CMD),A
  115.     CALL    PROMPT
  116.     CALL    GETINP
  117.     CALL    PACKNO
  118.     CALL    FIXFLG        ;SET W FLAG IF SPECIFIED
  119.     LD    A,(CNUM)
  120.     LD    (AUTOCN),A
  121.     LD    A,(CNUM+1)
  122.     LD    (AUTOCN+1),A
  123.     LD    A,1
  124.     LD    (AUTFLG),A    ;SET THE AUTO LINENUMBER FLAG
  125.     JP    GETCMD
  126. ;
  127. ; HELP- LIST COMMAND SUMMARY
  128. ;
  129. HELP:    CALL    TPRINT
  130.     DEFB 13,10,'A-AUTONUMBER CHECK ENTRIES'
  131.     DEFB 13,10,'B-LIST CHECK BOOK BALANCE'
  132.     DEFB 13,10,'C-ENTER A NEW CHECK'
  133.     DEFB 13,10,'D-ENTER A DEPOSIT'
  134.     DEFB 13,10,'F-FIX CHECK,WITHDRAWAL,DEPOSIT,OR NAME ENTRY'
  135.     DEFB 13,10,'G-GET A NEW CHECK FILE FROM DISK'
  136.     DEFB 13,10,'I-INTERROGATE BY FLAG'
  137.     DEFB 13,10,'L-LIST CHECKS,DEPOSITS,WITHDRAWALS, OR NAMES'
  138.     DEFB 13,10,'M-LIST MATCH BY NAME'
  139.     DEFB 13,10,'O-LIST OUTSTANDING CHECKS'
  140.     DEFB 13,10,'P-PRINT NEXT COMMAND ON PRINTER'
  141.     DEFB 13,10,'Q-QUIT TO CPM'
  142.     DEFB 13,10,'R-RETURN A CHECK'
  143.     DEFB 13,10,'S-SAVE CURRENT FILE'
  144.     DEFB 13,10,'T-LIST MONTHLY TALLY SHEET'
  145.     DEFB 13,10,'V-LIST BANK BALANCE'
  146.     DEFB 13,10,'W-ENTER A WITHDRAWAL',0DH,0AH,0H    ;REV 1.4
  147. ;
  148.     CALL    PRTNUM
  149.     JP    GETCMD
  150. ;
  151. BALANC:    CALL    YRSTRT
  152.     CALL    GOTOP
  153.     CALL    END
  154. BAL2:    CALL    GETNXT
  155.     JR    C,BALDON
  156.     LD    HL,DAY
  157.     BIT     7,(HL)        ;MINUS IF DEPOSIT
  158.     JP    NZ,BAL1        ;IF BIT 7=1 THEN NZ
  159.     CALL    SUBTR
  160.     JP    BAL2
  161. BAL1:    CALL    ADD
  162.     JP    BAL2
  163. BALDON:    LD    BC,02H
  164.     LD    HL,SUM            
  165.     LD    DE,BAL            
  166.     LDIR
  167.     CALL    PRBAL
  168.     JP    GETCMD
  169. ;
  170. CHECK:    LD    A,0
  171.     LD    (PTRFLG),A     ; PRINTER OFF
  172.     CALL    HEAD
  173.     CALL    TABON
  174.     LD    A,(AUTFLG)    ;CHECK IF AUTO NUMBER IS ON
  175.     OR    A
  176.     JR    Z,CHK1
  177. ;
  178. ; GET THE CHECK NUMBER AND UNPACK IT INTO BUFIN
  179. ;
  180.     LD    A,(AUTOCN)
  181.     LD    (BINARY),A
  182.     LD    DE,BUFIN    ;TELL PUTBIN WHERE TO PUT ANSWER
  183.     LD    A,(AUTOCN+1)
  184.     OR    A        ;BIT 8 SET IF WIFE'S CHECKS
  185.     JP    P,CHK11
  186.     LD    A,'W'        ;PUT W IF CHECK NUMBER
  187.     LD    (DE),A
  188.     CALL    OUTPUT        ;PUT IT ON SCREEN AND BUFIN
  189.     INC    DE
  190.     LD    A,(INPTR)
  191.     INC    A
  192.     LD    (INPTR),A
  193.     LD    (INNUM),A
  194.     LD    A,(AUTOCN+1)
  195. CHK11:    AND    3FH        ;STRIP WIFE FLAG IF THERE
  196.     LD    (BINARY+1),A    
  197.     LD    A,0
  198.     LD    (BINARY+2),A
  199.     CALL    BTOD
  200.     LD    B,4
  201.     CALL    PUTBIN
  202. ;
  203. ; NOW UPDATE INPTR AND INNUM
  204. ;
  205.     PUSH    DE
  206.     POP    HL        ; PUT DE INTO HL
  207.     LD    BC,BUFIN
  208.     OR    A
  209.     SBC    HL,BC
  210.     LD    A,L        ;L HAS VALUE FOR POINTER
  211.     LD    (INPTR),A
  212.     LD    (INNUM),A
  213.     JP    CHK2
  214. CHK1:    CALL    GETNUM
  215. CHK2:    CALL    GETIN
  216.     CALL    TABOFF
  217.     CALL    PACK
  218.     CALL    CRLF
  219.     CALL    SAVNXT
  220. ;
  221. ; NOW UPDATE AUTOCN JUST IN CASE IT IS AUTO NUMBERING
  222. ;
  223.     LD    A,(AUTOCN)
  224.     INC    A
  225.     LD    (AUTOCN),A
  226.     JP    NC,CHK3
  227.     LD    A,(AUTOCN+1)
  228.     INC    A
  229.     LD    (AUTOCN+1),A
  230. CHK3:    JP    GETCMD
  231. ;
  232. DEPOS:    LD    A,0
  233.     LD    (PTRFLG),A    ; PRINTER OFF
  234.     CALL    HEAD
  235.     CALL    TABON
  236.     CALL    GETNUM
  237.     CALL    GETIN
  238.     CALL    TABOFF
  239.     CALL    PACK
  240.     CALL    CRLF
  241.     CALL    SAVNXT
  242.     LD    HL,DEPNO
  243.     INC    (HL)
  244.     JP    GETCMD
  245. CATSRC:    CALL    PRINT
  246.     DEFB    CLRSCR,'WHAT CATEGORY FLAG',0
  247.     CALL    .SYINP
  248.     CALL    CONOUT
  249.     CALL    CCRLF
  250.     CP    'I'
  251.     JR    NZ,SRCH1
  252.     JP    ITAX
  253. SRCH1:    CP    'W'
  254.     JR    NZ,SRCH2
  255.     JP    WSRC
  256. SRCH2:    CP    'R'
  257.     JR    NZ,SRCH3
  258.     JP    RSRC
  259. SRCH3:    CALL    PAKCAT
  260.     LD    (MASK),A
  261.     CALL    CRLF
  262.     LD    A,'C'
  263.     LD    (CMD),A
  264.     CALL    HEAD
  265.     CALL    ZSUM
  266.     CALL    GOTOP
  267.     CALL    END
  268. SRC1:    CALL    GETNXT
  269.     JR    C,SRCDON
  270.     LD    A,(MONTH)
  271.     AND    0F0H 
  272.     LD    HL,MASK
  273.     CP    (HL)
  274.     JR    NZ,SRC1
  275.     CALL    UNPACK
  276.     CALL    CRLF
  277.     CALL    ADD
  278.     JP    SRC1
  279. SRCDON:    CALL    PRTOT
  280.     JP    GETCMD
  281. CDWARG:    CALL    PRINT
  282.     DEFB    0DH,0AH,' C,D,N OR W ?',0
  283.     CALL    INPUT 
  284. CCRLF:    PUSH    AF        ;SAVE THE COMMAND
  285.     LD    A,NEWLIN    ;AND SEND CRLF TO CONSOLE
  286.     CALL    CONOUT
  287.     LD    A,LINEFD
  288.     CALL    CONOUT
  289.     POP    AF
  290.     RET
  291. ;
  292. FIX:    LD    A,0
  293.     LD    (PTRFLG),A     ; INSURE PRINTER IS OFF
  294.     CALL    CDWARG
  295.     CP    'C'
  296.     JR    Z,FIX1
  297.     CP    'D'
  298.     JR    Z,FIX1
  299.     CP    'W'
  300.     JR    Z,FIX1
  301.     CP    'N'
  302.     JR    NZ,CMDERR
  303.     JP    NAMFIX
  304. CMDERR:    CALL    PRINT
  305.     DEFB    0DH,0AH,'ONLY C,D,N,OR W ALLOWED',0DH,0AH,0
  306.     JP    GETCMD
  307. FIX1:    LD    (CMD),A
  308.     CALL    PROMPT
  309.     CALL    GETINP
  310.     CALL    PACKNO
  311.     CALL    FIXFLG        ;SET W FLAG
  312.     CALL    FINDNO
  313.     CALL    HEAD
  314.     CALL    UNPACK
  315.     CALL    GETIN        ;EDIT BUFIN
  316.     CALL    PACK
  317.     CALL    REPLAC
  318.     JP    GETCMD
  319. LIST:    LD    A,CLRSCR
  320.     CALL    OUTPUT        ;CLR SCREEN
  321.     CALL    PRINT
  322.     DEFB    13,10,'TYPE MATCH CHAR. OR CR ',0
  323.     LD    A,'%'
  324.     LD    (CMNEM),A    
  325.     LD    (CMNEM+1),A
  326.     LD    (CMNEM+2),A
  327. ;
  328.     LD    HL,CMNEM
  329.     LD    B,3H
  330. ;
  331. LL3:    CALL    INPUT
  332.     CP    BLANK
  333.     JR    Z,LL10
  334.     CP    NEWLIN
  335.     JR    Z,LL10
  336.     LD    (HL),A        ;STA
  337.     INC    HL
  338.     DJNZ    LL3        ;B IS NOW 0
  339. LL10:    LD    BC,0000H
  340.     CALL    CCRLF
  341. LLOOP:    LD    A,(NIND)
  342.     CP    C
  343.     JR    NZ,LL11
  344.     JP    GETCMD
  345. LL11:    LD    A,0
  346.     LD    (INPTR),A
  347. LL5:    LD    A,(CMNEM)
  348.     CP    '%'
  349.     JR    Z,LL6
  350.     LD    HL,(NB1)
  351.     ADD    HL,BC        ;INDEX DOWN BC ENTRIES
  352.     CP    (HL)
  353.     JR    NZ,LL9
  354. LL6:    LD    A,(CMNEM+1)
  355.     CP    '%'
  356.     JR    Z,LL7
  357.     LD    HL,(NB2)
  358.     ADD    HL,BC
  359.     CP    (HL)
  360.     JR    NZ,LL9
  361. LL7:    LD    A,(CMNEM+2)
  362.     CP    '%'
  363.     JR    Z,LL8
  364.     LD    HL,(NB3)
  365.     ADD    HL,BC
  366.     CP    (HL)
  367.     JR    NZ,LL9
  368. LL8:    LD    DE,BUFIN
  369.     PUSH    BC
  370.     CALL    GETNAM
  371.     PUSH    AF
  372.     CALL    SLOW
  373.     POP    AF
  374.     POP    BC
  375.     CALL    PRNAM
  376.     CALL    CRLF
  377.     CALL    KBDTST        ;REV 1.4 CHECK ABORT
  378. LL9:    INC    BC
  379.     LD    A,C
  380.     OR    A
  381.     JR    NZ,LLOOP
  382.     CALL    PRINT
  383.     DEFB    'NAME FILE IS FULL',0DH,0AH,00H
  384.     JP    GETCMD
  385. ;
  386. ; PRINT NAME POINTED TO BY BC
  387. ;
  388. PRNAM:    LD    HL,OFFL        ;REV 1.4 CHANGED PRNAM: TO LL1:
  389.     ADD    HL,BC        ;GET THE LOW BYTE OFFSET
  390.     LD    E,(HL)        ;PUT IT IN E
  391.     LD    HL,OFFH        ;NOT THE HIGH BYTE OFFSET
  392.     ADD    HL,BC        ;INDEXED BY BC ALSO
  393.     LD    D,(HL)        ;DE NOW HAS OFFSET
  394.     LD    HL,(NTABLE)    ;HL HAS BASE ADDR. OF NAME TABLE
  395.     ADD    HL,DE        ;NOW HL HAS OFFSET ADDED
  396.     LD    (NPTR),HL    ;STORE ADDRESS OF FULL NAME IN NPTR
  397. LL1:    LD    A,(HL)
  398.     CP    EOL
  399.     JR    Z,LL2
  400.     CALL    OUTPUT
  401.     INC    HL
  402.     JR    NZ,LL1
  403. LL2:    RET
  404. ;
  405. ; GET POINTER TO NAME
  406. ;
  407. NAMPTR:    CALL    PRINT
  408.     DEFB    CLRSCR,'TYPE MNEMONIC NAME',0DH,0AH,0
  409.     CALL    GETINP
  410.     CALL    CRLF
  411.     LD    A,0H
  412.     LD    (INPTR),A
  413.     CALL    NAMBYT
  414.     JR    NC,NP1
  415.     CALL    PRINT
  416.     DEFB    0DH,0AH,'NAME NOT FOUND',0DH,0AH,0
  417.     JP    GETCMD
  418. NP1:    LD    (MASK),A
  419.     RET
  420. ;
  421. ; PRINT CHECKS BY NAME MATCH
  422. ;
  423. MATCH:    CALL    NAMPTR
  424.     LD    A,'C'
  425.     LD    (CMD),A
  426.     CALL    HEAD
  427.     CALL    ZSUM
  428.     CALL    GOTOP
  429.     CALL    END
  430. MAT2:    CALL    GETNXT
  431.     JR    C,MATRET
  432.     LD    A,(NAME)
  433.     LD    HL,MASK
  434.     CP     (HL)
  435.     JR    NZ,MAT2         ;WRONG NAME
  436.     CALL    UNPACK
  437.     CALL    CRLF
  438.     CALL    ADD
  439.     JP    MAT2             ;LOOP AGN
  440. MATRET:    CALL    PRTOT
  441.     JP    GETCMD
  442. ;
  443. ; PRINT OUTSTANDING CHECKS
  444. ;
  445. OUTSTD:    LD    A,'C'
  446.     LD    (CMD),A
  447.     CALL    HEAD
  448.     CALL    ZSUM
  449.     CALL    GOTOP
  450.     CALL    END
  451. OUTS1:    CALL    GETNXT
  452.     JR    C,OUTS2     ;DONE
  453.     LD    A,(DAY)
  454.     AND    0C0H
  455.     JR    NZ,OUTS1 ; SKIP D & W
  456.     LD    HL,CNUM+1
  457.     BIT    6,(HL)
  458.     JR    NZ,OUTS1    ;R FLAG SET
  459.     CALL    UNPACK
  460.     CALL    CRLF
  461.     CALL    ADD
  462.     JP    OUTS1
  463. OUTS2:    CALL    TPRINT
  464.     DEFB    0DH,0AH,'OUTSTANDING',0H
  465.     CALL    PRTOT
  466.     JP    GETCMD
  467.     JP    GETCMD
  468. ;
  469. ; LIST CHECKS, DEPOSITS OR WITHDRAWALS
  470. ;
  471. PRNT:    CALL    CDWARG
  472.     CP    'N'
  473.     JR    NZ,PRNT1
  474.     JP    LIST
  475. PRNT1:    LD    (CMD),A
  476.     CALL    GETMO
  477.     CALL    HEAD
  478.     LD    A,(CMD)
  479.     CP    'W'
  480.     JR    NZ,PR1
  481.     LD    A,40H             ;W FLAG
  482.     JR    Z,PR3
  483. PR1:    CP    'D'
  484.     JR    NZ,PR2
  485.     LD    A,80H            ;D FLAG
  486.     JR    Z,PR3
  487. PR2:    LD    A,0              ; NOT W OR D
  488. PR3:    LD    (MASK),A
  489.     CALL    GOTOP
  490.     CALL    END
  491.     CALL    ZSUM
  492. PR4:    CALL    KBDTST            ;REV 1.4 CHECK ABORT
  493.     CALL    GETNXT
  494.     JR    C,PDDONE 
  495.     CALL    MTEST
  496.     JR    NZ,PR4
  497.     LD    A,(DAY)
  498.     AND    0C0H
  499.     LD    HL,MASK
  500.     CP     (HL)
  501.     JR    NZ,PR4
  502.     CALL    UNPACK
  503.     CALL    CRLF
  504.     CALL    ADD
  505.     JP    PR4
  506. PDDONE:    CALL    PRTYP
  507.     CALL    PRTOT
  508.     LD    A,0    ; RESET DEFAULT MONTH
  509.     LD    (OUTMO),A
  510.     JP    GETCMD
  511. ;
  512. ; PRINT TYPE OF LISTING DONE
  513. ;
  514. PRTYP:    LD    A,(CMD)
  515.     CP    'C'
  516.     JR    NZ,PRTYP1
  517.     CALL    TPRINT
  518.     DEFB    0DH,0AH,'CHECKS',0H
  519.     RET
  520. PRTYP1:    CP    'D'
  521.     JR    NZ,PRTYP2
  522.     CALL    TPRINT
  523.     DEFB    0DH,0AH,'DEPOSITS',0H
  524.     RET
  525. PRTYP2:    CALL    TPRINT
  526.     DEFB    0DH,0AH,'WITHDRAWALS',0H
  527.     RET
  528. ;
  529. ; QUIT AND RETURN TO CP/M
  530. ;
  531. QUIT:    CALL    PRINT
  532.     DEFB    CLRSCR,'SAVE CHECKS FIRST? (Y/N)',0
  533.     CALL    .SYINP
  534.     CP    'Y'
  535.     JR    NZ,QU1
  536.     CALL    PRTNAM
  537.     CALL    SAVCHK
  538.     CALL    SAVNAM
  539.     JP    QU2
  540. QU1:    CP    'N'
  541.     JR    NZ,QUIT
  542. QU2:    LD    HL,(OLDSP)
  543.     LD    SP,HL
  544.     JP    COLD
  545. ;
  546. ; RETURN AN OUTSTANDING CHECK
  547. ;
  548. RETURN:    CALL    PRINT
  549.     DEFB    CLRSCR,'RETURN WHAT CHECK #',0
  550.     LD    A,'C'
  551.     LD    (CMD),A
  552.     CALL    GETINP
  553.     CALL    PACKNO
  554.     CALL    FIXFLG
  555.     CALL    FINDNO
  556.     CALL    HEAD
  557.     CALL    UNPACK
  558.     LD    DE,0000H
  559.     LD    A,(INPTR)
  560.     LD    E,A
  561.     LD    HL,BUFIN
  562.     ADD    HL,DE
  563.     LD    A,'R'
  564.     LD    (HL),A
  565.     CALL    OUTPUT
  566.     LD    HL,INPTR
  567.     INC     (HL)
  568.     LD    HL,INNUM
  569.     INC     (HL)
  570.     CALL    CRLF
  571.     CALL    PACK
  572.     CALL    REPLAC
  573.     JP    GETCMD
  574. ;
  575. ; SAVE THE CURRENT DATA ON THE DISK
  576. ;
  577. SAVE:    CALL    PRTNAM
  578.     CALL    SAVCHK
  579.     CALL    SAVNAM
  580.     JP    GETCMD
  581. ;
  582. ; PRINT OUT A MONTHLY TALLY SHEET
  583. ;
  584. TALLY:    CALL    TALPR
  585.     JP    GETCMD
  586. ;
  587. ; ENTER A WITHDRAWAL
  588. ;
  589. WITHDR:    LD    A,0
  590.     LD    (PTRFLG),A
  591.     CALL    HEAD
  592.     CALL    TABON
  593.     CALL    GETNUM
  594.     CALL    GETIN
  595.     CALL    PACK
  596.     CALL    CRLF
  597.     CALL    SAVNXT
  598.     LD    HL,WITHNO
  599.     INC     (HL)
  600.     CALL    TABOFF
  601.     JP    GETCMD
  602. ;
  603. ; PRINT OUT THE BANK BALANCE
  604. ;
  605. VALUE:    CALL    YRSTRT
  606.     CALL    GOTOP
  607.     CALL    END
  608. VAL2:    CALL    GETNXT
  609.     JR    C,VALDON
  610.     LD    HL,DAY
  611.     BIT    7,(HL)
  612.     JR    NZ,VAL1        ;DEPOSIT ADD
  613.     BIT    6,(HL)
  614.     JR    NZ,VAL3
  615.     LD    HL,CNUM+1    ;IGNORE OUTSTD
  616.     BIT    6,(HL)
  617.     JR    Z,VAL2
  618. VAL3:    CALL    SUBTR
  619.     JP    VAL2
  620. VAL1:    CALL    ADD
  621.     JP    VAL2
  622. VALDON:    CALL    TPRINT
  623.     DEFB    CLRSCR,'BANK BALANCE',0DH,0AH,0
  624.     JP    BALDON
  625. ;
  626. ; GET A NEW DATA FILE FROM DISK
  627. ;
  628. GET:    CALL    PUTNAM
  629. GETX:    CALL    LDCHK
  630.     CALL    LDNAM
  631.     JP    GETCMD
  632. ;
  633. ; SEND CRLF TO CONSOLE AND RESET OUTPOS
  634. ;
  635. CRLF:    LD    A,00H        
  636.     LD    (OUTPOS),A
  637.     LD    A,NEWLIN
  638.     CALL    OUTPUT
  639.     LD    A,LINEFD
  640.     JP    OUTPUT
  641. ;
  642. ; GET A CONSOLE INPUT WITHOUT ECHO, SET UPPER CASE
  643. ; RETURN TO COMMAND MODE IF CTRL C
  644. ;
  645. .SYINP:    CALL    SYSINP
  646.     CALL    CASE
  647.     CP    CANCEL
  648.     RET    NZ
  649.     LD    A,0
  650.     LD    (AUTFLG),A    ;TURN AUTO NUMBER MODE OFF
  651.     JP    GETCMD
  652. ;
  653. ; PRINT HEADERS
  654. ;
  655. HEAD:    LD    A,(CMD)
  656.     CP    'C'
  657.     JR    Z,CHEAD
  658.     CP    'D'
  659.     JR    Z,DHEAD
  660.     CP    'W'
  661.     JR    Z,WHEAD
  662.     POP    AF        ;CLEAN UP THE STACK
  663.     JP    CMDERR
  664. ;
  665. ; PRINT CHECK HEADER
  666. ;
  667. CHEAD:    CALL    TPRINT
  668.     DEFB    CLRSCR,'CHK#  ',0
  669.     JP    HDR
  670. ;
  671. ; PRINT WITHDRAW HEADER
  672. ;
  673. WHEAD:    CALL    TPRINT
  674.     DEFB    CLRSCR,'WITH# ',0
  675.     JP    HDR
  676. ;
  677. ; PRINT DEPOSIT HEADER
  678. ;
  679. DHEAD:    CALL    TPRINT
  680.     DEFB    CLRSCR,'DEP#  ',0
  681. HDR:    CALL    TPRINT
  682.     DEFB    'MO DA  AMOUNT NAME FLAGS',0DH,0AH,0
  683.     RET 
  684. ;
  685. ;
  686. ;  CONVERTS BINARY NUMBER TO ASCII DECIMAL STRING
  687. ;  BINARY NUMBER IN BINARY
  688. ;  DECIMAL IN STRING
  689. ;
  690. BTOD:    PUSH    HL
  691.     LD    C,7H
  692. BT.10:    CALL    .DIVI0
  693.     LD    B,0        ;SET UP POINTER TO STRING
  694.     LD    A,(REMAIN)
  695.     ADD    A,30H
  696.     LD    HL,STRING
  697.     ADD    HL,BC
  698.     LD    (HL),A
  699.     LD    B,C        ;SET LOOP COUNTER TO C
  700.     DEC    C
  701.     DJNZ    BT.10
  702.     POP    HL
  703.     RET
  704. .DIVI0:    LD    A,0
  705.     LD    (REMAIN),A
  706.     LD    HL,REMAIN
  707.     LD    B,25    
  708.     JR    DI.10    
  709. DI.05:    RL    (HL)    
  710. DI.10:    OR    A    
  711.     LD    A,(REMAIN)
  712.     SUB    0AH    
  713.     JR    C,DI.21    
  714.     LD    (REMAIN),A
  715. DI.21:    CCF
  716. DI.20:    LD    IX,BINARY
  717.     RL    (IX+0)        
  718.     RL    (IX+1)        
  719.     RL    (IX+2)        
  720.     DJNZ    DI.05    
  721.     RET
  722. ;
  723. ; CONVERTS A DECIMAL ASCII STRING TO A BINARY NUMBER
  724. ; DEC ASCII IN STRING
  725. ; BINARY  NUMBER IN BINARY
  726. ;
  727. ;
  728. DTOB:    LD    A,0
  729.     LD    (XIND),A
  730.     LD    (REMAIN),A
  731.     LD    (REMAIN+1),A
  732.     LD    (REMAIN+2),A
  733.     LD    (BINARY),A
  734.     LD    (BINARY+1),A
  735.     LD    (BINARY+2),A
  736.     LD    HL,STRING
  737. DTOB1:    LD    A,(HL)
  738.     CALL    DIGIT
  739.     JR    Z,DTOB10
  740.     CALL    PRINT
  741.     DEFB    0DH,0AH,'ALPHA IN NUMERIC INPUT',0DH,0AH,0
  742.     JP    GETCMD
  743. DTOB10:    CALL    MPY10
  744.     LD    A,B
  745.     LD    IY,BINARY
  746.     ADD    A,(IY+0)
  747.     LD    (BINARY),A
  748.     JR    NC,DTOB2
  749.     INC     (IY+1)
  750.     JR    NZ,DTOB2
  751.     INC     (IY+2)
  752.     LD    A,(BINARY+2)
  753.     CP    7FH
  754.     JR    C,DTOB2         ; CHK VAL OK
  755.     CALL    PRINT
  756.     DEFB    0DH,0AH,'CHECK VALUE TOO BIG',0DH,0AH
  757.     JP    GETCMD
  758. DTOB2:    LD    IX,XIND
  759.     INC     (IX+0)
  760.     INC    HL
  761.     LD    A,(IX+0)
  762.     CP    08H
  763.     JR    NZ,DTOB1
  764.     RET                 ; CONVERSION COMPLETE
  765. ;
  766. ;  MULTIPLY BINARY BY 10
  767. ;
  768. MPY10:    PUSH    BC
  769.     LD    B,10
  770.     LD    A,0
  771.     LD    (REMAIN),A
  772.     LD    (REMAIN+1),A
  773.     LD    (REMAIN+2),A
  774.     LD    IX,BINARY
  775. MP.10:    LD    A,(REMAIN)
  776.     ADC     A,(IX+0)
  777.     LD    (REMAIN),A
  778.     LD    A,(REMAIN+1)
  779.     ADC     A,(IX+1)
  780.     LD    (REMAIN+1),A
  781.     LD    A,(REMAIN+2)
  782.     ADC     A,(IX+2)
  783.     LD    (REMAIN+2),A
  784.     DJNZ    MP.10
  785.     POP    BC
  786.     LD    (BINARY+2),A
  787.     LD    A,(REMAIN+1)
  788.     LD    (BINARY+1),A
  789.     LD    A,(REMAIN)
  790.     LD    (BINARY),A
  791.     RET
  792. ;
  793. ; CHECK FOR DECIMAL DIGIT
  794. ; B RETURNS VALUE OF DIGIT IN HEX
  795. ;
  796. DIGIT:    PUSH    HL
  797.     LD    HL,DIG+9
  798.     LD    B,9
  799. DIG.10:    CP     (HL)        
  800.     JR    Z,DIG.20
  801.     DEC    HL
  802.     DEC    B
  803.     JP    P,DIG.10
  804. DIG.20:    POP    HL
  805.     RET             ; Z=1 IF DIGIT
  806. ;
  807. DIG:        DEFB    '0123456789ABCDEF'
  808. ;
  809. ;
  810. ;
  811. ; RESET INNUM AND INPTR
  812. ; IF WITHDRAWAL OR DEPOSIT GET NUMBER
  813. ; IF AUTO-NUMBER, THEN GET THE CHECK NUMBER
  814. ; ELSE RETURN
  815. ;
  816. GETNUM:    LD    A,0
  817.     LD    (INNUM),A
  818.     LD    (INPTR),A
  819.     LD    A,(CMD)
  820.     CP    'C'
  821.     RET    Z
  822.     CP    'D'
  823.     JR    Z,GETDEP
  824. ; ELSE GET WITHDRAWAL #
  825.     LD    A,(WITHNO)
  826.     JP    GN2
  827. GETDEP:    LD    A,(DEPNO)
  828. GN2:    LD    (BINARY),A
  829.     LD    A,0
  830.     LD    (BINARY+1),A
  831.     LD    (BINARY+2),A
  832.     CALL    BTOD
  833.     LD    B,3            ;LOOP COUNTER
  834.     LD    IX,STRING+5
  835.     LD    IY,BUFIN
  836. GN3:    LD    A,(IX+0)
  837.     LD    (IY+0),A
  838.     INC    IX
  839.     INC    IY
  840.     CALL    OUTPUT
  841.     LD    HL,INNUM
  842.     INC     (HL)
  843.     LD    HL,INPTR
  844.     INC     (HL)
  845.     DJNZ    GN3
  846.     RET
  847. ;
  848. ; FILL BUFIN FROM KBD
  849. ; RETURN ON CR OR #LINEFD
  850. ; GETINP RESETS INPTR & INNUM TO 0
  851. ; GETIN ASSUMES INPTR & INNUM VALID
  852. ;
  853. GETINP:    LD    A,0H
  854.     LD    (INNUM),A
  855.     LD    (INPTR),A
  856. ;
  857. GETIN:    CALL    .SYINP
  858. ;
  859. ; IF INPUT WILL GO TO PRINTER THEN PRINT CHAR ON CONSOLE
  860. ;
  861.     PUSH    AF        ;SAVE THE CHAR
  862.     LD    A,(PTRFLG)
  863.     OR    A
  864.     JR    Z,NOTPTR
  865.     POP    AF
  866.     PUSH    AF
  867.     CALL    CONOUT
  868. NOTPTR:    POP    AF
  869. ;
  870.     CALL    TABNXT
  871.     CP    BS
  872.     JR    NZ,GI1
  873. ;
  874. ; BACKSPACE
  875. ;
  876.     PUSH    AF        ;SAVE THE BACKSPACE CHAR
  877.     LD    A,(INPTR)    ;CHECK IF AT THE BEGINNING
  878.     OR    A        ;IS INPTR ZERO
  879.     JR    NZ,NOTBEG    ;NOT AT BEGINNING, NOW BACKSPACE
  880.     POP    AF
  881.     JP    GETIN        ;ELSE IGNORE THE BACKSPACE
  882. NOTBEG:    DEC    A        ;UPDATE INPTR
  883.     LD    (INPTR),A
  884.     POP    AF        ;NOW SEND BACKSPACE TO VIDEO
  885.     CALL    OUTPUT
  886.     JP    GETIN        ;AND GET NEXT CHARACTER
  887. ;
  888. ; INSERT
  889. ;
  890. GI1:    CP    ADDCHAR        ; CTRL A ADD SPACE AT CURSOR?
  891.     JR    NZ,GI2
  892.     LD    BC,0000H    ;SET IT TO ZERO
  893.     LD    DE,INPTR    ;DE POINTS TO INPTR
  894.     LD    HL,INNUM    ;HL POINTS TO INNUM
  895.     LD    A,(HL)
  896.     CP    BUFSIZ-1    ;MAKE SURE INSERT DOES NOT
  897.     JR    Z,GETIN        ;OVERFLOW THE BUFFER
  898.     LD    A,(DE)        ;GET VALUE OF INPTR
  899.     CP    (HL)        ;IS IT AT THE END OF THE BUFFER
  900.     JR    Z,GETIN        ;IF SO IGNORE INSERT
  901.     INC    (HL)        ;BUFIN WILL HAVE ONE MORE CHAR
  902.     LD    A,(HL)        ;GET INNUM
  903.     LD    C,A        ;PUT IT INTO INDEX
  904.     LD    IY,BUFIN
  905.     ADD    IY,BC        ;START AT THE OLD END OF BUFIN
  906. GI10:    LD    A,(IY-1)    ;GET A CHAR
  907.     LD    (IY+0),A    ;AND MOVE IT TO RIGHT ONE CHAR
  908.     DEC    IY        ;NEXT CHAR DOWN
  909.     DEC     C        ;DEC POINTER
  910.     LD    A,(DE)        ;GET INPTR
  911.     CP    C        ;IS POINTER AT INPTR
  912.     JR    NZ,GI10        ;CONTINUE MOVING UNTIL EQUAL
  913.     LD    A,BLANK
  914.     LD    (IY+0),A    ;PUT BLANK AT INPTR POSITION
  915.     CALL    FIXVID
  916. GI11:    JP    GETIN
  917. ;
  918. ; DELETE CHARACTER AT CURSOR
  919. ;
  920. GI2:    CP    DELCHAR
  921.     JR    NZ,GI3
  922.     LD    DE,INPTR    ;DE POINTS TO INPTR
  923.     LD    A,(DE)
  924.     LD    HL,INNUM    ;HL POINTS TO INNUM
  925.     CP    (HL)
  926.     JR    Z,GETIN        ;ABORT IF INPTR=INNUM
  927.     LD    BC,0000H    ;INITIALIZE BC
  928.     LD    C,A        ;BC NOW INDEX INTO BUFIN
  929.     LD    IX,BUFIN
  930.     ADD    IX,BC        ;IX NOW POINTS INTO BUFIN
  931. GI20:    LD    A,(IX+1)    ;MOVE NEXT CHARACTER
  932.     LD    (IX+0),A    ;DOWN TO REPLACE ONE POINTED TO
  933.     INC    C        ;C IS INPTR + 1
  934.     INC    IX        ;MOVE UP ONE CHARACTER
  935.     LD    A,C        ;AND IF INPTR + 1 IS NOT
  936.     CP    (HL)        ;EQUAL TO INNUM MOVE ANOTHER
  937.     JR    NZ,GI20
  938.     DEC     (HL)        ;DEC INNUM BECUZ ONE CHAR IS GONE
  939.     CALL    FIXVID        ;AND UPDATE THE DISPLAY
  940.     JP    GETIN
  941. ;
  942. ; FWD SPACE
  943. ;
  944. GI3:    CP    FWDSP         ; FWD SPACE
  945.     JR    NZ,GI4
  946.     LD    A,(INPTR)
  947.     LD    HL,INNUM
  948.     CP    (HL)
  949.     JR    NZ,GI40
  950.     JP    GETIN
  951. GI40:    INC     A
  952.     LD    (INPTR),A
  953.     LD    A,FWDSP        ;NOW FORWARD SPACE CURSOR
  954.     CALL    OUTPUT
  955.     JP    GETIN
  956. ;
  957. ; TEST FOR MOVE TO SET CURSOR AT BEGINNING OF BUFFER
  958. ;
  959. GI4:    CP    MOVE        ;MOVE THE CURSOR?
  960.     JR    NZ,GI41
  961.     LD    A,0DH
  962.     CALL    OUTPUT        ;SET CURSOR AT BEGINNING
  963.     LD    A,0
  964.     LD    (INPTR),A    ;RESET INPTR
  965.     JP    GETIN
  966. ;
  967. ; RETURN FROM GETIN ON LINE FEED OR CARRIAGE RETURN
  968. ;
  969. GI41:    CP    LINEFD
  970.     RET    Z
  971.     CP    NEWLIN
  972.     RET    Z
  973. ;
  974. ; IGNORE OTHER CONTROL CODES AND PUT VALID CHAR. IN BUFFER
  975. ;
  976. GI5:    CP    20H        ;IGNORE REST OF CONTROL CODES
  977.     JP    C,GETIN
  978.     LD    HL,BUFIN
  979.     LD    BC,0000H
  980.     PUSH    AF
  981.     LD    A,(INPTR)
  982.     LD    C,A
  983.     ADD    HL,BC
  984.     POP    AF
  985.     LD    (HL),A
  986.     CALL    OUTPUT
  987.     LD    A,(INPTR)
  988.     INC    A
  989.     LD    (INPTR),A
  990.     LD    HL,INNUM
  991.     CP    (HL)
  992.     JP    C,GETIN     ; INPTR<INNUM
  993.     JP    Z,GETIN        
  994.     LD    (HL),A
  995.     CP    32
  996.     JP    NZ,GETIN
  997. INERR:    LD    A,BELL
  998.     CALL    OUTPUT
  999.     CALL    PRINT
  1000.     DEFB    0DH,0AH,'INPUT BUFFER OVERFLOW',0DH,0AH,0
  1001.     JP    GETCMD
  1002. ;
  1003. ; UPDATE VIDEO DISPLAY
  1004. ; RESET CURSOR TO INPTR
  1005. ;
  1006. FIXVID:    LD    A,(INNUM)    ;WRITE OUT BUFIN
  1007.     LD    C,A
  1008.     CALL    OVRWRT
  1009. ;
  1010. ; NOW WRITE SPACES UNTIL BUFSIZ TO ERASE EVERYTHING
  1011. ;
  1012. FV1:    CP    BUFSIZ
  1013.     JR    Z,FV2
  1014.     LD    A,BLANK
  1015.     CALL    OUTPUT
  1016.     INC    B
  1017.     LD    A,B
  1018.     JP    FV1
  1019. ;
  1020. ; NOW OVERWRITE UNTIL INPTR
  1021. ;
  1022. FV2:    LD    A,(INPTR)
  1023.     LD    C,A
  1024.     CALL    OVRWRT
  1025.     RET
  1026. ;
  1027. OVRWRT:    LD    A,NEWLIN    ;START AT THE BEGINNING
  1028.     CALL    OUTPUT
  1029.     LD    B,0        ;B IS CHAR. COUNTER
  1030.     LD    IX,BUFIN    ;IX IS POINTER INTO BUFIN
  1031. WRTNXT:    LD    A,(IX+0)    ;GET A CHARACTER
  1032.     CALL    OUTPUT        ;AND OUTPUT IT TO CONSOLE
  1033.     INC    B        ;BUMP THE CHAR. COUNTER
  1034.     INC    IX        ;AND THE POINTER
  1035.     LD    A,B
  1036.     CP    C        ;COMPARE CHAR. CNTR TO LIMIT
  1037.     JR    NZ,WRTNXT    ;AND LOOP UNTIL END
  1038.     RET
  1039. ;
  1040. ; PACK BUFIN INTO BUFFER
  1041. ;
  1042. PACKNO:    LD    A,0
  1043.     LD    (WIFE),A    ; RESET FLAG
  1044.     LD    (INPTR),A     ; GETCMDNING OF BUFIN
  1045.     LD    A,(BUFIN)
  1046.     CP    'W'
  1047.     JR    NZ,P1
  1048.     LD    A,1
  1049.     LD    (WIFE),A
  1050.     LD    IY,INPTR
  1051.     INC     (IY+0)
  1052. ;
  1053. ; GET CK,WITHDR,OR DEPOSIT #
  1054. ;
  1055. P1:    CALL    GETDEC ; PUT # INTO STRING
  1056.     CALL    DTOB
  1057.     LD    A,(BINARY)
  1058.     LD    (CNUM),A
  1059.     LD    A,(BINARY+1)
  1060.     AND    3FH 
  1061.     LD    (CNUM+1),A
  1062.     RET
  1063. ;
  1064. ; PACK TAKES THE CONTENTS OF BUFIN AND PACKS THE DATA
  1065. ; INTO 8 BYTES AND STORES IT IN THE BUFFER
  1066. ;
  1067. PACK:    CALL    PACKNO
  1068. ;
  1069. ; GET MONTH
  1070. ;
  1071.     CALL    GETDEC
  1072.     CALL    DTOB
  1073.     LD    A,(BINARY)
  1074.     AND    0FH
  1075.     LD    (MONTH),A
  1076. ;
  1077. ; GET DAY
  1078. ;
  1079.     CALL    GETDEC
  1080.     CALL    DTOB
  1081.     LD    A,(BINARY)
  1082.     AND    3FH 
  1083.     LD    (DAY),A
  1084. ;
  1085. ; GET CHECK VALUE
  1086. ;
  1087.     CALL    GETVAL
  1088.     CALL    DTOB
  1089.     LD    A,(BINARY+2)
  1090.     LD    (CVAL+2),A
  1091.     LD    A,(BINARY+1)
  1092.     LD    (CVAL+1),A
  1093.     LD    A,(BINARY)
  1094.     LD    (CVAL),A
  1095. ;
  1096. ; GET NAME
  1097. ;
  1098.     CALL    NAMBYT
  1099.     JR    C,P3         ; NAME NOT FOUND
  1100.     LD    (NAME),A
  1101. ;
  1102. ; FIX FLAGS
  1103. ;
  1104.     JP    FIXFLG ; RETURN
  1105. ;
  1106. P3:    LD    (NAME),A     ; PUT 0 IN TEMPORARILY
  1107.     CALL    FIXFLG
  1108.     CALL    PRINT
  1109.     DEFB    0DH,0AH,'NEW NAME (Y/N)',0DH,0AH,0
  1110.     CALL    INPUT
  1111.     CP    'Y'
  1112.     JR    Z,P4
  1113.     JP    GETCMD
  1114. P4:    CALL    FIXNAM
  1115.     LD    (NAME),A
  1116.     RET
  1117. ;
  1118. ; PUT NEXT BUFIN ENTRY INTO STRING
  1119. ;
  1120. GETDEC:    LD    B,8 ; CLEAR STRING
  1121.     LD    A,'0'
  1122.     LD    HL,STRING+7
  1123. PD1:    LD    (HL),A
  1124.     DEC    HL
  1125.     DJNZ    PD1
  1126. PD2:    CALL    SETHL        ;HL=BUFIN+INPTR
  1127.     LD    A,(HL)
  1128.     CP    BLANK ; IGNORE LEADING SPACES
  1129.     JR    NZ,PD3
  1130.     LD    A,(INPTR)
  1131.     INC    A
  1132.     LD    (INPTR),A
  1133.     JR    NZ,PD2
  1134. PD3:    LD    A,(HL)
  1135.     CP    BLANK         ; RETURN ON NEXT SPACE
  1136.     JR    NZ,PD4
  1137. PDRET:    RET
  1138. PD4:    CP    '.'
  1139.     JR    Z,PDRET
  1140.     CALL    PUTSTR
  1141. NXTNUM:    LD    A,(INPTR)
  1142.     INC    A
  1143.     LD    (INPTR),A
  1144.     CALL    SETHL
  1145.     LD    IX,INNUM
  1146.     CP    (IX+0)
  1147.     JR    NZ,PD3
  1148.     RET
  1149. ;
  1150. ; SET HL TO BUFIN+INPTR
  1151. ;
  1152. SETHL:    PUSH    AF        ;DON'T DESTROY IT
  1153.     LD    A,(INPTR)
  1154.     LD    E,A
  1155.     LD    D,0
  1156.     LD    HL,BUFIN
  1157.     ADD    HL,DE
  1158.     POP    AF
  1159.     RET
  1160. ;
  1161. ;
  1162. ; GET CHECK VALUE
  1163. ; ALL DOLLARS UNLESS . FOUND
  1164. ;
  1165. GETVAL:    CALL    GETDEC
  1166.     CP    '.'
  1167.     JR    Z,CENTS
  1168.     LD    A,'0'            ; AMOUNT IN DOLLARS
  1169.     CALL    PUTSTR
  1170.     LD    A,'0'
  1171.     JP    PUTSTR             ; RETURN
  1172. CENTS:    INC    HL
  1173.     LD    A,(HL)
  1174.     CP    BLANK
  1175.     JR    Z,VALERR
  1176.     INC    HL
  1177.     LD    A,(HL)
  1178.     CP    BLANK
  1179.     JR    Z,VALERR
  1180.     INC    HL
  1181.     LD    A,(HL)
  1182.     CP    BLANK
  1183.     JR    NZ,VALERR
  1184.     JP    NXTNUM             ; CENTS OK
  1185. VALERR:    CALL    PRINT
  1186.     DEFB    0DH,0AH,'CHECK VALUE ERROR',0DH,0AH,0
  1187.     JP    GETCMD
  1188. ;
  1189. ; PUT ACC INTO STRING
  1190. ;
  1191. PUTSTR:    LD    B,8
  1192.     PUSH    AF
  1193.     LD    IY,STRING
  1194. PS1:    LD    A,(IY+1)
  1195.     LD    (IY+0),A
  1196.     INC    IY
  1197.     DJNZ    PS1
  1198.     POP    AF
  1199.     LD    (IY-1),A
  1200.     RET
  1201. ;
  1202. ; SET FLAG BITS
  1203. ;
  1204. FIXFLG:    LD    A,(WIFE)
  1205.     OR    A        ;SET THE FLAG
  1206.     JR    Z,FF0
  1207.     LD    A,(CNUM+1)    ;SET WIFE FLAG
  1208.     OR    080H
  1209.     LD    (CNUM+1),A
  1210. FF0:    LD    A,(CMD)
  1211.     CP    'C'
  1212.     JR    Z,FF1
  1213.     CP    'W'
  1214.     JR    Z,FW1
  1215.     CP    'D'
  1216.     JR    NZ,FXERR
  1217. ;
  1218. ; SET DEPOSIT FLAG
  1219. ;
  1220.     LD    A,(DAY)
  1221.     OR    080H
  1222.     LD    (DAY),A
  1223.     JR    NZ,FF1 ; JUMP
  1224. FXERR:    CALL    PRINT
  1225.     DEFB    0DH,0AH,'CMD ERROR IN FIXFLG',0DH,0AH,0
  1226.     JP    GETCMD
  1227. ;  
  1228. ; SET WITHDRAW FLAG
  1229. ;
  1230. FW1:    LD    A,(DAY)
  1231.     OR    040H
  1232.     LD    (DAY),A
  1233. FF1:    LD    A,(INPTR)
  1234.     LD    B,A
  1235.     LD    A,(INNUM)
  1236.     CP    B
  1237.     JR    NZ,FF4
  1238.     RET             ; NO MORE FLAGS
  1239. FF4:    LD    HL,BUFIN
  1240.     LD    DE,0000H
  1241.     LD    A,(INPTR)
  1242.     LD    E,A
  1243.     ADD    HL,DE
  1244.     LD    A,(HL)
  1245.     CP    BLANK
  1246.     JR    Z,NXTFLG
  1247.     CP    'R'
  1248.     JR    NZ,FF2
  1249.     LD    A,(CNUM+1)    ;SET RETURNED FLAG
  1250.     OR    040H
  1251.     LD    (CNUM+1),A
  1252.     JP    NXTFLG
  1253. FF2:    CP    'I'
  1254.     JR    NZ,FF3
  1255.     LD    A,(CVAL+2)    ;SET I TAX FLAG
  1256.     OR    80H
  1257.     LD    (CVAL+2),A
  1258.     JP    NXTFLG
  1259. FF3:    CP    'W'
  1260.     JR    NZ,FF6
  1261.     LD    A,(CNUM+1)
  1262.     OR    80H        ; SET WIFE FLG
  1263.     LD    (CNUM+1),A
  1264.     JP    NXTFLG
  1265. FF6:    CALL    PAKCAT
  1266.     LD    B,A
  1267.     LD    A,(MONTH)
  1268.     OR    B
  1269.     LD    (MONTH),A
  1270. NXTFLG:    LD    A,(INPTR)
  1271.     INC    A
  1272.     LD     (INPTR),A
  1273.     INC    HL
  1274.     JP    FF1
  1275. ;
  1276. ; INVALID CAT FLAGS ARE W,I,R
  1277. CAT:        DEFB    'NCDEFGHMPSU%%%%%'
  1278. ; % ARE SPARES
  1279. ;
  1280. ;
  1281. ; UNPACK BUFFER INTO BUFIN
  1282. ; INPTR AND INNUM SET TO END OF BUFIN
  1283. ;
  1284. UNPACK:    LD    A,0
  1285.     LD    HL,BUFFER
  1286.     LD    DE,BUFIN
  1287.     LD    A,(BUFFER)
  1288.     LD    (BINARY),A
  1289.     LD    A,(BUFFER+1)
  1290.     AND    3FH 
  1291.     LD    (BINARY+1),A     ; UNPACK CHECK #    
  1292.     LD    A,0
  1293.     LD    (BINARY+2),A        
  1294.     CALL    BTOD
  1295.     LD    B,4
  1296.     CALL    PUTBIN
  1297. ;
  1298. ; UNPACK MONTH
  1299. ;
  1300.     LD    A,(MONTH)
  1301.     AND    0FH 
  1302.     LD    (BINARY),A
  1303.     CALL    BTOD
  1304.     LD    B,4
  1305.     CALL    PUTBIN
  1306. ;
  1307. ; UNAPCK DAY
  1308. ;
  1309.     LD    A,(DAY)
  1310.     AND    3FH 
  1311.     LD    (BINARY),A
  1312.     CALL    BTOD
  1313.     LD    B,5
  1314.     CALL    PUTBIN
  1315. ;
  1316. ; INSERT SPACE BETWEEN DAY AND CHECK VALUE FOR LARGE CHECKS
  1317. ;
  1318.     LD    A,20H
  1319.     LD    (DE),A
  1320.     INC    DE
  1321.     CALL    OUTPUT
  1322. ;
  1323. ; UNPACK VALUE
  1324. ;
  1325.     LD    A,(CVAL)
  1326.     LD    (BINARY),A
  1327.     LD    A,(CVAL+1)
  1328.     LD    (BINARY+1),A
  1329.     LD    A,(CVAL+2)
  1330.     AND    7FH
  1331.     LD    (BINARY+2),A
  1332.     CALL    BTOD
  1333.     LD    A,1
  1334.     LD    (V),A        ;SET UP FOR CENTS MODE
  1335.     LD    B,1        ;SET UP FOR ALL OUTPUT
  1336.     CALL    PUTBIN
  1337.     LD    A,0
  1338.     LD    (V),A
  1339. ;
  1340. ; UNPACK NAME
  1341. ;
  1342.     LD    A,(NAME)
  1343.     LD    C,A
  1344.     CALL    GETNAM
  1345. ;
  1346. ; UNPACK FLAGS
  1347. ;
  1348. UPFLG:    LD    HL,CNUM+1
  1349.     BIT    7,(HL)
  1350.     JR    Z,UP2
  1351.     LD    A,'W'
  1352.     CALL    OUTPUT
  1353.     LD    (DE),A
  1354.     INC    DE        ;DE IS POINTER INTO BUFIN
  1355. UP2:    LD    IY,CNUM+1
  1356.     BIT    6,(IY+0)
  1357.     JR    Z,UP3
  1358.     LD    A,'R'
  1359.     CALL    OUTPUT
  1360.     LD    (DE),A        ;PUT R INTO BUFIN
  1361.     INC    DE
  1362. UP3:    LD    IY,CVAL+2
  1363.     BIT    7,(IY+0)
  1364.     JR    Z,UP4
  1365.     LD    A,'I'
  1366.     CALL    OUTPUT
  1367.     LD    (DE),A        ;PUT I INTO BUFIN 
  1368.     INC    DE
  1369. ;
  1370. ; UNPACK CATEGORY
  1371. ;
  1372. UP4:    LD    A,(MONTH)
  1373.     AND     0F0H
  1374.     RRCA
  1375.     RRCA
  1376.     RRCA
  1377.     RRCA
  1378.     LD    C,A        ;C IS OFFSET INTO CAT STRING
  1379.     LD    B,0
  1380.     LD    IY,CAT
  1381.     ADD    IY,BC        ;IY NOW POINTS TO C'TH ENTRY IN CAT
  1382.     LD    A,(IY+0)
  1383.     CP    '%'
  1384.     JR    Z,UPRET
  1385.     CP    'N'
  1386.     JR    Z,UPRET
  1387.     CALL    OUTPUT
  1388.     LD    (DE),A
  1389.     INC    DE        ;DE POINTS TO BUFIN
  1390. UPRET:    PUSH    DE
  1391.     POP    HL        ;EXCHANGE DE AND HL
  1392.     LD    BC,BUFIN
  1393.     OR    A        ;CLEAR CARRY JUST TO BE SURE
  1394.     SBC     HL,BC        ;COMPUTE INDEX INTO BUFFER
  1395.     LD    A,L
  1396.     LD    (INPTR),A
  1397.     LD    (INNUM),A
  1398. ;
  1399. ; NOW PRINT THE FULL NAME ON THE SCREEN
  1400. ;    RETURN IF THIS IS A TALLY COMMAND ELSE
  1401. ;    TAB TO COLUMN 40 THEN PRINT THE NAME
  1402. ;
  1403.     LD    B,A
  1404.     LD    A,(CMD)
  1405.     CP    'T'
  1406.     LD    A,B        ;RESTORE A=INPTR,INNUM
  1407.     RET    Z
  1408.     LD    B,A
  1409.     LD    A,40
  1410.     SUB    B
  1411.     LD    B,A
  1412. UPLP:    LD    A,BLANK
  1413.     CALL    OUTPUT
  1414.     DJNZ     UPLP
  1415.     LD    A,(NAME)
  1416.     LD    C,A
  1417.     CALL    PRNAM
  1418. ;
  1419. ; NOW RETURN THE CURSOR TO COLUMN SET BY INPTR
  1420. ;
  1421.     LD    A,0DH        ;RETURN CURSOR TO BEGINNING
  1422.     CALL    OUTPUT
  1423.     LD    A,(INPTR)
  1424.     LD    B,A
  1425. UPLP1:    LD    A,FWDSP
  1426.     CALL    OUTPUT
  1427.     DJNZ    UPLP1
  1428.     LD    A,(INPTR)
  1429.     RET
  1430. ;
  1431. ; B CONTAINS POINTER TO STRING
  1432. ; HL POINTS TO BUFFER
  1433. ; LEADING 'S REPLACED BY SPACES
  1434. ; IF V=1 THEN (.) INSERTED
  1435. ;
  1436. PUTBIN:    PUSH    BC
  1437.     LD    C,B
  1438.     LD    B,0
  1439. PTB2:    LD    IY,STRING
  1440.     ADD    IY,BC        ;IY POINTS TO B'TH ENTRY IN STRING
  1441.     LD    A,(IY+0)
  1442.     CP    '0'
  1443.     JR    NZ,PTB1
  1444.     LD    A,BLANK
  1445.     CALL    OUTPUT
  1446.     LD    (DE),A
  1447.     INC    DE        ;INCREMENT BUFFER POINTER
  1448.     INC    C        ;INCREMENT INDEX INTO STRING
  1449.     LD    A,C
  1450.     CP    6
  1451.     JR    NZ,PB3
  1452.     LD    A,(V)
  1453.     OR    A        ;SET THE FLAGS
  1454.     JR    NZ,PTB1
  1455. PB3:    CP    8
  1456.     JR    NZ,PTB2
  1457.     POP    BC
  1458.     LD    A,E
  1459.     LD    (INPTR),A
  1460.     RET
  1461. PTB1:    LD    A,C
  1462.     CP    6
  1463.     JR    NZ,PB2
  1464.     LD    A,(V)
  1465.     OR    A
  1466.     JR    Z,PB2
  1467.     LD    A,'.'
  1468.     CALL    OUTPUT
  1469.     LD    (DE),A
  1470.     INC    DE
  1471. PB2:    LD    IY,STRING
  1472.     OR    A        ;CLEAR CARRY
  1473.     ADD    IY,BC
  1474.     LD    A,(IY+0)
  1475.     CALL    OUTPUT
  1476.     LD    (DE),A
  1477.     INC    DE
  1478.     INC    C
  1479.     LD    A,C
  1480.     CP    8
  1481.     JR    NZ,PTB1
  1482.     POP    BC
  1483.     LD    A,E
  1484.     LD    (INPTR),A
  1485.     RET
  1486. ;
  1487. ; GET INPUT FROM CONSOLE WITH ECHO, COMMAND MODE ON CTRL C
  1488. ;
  1489. INPUT:     CALL    SYSIN
  1490.     CP    CANCEL        ;CANCEL THE COMMAND IN PROCESS?
  1491.     JP    NZ,CASE
  1492.     LD    A,0
  1493.     LD    (AUTFLG),A    ;CANCEL THE AUTO NUMBER MODE
  1494.     JP    GETCMD
  1495. ;
  1496. ;
  1497. ; ENTER CHECK BUFFER INTO CFILE AT END
  1498. ;
  1499. SAVNXT:    LD    HL,(CKSTRT)
  1500.     LD    DE,(FILSIZ)
  1501.     ADD    HL,DE
  1502.     LD    (TPTR),HL
  1503.     LD    A,E
  1504.     ADD    A,08H        ;INCREMENT BY 8 BYTES
  1505.     LD    E,A
  1506.     JR    NC,SAV1
  1507.     INC    D
  1508. SAV1:    LD    (FILSIZ),DE    ;UPDATE FILE SIZE
  1509. ;
  1510. ;NOW CHECK IF CHECK FILE WILL OVER WRITE NAME FILE
  1511. ;
  1512.     LD    HL,(NAMES)
  1513.     LD    DE,(TPTR)
  1514.     OR    A        ;CLEAR THE CARRY
  1515.     SBC    HL,DE
  1516.     JR    NC,REPLAC    ;TPTR<NAMES
  1517. ;
  1518. ;IF NAMES WOULD BE OVERWRITTEN THEN DEC FILSIZ BY 8
  1519. ;AND RETURN TO GET CMD AFTER ERROR MESSAGE
  1520. ;
  1521.     LD    HL,(FILSIZ)
  1522.     LD    B,0
  1523.     LD    C,8
  1524.     OR    A        ;CLEAR THE CARRY
  1525.     SBC    HL,BC
  1526.     LD    (FILSIZ),HL
  1527.     CALL    PRINT
  1528.     DEFB CLRSCR,'CHECK FILE FULL',0DH,0AH,0
  1529.     JP    GETCMD
  1530. ;
  1531. ; ENTER HERE WITH TPTR SET FOR REPLACE
  1532. ;
  1533. REPLAC:    LD    B,8        ;SET UP TO MOVE 8 BYTES
  1534.     LD    HL,BUFFER
  1535.     LD    IY,(TPTR)
  1536. REP1:    LD    A,(HL)
  1537.     LD    (IY+0),A
  1538.     INC    HL
  1539.     INC     IY
  1540.     DJNZ    REP1
  1541.     RET
  1542.  
  1543. PROMPT:    CALL    PRINT
  1544.     DEFB 0DH,0AH,'ENTER # (W # FOR WIFES CHECK)',0
  1545.     RET
  1546. ;
  1547. ; FIND # MATCH IN CFILE
  1548. ; RETURN LOAD ENTRY INTO BUFFER
  1549. ; TPTR SET TO LOCATION TO REPLACE
  1550. ;
  1551. FINDNO:    CALL    END
  1552.     LD    HL,(CKSTRT)
  1553.     LD    (TPTR),HL
  1554. F2:    LD    HL,(TPTR)
  1555.     LD    IY,BUFFER
  1556.     LD    A,(HL)
  1557.     CP    (IY+0)
  1558.     JR    NZ,F1
  1559.     INC    HL
  1560.     LD    A,(HL)
  1561.     AND     0BFH     ;CLEAR RETURN FLAG
  1562.     CP    (IY+1)
  1563.     JR    Z,FOUND
  1564. F1:    CALL    INCNXT
  1565. ;
  1566. ; NOW CHECK IF TPTR IS AT THE END OF THE CHECK FILE
  1567. ;
  1568.     LD    HL,(BUFEND)
  1569.     LD    DE,(TPTR)
  1570.     OR    A
  1571.     SBC    HL,DE
  1572.     JR    NC,F2        ;TPTR<BUFEND
  1573.     CALL    PRINT
  1574.     DEFB 0DH,0AH,'ENTRY NOT FOUND',0DH,0AH,0
  1575.     JP    GETCMD
  1576. FOUND:    LD    A,(CMD)
  1577.     CP    'W'
  1578.     JR    NZ,F5
  1579.     LD    HL,(TPTR)
  1580.     LD    BC,0006        ;LOOK AT 6TH ENTRY
  1581.     ADD    HL,BC
  1582.     LD    A,(HL)
  1583.     AND     40H         ;IS W FLAG SET
  1584.     JR    Z,F1         ; NO GOTO NEXT ENTRY
  1585.     JR    NZ,F4
  1586. F5:    CP     'D'
  1587.     JR    NZ,F6
  1588.     LD    HL,(TPTR)
  1589.     LD    BC,0006H    ;LOOK AT 6TH ENTRY
  1590.     ADD    HL,BC
  1591.     LD    A,(HL)        
  1592.     AND     080H        ;IS D FLAG SET
  1593.     JR    Z,F1         ; NO GOTO NEXT ENTRY
  1594.     JR    NZ,F4
  1595. F6:    CP    'C'
  1596.     JR    Z,F7 ; OK
  1597. F8:    POP    AF        ;CLEAN UP THE STACK
  1598.     JP    CMDERR
  1599. F7:    LD    HL,(TPTR)
  1600.     LD    BC,0006H    ;LOOK AT 6TH ENTRY
  1601.     ADD    HL,BC
  1602.     LD    A,(HL)
  1603.     AND     0C0H
  1604.     CP     0
  1605.     JR    NZ,F1
  1606. F4:    LD    B,8        ;TRANSFER ENTRY TO BUFFER
  1607.     LD    HL,(TPTR)
  1608.     LD    IY,BUFFER
  1609. F9:    LD    A,(HL)
  1610.     LD    (IY+0),A
  1611.     INC    HL
  1612.     INC    IY
  1613.     DJNZ    F9
  1614.     RET             ;TPTR AT ENTRY LOC.
  1615. ;
  1616. ; INC TPTR TO NEXT ENTER
  1617. ;
  1618. INCNXT:    LD    HL,(TPTR)
  1619.     LD    BC,0008
  1620.     ADD    HL,BC
  1621.     LD    (TPTR),HL
  1622.     RET
  1623. ;
  1624. ; COMPUTE CFILE END
  1625. ;
  1626. END:    LD    HL,(CKSTRT)
  1627.     LD    DE,(FILSIZ)
  1628.     ADD    HL,DE
  1629.     LD    (BUFEND),HL
  1630.     RET
  1631. ;
  1632. ; SET TPTR TO GETCMD OF CFILE
  1633. ;
  1634. GOTOP:    LD    HL,(CKSTRT)
  1635.     LD    (TPTR),HL
  1636.     RET
  1637. ;
  1638. ; FIRST TEST DONE ELSE
  1639. ; TRANSFER TPTR ENTRY TO BUFFER
  1640. ; THEN INCREMENT TPTR TO NEXT
  1641. ;
  1642. GETNXT:    LD    HL,(TPTR)
  1643.     LD    BC,(BUFEND)
  1644.     OR    A
  1645.     SBC    HL,BC
  1646.     JR    NZ,GTNXT1
  1647.     SCF
  1648.     RET             ;CARRY SET WHEN EOF
  1649. ;
  1650. ; NOW MOVE 8 BYTES FROM TPTR TO BUFFER
  1651. ;
  1652. GTNXT1:    LD    B,8
  1653.     LD    IY,BUFFER
  1654.     LD    HL,(TPTR)
  1655. GTNXT2:    LD    A,(HL)
  1656.     LD    (IY+0),A
  1657.     INC    HL
  1658.     INC    IY
  1659.     DJNZ    GTNXT2
  1660.     CALL    INCNXT
  1661.     SCF
  1662.     CCF
  1663.     RET
  1664. ;
  1665. ; ZERO SUM
  1666. ;
  1667. ZSUM:    LD    A,0
  1668.     LD    (SUM),A
  1669.     LD    (SUM+1),A
  1670.     LD    (SUM+2),A
  1671.     RET
  1672. ;
  1673. ; ADD CVAL TO SUM
  1674. ;
  1675. ADD:    LD    A,(CVAL+2)
  1676.     AND    7FH
  1677.     LD    (CVAL+2),A
  1678. ADD0:    OR    A        ;CLEAR THE CARRY FLAG
  1679. ADD1:    LD    A,(CVAL)
  1680.     LD    B,A
  1681.     LD    A,(SUM)
  1682.     ADC    A,B
  1683.     LD    (SUM),A
  1684.     LD    A,(CVAL+1)
  1685.     LD    B,A
  1686.     LD    A,(SUM+1)
  1687.     ADC    A,B
  1688.     LD    (SUM+1),A
  1689.     LD    A,(CVAL+2)
  1690.     LD    B,A
  1691.     LD    A,(SUM+2)
  1692.     ADC    A,B
  1693.     LD    (SUM+2),A
  1694.     RET
  1695. ;
  1696. ; SUBTRACT CVAL FROM SUM
  1697. ; FORM 2'S COMPLEMENT THEN ADD
  1698. ;
  1699. SUBTR:    LD    A,(CVAL)
  1700.     XOR    0FFH
  1701.     LD    (CVAL),A
  1702.     LD    A,(CVAL+1)
  1703.     XOR    0FFH
  1704.     LD    (CVAL+1),A
  1705.     LD    A,(CVAL+2)
  1706.     AND    7FH        ;CLR I FLAG
  1707.     XOR    0FFH
  1708.     LD    (CVAL+2),A
  1709.     SCF
  1710.     JP    ADD1
  1711. ;
  1712. ; PRINT BALANCE/TOTAL
  1713. ; SEND 2'S COMPLEMENT IF NEGATIVE
  1714. ;
  1715. PRTOT:    CALL    TPRINT
  1716.     DEFB     ' TOTAL IS     ',0
  1717.     JP    TOTAL
  1718. PRBAL:    CALL    TPRINT
  1719.     DEFB 0DH,0AH,'BALANCE ',0
  1720. TOTAL:    LD    HL,SUM+2
  1721.     BIT    7,(HL)
  1722.     JR    Z,PBA2        ;NOT NEGATIVE
  1723.     LD    A,'-'
  1724.     CALL    OUTPUT
  1725. ;
  1726. ; FORM THE TWO'S COMPLEMENT OF SUM
  1727. ;
  1728.     LD    A,(SUM+2)
  1729.     XOR    0FFH
  1730.     LD    (SUM+2),A
  1731.     LD    A,(SUM+1)
  1732.     XOR    0FFH
  1733.     LD    (SUM+1),A
  1734.     LD    A,(SUM)
  1735.     XOR    0FFH
  1736.     ADD    A,1
  1737.     LD    (SUM),A
  1738.     LD    A,(SUM+1)
  1739.     ADC    A,0
  1740.     LD    (SUM+1),A
  1741.     LD    A,(SUM+2)
  1742.     ADC    A,0
  1743.     LD    (SUM+2),A
  1744. PBA2:    LD    A,'$'
  1745.     CALL    OUTPUT
  1746. ;
  1747. ; NOW MOVE SUM TO BINARY
  1748. ;
  1749.     LD    B,3        ;MOVE 3 BYTES
  1750.     LD    HL,SUM  
  1751.     LD    IX,BINARY  
  1752. PBA4:    LD    A,(HL)
  1753.     LD    (IX+0),A
  1754.     INC    HL
  1755.     INC    IX
  1756.     DJNZ    PBA4
  1757.     CALL    BTOD
  1758.     LD     A,1         ; WRITE INTO BUFIN BUT NOT USED
  1759.     LD    DE,BUFIN    ;SO PUTBIN KNOWS WHERE TO WRITE
  1760.     LD    (V),A
  1761.     LD    B,1
  1762.     LD    HL,BUFIN
  1763.     INC    HL
  1764.     CALL    PUTBIN
  1765.     LD    A,0
  1766.     LD    (V),A
  1767.     RET
  1768. ;
  1769. ; TRANSFER BAL AT GETCMDNING OF YEAR TO SUM
  1770. ;
  1771. YRSTRT:    LD    A,(BEGYR)
  1772.     LD    (SUM),A
  1773.     LD    A,(BEGYR+1)
  1774.     LD    (SUM+1),A
  1775.     LD    A,(BEGYR+2)
  1776.     LD    (SUM+2),A
  1777.     RET
  1778. ;
  1779. ; PACK CATEGORY FLAG
  1780. ;
  1781. PAKCAT:    LD    HL,CAT+15
  1782.     LD    BC,16         
  1783.     CPDR
  1784.     JP    PE,PKC5
  1785.     CALL    PRINT
  1786.     DEFB 0DH,0AH,'INVALID CATEGORY',0DH,0AH,0
  1787.     JP    GETCMD
  1788. PKC5:    LD    A,C
  1789.     SLA    A
  1790.     SLA    A
  1791.     SLA    A
  1792.     SLA    A
  1793.     RET
  1794. ;
  1795. ; UNPACK ON SCREEN IN PAGE LENGTHS
  1796. ;
  1797. ;
  1798. ; FIND NAME
  1799. ; RETURN A=NAME INDEX,CARRY=0 IF FOUND
  1800. ; RETURN A=0,CARRY=1 IF NOT FOUND
  1801. ;
  1802. FINDNA:    LD    A,(NIND)
  1803. FN2:    CP    0 
  1804.     JR    NZ,FN1
  1805. NONAME:    LD     A,0
  1806.     SCF
  1807.     RET
  1808. FN1:    LD    BC,0000H
  1809.     LD    C,A        ;BC NOW HAS NIND OFFSET
  1810.     DEC    C
  1811. FN7:    LD    IX,(NB1)
  1812.     ADD    IX,BC
  1813.     LD    A,(IX+0)
  1814.     LD    HL,CMNEM
  1815.     CP    (HL)
  1816.     JR    Z,FN3
  1817.     JR    NZ,FN5 ; NO MATCH
  1818. FN3:    LD    IX,(NB2)
  1819.     ADD    IX,BC
  1820.     LD    A,(IX+0)
  1821.     LD    HL,CMNEM+1
  1822.     CP    (HL)
  1823.     JR    Z,FN4
  1824.     JR    NZ,FN5 ; NO MATCH
  1825. FN4:    LD    IX,(NB3)
  1826.     ADD    IX,BC
  1827.     LD    A,(IX+0)
  1828.     LD    HL,CMNEM+2
  1829.     CP    (HL)
  1830.     JR    Z,FN6 ; FOUND IT
  1831.     JR    NZ,FN5 ; NO MATCH
  1832. FN5:    DEC    C
  1833.     JP    P,FN7
  1834.     INC    C
  1835.     JP    NONAME
  1836. FN6:    LD    A,C         ; NAME FOUND
  1837.     SCF
  1838.     CCF
  1839.     RET
  1840. ;
  1841. ; GET NAME INDEX EQUIV TO NAME
  1842. ; RETURN A=0,C=1 IF NOT FOUND
  1843. ;
  1844. NAMBYT:    LD    DE,0000H
  1845.     LD    A,(INPTR)
  1846.     LD    E,A
  1847.     LD    A,(INNUM)
  1848.     CP    E
  1849.     JR    NC,NBYT4
  1850.     JR    Z,NBYT4
  1851. NBYT2:    CALL    PRINT
  1852.     DEFB 0DH,0AH,'3 CHARACTER NAME NOT SPECIFIED',0DH,0AH,0
  1853.     JP    GETCMD
  1854. NBYT4:    LD    B,3
  1855.     LD    IY,CMNEM
  1856.     LD    HL,BUFIN
  1857.     ADD    HL,DE
  1858.     LD    A,(HL)        ;LOAD C'TH ENTRY IN BUFIN
  1859.     CP    BLANK
  1860.     JR    NZ,NBYT3
  1861.     LD    HL,INPTR
  1862.     INC    (HL)
  1863.     JR    NZ,NAMBYT ; IGNORE LEADING SPC'S
  1864. ; TRANSFER NAME TO CMNEM
  1865. NBYT1:    LD    A,(INPTR)
  1866.     INC    A
  1867.     LD    (INPTR),A
  1868.     LD    E,A        ;INCREMENT INPTR LOCAL VAR.
  1869.     LD    A,(INNUM)
  1870.     CP    E
  1871.     JR    Z,NBYT2 ; ERROR RETURN
  1872. NBYT3:    LD    HL,BUFIN
  1873.     ADD    HL,DE
  1874.     LD    A,(HL)
  1875.     LD    (IY+0),A
  1876.     INC    IY
  1877.     DJNZ    NBYT1
  1878.     LD    A,(INPTR)
  1879.     INC    A
  1880.     LD    (INPTR),A
  1881.     JP    FINDNA ; RETURN
  1882. ;
  1883. ; PUT NAME IN NAME FILE
  1884. ;
  1885. FIXNAM:    LD    A,(NIND)
  1886.     CP    0FFH
  1887.     JR    NZ,NAMADD
  1888. NBFULL:    CALL    PRINT
  1889.     DEFB 0DH,0AH,'NAME BUFFER FULL',0DH,0AH,0
  1890.     JP    GETCMD
  1891. NAMADD:    LD    BC,0000H
  1892.     LD    C,A        ;C IS NOW INDEX
  1893.     LD    A,(CMNEM)
  1894.     LD    IY,(NB1)
  1895.     ADD    IY,BC
  1896.     LD    (IY+0),A
  1897.     LD    A,(CMNEM+1)
  1898.     LD    IY,(NB2)
  1899.     ADD    IY,BC
  1900.     LD    (IY+0),A
  1901.     LD    A,(CMNEM+2)
  1902.     LD    IY,(NB3)
  1903.     ADD    IY,BC
  1904.     LD    (IY+0),A
  1905.     LD    A,(OFFST)
  1906.     LD    IY,(OL)
  1907.     ADD    IY,BC
  1908.     LD    (IY+0),A
  1909.     LD    A,(OFFST+1)
  1910.     LD    IY,(OH)
  1911.     ADD    IY,BC
  1912.     LD    (IY+0),A
  1913. NADD:    CALL    PRINT
  1914.     DEFB 0DH,0AH,'TYPE FULL CHECK NAME',0DH,0AH,0
  1915.     CALL    TABOFF
  1916.     LD    A,0
  1917.     LD    (INPTR),A
  1918.     LD    (INNUM),A     ; USE BUFIN TO GET NAME
  1919.     CALL    GETIN
  1920. ; COMPUTE ADR FOR NAME IN NTABLE
  1921.     OR    A        ;CLR CARRY
  1922.     LD    HL,(NTABLE)
  1923.     LD    DE,(OFFST)
  1924.     ADD    HL,DE
  1925.     LD    (NPTR),HL
  1926. ;
  1927. ;CHECK FOR NAME FILE FULL
  1928. ;
  1929.     LD    BC,0000H
  1930.     LD    A,(INNUM)
  1931.     LD    C,A
  1932.     LD    HL,(NPTR)
  1933.     ADD    HL,BC
  1934.     LD    (NTEMP),HL
  1935.     LD    HL,(TOP)
  1936.     LD    BC,(NTEMP)
  1937.     SBC    HL,BC
  1938.     JP    C,NBFULL
  1939. ; TRANSFER NAME FROM BUFIN TO NTABLE
  1940. NCONT:    LD    HL,BUFIN
  1941.     LD    DE,(NPTR)
  1942.     LD    BC,000H
  1943.     LD    A,(INNUM)
  1944.     LD    C,A
  1945.     LDIR
  1946. MOVDON:    LD    A,EOL ; MARK END OF LINE
  1947.     LD    (DE),A
  1948. ; UPDATE OFFST
  1949.     LD    A,(INNUM)
  1950.     INC    A
  1951.     LD    (INNUM),A    ;TO ACCOUNT FOR EOL
  1952.     LD    B,A
  1953.     LD    A,(OFFST)
  1954.     ADD    A,B
  1955.     LD    (OFFST),A
  1956.     JR    NC,MVD1
  1957.     LD    HL,OFFST+1
  1958.     INC    (HL)
  1959. MVD1:    LD    A,(NIND)
  1960.     INC    A
  1961.     LD    (NIND),A
  1962.     DEC    A
  1963.     RET
  1964. ;
  1965. ; PRINT THE NUMBER OF NAMES IN THE NAME FILE
  1966. ;
  1967. PRTNUM:    CALL    PRINT
  1968.     DEFB    '     ',0DH,0AH,0H
  1969.     LD    A,(NIND)
  1970.     LD    (BINARY),A
  1971.     CALL    BTOD
  1972.     LD    B,3
  1973.     LD    DE,BUFIN    ;PUTBIN WILL WRITE DATA
  1974.     CALL    PUTBIN        ;SOMEWHERE SO PUT IT IN BUFIN
  1975.     CALL    PRINT
  1976.     DEFB    ' NAMES IN THE NAME FILE (255 MAX.)',0DH,0AH,0H
  1977.     LD    A,0
  1978.     LD    (INPTR),A
  1979.     LD    (INNUM),A
  1980.     RET
  1981. ;
  1982. ; PRINT NAME MNEUMONIC
  1983. ; BC CONTAINS INDEX TO NAME FILE
  1984. ; DE POINTS TO INPUT LOCATION IN BUFIN
  1985. ;
  1986. GETNAM:    LD    B,0
  1987.     LD    A,BLANK
  1988.     CALL    OUTPUT
  1989.     LD    (DE),A
  1990.     INC    DE
  1991.     LD    HL,(NB1)
  1992.     ADD    HL,BC
  1993.     LD    A,(HL)
  1994.     CALL    OUTPUT
  1995.     LD    (DE),A
  1996.     INC    DE 
  1997.     LD    HL,(NB2)
  1998.     ADD    HL,BC
  1999.     LD    A,(HL)
  2000.     CALL    OUTPUT
  2001.     LD    (DE),A
  2002.     INC    DE
  2003.     LD    HL,(NB3)
  2004.     ADD    HL,BC
  2005.     LD    A,(HL)
  2006.     CALL    OUTPUT
  2007.     LD    (DE),A
  2008.     INC    DE
  2009.     LD    A,BLANK
  2010.     CALL    OUTPUT
  2011.     LD    (DE),A
  2012.     INC    DE
  2013.     CALL    OUTPUT
  2014.     LD    (DE),A
  2015.     INC    DE
  2016.     PUSH    DE        
  2017.     POP    HL        ;PUT DE IN HL
  2018.     LD    BC,BUFIN
  2019.     OR    A
  2020.     SBC    HL,BC
  2021.     LD    A,L
  2022.     LD    (INPTR),A
  2023.     RET
  2024. ;
  2025. ; TAB INPUT ON SPACE
  2026. ; RETURN TO GETIN IF SPACE
  2027. ; AFTER TABING TO NEXT FIELD
  2028. ;
  2029. TABNXT:    PUSH    AF
  2030.     CP    BLANK
  2031.     JR    NZ,TABRET
  2032.     LD    A,(TABFLG)
  2033.     OR    A
  2034.     JR    Z,TABRET
  2035.     LD    BC,0000H
  2036.     LD    A,(INPTR)
  2037.     LD    C,A
  2038.     LD    HL,TABS
  2039.     ADD    HL,BC
  2040.     LD    A,(HL)
  2041.     OR    A
  2042.     JR    NZ,TABRET
  2043. ; MOVE INPTR FORWARD TO NEXT TAB
  2044. ; INSERTING SPACES WHILE MOVING
  2045. TABMOV:    LD    IY,BUFIN
  2046.     LD    A,(INPTR)
  2047.     LD    C,A
  2048.     LD    A,BLANK
  2049.     ADD    IY,BC
  2050.     LD    (IY+0),A
  2051.     CALL    OUTPUT
  2052.     INC    C
  2053.     LD    A,C
  2054.     LD    (INPTR),A
  2055.     LD    HL,TABS
  2056.     ADD    HL,BC
  2057.     LD    A,(HL)
  2058.     OR    A
  2059.     JR    Z,TABMOV
  2060.     LD    A,(INNUM)
  2061.     CP    C
  2062.     JR    NC,TBM1
  2063.     POP    AF
  2064. TBM1:    POP    AF
  2065.     JP    GETIN
  2066. TABRET:    POP    AF        ; VALID INPUT
  2067.     RET
  2068. ;
  2069. TABS:    DEFB 0,0,0,0,0,0,1,0,0,1
  2070.     DEFB 0,0,0,1,0,0,0,0,0,0
  2071.     DEFB 0,1,1,1,0,0,1,0,0,0,0,0,0
  2072. ;
  2073. ; TURN TABBING ON AND OFF
  2074. ;
  2075. TABON:    LD    A,0FFH
  2076.     LD    (TABFLG),A
  2077.     RET
  2078. TABOFF:    LD    A,0
  2079.     LD    (TABFLG),A
  2080.     RET
  2081. ;
  2082. ; OUTPUT SELECTOR
  2083. ;
  2084. OUTPUT:    PUSH    AF
  2085.     LD    A,(OUTPOS)
  2086.     INC    A
  2087.     LD    (OUTPOS),A
  2088.     PUSH    HL
  2089.     LD    HL,PTRFLG
  2090.     BIT    7,(HL)
  2091.     POP    HL
  2092.     JR    Z,CONOU1
  2093.     POP    AF
  2094. ; 
  2095. ; DO NOT PASS FWDSP ON TO PRINTER
  2096. ;
  2097.     CP    FWDSP
  2098.     RET    Z
  2099. ;
  2100. PRTOUT:    PUSH    AF
  2101.     PUSH    BC
  2102.     PUSH    DE
  2103.     PUSH    HL
  2104.     LD    E,A
  2105.     LD    C,5
  2106.     CALL    BDOS
  2107.     POP    HL
  2108.     POP    DE
  2109.     POP    BC
  2110.     POP    AF
  2111.     RET
  2112. CONOU1:    POP    AF
  2113. CONOUT:    PUSH    AF
  2114.     PUSH    BC
  2115.     PUSH    DE
  2116.     PUSH    HL
  2117.     LD    E,A
  2118.     LD    C,2
  2119.     CALL    BDOS
  2120.     POP    HL
  2121.     POP    DE
  2122.     POP    BC
  2123.     POP    AF
  2124.     RET
  2125. ;
  2126. ; TOGGLE PRINTER ON
  2127. ;
  2128. TOGGLE:    LD    A,0FFH
  2129.     LD    (PTRFLG),A
  2130.     JP    CMD2
  2131. ;
  2132. ; ASSUME VALID FCB HAS BEEN SET UPON ENTRY OR MODIFIED
  2133. ; BY MOVNAM OR PUTNAM, SAVE CURRENT CHECK FILE ON DISK
  2134. ;
  2135. SAVCHK:    LD    A,(FCB)        ;SEE IF DEFAULT DRIVE
  2136.     CP    0H
  2137.     JR    NZ,S1        ;IF DRIVE SPECIFIED, IGNORE FOLLOWING
  2138.     LD    A,(DFTUNT)    ;ELSE GET THE DEFAULT UNIT
  2139.     INC    A
  2140.     LD    (FCB),A        ;AND PUT IT IN FCB
  2141. S1:    LD    DE,FCB        ;AMBIGUOUS NOT PERMITTED IN DELETE
  2142.     LD    C,DELFC
  2143.     CALL    BDOS
  2144.     LD    DE,FCB
  2145.     LD    C,MAKEFC
  2146.     CALL    BDOS
  2147.     INC    A
  2148.     JR    NZ,SAVCK1
  2149.     CALL    PRINT
  2150.     DEFB    0DH,0AH,'UNABLE TO SAVE CHECKS',0DH,0AH,0H
  2151.     POP    AF
  2152.     JP    GETCMD
  2153. SAVCK1:    LD    A,0H
  2154.     LD    (FCB+32),A
  2155.     CALL    BUG3        ;CORRECTS BUG ON 31 ENTRIES
  2156.     LD    BC,(FILSIZ)
  2157.     ADD    HL,BC        ;COMPUTES ADR. OF LAST CHECK DATA
  2158.     LD    (CHKEND),HL
  2159.     LD    HL,CKLOC
  2160. SLOOP:    LD    DE,DMA
  2161.     LD    BC,128
  2162.     LDIR            ;FILL BUFFER WITH 128 BYTES
  2163.     LD    DE,FCB
  2164.     LD    C,WRTFC
  2165.     PUSH    HL        ;IT GETS DESTROYED OTHERWISE
  2166.     CALL    BDOS        ;WRITE IT ON DISK
  2167.     POP    HL
  2168.     OR    A
  2169.     JR    Z,SAVOK
  2170.     CALL    PRINT
  2171.     DEFB    0DH,0AH,'WRITE ERROR SAVING CHECKS',0DH,0AH,0H
  2172.     POP    AF        ;CLEAN UP STACK
  2173.     JP    GETCMD
  2174. SAVOK:    PUSH    HL
  2175.     LD    BC,(CHKEND)
  2176.     OR    A
  2177.     SBC    HL,BC
  2178.     POP    HL
  2179.     JR    C,SLOOP        ;LOOP UNTIL HL>CHKEND
  2180.     LD    DE,FCB        ;ELSE CLOSE THE FILE & RETURN
  2181.     LD    C,CLSFC
  2182.     CALL    BDOS
  2183.     RET
  2184. ;
  2185. ; SAVE EXISTING NAME FILE ON THE DISK
  2186. ; ASSUME THAT NFCB HAS BEEN PREVIOUSLY UPDATED
  2187. ;
  2188. SAVNAM:    LD    A,(NFCB)    ;CHECK FOR AMBIGUOUS UNIT NUMBER
  2189.     CP    0H        ;IF NOT AMBIGUOUS THEN IGNORE
  2190.     JR    NZ,S2
  2191.     LD    A,(DFTUNT)    ;ELSE GET THE DEFAULT DRIVE NUMBER
  2192.     INC    A
  2193.     LD    (NFCB),A    ;AND PUT IT IN NFCB
  2194. S2:    LD    DE,NFCB
  2195.     LD    C,DELFC
  2196.     CALL    BDOS
  2197.     LD    DE,NFCB
  2198.     LD    C,MAKEFC
  2199.     CALL    BDOS
  2200.     INC    A
  2201.     JR    NZ,SAVNA1
  2202.     CALL    PRINT
  2203.     DEFB    0DH,0AH,'UNABLE TO SAVE NAMES',0DH,0AH,0H
  2204.     POP    AF        ;CLEAN UP STACK
  2205.     JP    GETCMD
  2206. SAVNA1:    LD    A,0H
  2207.     LD    (NFCB+32),A
  2208.     LD    HL,NTABL
  2209.     LD    BC,(OFFST)
  2210.     ADD    HL,BC        ;COMPUTES END OF NAME FILE
  2211.     LD    (NAMEND),HL
  2212.     LD    HL,NIND        ;HL POINTS TO START OF NAMES FILE
  2213. NLOOP:    LD    DE,DMA
  2214.     LD    BC,128
  2215.     LDIR            ;FILLS DMA BUFFER WITH 128 BYTES
  2216.     LD    DE,NFCB
  2217.     LD    C,WRTFC
  2218.     PUSH    HL        ;IT GETS DESTROYED
  2219.     CALL    BDOS        ;SAVES DMA BUFFER ON DISK
  2220.     POP    HL
  2221.     OR    A
  2222.     JR    Z,NSAVOK
  2223.     CALL    PRINT
  2224.     DEFB    0DH,0AH,'WRITE ERROR SAVING NAMES',0DH,0AH,0H
  2225.     POP    AF        ;CLEAN UP THE STACK
  2226.     JP    GETCMD
  2227. NSAVOK:    PUSH    HL
  2228.     LD    BC,(NAMEND)
  2229.     OR    A
  2230.     SBC    HL,BC
  2231.     POP    HL
  2232.     JR    C,NLOOP        ;LOOP UNTIL HL>NAMEND
  2233.     LD    DE,NFCB
  2234.     LD    C,CLSFC        ;NOW CLOSE NAME FILE
  2235.     CALL    BDOS
  2236.     RET
  2237. ;
  2238. ;
  2239. ; LOAD CHECK FILE WHOSE NAME IS IN FCB
  2240. ; ASSUME NAME IS VALID--SET BY MOVNAM OR PUTNAM
  2241. ; IF READ IS SUCCESSFUL, THEN CLOSE THE FILE AND
  2242. ; MAKE THE OLD COPY A BACK UP COPY
  2243. ;
  2244. LDCHK:    LD    DE,FCB
  2245.     LD    C,OPENFC
  2246.     CALL    BDOS
  2247.     INC    A        ;CHECK IF OPEN ERROR
  2248.     JR    NZ,LDC1
  2249.     CALL    PRINT
  2250.     DEFB    0DH,0AH,'CHECK NAME DOES NOT EXIST',0DH,0AH,0H
  2251.     POP    AF
  2252.     JP    GETCMD
  2253. LDC1:    LD    DE,CKLOC
  2254.     LD    A,0H
  2255.     LD    (FCB+32),A
  2256. LDC2:    PUSH    DE
  2257.     LD    DE,FCB
  2258.     LD    C,READFC
  2259.     CALL    BDOS
  2260.     POP    DE
  2261.     OR    A        ;RETURNS NZ IF END OF FILE
  2262.     JR    NZ,CLSCHK
  2263.     LD    HL,DMA
  2264.     LD    BC,128
  2265.     LDIR
  2266.     JP    LDC2
  2267. ;
  2268. CLSCHK:    LD    C,CLSFC
  2269.     LD    DE,FCB
  2270.     CALL    BDOS        ;CLOSE THE CHECK FILE
  2271.     RET
  2272. ;
  2273. ; LOAD NAME FILE WHOSE NAME IS IN NFCB
  2274. ; ASSUME NAME IS VALID AND SET BY MOVNAM OR PUTNAM
  2275. LDNAM:    LD    DE,NFCB
  2276.     LD    C,OPENFC
  2277.     CALL    BDOS
  2278.     INC    A        ;RETURNS FFH IF SUCCESSFUL
  2279.     JR    NZ,LDN1
  2280.     CALL    PRINT
  2281.     DEFB     0DH,0AH,'CAN NOT FIND NAME FILE',0DH,0AH,0H
  2282.     JP    GETCMD
  2283. LDN1:    LD    DE,NAMLOC
  2284.     LD    A,0H
  2285.     LD    (NFCB+32),A
  2286. LDN2:    PUSH    DE
  2287.     LD    DE,NFCB
  2288.     LD    C,READFC
  2289.     CALL    BDOS
  2290.     POP    DE
  2291.     OR    A        ;RETURNS NZ IF EOF
  2292.     JR    NZ,CLSNAM
  2293.     LD    HL,DMA
  2294.     LD    BC,128
  2295.     LDIR
  2296.     JP    LDN2
  2297. ;
  2298. CLSNAM:    LD    C,CLSFC
  2299.     LD    DE,NFCB
  2300.     CALL    BDOS        ;CLOSE THE NAME FILE
  2301.     RET
  2302. ;
  2303. ; PRINT/FIX NAME OF CHECK FILE
  2304. ; TO BE SAVED
  2305. ;
  2306. PRTNAM:    CALL    PRINT
  2307.     DEFB 0DH,0AH,'CHECKS AND NAMES TO BE SAVED AS',0DH,0AH,0
  2308.     LD    B,8
  2309.     LD    HL,FCB+1
  2310. PRTN1:    LD    A,(HL)
  2311.     CALL    OUTPUT
  2312.     INC    HL
  2313.     DJNZ    PRTN1
  2314.     LD    A,20H        ;SEND A SPACE
  2315.     CALL    OUTPUT
  2316.     LD    B,8
  2317.     LD    HL,NFCB+1
  2318. PRTN2:    LD    A,(HL)
  2319.     CALL    OUTPUT
  2320.     INC    HL
  2321.     DJNZ    PRTN2
  2322.     CALL    PRINT
  2323.     DEFB 0DH,0AH,'OK? (Y/N)',0
  2324.     CALL    INPUT
  2325.     PUSH    AF
  2326.     CALL    CRLF
  2327.     POP    AF
  2328.     CP    'Y'
  2329.     JR    NZ,PRN2
  2330.     RET
  2331. PRN2:    CP    'N'
  2332.     JR    NZ,PRTNAM
  2333.     CALL    PUTNAM
  2334.     RET
  2335. ;
  2336. ; GET NEW FILENAME
  2337. ;
  2338. PUTNAM:    CALL    PRINT
  2339.     DEFB 0DH,0AH,'NAME OF CHECK FILE :    ',0DH,0AH,0
  2340.     CALL    GETINP
  2341.     CALL    FXFCB
  2342.     CALL    FXNFCB        ;CLEAR THE FILE CONTROL BLOCKS
  2343.     LD    HL,BUFIN
  2344. PTN1:    LD    A,(HL)
  2345.     INC    HL
  2346.     CP    20H
  2347.     JR    Z,PTN1        ;READ FORWARD TO FIRST CHAR
  2348.     LD    A,(HL)        ;IS THE NEXT CHAR A ':'
  2349.     CP    ':'
  2350.     DEC    HL        ;RESET HL TO FIRST CHAR
  2351.     JR    NZ,PTN2
  2352.     CALL    MAKFNO        ;IF SO MAKE THE DISK NUMBER
  2353.     LD    (FCB),A        ;AND PUT IT INTO THE FCB
  2354. PTN2:    LD    DE,BUFIN    ;NOW LETS COMPUTE INPTR
  2355.     PUSH    HL
  2356.     OR    A
  2357.     SBC    HL,DE        ; HAS VALUE OF INPTR
  2358.     LD    C,L
  2359.     POP    HL
  2360.     LD    DE,FCB+1    ;DE POINTS TO FCB NAME
  2361. ;
  2362. ; NOW MOVE THE NAME POINTED TO BY HL TO FCB UNTIL A SPACE
  2363. ; IS ENCOUNTERED OR UNTIL INPTR EQUALS INNUN
  2364. ;
  2365. PTN3:    LD    A,(INNUM)
  2366.     CP    C
  2367.     JP    Z,COPYN2    ;IF EQUAL WERE DONE 
  2368.     LD    A,(HL)
  2369.     CP    20H        ;IS IT DONE?
  2370.     JR    Z,PTN4
  2371.     CP    '.'
  2372.     JR    Z,PTN5
  2373.     LD    (DE),A        ;ELSE MOVE THE CHARACTER
  2374.     INC    DE
  2375.     INC    HL
  2376.     INC    C
  2377.     JP    PTN3
  2378. ;
  2379. PTN5:    CALL    PRINT
  2380.     DEFB    0DH,0AH,'DO NOT INCLUDE FILE TYPE',0DH,0AH,0H
  2381.     JP    PUTNAM
  2382. ;
  2383. ; CHECK NAME SUCCESSFULLY TRANSFERRED , NOW CHECK FOR NAME FILE
  2384. ;
  2385. PTN4:    LD    A,(HL)
  2386.     INC    HL
  2387.     INC    C
  2388.     CP    20H
  2389.     JR    Z,PTN4        ;READ FORWARD TO FIRST NON BLANK CHAR.
  2390.     LD    A,(INNUM)
  2391.     CP    C
  2392.     JP    Z,DONPTN
  2393.     LD    A,(HL)        ;IS THE NEXT CHAR A ':'
  2394.     DEC    HL
  2395.     CP    ':'
  2396.     JR    NZ,PTN6        ;IF NOT TRANSFER NAME TO NFCB
  2397.     CALL    MAKFNO
  2398.     LD    (NFCB),A    ;PUT DISK NUMBER IN NFCB
  2399. PTN6:    LD    DE,BUFIN
  2400.     PUSH    HL
  2401.     OR    A
  2402.     SBC    HL,DE
  2403.     LD    C,L
  2404.     POP    HL
  2405.     LD    DE,NFCB+1
  2406. ;
  2407. ; NOW MOVE THE NAME POINTED TO BY HL TO NFCB UNTIL A SPACE
  2408. ; IS ENCOUNTERED OR UNTIL INPTR EQUALS INNUN
  2409. ;
  2410. PTN7:    LD    A,(INNUM)
  2411.     CP    C
  2412.     JP    Z,DONPTN
  2413.     LD    A,(HL)
  2414.     CP    20H        ;NAME DONE IF TRAILING SPACE
  2415.     JP    Z,DONPTN
  2416.     CP    '.'
  2417.     JP    Z,DONPTN    ;IGNORE ANY NAME TYPE GIVEN
  2418.     LD    (DE),A        ;ELSE MOVE THE CHARACTER
  2419.     INC    DE
  2420.     INC    HL
  2421.     INC    C
  2422.     JP    PTN7
  2423. ;
  2424. ; IF ONLY ONE NAME IS GIVEN, THEN ASSUME THAT NAME FILE
  2425. ; IS THE SAME AS THE CHECK FILE
  2426. ;
  2427. COPYN2:    LD    HL,FCB
  2428.     LD    DE,NFCB
  2429.     LD    BC,9
  2430.     LDIR
  2431. ;
  2432. ; NOW ALL NAMES HAVE BEEN MOVED, FIX UP THE TYPES AND
  2433. ; RETURN FROM THIS SUBROUTINE CALL
  2434. ;
  2435. DONPTN:    CALL    FIXTYP
  2436.     RET
  2437. ;
  2438. ; GET THE DISK UNIT NUMBER AND CONVERT IT TO A BINARY
  2439. ; NUMBER AND RETURN IT IN THE ACC.  
  2440. ; SET HL TO THE FIRST VALID CHARACTER IN THE NAME
  2441. ; BEFORE RETURNING
  2442. ;
  2443. MAKFNO:    LD    A,(HL)        ;HL POINTS TO UNIT NUMBER ASCII CHAR
  2444.     INC    HL
  2445.     INC    HL        ;LEAVE WITH HL AT NXT CHAR AFTER ':'
  2446.     SUB    40H
  2447.     CP    1
  2448.     RET    Z
  2449.     CP    2
  2450.     RET    Z        ;FOR NOW ONLY 2 DRIVES
  2451.     CALL    PRINT
  2452.     DEFB    0DH,0AH,'INVALID DRIVE SPECIFIED',0DH,0AH,0
  2453.     POP    AF        ;CLEAN UP THE STACK
  2454.     JP    PUTNAM        ;ASK IT AGAIN
  2455. ;
  2456. ; TEXT PRINTER ON SELECTED OUTPUT DEVICE
  2457. ;
  2458. TPRINT:    POP    HL    ;HL POINTS TO TEXT TO BE PRINTED
  2459. PRI10:    LD    A,(HL)
  2460.     OR    A
  2461.     JR    Z,PRI20
  2462.     CALL    OUTPUT
  2463.     INC    HL
  2464.     JP    PRI10
  2465. PRI20:    INC    HL
  2466.     PUSH    HL
  2467.     RET
  2468. ;
  2469. ;
  2470. ; TEXT PRINTER ON CONSOLE ONLY
  2471. ;
  2472. PRINT:    POP    HL    ;HL POINTS TO TEXT TO BE PRINTED
  2473. PR10:    LD    A,(HL)
  2474.     OR    A
  2475.     JR    Z,PR20
  2476.     PUSH    BC
  2477.     PUSH    DE
  2478.     PUSH    HL
  2479.     LD    C,2
  2480.     LD    E,A
  2481.     CALL    BDOS
  2482.     POP    HL
  2483.     POP    DE
  2484.     POP    BC
  2485.     INC    HL
  2486.     JP    PR10
  2487. PR20:    INC    HL
  2488.     PUSH    HL
  2489.     RET
  2490. ;
  2491. ; CHECK KEYBOARD INPUT--IF CANCEL THEN JUMP TO COMMAND MODE
  2492. ; ELSE IGNORE THE INPUT AND RETURN----DESTROYS AF
  2493. ;
  2494. KBDTST:    PUSH    BC        ;ADDED ROUTINE IN REV 1.4
  2495.     PUSH    DE
  2496.     PUSH    HL
  2497.     LD     C,11        ;GET CONSOLE STATUS
  2498.     CALL    BDOS
  2499.     OR    A
  2500.     POP    HL
  2501.     POP    DE
  2502.     POP    BC
  2503.     RET    Z        
  2504.     CALL    SYSIN        ; READ KEYBOARD
  2505.     CP    CANCEL
  2506.     JP    Z,GETCMD
  2507.     RET
  2508. ;
  2509. ;
  2510. ; PRINT INCOME TAX DEDUCTIBLE CHECKS
  2511. ;
  2512. ITAX:    CALL    CRLF
  2513.     LD    A,'C'
  2514.     LD    (CMD),A
  2515.     CALL    HEAD
  2516.     CALL    ZSUM
  2517.     CALL    GOTOP
  2518.     CALL    END
  2519. ITAX1:    CALL    GETNXT
  2520.     JR    C,TAXDON
  2521.     LD    HL,CVAL+2
  2522.     BIT    7,(HL)        ;TEST I FLAG
  2523.     JP    Z,ITAX1
  2524.     LD    HL,DAY
  2525.     BIT    7,(HL)
  2526.     JR    NZ,ITAX1    ;IGNORE DEPOSITS
  2527.     CALL    UNPACK
  2528.     CALL    CRLF
  2529.     CALL    ADD
  2530.     JP    ITAX1
  2531. TAXDON:    CALL    PRTOT
  2532.     JP    GETCMD
  2533. ;
  2534. ; PRINT WIFES / RETURNED CHECKS
  2535. ;
  2536. WSRC:    LD    A,080H
  2537.     JP    RC1
  2538. RSRC:    LD    A,040H
  2539. RC1:    LD    (MASK),A
  2540.     LD    A,'C'
  2541.     LD    (CMD),A
  2542.     CALL    HEAD
  2543.     CALL    CRLF
  2544.     CALL    ZSUM
  2545.     CALL    GOTOP
  2546.     CALL    END
  2547. WRLOOP:    CALL    GETNXT
  2548.     JP    C,WRDONE
  2549.     LD    HL,DAY
  2550.     BIT    7,(HL)        ;IGNORE DEPOSITS
  2551.     JR    NZ,WRLOOP
  2552.     LD    A,(CNUM+1)
  2553.     LD    B,A
  2554.     LD    A,(MASK)
  2555.     AND    B
  2556.     JR    Z,WRLOOP
  2557.     CALL    UNPACK
  2558.     CALL    CRLF
  2559.     CALL    ADD
  2560.     JP    WRLOOP
  2561. WRDONE:    CALL    PRTOT
  2562.     JP    GETCMD
  2563. ;
  2564. ;************************************************************
  2565. ;
  2566. ;    PROGRAM STARTS HERE
  2567. ;
  2568. ;************************************************************
  2569. ;
  2570. START1:    LD    HL,000H
  2571.     ADD    HL,SP
  2572.     LD    (OLDSP),HL
  2573.     LD    SP,STACK+128    ;CREATE LOCAL STACK
  2574.     XOR    A
  2575.     LD    (PTRFLG),A    ;START WITH PRINTER OFF
  2576. ;
  2577. ; IN ORDER FOR REV 1.4 TO WORK, BIOS LOCATION FOR SYSTEM INPUT
  2578. ; WILL BE COMPUTED AND STORED IN INPADR FOR INPUT WITHOUT ECHO
  2579. ;
  2580.     LD    HL,(1)        ;GET ADDRESS OF BIOS+3
  2581.     LD    BC,6        ;INPUT ADDRESS IS 6 BYTES HIGHER
  2582.     ADD    HL,BC
  2583.     LD    (INPADR+1),HL    ;STORE ADDRESS THERE
  2584. ;
  2585. ; NOW PUT NOP'S IN 100-103H SO WARM START CAN BE DONE AT 100H
  2586. ;
  2587.     LD    A,0        ;NOP INSTRUCTION
  2588.     LD    (100H),A
  2589.     LD    (101H),A
  2590.     LD    (102H),A
  2591. ;
  2592. ; SIGN ON MESSAGE
  2593. ;
  2594.     LD    A,CLRSCR
  2595.     CALL    OUTPUT
  2596.     CALL    PRINT
  2597.     DEFB    'CHECKING PROGRAM',0DH,0AH
  2598.     DEFB    'RALPH SHERMAN',0DH,0AH
  2599.     DEFB    '15 HYDAWAY DR',0DH,0AH
  2600.     DEFB    'FOREST,VA 24551',0DH,0AH
  2601.     DEFB    'REVISION 1/2/83',0DH,0AH,0H
  2602. ;
  2603. ;
  2604. ; MOVE INITIAL CHECK DATA TO START OF CHECK FILE
  2605. ;
  2606.     LD    HL,CKTBL
  2607.     LD    DE,CKLOC
  2608.     LD    BC,CKSIZ
  2609.     LDIR
  2610. ;
  2611. ; INITIALIZE NAME FILE
  2612. ;
  2613.     LD    A,0
  2614.     LD    (NAMLOC),A
  2615.     LD    (NAMLOC+1),A
  2616.     LD    (NAMLOC+2),A
  2617. ;
  2618. ; CHECK IF FILE NAME FOR CHECKS IS IN THE FCB
  2619. ;
  2620.     LD    A,(FCB+1)    ;CHECK IF THERE IS A NAME
  2621.     CP    20H        ;IF SPACE THEN NO NAME
  2622.     JR    Z,ST10
  2623. ;
  2624. ; NOW THAT A NAME IS PRESENT, LOAD THE CHECK AND NAME FILES
  2625. ;
  2626.     CALL    MOVNAM        ;MOVE NAMES IN FCS
  2627.     CALL    LDCHK
  2628.     CALL    LDNAM
  2629.     JP    GETCMD
  2630. ;
  2631. ST10:    CALL    PRINT
  2632.     DEFB     'CHECK FILE IS CLEAR',0DH,0AH,0
  2633.     JP    GETCMD
  2634. ;
  2635. ; FXNFCB INITIALIZES THE NAME FILE CONTROL BLOCK
  2636. ; IT FILLS NFCB WITH 32 ZEROES AND THE FILE NAME WITH SPACES
  2637. ;
  2638. FXNFCB:    LD    HL,NFCB
  2639.     LD    A,0
  2640.     LD    B,36
  2641. FXNF1:    LD    (HL),A
  2642.     INC    HL
  2643.     DJNZ    FXNF1        ;PUT 0'S IN NFCB
  2644.     LD    HL,NFCB+1
  2645.     LD    A,20H
  2646.     LD    B,11
  2647. FXNF2:    LD    (HL),A
  2648.     INC    HL
  2649.     DJNZ    FXNF2        ;PUT SPACES IN NAME AREA
  2650.     RET
  2651. ;
  2652. ; FXFCB INITIALIZES THE CHECK FILE CONTROL BLOCK
  2653. ; IT FILLS FCB WITH 32 ZEROES AND THE FILE NAME WITH SPACES
  2654. ;
  2655. FXFCB:    LD    HL,FCB
  2656.     LD    A,0
  2657.     LD    B,36
  2658. FXFC1:    LD    (HL),A
  2659.     INC    HL
  2660.     DJNZ    FXFC1        ;PUTS 0'S IN FCB
  2661.     LD    HL,FCB+1
  2662.     LD    A,20H
  2663.     LD    B,11
  2664. FXFC2:    LD    (HL),A
  2665.     INC    HL
  2666.     DJNZ    FXFC2        ;PUT SPACES IN NAME AREA
  2667.     RET
  2668. ;
  2669. ; MOVNAM READS THE FCB AND FIXES UP THE FILE TYPES  
  2670. ; IF A FILE IS SPECIFIED FOR THE NAME FILE, IT MOVES FCB2 TO NFCB
  2671. ;
  2672. MOVNAM:    LD    A,(FCB2+1)
  2673.     CP    20H        ;WAS A NAME FILE SPECIFIED?
  2674.     JR    Z,MOVN4        ;NO NAME, COPY CHECK FILE NAME
  2675.     CALL    FXNFCB
  2676.     LD    HL,FCB2
  2677.     LD    DE,NFCB
  2678.     LD    BC,15
  2679.     LDIR            ;ELSE COPY NAME SPECIFIED
  2680.     JR    FIXTYP
  2681. MOVN4:    CALL    FXNFCB
  2682.     LD    HL,FCB        ;NAME FILE IS SAME AS CHK FILE
  2683.     LD    DE,NFCB
  2684.     LD    BC,15
  2685.     LDIR
  2686. ;
  2687. ; FIXTYP SETS THE FILE TYPES FOR THE CHECK AND NAME FILES
  2688. ;
  2689. FIXTYP:    LD    HL,NAM
  2690.     LD    DE,NFCB+9
  2691.     LD    BC,3
  2692.     LDIR            ;SET .NAM AS NAME FILE TYPE
  2693.     LD    HL,CHK
  2694.     LD    DE,FCB+9
  2695.     LD    BC,3
  2696.     LDIR            ;SET .CHK AS CHECK FILE TYPE
  2697.     RET
  2698. ;
  2699. ;FIX NAME ENTRY
  2700. ;
  2701. NAMFIX:    CALL    NAMPTR ; PTR IN MASK
  2702. NF2:    CALL    PRINT
  2703.     DEFB 0DH,0AH,'FIX MNEMONIC (Y/N)',0
  2704.     CALL    INPUT
  2705.     CP     'N'
  2706.     JR    Z,NF1
  2707.     CP     'Y'
  2708.     JR    NZ,NF2
  2709. NF5:    CALL    PRINT
  2710.     DEFB 0DH,0AH,'TYPE NEW MNEMONIC',0DH,0AH,0
  2711.     CALL    GETINP
  2712.     LD    A,(INNUM)
  2713.     CP     3
  2714.     JR    NC,NF6
  2715.     CALL    PRINT
  2716.     DEFB CLRSCR,'TYPE 3 CHAR MNEMONIC',0DH,0AH,0
  2717.     JP    NF5
  2718. NF6:    LD    HL,BUFIN
  2719.     LD    BC,0000H
  2720.     LD    A,(MASK)
  2721.     LD    C,A
  2722. NF3:    LD    A,(HL)
  2723.     CP    BLANK
  2724.     JR    NZ,NF4
  2725.     INC    HL
  2726.     JP    NF3
  2727. NF4:    LD    IX,(NB1)
  2728.     ADD    IX,BC
  2729.     LD    (IX+0),A
  2730.     INC    HL
  2731.     LD    A,(HL)
  2732.     LD    IX,(NB2)
  2733.     ADD    IX,BC
  2734.     LD    (IX+0),A
  2735.     INC    HL
  2736.     LD    A,(HL)
  2737.     LD    IX,(NB3)
  2738.     ADD    IX,BC
  2739.     LD    (IX+0),A
  2740. NF1:    CALL    PRINT
  2741.     DEFB 0DH,0AH,'FIX FULL NAME (Y/N)',0
  2742.     CALL    INPUT
  2743.     CP    'N'
  2744.     JR    Z,NFRTS
  2745.     CP    'Y'
  2746.     JR    NZ,NF1
  2747.     LD    BC,0000H
  2748.     LD    A,(MASK)
  2749.     LD    C,A
  2750.     LD    IX,(OL)
  2751.     ADD    IX,BC
  2752.     LD    A,(OFFST)
  2753.     LD    (IX+0),A
  2754.     LD    IX,(OH)
  2755.     ADD    IX,BC
  2756.     LD    A,(OFFST+1)
  2757.     LD    (IX+0),A
  2758.     CALL    NADD
  2759.     LD    A,(NIND)
  2760.     DEC    A
  2761.     LD    (NIND),A
  2762. NFRTS:    JP    GETCMD
  2763. ;
  2764. ; PRINT MONTHLY BALANCE SHEET
  2765. ;
  2766. TALPR:    CALL    GETMO
  2767.     LD    A,(PTRFLG)
  2768.     OR    A
  2769.     JR    Z,TP1
  2770.     LD    A,FORMFD
  2771.     CALL    PRTOUT
  2772. TP1:    CALL    CRLF 
  2773.     CALL    CRLF
  2774.     LD    B,25
  2775.     CALL    TABIT
  2776.     CALL    TPRINT
  2777.     DEFB 'BALANCE SHEET ',0
  2778.     CALL    CRLF
  2779.     CALL    CRLF
  2780. ;
  2781. ; COMPUTE BAL AT MONTH START
  2782. ;
  2783.     CALL    YRSTRT
  2784.     CALL    GOTOP
  2785.     CALL    END
  2786. TL1:    CALL    GETNXT
  2787.     JR    C,TDON1
  2788.     CALL    MTEST
  2789.     JR    Z,TL1
  2790.     JR    C,TL1        ;ONLY ADD UP IF < MONTH TALLIED
  2791.     LD    HL,DAY
  2792.     BIT    7,(HL)
  2793.     JR    NZ,TL2
  2794.     CALL    SUBTR
  2795.     JP    TL1
  2796. TL2:    CALL    ADD
  2797.     JP    TL1
  2798. TDON1:    CALL    TPRINT
  2799.     DEFB 'STARTING BALANCE',0
  2800.     LD    B,68
  2801.     CALL    TABIT
  2802.     CALL    BUG2
  2803.     CALL    CRLF
  2804.     CALL    CRLF
  2805.     CALL    TPRINT
  2806.     DEFB 'DEPOSITS',0
  2807.     CALL    CRLF
  2808.     CALL    CRLF
  2809.     CALL    THEAD
  2810.     CALL    CRLF
  2811.     CALL    GOTOP
  2812.     CALL    END
  2813.     LD    A,80H
  2814.     LD    (MASK),A
  2815. TL3:    CALL    GETNXT
  2816.     JR    C,TL4
  2817.     CALL    MTEST
  2818.     JR    NZ,TL3
  2819.     LD    A,(DAY)
  2820.     AND    0C0H
  2821.     LD    B,A
  2822.     LD    A,(MASK)
  2823.     CP    B
  2824.     JR    NZ,TL3
  2825.     LD    A,0
  2826.     LD    (OUTPOS),A
  2827.     CALL    PRCHK
  2828.     LD    B,67
  2829.     CALL    TABIT
  2830.     CALL    PRVAL
  2831.     CALL    CRLF
  2832.     CALL    ADD
  2833.     JP    TL3
  2834. TL4:    CALL    CRLF
  2835.     LD    B,70
  2836.     CALL    TABIT
  2837.     CALL    TPRINT
  2838.     DEFB '----------',0
  2839.     CALL    CRLF
  2840.     CALL    TPRINT
  2841.     DEFB 'TOTAL ',0
  2842.     LD    B,68
  2843.     CALL    TABIT
  2844.     CALL    TOTAL
  2845.     CALL    SAVVAL
  2846.     CALL    ZSUM
  2847.     CALL    CRLF
  2848.     CALL    TPRINT
  2849.     DEFB 'WITHDRAWALS',0
  2850.     CALL    CRLF
  2851.     CALL    CRLF
  2852.     CALL    THEAD
  2853.     CALL    CRLF
  2854.     LD    A,040H
  2855.     LD    (MASK),A
  2856. TL7:    CALL    GOTOP
  2857. TL5:    CALL    GETNXT
  2858.     JR    C,TL6
  2859.     CALL    MTEST
  2860.     JR    NZ,TL5
  2861.     LD    A,(DAY)
  2862.     AND    0C0H
  2863.     LD    B,A
  2864.     LD    A,(MASK)
  2865.     CP    B
  2866.     JR    NZ,TL5
  2867.     CALL    PRCHK
  2868.     LD    B,60
  2869.     CALL    TABIT
  2870.     CALL    PRVAL
  2871.     CALL    CRLF
  2872.     CALL    SUBTR
  2873.     JP    TL5
  2874. TL6:    LD    A,(MASK)
  2875.     OR    A
  2876.     JR    Z,TL8
  2877.     CALL    CRLF
  2878.     CALL    TPRINT
  2879.     DEFB 'CHECKS',0
  2880.     CALL    CRLF
  2881.     CALL    CRLF
  2882.     CALL    THEAD
  2883.     CALL    CRLF
  2884.     CALL    CRLF
  2885.     LD    A,0
  2886.     LD    (MASK),A
  2887.     JP    TL7
  2888. TL8:    CALL    CRLF
  2889.     LD    B,60
  2890.     CALL    TABIT
  2891.     CALL    TPRINT
  2892.     DEFB '----------',0
  2893.     CALL    CRLF
  2894.     CALL    TPRINT
  2895.     DEFB 'TOTAL',0
  2896.     LD    B,59
  2897.     CALL    TABIT
  2898.     CALL    TOTAL
  2899.     CALL    CRLF
  2900.     CALL    CRLF
  2901.     CALL    TPRINT
  2902.     DEFB 'PERIOD ENDING BALANCE',0
  2903.     LD    B,68
  2904.     CALL    TABIT
  2905.     LD    B,3
  2906.     LD    HL,SUM
  2907.     LD    IX,CVAL
  2908.     LD    IY,STEMP
  2909. TL9:    LD    A,(HL)
  2910.     LD    (IX+0),A
  2911.     LD    A,(IY+0)
  2912.     LD    (HL),A
  2913.     INC    HL
  2914.     INC    IX
  2915.     INC    IY
  2916.     DJNZ    TL9
  2917.     CALL    SUBTR
  2918.     CALL    TOTAL
  2919.     CALL    CRLF
  2920.     LD    A,(PTRFLG)
  2921.     OR    A
  2922.     JR    Z,TP2
  2923.     LD    A,FORMFD
  2924.     CALL    PRTOUT
  2925. TP2:    LD    A,0
  2926.     LD    (PTRFLG),A
  2927.     RET
  2928. ;
  2929. ; TEST CHECK MONTH
  2930. ;
  2931. MTEST:    LD    A,(OUTMO)
  2932.     OR    A
  2933.     JR    NZ,MT1
  2934.     RET
  2935. MT1:    LD    A,(MONTH)
  2936.     AND    0FH
  2937.     LD    B,A
  2938.     LD    A,(OUTMO)
  2939.     CP    B
  2940.     RET
  2941. ;
  2942. ; TAB TO PRINTER POS AT B
  2943. ;
  2944. TABIT:    LD    A,(OUTPOS)
  2945.     CP    B
  2946.     JR    Z,TABRTS
  2947.     LD    A,BLANK
  2948.     CALL    OUTPUT
  2949.     JR    NZ,TABIT
  2950. TABRTS:    RET
  2951. OUTPOS:    DEFB 0
  2952. ;
  2953. ; GET MONTH ARG FOR PRNT
  2954. ; IF MONTH ARE PRESENT, PUT IN OUTMO
  2955. ; DEFAULT IS MONTH 0
  2956. ;
  2957. GETMO:    CALL    PRINT
  2958.     DEFB  13,10,'WHAT MONTH ?',0
  2959.     CALL    GETINP
  2960.     CALL    CRLF
  2961.     LD    B,0H
  2962.     LD    HL,BUFIN
  2963. ;
  2964. ; FIXED BUG HERE ON GETMO...BLANK ENTRY (CARRIAGE RETURN) IS 0
  2965. ;
  2966.     LD    A,(INNUM)
  2967.     OR    A
  2968.     JR    NZ,TAL3
  2969.     LD    A,30H
  2970.     LD    (HL),A
  2971.     LD    A,1H
  2972.     LD    (INNUM),A
  2973.     NOP
  2974.     NOP
  2975.     NOP
  2976.     NOP
  2977.     NOP
  2978.     NOP
  2979.     NOP
  2980. TAL3:    LD    A,0H
  2981.     LD    (INPTR),A
  2982.     CALL    GETDEC
  2983.     CALL    DTOB
  2984.     LD    A,(BINARY)
  2985.     AND    0FH
  2986.     LD    (OUTMO),A
  2987.     RET
  2988. ;
  2989. ; PRINT CHECK ENTRY FOR TALLY
  2990. ; IF TALLY IS ON SCREEN, SLOW THE PROCESS DOWN
  2991. ; ELSE LET IT RIP.
  2992. ;
  2993. PRCHK:    CALL    KBDTST        ;ADDED REV 1.4
  2994.     CALL    SLOW
  2995.     LD    B,0
  2996.     LD    HL,BUFFER
  2997.     LD    IX,BINARY
  2998.     LD    A,0
  2999.     LD    (INPTR),A
  3000.     LD    A,(HL)
  3001.     LD    (IX+0),A
  3002.     INC    B
  3003.     INC    HL
  3004.     INC    IX
  3005.     LD    A,(HL)
  3006.     AND    03FH
  3007.     LD    (IX+0),A
  3008.     LD    A,0
  3009.     INC    B
  3010.     INC    HL
  3011.     INC    IX
  3012.     LD    (IX+0),A
  3013.     CALL    BTOD
  3014.     LD    B,4
  3015.     CALL    BUG1
  3016. ;
  3017. ;PRINT MONTH
  3018. ;
  3019.     LD    A,(MONTH)
  3020.     AND    0FH
  3021.     LD    (BINARY),A
  3022.     CALL    BTOD
  3023.     LD    B,4
  3024.     CALL    PUTBIN
  3025. ;
  3026. ;PRINT DAY
  3027. ;
  3028.     LD    A,(DAY)
  3029.     AND    03FH
  3030.     LD    (BINARY),A
  3031.     CALL    BTOD
  3032.     LD    B,5
  3033.     CALL    PUTBIN
  3034.     LD    A,BLANK
  3035.     CALL    OUTPUT
  3036.     CALL    OUTPUT
  3037.     CALL    UPFLG
  3038.     LD    B,22
  3039.     CALL    TABIT
  3040.     LD    BC,0000H
  3041.     LD    A,(NAME)    ;IS OFFSET TO NAME ADDRESS
  3042.     LD    C,A
  3043.     CALL    PRNAM
  3044.     RET
  3045. ; 
  3046. ; PRINT CHECK VALUE
  3047. ;
  3048. PRVAL:    LD    HL,CVAL        ;MOVE 3 BYTES FROM CVAL TO BINARY
  3049.     LD    DE,BINARY
  3050.     LD    BC,03H
  3051.     LDIR
  3052.     LD    A,(BINARY+2)
  3053.     AND    07FH
  3054.     LD    (BINARY+2),A
  3055.     CALL    BTOD
  3056.     LD    B,1
  3057.     LD    A,B
  3058.     LD    (V),A
  3059.     CALL    PUTBIN
  3060.     LD    A,0
  3061.     LD    (V),A
  3062.     RET
  3063. ;
  3064. ; SLOW DOWN OUTPUT PRINTING WHEN ON CONSOLE
  3065. ;
  3066. SLOW:    LD    A,(PTRFLG)
  3067.     OR    A
  3068.     RET    NZ
  3069.     LD    A,50         ;SET UP FOR 50 MS. DELAY
  3070. DELAY:    LD    C,249
  3071. DLY1:    DEC    C
  3072.     JR     NZ,DLY1
  3073.     DEC    A
  3074.     JR    NZ,DELAY
  3075.     RET
  3076. ;
  3077. THEAD:    CALL    TPRINT
  3078.     DEFB '    #  MO DA  FLG   NAME',0
  3079.     JP    CRLF
  3080. ;
  3081. ; MOVE 3 BYTES FROM SUM TO STEMP
  3082. ;
  3083. SAVVAL:    LD    A,(SUM)
  3084.     LD    (STEMP),A
  3085.     LD    A,(SUM+1)
  3086.     LD    (STEMP+1),A
  3087.     LD    A,(SUM+2)
  3088.     LD    (STEMP+2),A
  3089.     RET
  3090. ;
  3091. ; GET FILE NAME
  3092. ;
  3093. FILNAM:    RET        ;FOR NOW
  3094. ;
  3095. STEMP:    DEFS    3
  3096.  
  3097.  
  3098.  
  3099.  
  3100.  
  3101. ;
  3102. ; GENERAL PURPOSE SUBROUTINES
  3103. ;
  3104. SYSIN:    PUSH    BC
  3105.     PUSH    DE
  3106.     PUSH    HL
  3107.     LD    C,1
  3108.     CALL    BDOS
  3109.     POP    HL
  3110.     POP    DE
  3111.     POP    BC
  3112.     RET
  3113. ;
  3114. ; MAP LOWER CASE TO UPPER CASE
  3115. ;    
  3116. CASE:    CP    60H
  3117.     JR    C,CAS10
  3118.     AND    07FH
  3119.     SUB    020H
  3120. CAS10:    RET
  3121. ;
  3122. ; GET AN INPUT WITHOUT ECHO
  3123. ;
  3124. SYSINP:    PUSH    BC
  3125.     PUSH    DE
  3126.     PUSH    HL
  3127. INPADR:    CALL    CONIN        ;BIOS CONSOLE INPUT ADDRESS
  3128. ;                ;COMPUTED DURING START
  3129.     POP    HL
  3130.     POP    DE
  3131.     POP    BC
  3132.     RET
  3133. CONIN    EQU    INPADR+1    ;DUMMY ADDRESS
  3134. ;
  3135. ; VARIABLES
  3136. ;
  3137. CTRLC    EQU    3
  3138. NEWLIN    EQU    13
  3139. LINEFD    EQU    10
  3140. BLANK    EQU    32
  3141. EOL     EQU    0FFH
  3142. CPTR:    DEFS    2 ; CHECK FILE POINTER
  3143. SUM:    DEFS    3 
  3144. ADDER:    DEFS    3
  3145. X0:    DEFS    2 ; X TEMP
  3146. BUFFER:    DEFS    8 ; CHECK BUFFER
  3147. CNUM    EQU    BUFFER
  3148. MONTH    EQU    CNUM+5
  3149. DAY    EQU    CNUM+6
  3150. CVAL    EQU    CNUM+2
  3151. NAME    EQU    CNUM+7
  3152. CREV:    DEFB    0
  3153. CATMOD:    DEFB    00H
  3154. NAM3:    DEFB    'NAM'
  3155. NREV:    DEFB    0
  3156. CMODE:    DEFB    0
  3157. CMNEM:    DEFS    3 ; CHECK MNEMONIC
  3158. TPTR:    DEFS    2 ; TEMPORARY POINTER
  3159. REMAIN:    DEFS    3
  3160. BINARY:    DEFS    3
  3161. BUFIN:    DEFS    32
  3162. BUFSIZ    EQU    $-BUFIN
  3163. INNUM:    DEFS    1
  3164. INPTR:    DEFS    1
  3165. XIND:    DEFS    1
  3166. CMD:    DEFS    1
  3167. WIFE:    DEFS    1
  3168. V:    DEFB    0
  3169. CKSTRT:    DEFW    CK
  3170. BUFEND:    DEFS    2
  3171. MASK:    DEFS    1
  3172. NOFFST:    DEFW    OFFST
  3173. NB1:    DEFW    MNEU1
  3174. NB2:    DEFW    MNEU2
  3175. NB3:    DEFW    MNEU3
  3176. OL:    DEFW    OFFL
  3177. OH:    DEFW    OFFH
  3178. NTABLE:    DEFW    NTABL
  3179. TABFLG:    DEFB    0     ;0    EQU    OFF FF    EQU    ON
  3180. PTRFLG:    DEFB    0
  3181. OUTMO:    DEFB    0
  3182. INPOS:    DEFS    1
  3183. NPTR:    DEFS    2
  3184. MODE:    DEFB    2
  3185. LENGTH:    DEFS    2
  3186. CHKS:    DEFW    CFILE
  3187. NAMES:    DEFW    NFILE
  3188. NTEMP:    DEFS    2
  3189. TOP:    DEFW    CCPBAS
  3190. STRING:    DEFS    16
  3191. ;
  3192. ; NEW VARIABLES AS A RESULT OF Z80 CONVERSION
  3193. ;
  3194. ;NEWVAR
  3195. ;
  3196. AUTFLG:    DEFB    0        ;AUTO CHECK NUMBER OFF
  3197. AUTOCN:    DEFS    2        ;STOREAGE FOR CHECK NUMBER
  3198. JMPADR:    DEFS    2        ;LOCATION FOR JUMP INDIRECT
  3199. OLDSP:    DEFS    2        ;OLD STACK POINTER
  3200. STACK:    DEFS    128        ;LOCAL STACK
  3201. CHKEND:    DEFS    2        ;END ADR. OF CHECK FILE
  3202. NAMEND:    DEFS    2        ;END ADR. OF NAME FILE
  3203. BAK:    DEFB    'BAK'        ;BAK FILE TYPE
  3204. NAM:    DEFB    'NAM'        ;NAME FILE TYPE
  3205. CHK:    DEFB    'CHK'        ;CHECK FILE TYPE
  3206. NFCB:    DEFS    36        ;NAME FILE CONTROL BLOCK
  3207. CKTBL    EQU    $
  3208.     .PHASE CKLOC
  3209. BEGYR:    DEFB    0,0,0 ; BAL AT YR START
  3210. WITHNO:    DEFB    1; WITHDRAWAL #
  3211. DEPNO:    DEFB    1 ; DEPOSIT #
  3212. BAL:    DEFB    0,0,0 ; PRESENT BAL
  3213. FILSIZ:    DEFB    0,0 ; SIZE OF CFILE IN BYTES
  3214. CK    EQU    $ ; START OF CHECKS
  3215. CKSIZ    EQU    $-BEGYR     ;SIZE OF INITIAL CHECK DATA
  3216.     .DEPHASE
  3217.     .PHASE NAMLOC
  3218. NIND:    DEFB    0
  3219. OFFST:    DEFB    0,0
  3220. MNEU1:    DEFS    256
  3221. MNEU2:    DEFS    256
  3222. MNEU3:    DEFS    256
  3223. OFFL:    DEFS    256
  3224. OFFH:    DEFS    256
  3225. NTABL    EQU    $
  3226.     .DEPHASE
  3227. ;
  3228. ; THIS AREA IS PATCHES FOR BUGS SINCE MICROCORNUCOPIA DISTRIBUTION
  3229. ;
  3230. BUG1:    LD    DE,BUFIN    ;SO PUTBIN KNOWS WHERE TO WRITE
  3231.     CALL    PUTBIN
  3232.     RET
  3233. ;
  3234. ; THIS FIX CORRECTS TALLY WHEN STARTING WITH NEGATIVE BALANCE
  3235. ;
  3236. BUG2:    CALL    SAVVAL        ;SAVE STRTING BALANCE IN CASE NEGATIVE
  3237.     CALL    TOTAL        ;THIS CONVERTS NEG TO 2'S COMPLEMENT
  3238.     LD    A,(STEMP)    ;NOW GET BACK NEGATIVE BALANCE
  3239.     LD    (SUM),A        ;SO WE CAN ADD DEPOSITS TO IT
  3240.     LD    A,(STEMP+1)
  3241.     LD    (SUM+1),A
  3242.     LD    A,(STEMP+2)
  3243.     LD    (SUM+2),A
  3244.     RET
  3245. ;
  3246. ; THIS FIX CORRECTS BUG WHEN SAVING AWAY 31 ENTRIES ON DISK
  3247. ;
  3248. BUG3:    LD    HL,(CKSTRT)
  3249.     RET
  3250. ;
  3251. ;
  3252.     END START
  3253.