
 1000   .LIF
 1010  *SAVE TEST.CKSUMMER
 1020  *--------------------------------
 1030  *   SIMULATE PRODOS $FB09-FB10 CHECK-SUMMER
 1040  *      (AT $267C IN PRODOS 1.1.1)
 1050  *--------------------------------
 1060  T
 1070         LDA #S1
 1080         STA $0A
 1090         LDA /S1
 1100         STA $0B
 1110         JSR CS
 1120         LDA #S2
 1130         STA $0A
 1140         LDA /S2
 1150         STA $0B
 1160  CS
 1170         JSR PT
 1180         CLC
 1190         LDY #0
 1200         STY X
 1210  .1     LDA ($0A),Y
 1220         JSR B
 1230         AND #$DF
 1240         JSR B
 1250         LDA X
 1260         JSR B
 1270         LDA ($0A),Y
 1280         AND #$DF
 1290         ADC X
 1300         STA X
 1310         JSR B
 1320         ROL X
 1330         LDA X
 1340         JSR B
 1350         JSR $FD8E
 1360         INY
 1370         CPY #8
 1380         BCC .1
 1390         TYA
 1400         ASL
 1410         ASL
 1420         ASL
 1430         ASL
 1440         ORA X
 1450         JSR B
 1460         ADC #$0B
 1470  *--------------------------------
 1480  B      PHA
 1490         PHP
 1500         JSR $FDDA
 1510         LDA #" "
 1520         JSR $FDED
 1530         JSR $FDED
 1540         PLP
 1550         PLA
 1560         RTS
 1570  *--------------------------------
 1580  X      .BS 1
 1590  *--------------------------------
 1600  S1     .AS -/APPLE ][/
 1610  S2     .HS B0.A2.20.4A.FF.38.B0.9E
 1620  *--------------------------------
 1630  TITLE  .HS 8D8D
 1640         .AS -/LDA AND ADC STA ROL/
 1650         .HS 8D00
 1660  *--------------------------------
 1670  PT
 1680         LDY #0
 1690  .1     LDA TITLE,Y
 1700         BEQ .2
 1710         JSR $FDED
 1720         INY
 1730         BNE .1
 1740  .2     RTS
 1750  *--------------------------------

