00000000: 00 42 00 01 BB 10 01 3B 2A 2A 2A 2A 2A 2A 2A 2A |.B.....;********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A AA 20 01 3B 2A 20 20 20 20 20 20 |*****. .;* |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 AA 30 01 3B 2A 20 20 55 4E 4E | .0.;* UNN|
00000050: 45 57 20 46 4F 52 20 44 45 20 43 4F 4D 4D 4F 44 |EW FOR DE COMMOD|
00000060: 4F 52 45 20 36 34 20 AA 40 01 3B 2A 20 20 20 20 |ORE 64 .@.;* |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 AA 50 01 3B 2A 20 20 20 | .P.;* |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 20 20 20 20 20 AA 60 01 3B 2A 20 20 | .`.;* |
000000B0: 20 4D 4F 53 45 52 27 53 20 4C 41 42 45 4C 20 41 | MOSER'S LABEL A|
000000C0: 53 53 45 4D 42 4C 45 52 20 20 AA 70 01 3B 2A 20 |SSEMBLER .p.;* |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 AA 80 01 3B 2A | ...;*|
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 AA 90 01 3B | ...;|
00000110: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 AA 00 02 | ...|
00000130: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 10 |**************..|
00000150: 02 BB 20 02 20 2E 4C D3 30 02 20 2E 42 41 20 24 |.. . .L.0. .BA $|
00000160: 43 30 30 B0 40 02 20 20 20 20 20 20 20 20 20 20 |C00.@. |
00000170: 20 2E 4F D3 50 02 BB 60 02 3B 20 4C 41 42 45 4C | .O.P..`.; LABEL|
00000180: 53 20 44 49 45 20 47 45 42 52 55 49 4B 54 20 57 |S DIE GEBRUIKT W|
00000190: 4F 52 44 45 CE 70 02 BB 80 02 54 45 4D 50 20 20 |ORDE.p....TEMP |
000001A0: 20 20 2E 44 45 20 24 32 32 20 3B 54 49 4A 44 45 | .DE $22 ;TIJDE|
000001B0: 4C 49 4A CB 90 02 42 41 53 49 43 53 20 20 20 20 |LIJ...BASICS |
000001C0: 20 2E 44 45 20 24 32 42 20 3B 42 41 53 49 43 53 | .DE $2B ;BASICS|
000001D0: 54 41 52 D4 00 03 42 41 53 49 43 45 20 20 20 20 |TAR...BASICE |
000001E0: 20 2E 44 45 20 24 32 44 20 3B 42 41 53 49 43 45 | .DE $2D ;BASICE|
000001F0: 49 4E C4 10 03 52 4F 4D 43 4C 52 20 20 20 20 20 |IN...ROMCLR |
00000200: 2E 44 45 20 24 41 36 36 33 20 3B 42 41 53 49 43 |.DE $A663 ;BASIC|
00000210: 20 43 4C D2 20 03 BB 30 03 3B 20 42 45 47 49 4E | CL. ..0.; BEGIN|
00000220: 20 56 41 4E 20 44 45 20 52 4F 55 54 49 4E 45 20 | VAN DE ROUTINE |
00000230: 53 59 53 20 53 54 41 52 D4 40 03 BB 50 03 53 54 |SYS STAR.@..P.ST|
00000240: 41 52 54 20 4C 44 41 20 2A 42 41 53 49 43 D3 60 |ART LDA *BASIC.`|
00000250: 03 20 4C 44 59 20 2A 42 41 53 49 43 53 2B B1 70 |. LDY *BASICS+.p|
00000260: 03 20 53 54 41 20 2A 54 45 4D D0 80 03 20 53 54 |. STA *TEM... ST|
00000270: 59 20 2A 54 45 4D 50 2B B1 90 03 20 4C 44 59 20 |Y *TEMP+... LDY |
00000280: 23 24 30 B3 00 04 BB 10 04 3B 20 5A 4F 45 4B 20 |#$0......; ZOEK |
00000290: 4E 41 41 52 20 48 45 54 20 45 49 4E 44 45 20 56 |NAAR HET EINDE V|
000002A0: 41 4E 20 45 45 CE 20 04 3B 20 42 41 53 49 43 20 |AN EE. .; BASIC |
000002B0: 52 45 47 45 CC 30 04 BB 40 04 5A 4F 45 4B 4E 55 |REGE.0..@.ZOEKNU|
000002C0: 4C 20 49 4E 59 A0 50 04 20 4C 44 41 20 28 54 45 |L INY.P. LDA (TE|
000002D0: 4D 50 29 2C D9 60 04 20 42 4E 45 20 5A 4F 45 4B |MP),.`. BNE ZOEK|
000002E0: 4E 55 CC 70 04 20 49 4E 59 A0 80 04 BB 90 04 3B |NU.p. INY......;|
000002F0: 20 52 45 53 54 4F 52 45 20 50 4F 49 4E 54 45 52 | RESTORE POINTER|
00000300: 53 20 49 4E 20 42 41 53 49 C3 00 05 3B 20 47 45 |S IN BASI...; GE|
00000310: 42 49 45 C4 10 05 BB 20 05 20 54 59 41 A0 30 05 |BIE.... . TYA.0.|
00000320: 20 43 4C 43 A0 40 05 20 41 44 43 20 2A 54 45 4D | CLC.@. ADC *TEM|
00000330: D0 50 05 20 4C 44 59 20 23 24 30 B0 60 05 20 53 |.P. LDY #$0.`. S|
00000340: 54 41 20 28 42 41 53 49 43 53 29 2C D9 70 05 20 |TA (BASICS),.p. |
00000350: 4C 44 41 20 2A 54 45 4D 50 2B B1 80 05 20 41 44 |LDA *TEMP+... AD|
00000360: 43 20 23 24 30 B0 90 05 20 49 4E 59 A0 00 06 20 |C #$0... INY... |
00000370: 53 54 41 20 28 42 41 53 49 43 53 29 2C D9 10 06 |STA (BASICS),...|
00000380: 20 44 45 59 A0 20 06 BB 30 06 3B 20 5A 4F 45 4B | DEY. ..0.; ZOEK|
00000390: 20 4E 41 41 52 20 33 20 4E 55 4C 4C 45 4E 20 44 | NAAR 3 NULLEN D|
000003A0: 49 45 20 48 45 D4 40 06 3B 20 45 49 4E 44 45 20 |IE HE.@.; EINDE |
000003B0: 56 41 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D |VAN HET PROGRAMM|
000003C0: C1 50 06 3B 20 41 41 4E 47 45 56 45 CE 60 06 BB |.P.; AANGEVE.`..|
000003D0: 70 06 4C 4F 4F 50 32 20 4C 44 58 20 23 24 30 B3 |p.LOOP2 LDX #$0.|
000003E0: 80 06 BB 90 06 4C 4F 4F 50 33 20 49 4E 43 20 2A |.....LOOP3 INC *|
000003F0: 54 45 4D D0 00 07 20 42 4E 45 20 53 4B 49 50 B1 |TEM... BNE SKIP.|
00000400: 10 07 20 49 4E 43 20 2A 54 45 4D 50 2B B1 20 07 |.. INC *TEMP+. .|
00000410: BB 30 07 53 4B 49 50 31 20 4C 44 41 20 28 54 45 |.0.SKIP1 LDA (TE|
00000420: 4D 50 29 2C D9 40 07 20 42 4E 45 20 4C 4F 4F 50 |MP),.@. BNE LOOP|
00000430: B2 50 07 20 44 45 58 A0 60 07 20 42 4E 45 20 4C |.P. DEX.`. BNE L|
00000440: 4F 4F 50 B3 70 07 BB 80 07 3B 20 45 49 4E 44 45 |OOP.p....; EINDE|
00000450: 20 47 45 56 4F 4E 44 45 CE 90 07 3B 20 48 45 52 | GEVONDE...; HER|
00000460: 53 54 45 4C 20 42 41 53 49 43 2D 50 4F 49 4E 54 |STEL BASIC-POINT|
00000470: 45 52 D3 00 08 BB 10 08 20 4C 44 41 20 2A 54 45 |ER...... LDA *TE|
00000480: 4D D0 20 08 20 41 44 43 20 23 24 30 B2 30 08 20 |M. . ADC #$0.0. |
00000490: 53 54 41 20 2A 42 41 53 49 43 C5 40 08 20 4C 44 |STA *BASIC.@. LD|
000004A0: 41 20 2A 54 45 4D 50 2B B1 50 08 20 41 44 43 20 |A *TEMP+.P. ADC |
000004B0: 23 24 30 B0 60 08 20 53 54 41 20 2A 42 41 53 49 |#$0.`. STA *BASI|
000004C0: 43 45 2B B1 70 08 BB 80 08 3B 20 50 4F 49 4E 54 |CE+.p....; POINT|
000004D0: 45 52 53 20 4F CB 90 08 3B 20 56 4F 45 52 20 45 |ERS O...; VOER E|
000004E0: 45 4E 20 27 52 45 53 54 4F 52 45 20 4C 49 4E 45 |EN 'RESTORE LINE|
000004F0: 50 4F 49 4E 54 45 52 53 A7 00 09 3B 20 55 49 D4 |POINTERS...; UI.|
00000500: 10 09 BB 20 09 20 4A 4D 50 20 52 4F 4D 43 4C D2 |... . JMP ROMCL.|
00000510: 30 09 BB 40 09 3B 20 45 49 4E 44 45 20 55 4E 4E |0..@.; EINDE UNN|
00000520: 45 57 50 52 4F 47 52 41 4D 4D C1 50 09 BB 60 09 |EWPROGRAMM.P..`.|
00000530: 20 2E 45 CE 22 | .E." |
.B.....;*****************************. .
;* .0.;* UNN
EW FOR DE COMMODORE 64 .@.;*
.P.;*
.`.;* MOSER'S LABEL ASSEMBLER
.P.;* ...;*
...;*
...;***************
**************.... . .LS0. .BA $C00.@.
.OSP..`.; LABELS DIE GEBRUIKT W
ORDENP....TEMP .DE $22 ;TIJDELIJK..BA
SICS .DE $2B ;BASICSTART..BASICE
.DE $2D ;BASICEIND..ROMCLR .DE $A66
3 ;BASIC CLR ..0.; BEGIN VAN DE ROUTINE
SYS START@..P.START LDA *BASICS`. LDY *B
ASICS+.P. STA *TEMP.. STY *TEMP+... LDY
#$0......; ZOEK NAAR HET EINDE VAN EEN .
; BASIC REGEL0..@.ZOEKNUL INY P. LDA (TE
MP),Y`. BNE ZOEKNULP. INY .....; RESTORE
POINTERS IN BASIC..; GEBIED... . TYA 0.
CLC @. ADC *TEMPP. LDY #$0.`. STA (BASI
CS),YP. LDA *TEMP+... ADC #$0... INY ..
STA (BASICS),Y.. DEY ..0.; ZOEK NAAR 3
NULLEN DIE HET@.; EINDE VAN HET PROGRAMM
AP.; AANGEVEN`..P.LOOP2 LDX #$0......LOO
P3 INC *TEMP.. BNE SKIP... INC *TEMP+. .
.0.SKIP1 LDA (TEMP),Y@. BNE LOOP.P. DEX
`. BNE LOOP.P....; EINDE GEVONDEN..; HER
STEL BASIC-POINTERS..... LDA *TEMP . ADC
#$0.0. STA *BASICE@. LDA *TEMP+.P. ADC
#$0.`. STA *BASICE+.P....; POINTERS OK..
; VOER EEN 'RESTORE LINEPOINTERS...; UIT
... . JMP ROMCLR0..@.; EINDE UNNEWPROGRA
MMAP..`. .EN"
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL