00000000: 20 20 20 20 20 20 20 20 20 2A 3D 34 39 39 32 30 | *=49920|
00000010: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 |. LDA #000 |
00000020: 20 20 20 20 3B 56 4C 20 4E 45 45 52 2E 0D 20 20 | ;VL NEER.. |
00000030: 20 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 | STA 251 |
00000040: 20 3B 28 59 29 3D 49 20 49 4E 0D 20 20 20 20 20 | ;(Y)=I IN. |
00000050: 20 4C 44 59 20 23 30 30 30 20 20 20 20 20 3B 49 | LDY #000 ;I|
00000060: 3D 30 2C 31 2C 2E 2E 2C 4C 2D 31 2E 0D 41 30 31 |=0,1,..,L-1..A01|
00000070: 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 | LDA (253),Y |
00000080: 3B 54 45 4B 45 4E 20 23 49 2E 0D 20 20 20 20 20 |;TEKEN #I.. |
00000090: 20 43 4D 50 20 23 30 33 38 20 20 20 20 20 3B 27 | CMP #038 ;'|
000000A0: 26 27 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 41 |&'?. BNE A|
000000B0: 30 32 20 20 20 20 20 3B 4A 41 3A 20 56 4C 3D 31 |02 ;JA: VL=1|
000000C0: 20 45 4E 0D 20 20 20 20 20 20 49 4E 43 20 20 32 | EN. INC 2|
000000D0: 35 31 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 |51 ;NAAR H.P|
000000E0: 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 |.. RTS |
000000F0: 20 20 20 20 20 3B 4E 45 45 3A 0D 41 30 32 20 20 | ;NEE:.A02 |
00000100: 20 43 4D 50 20 23 30 34 38 20 20 20 20 20 3B 43 | CMP #048 ;C|
00000110: 49 4A 46 45 52 20 4F 46 20 48 45 58 2E 0D 20 20 |IJFER OF HEX.. |
00000120: 20 20 20 20 42 43 43 20 20 41 30 39 20 20 20 20 | BCC A09 |
00000130: 20 3B 4E 45 45 3A 4F 56 45 52 53 4C 41 41 4E 2E | ;NEE:OVERSLAAN.|
00000140: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 35 38 0D |. CMP #058.|
00000150: 20 20 20 20 20 20 42 43 43 20 20 41 30 35 0D 20 | BCC A05. |
00000160: 20 20 20 20 20 43 4D 50 20 23 30 36 35 0D 20 20 | CMP #065. |
00000170: 20 20 20 20 42 43 43 20 20 41 30 39 0D 20 20 20 | BCC A09. |
00000180: 20 20 20 43 4D 50 20 23 30 37 31 0D 20 20 20 20 | CMP #071. |
00000190: 20 20 42 43 43 20 20 41 30 34 0D 20 20 20 20 20 | BCC A04. |
000001A0: 20 42 43 53 20 20 41 30 39 0D 41 30 34 20 20 20 | BCS A09.A04 |
000001B0: 53 45 43 20 20 20 20 20 20 20 20 20 20 3B 48 45 |SEC ;HE|
000001C0: 58 3A 20 37 20 41 46 2E 0D 20 20 20 20 20 20 53 |X: 7 AF.. S|
000001D0: 42 43 20 23 30 30 37 0D 41 30 35 20 20 20 53 45 |BC #007.A05 SE|
000001E0: 43 20 20 20 20 20 20 20 20 20 20 3B 44 41 41 52 |C ;DAAR|
000001F0: 4E 41 20 34 38 20 41 46 2E 0D 20 20 20 20 20 20 |NA 48 AF.. |
00000200: 53 42 43 20 23 30 34 38 20 20 20 20 20 3B 42 49 |SBC #048 ;BI|
00000210: 4E 41 49 52 20 49 4E 20 41 2E 0D 20 20 20 20 20 |NAIR IN A.. |
00000220: 20 4C 44 58 20 20 32 35 30 20 20 20 20 20 3B 56 | LDX 250 ;V|
00000230: 4C 41 47 20 56 20 4E 45 45 52 3A 0D 20 20 20 20 |LAG V NEER:. |
00000240: 20 20 42 4E 45 20 20 41 30 37 20 20 20 20 20 3B | BNE A07 ;|
00000250: 53 43 48 55 49 46 20 28 41 29 0D 20 20 20 20 20 |SCHUIF (A). |
00000260: 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 3B 34 | CLC ;4|
00000270: 20 4E 41 41 52 20 4C 49 4E 4B 53 2E 0D 20 20 20 | NAAR LINKS.. |
00000280: 20 20 20 2E 42 59 54 45 20 30 34 32 0D 20 20 20 | .BYTE 042. |
00000290: 20 20 20 2E 42 59 54 45 20 30 34 32 0D 20 20 20 | .BYTE 042. |
000002A0: 20 20 20 2E 42 59 54 45 20 30 34 32 0D 20 20 20 | .BYTE 042. |
000002B0: 20 20 20 2E 42 59 54 45 20 30 34 32 0D 20 20 20 | .BYTE 042. |
000002C0: 20 20 20 53 54 41 20 20 30 30 32 20 20 20 20 20 | STA 002 |
000002D0: 3B 45 56 45 4E 20 49 4E 20 30 30 32 2E 0D 20 20 |;EVEN IN 002.. |
000002E0: 20 20 20 20 49 4E 43 20 20 32 35 30 20 20 20 20 | INC 250 |
000002F0: 20 3B 56 4C 41 47 20 56 20 4F 50 2E 0D 20 20 20 | ;VLAG V OP.. |
00000300: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 | CLC |
00000310: 3B 56 4F 4C 47 45 4E 44 0D 20 20 20 20 20 20 42 |;VOLGEND. B|
00000320: 43 43 20 20 41 30 39 20 20 20 20 20 3B 54 45 4B |CC A09 ;TEK|
00000330: 45 4E 2E 0D 41 30 37 20 20 20 4F 52 41 20 20 30 |EN..A07 ORA 0|
00000340: 30 32 20 20 20 20 20 3B 56 4C 41 47 20 56 20 4F |02 ;VLAG V O|
00000350: 50 3A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |P:. LDX #00|
00000360: 30 20 20 20 20 20 3B 28 41 29 20 4F 52 20 28 32 |0 ;(A) OR (2|
00000370: 29 2E 0D 20 20 20 20 20 20 53 54 58 20 20 32 35 |).. STX 25|
00000380: 30 20 20 20 20 20 3B 56 4C 41 47 20 56 20 4E 45 |0 ;VLAG V NE|
00000390: 45 52 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |ER.. JSR 6|
000003A0: 35 34 39 30 20 20 20 3B 28 41 29 20 4F 55 54 50 |5490 ;(A) OUTP|
000003B0: 55 54 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 31 |UT.. LDA 1|
000003C0: 34 34 20 20 20 20 20 3B 53 54 41 54 55 53 2E 0D |44 ;STATUS..|
000003D0: 20 20 20 20 20 20 42 45 51 20 20 41 30 39 20 20 | BEQ A09 |
000003E0: 20 20 20 3B 4E 55 4C 3A 56 4F 4C 47 45 4E 44 0D | ;NUL:VOLGEND.|
000003F0: 20 20 20 20 20 20 4C 44 41 20 23 30 30 32 20 20 | LDA #002 |
00000400: 20 20 20 3B 54 45 4B 45 4E 2E 0D 20 20 20 20 20 | ;TEKEN.. |
00000410: 20 53 54 41 20 20 32 35 31 20 20 20 20 20 3B 41 | STA 251 ;A|
00000420: 4E 44 45 52 53 20 56 4C 3D 32 0D 20 20 20 20 20 |NDERS VL=2. |
00000430: 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 45 | RTS ;E|
00000440: 4E 20 4E 41 41 52 20 48 2E 50 2E 0D 41 30 39 FF |N NAAR H.P..A09.|
00000450: FF FF FF 75 FF FF FF FF FF FF FF FF FF FF FF 8D |...u............|
00000460: 7B FF FF 71 FF 75 FF FF FF FF 7C FF 75 85 FF FF |{..q.u....|.u...|
00000470: FF FF FF FF FF FF 7F FF FF FF 89 87 99 FF FF FF |................|
00000480: FF FF 8D FF FF 9C 1C 4C 45 4E 47 54 45 3F 0D 20 |.......LENGTE?. |
00000490: 20 20 20 20 20 42 43 43 20 20 41 30 31 20 20 20 | BCC A01 |
000004A0: 20 20 3B 4A 41 3A 4F 50 48 41 4C 45 4E 2E 0D 20 | ;JA:OPHALEN.. |
000004B0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS |
000004C0: 20 20 3B 4E 45 45 3A 4E 41 41 52 20 48 2E 50 2E | ;NEE:NAAR H.P.|
000004D0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. |
000004E0: 20 2E 45 4E 44 0D | .END. |
*=49920. LDA #000 ;VL
NEER.. STA 251 ;(Y)=I IN.
LDY #000 ;I=0,1,..,L-1..A01 LDA (
253),Y ;TEKEN #I.. CMP #038 ;'
&'?. BNE A02 ;JA: VL=1 EN.
INC 251 ;NAAR H.P.. RTS
;NEE:.A02 CMP #048 ;CIJFER OF
HEX.. BCC A09 ;NEE:OVERSLAAN.
. CMP #058. BCC A05. CMP
#065. BCC A09. CMP #071.
BCC A04. BCS A09.A04 SEC
;HEX: 7 AF.. SBC #007.A05 SE
C ;DAARNA 48 AF.. SBC #048
;BINAIR IN A.. LDX 250 ;V
LAG V NEER:. BNE A07 ;SCHUIF (
A). CLC ;4 NAAR LINKS..
.BYTE 042. .BYTE 042. .BYTE
042. .BYTE 042. STA 002
;EVEN IN 002.. INC 250 ;VLAG V
OP.. CLC ;VOLGEND. B
CC A09 ;TEKEN..A07 ORA 002 ;
VLAG V OP:. LDX #000 ;(A) OR (2
).. STX 250 ;VLAG V NEER..
JSR 65490 ;(A) OUTPUT.. LDA 1
44 ;STATUS.. BEQ A09 ;NUL:
VOLGEND. LDA #002 ;TEKEN..
STA 251 ;ANDERS VL=2. RTS
;EN NAAR H.P..A09....U............
{..Q.U....|.U.........................L
ENGTE?. BCC A01 ;JA:OPHALEN..
RTS ;NEE:NAAR H.P.. N
OP. .END.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL