
 1000  *SAVE DIGITS.3
 1010  *--------------------------------
 1020         .LIST OFF
 1030  *--------------------------------
 1040  BYTE   .EQ $00
 1050  COUT   .EQ $FDED
 1060  CROUT  .EQ $FD8E
 1070  PRBYTE .EQ $FDDA
 1080  *--------------------------------
 1090  *      COMMAND
 1100  *--------------------------------
 1110  P      LDA #0
 1120         STA BYTE
 1130  .1     JSR WRITE
 1140         JSR CROUT
 1150         INC BYTE
 1160         LDA BYTE
 1170         BNE .1
 1180         RTS
 1190  *--------------------------------
 1200  *      WRITE
 1210  *--------------------------------
 1220  WRITE  LDY #0
 1230         SEC
 1240  .1     SBC #10
 1250         PHP
 1260         PHA
 1270         TYA
 1280         SED
 1290         ADC #0
 1300         TAY
 1310         PLA
 1320         PLP
 1330         BCS .1
 1340         ADC #"0+10
 1350         PHA
 1360         TYA
 1370         JSR PRBYTE
 1380         PLA
 1390         JMP COUT
 1400  *--------------------------------
 1410  SC
 1420         LDY #"0"
 1430         TAX
 1440         BEQ .3
 1450         LDA #0
 1470         SED
 1475  .2     CLC
 1480         ADC #1
 1490         BCC .25
 1500         INY
 1510  .25    DEX
 1520         BNE .2
 1530         CLD
 1540  .3     PHA
 1550         TYA
 1560         JSR COUT
 1570         PLA
 1580         JMP $FDDA
 1590  *--------------------------------
 1600  T      LDA #0
 1610  .1     STA BYTE
 1620         JSR SC
 1630         LDA BYTE
 1640         JSR $FDDA
 1650         JSR CROUT
 1651         LDA $C000
 1652         BPL .2
 1653         STA $C010
 1654  .3     LDA $C000
 1655         BPL .3
 1656  .2     STA $C010
 1660         LDA BYTE
 1670         CLC
 1680         ADC #1
 1690         BNE .1
 1700         RTS
 1710  *--------------------------------

