MEMORY PLUS Manual By Lee Davison
Page 23
0091 48 PHA ON STACK
0092 A0 04 LDYIM $04 SHIFT 4 POSITIONS PER CHARACTER
0094 A5 D8 LDAZ ADATA GET DATA
0096 29 0F ANDIM $0F MASK TO NIBBLE
0098 C9 0A CMPIM $0A TEST DECIMAL
009A 30 03 BMI AOKAY DECIMAL
009C 18 CLC A - F. MUST CONVERT TO
009D 69 07 ADCIM $07 ASCII
009F 18 AOKAY CLC FINISH CONVERSION
00A0 69 B0 ADCIM $B0 ASCII + AIM FLAG
00A2 20 7B EF JSR ASCOUT OUTPUT TO DISPLAY
00A5 46 D6 AMOVE LSRZ AHICH MOVE TO NEXT NIBBLE
00A7 66 D7 RORZ ALOW
00A9 66 D8 RORZ ADATA
00AB 88 DEY
00AC D0 F7 BNE AMOVE
00AE 68 PLA RESTORE X
00AF AA TAX
00B0 CA DEX
00B1 F0 0E CPXIM $0E DONE?
00B3 B0 DB BCS ALOOP NO
00B5 90 C9 BCC AIM YES. REPEAT
00B7 20 86 8B SYM JSR ACCESS ENABLE SYM MOEMORY
00BA A5 D2 LDAZ POINTH
00BC 20 FA 82 JSR OUTBYT OUTPUT
00BF A5 D1 LDAZ POINTL
00C1 20 FA 82 JSR OUTBYT
00C4 A0 00 LDYIM $00
00C6 B1 D1 LDAIY POINTL GET DATA
00C8 20 FA 82 JSR OUTBYT
00CB 20 06 89 DISPLY JSR SCANDS SCAN DISPLAY
00CE 4C CB 00 JMP DISPLY CONTINUE
00D1 00 POINTL = $00
00D2 00 POINTH = $00
00D3 00 FLAG = $00
00D4 00 FLIP = $00
00D5 00 PASS = $00
00D6 00 AHIGH = $00
00D7 00 ALOW = $00
00D8 00 ADATA = $00
Page 23
Last page update: 8th December, 2002. |
e-mail me
![e-mail](../../eml_sm.png) |
|