home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / PROG950307.ARC / A / P-PUNTER2 < prev    next >
Encoding:
Text File  |  2019-04-13  |  851 b   |  49 lines
  1.            '─╘╩ ╨UNTER ═ISC ROUTINES
  2.  
  3. "DISPDATA" PHA
  4.            PHA
  5.            STX ("DD.X.")
  6.            LDX 0
  7.            LSR
  8.            LSR
  9.            LSR
  10.            LSR
  11.            JSR "DD00"
  12.            PLA
  13.            AND 15
  14.            JSR "DD00"
  15.            DF &A2
  16. "DD.X."    DF &00
  17.            PLA
  18.            RTS
  19. "DD00"     ORA $0
  20.            CMP $:
  21.            BCC "DD01"
  22.            ADC 6
  23. "DD01"     STA (1984),X
  24.            INX
  25.            RTS
  26.  
  27. "SETCOUNT" LDA $0
  28.            LDX 3
  29. "SC00"     STA (1991),X
  30.            DEX
  31.            BPL "SC00"
  32.            LDA 3
  33.            LDX 13
  34. "SC01"     STA (56256),X
  35.            DEX
  36.            BPL "SC01"
  37.            RTS
  38.  
  39. "INCR"     LDX 3
  40. "IN00"     INC (1991),X
  41.            LDA (1991),X
  42.            CMP $:
  43.            BNE "IN01"
  44.            LDA $0
  45.            STA (1991),X
  46.            DEX
  47.            BPL "IN00"
  48. "IN01"     RTS
  49.