00000000: 20 20 20 20 20 20 20 20 20 2A 3D 34 39 31 35 32 | *=49152|
00000010: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000020: 20 20 3B 41 41 4E 52 4F 45 50 3A 0D 20 20 20 20 | ;AANROEP:. |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 59 | ;SY|
00000040: 53 20 34 39 31 35 32 2C 3C 53 54 52 49 4E 47 3E |S 49152,<STRING>|
00000050: 2C 3C 52 49 4A 3E 2C 3C 4B 4F 4C 4F 4D 3E 3C 43 |,<RIJ>,<KOLOM><C|
00000060: 52 3E 0D 20 20 20 20 20 20 4A 53 52 20 20 34 34 |R>. JSR 44|
00000070: 37 39 37 20 3B 4B 4F 4D 4D 41 20 57 45 47 4C 45 |797 ;KOMMA WEGLE|
00000080: 5A 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |ZEN.. JSR |
00000090: 34 34 34 34 36 20 3B 45 45 52 53 54 45 20 50 41 |44446 ;EERSTE PA|
000000A0: 52 41 4D 45 54 45 52 2E 0D 20 20 20 20 20 20 4A |RAMETER.. J|
000000B0: 53 52 20 20 24 41 36 42 36 20 3B 50 4F 45 54 53 |SR $A6B6 ;POETS|
000000C0: 20 53 54 41 50 45 4C 2E 0D 20 20 20 20 20 20 53 | STAPEL.. S|
000000D0: 54 41 20 20 31 36 37 20 20 20 3B 4C 45 4E 47 54 |TA 167 ;LENGT|
000000E0: 45 42 59 54 45 2E 0D 20 20 20 20 20 20 4C 44 41 |EBYTE.. LDA|
000000F0: 20 20 30 33 34 20 20 20 3B 42 45 47 49 4E 41 44 | 034 ;BEGINAD|
00000100: 52 45 53 20 4C 53 2E 0D 20 20 20 20 20 20 53 54 |RES LS.. ST|
00000110: 41 20 20 31 36 38 0D 20 20 20 20 20 20 4C 44 41 |A 168. LDA|
00000120: 20 20 30 33 35 20 20 20 3B 42 45 47 49 4E 41 44 | 035 ;BEGINAD|
00000130: 52 45 53 20 4D 53 2E 0D 20 20 20 20 20 20 53 54 |RES MS.. ST|
00000140: 41 20 20 31 36 39 0D 20 20 20 20 20 20 4A 53 52 |A 169. JSR|
00000150: 20 20 34 34 37 39 37 20 3B 4B 4F 4D 4D 41 20 57 | 44797 ;KOMMA W|
00000160: 45 47 4C 45 5A 45 4E 2E 0D 20 20 20 20 20 20 4A |EGLEZEN.. J|
00000170: 53 52 20 20 34 37 30 30 36 20 3B 47 45 54 41 4C |SR 47006 ;GETAL|
00000180: 3C 32 35 36 3D 3E 28 58 29 2E 0D 20 20 20 20 20 |<256=>(X).. |
00000190: 20 53 54 58 20 20 31 37 31 20 20 20 3B 48 49 45 | STX 171 ;HIE|
000001A0: 52 20 52 49 4A 2E 0D 20 20 20 20 20 20 4A 53 52 |R RIJ.. JSR|
000001B0: 20 20 34 34 37 39 37 20 3B 4B 4F 4D 4D 41 20 57 | 44797 ;KOMMA W|
000001C0: 45 47 4C 45 5A 45 4E 2E 0D 20 20 20 20 20 20 4A |EGLEZEN.. J|
000001D0: 53 52 20 20 34 34 34 34 36 20 3B 47 45 54 41 4C |SR 44446 ;GETAL|
000001E0: 3C 36 35 35 33 35 2E 0D 20 20 20 20 20 20 4A 53 |<65535.. JS|
000001F0: 52 20 20 34 37 30 39 35 20 3B 4D 53 3D 28 41 29 |R 47095 ;MS=(A)|
00000200: 2C 4C 53 3D 28 59 29 2E 0D 20 20 20 20 20 20 53 |,LS=(Y).. S|
00000210: 54 59 20 20 31 37 32 20 20 20 3B 4B 4F 4C 4F 4D |TY 172 ;KOLOM|
00000220: 2E 0D 20 20 20 20 20 20 4C 44 58 20 20 31 37 31 |.. LDX 171|
00000230: 20 20 20 3B 52 49 4A 2E 0D 20 20 20 20 20 20 4C | ;RIJ.. L|
00000240: 44 59 20 20 31 37 32 20 20 20 3B 4B 4F 4C 4F 4D |DY 172 ;KOLOM|
00000250: 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |.. CLC |
00000260: 20 20 20 3B 5A 45 54 56 4C 41 47 2E 0D 20 20 20 | ;ZETVLAG.. |
00000270: 20 20 20 4A 53 52 20 20 36 35 35 32 30 20 3B 4C | JSR 65520 ;L|
00000280: 4F 50 45 52 5A 45 54 2E 0D 20 20 20 20 20 20 4C |OPERZET.. L|
00000290: 44 41 20 20 31 36 38 20 20 20 3B 41 44 52 45 53 |DA 168 ;ADRES|
000002A0: 20 4C 53 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 | LS.. LDY |
000002B0: 31 36 39 20 20 20 3B 41 44 52 45 53 20 48 53 2E |169 ;ADRES HS.|
000002C0: 0D 20 20 20 20 20 20 4A 53 52 20 20 34 33 38 30 |. JSR 4380|
000002D0: 36 20 3B 4F 50 20 53 43 48 45 52 4D 2E 0D 20 20 |6 ;OP SCHERM.. |
000002E0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 3B | RTS ;|
000002F0: 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 |NAAR H.P.. |
00000300: 2E 45 4E 44 0D |.END. |
*=49152. ;AANRO
EP:. ;SYS 49152,<STRING>
,<RIJ>,<KOLOM><CR>. JSR 44797 ;KOM
MA WEGLEZEN.. JSR 44446 ;EERSTE PA
RAMETER.. JSR $A6B6 ;POETS STAPEL.
. STA 167 ;LENGTEBYTE.. LDA
034 ;BEGINADRES LS.. STA 168.
LDA 035 ;BEGINADRES MS.. ST
A 169. JSR 44797 ;KOMMA WEGLEZEN.
. JSR 47006 ;GETAL<256=>(X)..
STX 171 ;HIER RIJ.. JSR 44797
;KOMMA WEGLEZEN.. JSR 44446 ;GETAL
<65535.. JSR 47095 ;MS=(A),LS=(Y).
. STY 172 ;KOLOM.. LDX 171
;RIJ.. LDY 172 ;KOLOM..
CLC ;ZETVLAG.. JSR 65520 ;L
OPERZET.. LDA 168 ;ADRES LS..
LDY 169 ;ADRES HS.. JSR 4380
6 ;OP SCHERM.. RTS ;NAAR H.P
.. .END.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL