00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 35 37 34 31 | *=35741|
00000010: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000020: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 | ;. |
00000030: 20 20 20 20 20 3B 49 4E 4C 4F 4F 50 20 32 2E 0D | ;INLOOP 2..|
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 | ;. LDX #00|
00000060: 38 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 0D |8 ;BEGINADRES.|
00000070: 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 38 31 | JSR 38381|
00000080: 20 3B 57 45 52 4B 56 45 4C 44 45 4E 2E 0D 44 50 | ;WERKVELDEN..DP|
00000090: 30 30 39 20 4A 53 52 20 20 33 38 34 38 38 20 3B |009 JSR 38488 ;|
000000A0: 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 |OPEN REGEL.. |
000000B0: 20 20 4C 44 58 20 23 30 32 30 20 20 20 3B 27 4C | LDX #020 ;'L|
000000C0: 41 42 45 4C 20 42 45 47 49 4E 2D 0D 20 20 20 20 |ABEL BEGIN-. |
000000D0: 20 20 4A 53 52 20 20 33 38 37 31 32 20 3B 20 4C | JSR 38712 ; L|
000000E0: 45 54 54 45 52 53 3F 27 0D 20 20 20 20 20 20 4C |ETTERS?'. L|
000000F0: 44 58 20 23 30 30 32 20 20 20 3B 41 43 43 2E 57 |DX #002 ;ACC.W|
00000100: 4F 52 44 20 4E 32 37 2D 41 58 0D 20 20 20 20 2E |ORD N27-AX. .|
00000110: 57 4F 52 44 20 4E 30 30 2D 41 58 0D 20 20 20 20 |WORD N00-AX. |
00000120: 2E 57 4F 52 44 20 4E 33 34 2D 41 58 0D 20 20 20 |.WORD N34-AX. |
00000130: 20 2E 57 4F 52 44 20 4E 45 2D 41 58 0D 20 20 20 | .WORD NE-AX. |
00000140: 20 2E 57 4F 52 44 20 4E 34 31 2D 41 58 0D 20 20 | .WORD N41-AX. |
00000150: 20 20 2E 57 4F 52 44 20 4E 30 35 2D 41 58 0D 20 | .WORD N05-AX. |
00000160: 20 20 20 2E 57 4F 52 44 20 4E 46 2D 41 58 0D 4D | .WORD NF-AX.M|
00000170: 32 33 20 2E 42 59 54 45 20 30 31 0D 20 20 20 20 |23 .BYTE 01. |
00000180: 2E 57 4F 52 44 20 4E 45 2D 41 58 0D 4D 32 34 20 |.WORD NE-AX.M24 |
00000190: 2E 42 59 54 45 20 30 31 0D 20 20 20 20 2E 57 4F |.BYTE 01. .WO|
000001A0: 52 44 20 4E 46 2D 41 58 0D 20 20 20 20 2E 42 59 |RD NF-AX. .BY|
000001B0: 54 45 20 30 30 2C 30 30 2C 30 30 2C 30 30 0D 4E |TE 00,00,00,00.N|
000001C0: 45 20 20 2E 42 59 54 45 20 30 31 2C 31 33 0D 4E |E .BYTE 01,13.N|
000001D0: 46 20 20 2E 42 59 54 45 20 30 32 2C 31 33 2C 31 |F .BYTE 02,13,1|
000001E0: 33 0D 46 31 20 20 2E 42 59 54 45 20 30 32 2C 30 |3.F1 .BYTE 02,0|
000001F0: 34 32 2C 31 35 37 0D 53 53 20 20 2E 42 59 54 45 |42,157.SS .BYTE|
00000200: 20 30 35 2C 30 33 32 2C 30 33 32 2C 30 33 32 2C | 05,032,032,032,|
00000210: 30 33 32 2C 30 33 32 0D 50 44 20 20 2E 42 59 54 |032,032.PD .BYT|
00000220: 45 20 30 33 2C 27 28 44 29 27 0D 50 48 20 20 2E |E 03,'(D)'.PH .|
00000230: 42 59 54 45 20 30 33 2C 27 28 48 29 27 0D 44 44 |BYTE 03,'(H)'.DD|
00000240: 31 20 2E 42 59 54 45 20 30 31 2C 27 31 27 0D 44 |1 .BYTE 01,'1'.D|
00000250: 44 32 20 2E 42 59 54 45 20 30 31 2C 27 32 27 0D |D2 .BYTE 01,'2'.|
00000260: 4E 30 30 20 2E 42 59 54 45 20 30 31 2C 27 20 27 |N00 .BYTE 01,' '|
00000270: 0D 4E 30 31 20 2E 42 59 54 45 20 30 31 2C 27 2E |.N01 .BYTE 01,'.|
00000280: 27 0D 4E 30 32 20 2E 42 59 54 45 20 30 31 2C 27 |'.N02 .BYTE 01,'|
00000290: 3A 27 0D 4E 30 33 20 2E 42 59 54 45 20 30 31 2C |:'.N03 .BYTE 01,|
000002A0: 27 2C 27 0D 4E 30 34 20 2E 42 59 54 45 20 30 31 |','.N04 .BYTE 01|
000002B0: 2C 27 3B 27 0D 4E 30 35 20 2E 42 59 54 45 20 30 |,';'.N05 .BYTE 0|
000002C0: 31 2C 27 3F 27 0D 4E 30 36 20 2E 42 59 54 45 20 |1,'?'.N06 .BYTE |
000002D0: 30 31 2C 27 21 27 0D 4E 30 37 20 2E 42 59 54 45 |01,'!'.N07 .BYTE|
000002E0: 20 30 31 2C 27 28 27 0D 4E 30 38 20 2E 42 59 54 | 01,'('.N08 .BYT|
000002F0: 45 20 30 31 2C 27 29 27 0D 4E 30 39 20 2E 42 59 |E 01,')'.N09 .BY|
00000300: 54 45 20 30 31 2C 27 53 27 0D 4E 35 32 20 2E 42 |TE 01,'S'.N52 .B|
00000310: 59 54 45 20 30 31 2C 27 45 27 0D 4E 31 30 20 2E |YTE 01,'E'.N10 .|
00000320: 42 59 54 45 20 30 34 2C 27 56 45 4C 44 27 0D 4E |BYTE 04,'VELD'.N|
00000330: 31 31 20 2E 42 59 54 45 20 30 33 2C 27 56 41 4E |11 .BYTE 03,'VAN|
00000340: 27 0D 4E 31 32 20 2E 42 59 54 45 20 30 33 2C 27 |'.N12 .BYTE 03,'|
00000350: 54 2F 4D 27 0D 4E 31 33 20 2E 42 59 54 45 20 30 |T/M'.N13 .BYTE 0|
00000360: 35 2C 27 4C 41 42 45 4C 27 0D 4E 31 34 20 2E 42 |5,'LABEL'.N14 .B|
00000370: 59 54 45 20 30 35 2C 27 52 45 47 45 4C 27 0D 4E |YTE 05,'REGEL'.N|
00000380: 31 35 20 2E 42 59 54 45 20 30 35 2C 27 42 45 47 |15 .BYTE 05,'BEG|
00000390: 49 4E 27 0D 4E 31 36 20 2E 42 59 54 45 20 30 34 |IN'.N16 .BYTE 04|
000003A0: 2C 27 45 49 4E 44 27 0D 4E 31 37 20 2E 42 59 54 |,'EIND'.N17 .BYT|
000003B0: 45 20 30 38 2C 27 4D 41 58 49 4D 41 41 4C 27 0D |E 08,'MAXIMAAL'.|
000003C0: 4E 32 30 20 2E 42 59 54 45 20 30 32 2C 27 4F 46 |N20 .BYTE 02,'OF|
000003D0: 27 0D 4E 32 31 20 2E 42 59 54 45 20 30 38 2C 27 |'.N21 .BYTE 08,'|
000003E0: 44 49 53 53 45 4D 42 4C 27 0D 4E 32 32 20 2E 42 |DISSEMBL'.N22 .B|
000003F0: 59 54 45 20 30 34 2C 27 45 52 45 4E 27 0D 4E 34 |YTE 04,'EREN'.N4|
00000400: 34 20 2E 42 59 54 45 20 30 32 2C 27 45 52 27 0D |4 .BYTE 02,'ER'.|
00000410: 4E 32 33 20 2E 42 59 54 45 20 30 33 2C 27 41 47 |N23 .BYTE 03,'AG|
00000420: 45 27 0D 4E 32 34 20 2E 42 59 54 45 20 30 35 2C |E'.N24 .BYTE 05,|
00000430: 27 41 44 52 45 53 27 0D 4E 32 35 20 2E 42 59 54 |'ADRES'.N25 .BYT|
00000440: 45 20 30 38 2C 27 48 45 58 41 44 45 43 2E 27 0D |E 08,'HEXADEC.'.|
00000450: 4E 32 36 20 2E 42 59 54 45 20 30 38 2C 27 44 45 |N26 .BYTE 08,'DE|
00000460: 43 49 4D 41 41 4C 27 0D 4E 32 37 20 2E 42 59 54 |CIMAAL'.N27 .BYT|
00000470: 45 20 30 34 2C 27 4E 41 41 4D 27 0D 4E 32 38 20 |E 04,'NAAM'.N28 |
00000480: 2E 42 59 54 45 20 30 36 2C 27 4C 45 54 54 45 52 |.BYTE 06,'LETTER|
00000490: 27 0D 4E 32 39 20 2E 42 59 54 45 20 30 34 2C 27 |'.N29 .BYTE 04,'|
000004A0: 46 4F 55 54 27 0D 4E 33 30 20 2E 42 59 54 45 20 |FOUT'.N30 .BYTE |
000004B0: 30 38 2C 27 44 4F 4F 52 47 41 4E 47 27 0D 4E 33 |08,'DOORGANG'.N3|
000004C0: 31 20 2E 42 59 54 45 20 30 38 2C 27 4F 56 45 52 |1 .BYTE 08,'OVER|
000004D0: 4C 4F 4F 50 27 0D 4E 33 33 20 2E 42 59 54 45 20 |LOOP'.N33 .BYTE |
000004E0: 30 38 2C 27 54 4F 45 53 54 41 4E 44 27 0D 4E 33 |08,'TOESTAND'.N3|
000004F0: 34 20 2E 42 59 54 45 20 31 35 2C 27 55 49 54 47 |4 .BYTE 15,'UITG|
00000500: 41 4E 47 53 42 45 53 54 41 4E 44 27 0D 4E 33 35 |ANGSBESTAND'.N35|
00000510: 20 2E 42 59 54 45 20 33 37 2C 27 4E 41 20 45 4C | .BYTE 37,'NA EL|
00000520: 4B 20 41 4E 54 57 4F 4F 52 44 20 4F 50 20 44 45 |K ANTWOORD OP DE|
00000530: 20 56 4F 4C 47 45 4E 44 45 20 56 52 41 47 45 4E | VOLGENDE VRAGEN|
00000540: 27 0D 4E 33 36 20 2E 42 59 54 45 20 32 35 2C 27 |'.N36 .BYTE 25,'|
00000550: 54 4F 45 54 53 20 3C 52 45 54 55 52 4E 3E 20 49 |TOETS <RETURN> I|
00000560: 4E 44 52 55 4B 4B 45 4E 2E 27 0D 4E 33 37 20 2E |NDRUKKEN.'.N37 .|
00000570: 42 59 54 45 20 30 39 2C 27 4E 4F 47 20 45 45 4E |BYTE 09,'NOG EEN|
00000580: 53 2E 27 0D 4E 33 38 20 2E 42 59 54 45 20 33 34 |S.'.N38 .BYTE 34|
00000590: 2C 27 43 4F 4E 54 52 4F 4C 45 3B 20 47 4F 45 44 |,'CONTROLE; GOED|
000005A0: 3A 44 52 55 4B 3C 47 3E 2C 20 41 4E 44 45 52 53 |:DRUK<G>, ANDERS|
000005B0: 3C 46 3E 2E 27 0D 4E 33 39 20 2E 42 59 54 45 20 |<F>.'.N39 .BYTE |
000005C0: 33 33 2C 27 4E 41 41 52 20 41 50 50 41 52 41 41 |33,'NAAR APPARAA|
000005D0: 54 20 42 41 4E 44 28 54 29 2C 20 53 43 48 49 4A |T BAND(T), SCHIJ|
000005E0: 46 28 44 29 2C 27 0D 4E 34 30 20 2E 42 59 54 45 |F(D),'.N40 .BYTE|
000005F0: 20 32 34 2C 27 50 52 49 4E 54 45 52 28 50 29 20 | 24,'PRINTER(P) |
00000600: 4F 46 20 53 43 48 45 52 4D 28 53 29 2E 27 0D 4E |OF SCHERM(S).'.N|
00000610: 34 31 20 2E 42 59 54 45 20 32 34 2C 27 28 4D 41 |41 .BYTE 24,'(MA|
00000620: 58 2E 31 36 20 41 4C 46 41 4E 55 4D 2E 54 45 4B |X.16 ALFANUM.TEK|
00000630: 45 4E 53 2E 29 27 0D 4E 34 32 20 2E 42 59 54 45 |ENS.)'.N42 .BYTE|
00000640: 20 31 33 2C 27 55 49 54 47 45 5A 4F 4E 44 45 52 | 13,'UITGEZONDER|
00000650: 44 3A 27 0D 4E 34 33 20 2E 42 59 54 45 20 31 36 |D:'.N43 .BYTE 16|
00000660: 2C 27 44 52 55 4B 20 53 50 41 54 49 45 42 41 4C |,'DRUK SPATIEBAL|
00000670: 4B 2E 27 0D 4E 35 30 20 2E 42 59 54 45 20 30 35 |K.'.N50 .BYTE 05|
00000680: 2C 27 58 58 58 58 58 27 0D 4E 35 31 20 2E 42 59 |,'XXXXX'.N51 .BY|
00000690: 54 45 20 30 35 2C 27 59 59 59 59 59 27 0D 20 20 |TE 05,'YYYYY'. |
000006A0: 20 20 2E 45 4E 44 0D | .END. |
*=35741. ;.
;INLOOP 2..
;. LDX #008 ;BEGINADRES. JS
R 38381 ;WERKVELDEN..DP009 JSR 38488 ;
OPEN REGEL.. LDX #020 ;'LABEL BEG
IN-. JSR 38712 ; LETTERS?'. L
DX #002 ;ACC.WORD N27-AX. .WORD N00
-AX. .WORD N34-AX. .WORD NE-AX.
.WORD N41-AX. .WORD N05-AX. .WORD
NF-AX.M23 .BYTE 01. .WORD NE-AX.M24
.BYTE 01. .WORD NF-AX. .BYTE 00,00
,00,00.NE .BYTE 01,13.NF .BYTE 02,13,1
3.F1 .BYTE 02,042,157.SS .BYTE 05,032,
032,032,032,032.PD .BYTE 03,'(D)'.PH .
BYTE 03,'(H)'.DD1 .BYTE 01,'1'.DD2 .BYTE
01,'2'.N00 .BYTE 01,' '.N01 .BYTE 01,'.
'.N02 .BYTE 01,':'.N03 .BYTE 01,','.N04
.BYTE 01,';'.N05 .BYTE 01,'?'.N06 .BYTE
01,'!'.N07 .BYTE 01,'('.N08 .BYTE 01,')'
.N09 .BYTE 01,'S'.N52 .BYTE 01,'E'.N10 .
BYTE 04,'VELD'.N11 .BYTE 03,'VAN'.N12 .B
YTE 03,'T/M'.N13 .BYTE 05,'LABEL'.N14 .B
YTE 05,'REGEL'.N15 .BYTE 05,'BEGIN'.N16
.BYTE 04,'EIND'.N17 .BYTE 08,'MAXIMAAL'.
N20 .BYTE 02,'OF'.N21 .BYTE 08,'DISSEMBL
'.N22 .BYTE 04,'EREN'.N44 .BYTE 02,'ER'.
N23 .BYTE 03,'AGE'.N24 .BYTE 05,'ADRES'.
N25 .BYTE 08,'HEXADEC.'.N26 .BYTE 08,'DE
CIMAAL'.N27 .BYTE 04,'NAAM'.N28 .BYTE 06
,'LETTER'.N29 .BYTE 04,'FOUT'.N30 .BYTE
08,'DOORGANG'.N31 .BYTE 08,'OVERLOOP'.N3
3 .BYTE 08,'TOESTAND'.N34 .BYTE 15,'UITG
ANGSBESTAND'.N35 .BYTE 37,'NA ELK ANTWOO
RD OP DE VOLGENDE VRAGEN'.N36 .BYTE 25,'
TOETS <RETURN> INDRUKKEN.'.N37 .BYTE 09,
'NOG EENS.'.N38 .BYTE 34,'CONTROLE; GOED
:DRUK<G>, ANDERS<F>.'.N39 .BYTE 33,'NAAR
APPARAAT BAND(T), SCHIJF(D),'.N40 .BYTE
24,'PRINTER(P) OF SCHERM(S).'.N41 .BYTE
24,'(MAX.16 ALFANUM.TEKENS.)'.N42 .BYTE
13,'UITGEZONDERD:'.N43 .BYTE 16,'DRUK S
PATIEBALK.'.N50 .BYTE 05,'XXXXX'.N51 .BY
TE 05,'YYYYY'. .END.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL