PRODIS.BAS
FILE INFORMATION
FILENAME(S): PRODIS.BAS
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-11-30 21:27:08
APPEARS ON: 1 disk(s)
FILE HASH
f2df1d53e17c00a7f2ef39eb06ba80539c4c0847013d5243126c3fbaec7d4ee2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RES1 BRUIN | PRODIS.BAS | PRG | DuncanTwain | 21 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 01 00 89 20 31 30 30 20 20 20 20 3A |..=.... 100 :|
00000010: 8F 20 50 52 4F 47 52 41 4D 4D 41 20 50 52 4F 44 |. PROGRAMMA PROD|
00000020: 49 53 2E 42 41 53 20 44 49 53 53 45 4D 42 4C 45 |IS.BAS DISSEMBLE|
00000030: 52 20 4D 45 54 20 4C 41 42 45 4C 53 2E 00 83 08 |R MET LABELS....|
00000040: 02 00 89 20 31 30 30 20 20 20 20 3A 8F 20 4C 41 |... 100 :. LA|
00000050: 42 45 4C 53 20 57 4F 52 44 45 4E 20 41 41 4E 47 |BELS WORDEN AANG|
00000060: 45 4D 41 41 4B 54 2E 20 4B 45 55 5A 45 3A 20 44 |EMAAKT. KEUZE: D|
00000070: 45 43 49 4D 41 41 4C 20 4F 46 20 48 45 58 41 44 |ECIMAAL OF HEXAD|
00000080: 45 43 2E 00 C8 08 03 00 89 20 39 30 30 30 20 20 |EC....... 9000 |
00000090: 20 3A 8F 20 20 20 20 20 20 20 56 45 52 53 49 45 | :. VERSIE|
000000A0: 5A 45 54 2E 20 20 20 20 20 20 20 20 20 20 20 20 |ZET. |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 41 41 4C | TAAL|
000000C0: 3A 20 42 41 53 49 43 2E 00 17 09 04 00 8F 20 20 |: BASIC....... |
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 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A | ******|
00000100: 2A 2A 20 20 44 41 54 55 4D 3A 20 33 30 20 41 55 |** DATUM: 30 AU|
00000110: 47 2E 31 39 38 39 2E 00 4E 09 05 00 89 20 39 30 |G.1989..N.... 90|
00000120: 35 30 20 20 20 3A 8F 20 20 20 20 20 20 20 4C 49 |50 :. LI|
00000130: 53 54 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 |ST. |
00000140: 20 20 20 20 20 20 2A 20 52 45 53 31 20 2A 00 85 | * RES1 *..|
00000150: 09 06 00 89 20 39 30 37 30 20 20 20 3A 8F 20 20 |.... 9070 :. |
00000160: 20 20 20 20 20 45 4E 44 20 4C 49 53 54 2E 20 20 | END LIST. |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
00000180: 2A 2A 2A 2A 2A 00 D0 09 14 00 41 B2 30 30 38 32 |*****.....A.0082|
00000190: 30 3A 5A B2 B7 28 47 29 20 20 20 20 20 20 20 20 |0:Z..(G) |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
000001B0: 8F 20 47 45 54 41 4C 20 47 20 4D 45 54 20 4B 20 |. GETAL G MET K |
000001C0: 48 45 58 54 45 4B 45 4E 53 20 49 4E 20 47 24 2E |HEXTEKENS IN G$.|
000001D0: 00 E2 09 15 00 9E 20 33 39 38 38 38 3A 47 24 B2 |...... 39888:G$.|
000001E0: 22 22 00 17 0A 16 00 81 20 55 B2 30 20 A4 20 33 |""...... U.0 . 3|
000001F0: 3A 47 24 B2 47 24 AA C7 28 C2 28 41 AA 55 29 29 |:G$.G$..(.(A.U))|
00000200: 3A 82 20 55 3A 47 24 B2 22 24 22 AA C9 28 47 24 |:. U:G$."$"..(G$|
00000210: 2C 4B AB 31 29 3A 8E 00 60 0A 19 00 41 B2 30 30 |,K.1):..`...A.00|
00000220: 38 32 30 3A 5A B2 B7 28 47 29 20 20 20 20 20 20 |820:Z..(G) |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 3A 8F 20 47 45 54 41 4C 20 47 20 4D 45 54 20 | :. GETAL G MET |
00000250: 4B 20 43 49 4A 46 45 52 53 20 49 4E 20 47 24 2E |K CIJFERS IN G$.|
00000260: 00 72 0A 1A 00 9E 20 33 39 37 34 34 3A 47 24 B2 |.r.... 39744:G$.|
00000270: 22 22 00 A1 0A 1B 00 81 20 55 B2 30 20 A4 20 34 |""...... U.0 . 4|
00000280: 3A 47 24 B2 47 24 AA C7 28 C2 28 41 AA 55 29 29 |:G$.G$..(.(A.U))|
00000290: 3A 82 20 55 3A 47 24 B2 C9 28 47 24 2C 4B 29 3A |:. U:G$..(G$,K):|
000002A0: 8E 00 DB 0A 23 00 58 4C B2 58 4C AA 31 3A 8B 20 |....#.XL.XL.1:. |
000002B0: 58 4C B3 32 35 36 20 A7 20 8E 20 20 20 20 20 20 |XL.256 . . |
000002C0: 20 20 20 20 3A 8F 20 48 4F 4F 47 20 58 4C 2C 58 | :. HOOG XL,X|
000002D0: 48 20 4F 50 20 4D 45 54 20 31 2E 00 F3 0A 24 00 |H OP MET 1....$.|
000002E0: 58 4C B2 58 4C AB 32 35 36 3A 58 48 B2 58 48 AA |XL.XL.256:XH.XH.|
000002F0: 31 3A 8E 00 1F 0B 28 00 97 20 32 38 2C 41 4C 3A |1:....(.. 28,AL:|
00000300: 97 20 32 39 2C 41 48 3A 97 20 33 30 2C 53 31 20 |. 29,AH:. 30,S1 |
00000310: 20 20 20 20 20 20 3A 8F 20 52 45 47 45 4C 2E 00 | :. REGEL..|
00000320: 4F 0B 29 00 97 20 33 31 2C 53 32 3A 97 20 33 33 |O.).. 31,S2:. 33|
00000330: 2C 4F 4C 3A 97 20 33 34 2C 4F 48 3A 9E 20 33 37 |,OL:. 34,OH:. 37|
00000340: 38 33 34 3A 56 41 B2 C2 28 37 35 37 29 3A 8E 00 |834:VA..(757):..|
00000350: 85 0B 2D 00 8B 20 55 56 B3 B1 32 20 A7 20 8E 20 |..-.. UV..2 . . |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 3A 8F 20 53 54 41 54 55 53 20 56 41 4E 20 | :. STATUS VAN |
00000380: 44 49 53 4B 2E 00 A1 0B 2E 00 9F 20 39 2C 38 2C |DISK....... 9,8,|
00000390: 31 35 3A 84 39 2C 41 24 2C 42 24 2C 43 24 2C 44 |15:.9,A$,B$,C$,D|
000003A0: 24 00 CC 0B 2F 00 99 3A 99 20 22 53 43 48 49 4A |$.../..:. "SCHIJ|
000003B0: 46 20 22 41 24 22 2C 20 22 42 24 22 2C 20 22 43 |F "A$", "B$", "C|
000003C0: 24 22 2C 20 22 44 24 22 2E 22 3A 99 00 D6 0B 30 |$", "D$".":....0|
000003D0: 00 A0 20 39 3A 8E 00 05 0C 32 00 97 20 32 36 2C |.. 9:....2.. 26,|
000003E0: 58 4C 3A 97 20 32 37 2C 58 48 20 20 20 20 20 20 |XL:. 27,XH |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4C | :. L|
00000400: 41 42 45 4C 2E 00 37 0C 33 00 9E 20 33 37 38 37 |ABEL..7.3.. 3787|
00000410: 36 3A 8B 20 C2 28 37 38 31 29 B1 30 20 A7 20 8E |6:. .(781).0 . .|
00000420: 20 20 20 3A 8F 20 49 54 45 4D 20 53 54 41 41 54 | :. ITEM STAAT|
00000430: 20 45 52 20 41 4C 2E 00 6B 0C 34 00 9E 20 33 37 | ER AL..k.4.. 37|
00000440: 37 39 32 3A 56 42 B2 C2 28 37 35 38 29 3A 8E 20 |792:VB..(758):. |
00000450: 20 20 20 20 20 20 20 20 20 3A 8F 20 56 55 4C 20 | :. VUL |
00000460: 4E 49 45 55 57 20 49 54 45 4D 2E 00 B2 0C 3C 00 |NIEUW ITEM....<.|
00000470: 49 B2 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 |I.L |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 3A 8F 20 5A 4F 45 4B 20 49 | :. ZOEK I|
000004A0: 54 45 4D 20 49 4E 20 4C 41 42 45 4C 54 41 42 45 |TEM IN LABELTABE|
000004B0: 4C 2E 00 E1 0C 3D 00 8B 20 28 58 48 B2 C2 28 4C |L....=.. (XH..(L|
000004C0: 55 AA 49 AA 49 AB 31 29 29 20 AF 20 28 58 4C B2 |U.I.I.1)) . (XL.|
000004D0: C2 28 4C 55 AA 49 AA 49 AB 32 29 29 20 A7 20 36 |.(LU.I.I.2)) . 6|
000004E0: 33 00 F6 0C 3E 00 49 B2 49 AB 31 3A 8B 20 49 B1 |3...>.I.I.1:. I.|
000004F0: 30 20 A7 20 36 31 00 FC 0C 3F 00 8E 00 3D 0D 41 |0 . 61...?...=.A|
00000500: 00 4B B2 33 3A 8D 20 32 35 3A 4B 24 B2 4C 24 AA |.K.3:. 25:K$.L$.|
00000510: 47 24 3A 8E 20 20 20 20 20 20 20 20 20 20 20 3A |G$:. :|
00000520: 8F 20 4D 41 41 4B 20 4C 41 42 45 4C 20 4F 46 20 |. MAAK LABEL OF |
00000530: 4C 41 42 45 4C 4F 50 45 52 41 4E 44 2E 00 7F 0D |LABELOPERAND....|
00000540: 46 00 8B 20 44 43 B2 31 20 A7 20 8D 20 32 35 3A |F.. DC.1 . . 25:|
00000550: 8E 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 44 |. :. D|
00000560: 45 43 49 4D 41 41 4C 20 28 44 43 3D 31 29 20 4F |ECIMAAL (DC=1) O|
00000570: 46 20 48 45 58 41 44 45 43 49 4D 41 41 4C 2E 00 |F HEXADECIMAAL..|
00000580: C0 0D 47 00 8D 20 32 30 3A 8E 20 20 20 20 20 20 |..G.. 20:. |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 3A 8F 20 47 45 54 41 4C 20 47 20 49 4E 20 | :. GETAL G IN |
000005B0: 4B 20 43 49 4A 46 45 52 53 20 49 4E 20 47 24 2E |K CIJFERS IN G$.|
000005C0: 00 F6 0D 50 00 58 4C B2 59 4C 3A 58 48 B2 59 48 |...P.XL.YL:XH.YH|
000005D0: 3A 4A 56 B2 30 3A 81 20 55 B2 30 20 A4 20 4E 4E |:JV.0:. U.0 . NN|
000005E0: AB 31 20 20 20 20 20 20 20 3A 8F 20 53 55 42 50 |.1 :. SUBP|
000005F0: 41 53 53 20 31 2E 00 18 0E 51 00 8D 20 33 35 3A |ASS 1....Q.. 35:|
00000600: 8D 20 36 30 3A 8B 20 49 B1 30 20 A7 20 4A 28 55 |. 60:. I.0 . J(U|
00000610: 29 B2 49 3A 4A 56 B2 31 00 22 0E 52 00 82 20 55 |).I:JV.1.".R.. U|
00000620: 3A 8E 00 58 0E 55 00 58 4C B2 59 4C 3A 58 48 B2 |:..X.U.XL.YL:XH.|
00000630: 59 48 3A 81 20 55 B2 30 20 A4 20 4E 4E AB 31 20 |YH:. U.0 . NN.1 |
00000640: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 53 55 | :. SU|
00000650: 42 50 41 53 53 20 32 2E 00 84 0E 56 00 4D 24 B2 |BPASS 2....V.M$.|
00000660: 22 20 20 20 20 20 22 3A 8B 20 4A 28 55 29 B1 30 |" ":. J(U).0|
00000670: 20 A7 20 47 B2 4A 28 55 29 3A 8D 20 36 35 3A 4D | . G.J(U):. 65:M|
00000680: 24 B2 4B 24 00 B1 0E 57 00 4D 24 B2 4D 24 AA 22 |$.K$...W.M$.M$."|
00000690: 20 2E 42 59 54 45 20 22 3A 8D 20 33 35 3A 47 B2 | .BYTE ":. 35:G.|
000006A0: C2 28 58 4C AA 32 35 36 AC 58 48 29 3A 8D 20 37 |.(XL.256.XH):. 7|
000006B0: 30 00 E3 0E 58 00 4D 24 B2 4D 24 AA 47 24 3A 4D |0...X.M$.M$.G$:M|
000006C0: 24 B2 C8 28 28 4D 24 AA 22 20 20 20 20 20 20 20 |$..((M$." |
000006D0: 20 20 20 22 29 2C 31 39 29 AA 22 20 3B 22 3A 8D | "),19)." ;":.|
000006E0: 20 39 36 00 ED 0E 59 00 82 20 55 3A 8E 00 37 0F | 96...Y.. U:..7.|
000006F0: 5A 00 91 20 55 56 20 89 20 39 32 2C 39 33 2C 39 |Z.. UV . 92,93,9|
00000700: 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |4 |
00000710: 20 20 20 20 20 20 20 3A 8F 20 4F 50 45 4E 20 52 | :. OPEN R|
00000720: 41 4E 44 41 50 50 41 52 41 41 54 20 4F 50 20 55 |ANDAPPARAAT OP U|
00000730: 56 3D 30 2E 2E 33 2E 00 68 0F 5B 00 9E 20 33 37 |V=0..3..h.[.. 37|
00000740: 35 33 36 3A 8E 20 20 20 20 20 20 20 20 20 20 20 |536:. |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.|
00000760: 20 53 43 48 45 52 4D 2E 00 97 0F 5C 00 9E 20 33 | SCHERM....\.. 3|
00000770: 37 35 33 36 3A 8E 20 20 20 20 20 20 20 20 20 20 |7536:. |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
00000790: 8F 20 54 41 50 45 2E 00 C6 0F 5D 00 9E 20 33 37 |. TAPE....].. 37|
000007A0: 35 33 36 3A 8E 20 20 20 20 20 20 20 20 20 20 20 |536:. |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.|
000007C0: 20 44 49 53 43 2E 00 02 10 5E 00 9E 20 33 37 35 | DISC....^.. 375|
000007D0: 33 36 3A 98 35 2C C7 28 32 37 29 22 4D 22 C7 28 |36:.5,.(27)"M".(|
000007E0: 32 30 29 3A 98 35 2C 22 20 20 44 20 49 20 53 20 |20):.5," D I S |
000007F0: 53 20 45 20 4D 20 42 20 4C 20 41 20 47 20 45 20 |S E M B L A G E |
00000800: 2E 22 00 33 10 5F 00 98 35 3A 98 35 2C 22 20 56 |.".3._..5:.5," V|
00000810: 45 4C 44 20 56 41 4E 20 22 41 42 22 20 54 2F 4D |ELD VAN "AB" T/M|
00000820: 20 22 41 45 3B C7 28 31 32 37 29 22 2E 22 3A 98 | "AE;.(127)".":.|
00000830: 35 3A 8E 00 6A 10 60 00 8B 20 55 56 B1 30 20 A7 |5:..j.`.. UV.0 .|
00000840: 20 98 35 2C 4D 24 20 20 20 20 20 20 20 20 20 20 | .5,M$ |
00000850: 20 20 20 20 20 20 3A 8F 20 4F 55 54 50 55 54 20 | :. OUTPUT |
00000860: 56 41 4E 20 52 45 47 45 4C 2E 00 75 10 61 00 99 |VAN REGEL..u.a..|
00000870: 20 4D 24 3A 8E 00 AF 10 62 00 8B 20 55 56 B1 30 | M$:....b.. UV.0|
00000880: 20 A7 20 A0 20 35 20 20 20 20 20 20 20 20 20 20 | . . 5 |
00000890: 20 20 20 20 20 20 20 20 20 3A 8F 20 53 4C 55 49 | :. SLUI|
000008A0: 54 20 52 41 4E 44 41 50 50 41 52 41 41 54 2E 00 |T RANDAPPARAAT..|
000008B0: D0 10 63 00 99 20 22 45 49 4E 44 45 20 56 41 4E |..c.. "EINDE VAN|
000008C0: 20 44 49 53 53 45 4D 42 4C 41 47 45 2E 22 3A 8E | DISSEMBLAGE.":.|
000008D0: 00 FE 10 64 00 4E 24 B2 22 43 4F 44 2E 44 49 53 |...d.N$."COD.DIS|
000008E0: 53 45 4D 22 3A 4C B2 C3 28 4E 24 29 3A 97 20 37 |SEM":L..(N$):. 7|
000008F0: 30 30 2C 4C 3A 81 20 49 B2 31 20 A4 20 4C 00 1D |00,L:. I.1 . L..|
00000900: 11 65 00 97 20 37 30 30 AA 49 2C C6 28 CA 28 4E |.e.. 700.I,.(.(N|
00000910: 24 2C 49 2C 31 29 29 3A 82 20 49 3A 99 00 44 11 |$,I,1)):. I:..D.|
00000920: 66 00 99 20 22 4D 41 43 48 49 4E 45 43 4F 44 45 |f.. "MACHINECODE|
00000930: 20 22 4E 24 22 20 49 4E 4C 45 5A 45 4E 2E 2E 2E | "N$" INLEZEN...|
00000940: 2E 22 3A 99 00 7D 11 6E 00 41 B2 34 39 31 35 32 |.":..}.n.A.49152|
00000950: 3A 42 B2 41 AA 36 3A 43 B2 42 AA 36 3A 44 B2 43 |:B.A.6:C.B.6:D.C|
00000960: AA 36 3A 45 B2 44 AA 36 20 20 20 20 20 20 20 20 |.6:E.D.6 |
00000970: 3A 8F 20 42 4F 4F 54 53 54 52 41 50 2E 00 BB 11 |:. BOOTSTRAP....|
00000980: 6F 00 97 41 AA 30 2C 31 36 39 3A 97 41 AA 31 2C |o..A.0,169:.A.1,|
00000990: 30 30 31 3A 97 41 AA 32 2C 31 36 32 20 20 20 20 |001:.A.2,162 |
000009A0: 3A 97 41 AA 33 2C 30 30 38 3A 97 41 AA 34 2C 31 |:.A.3,008:.A.4,1|
000009B0: 36 30 3A 97 41 AA 35 2C 30 30 31 00 F9 11 70 00 |60:.A.5,001...p.|
000009C0: 97 42 AA 30 2C 30 33 32 3A 97 42 AA 31 2C 31 38 |.B.0,032:.B.1,18|
000009D0: 36 3A 97 42 AA 32 2C 32 35 35 20 20 20 20 3A 97 |6:.B.2,255 :.|
000009E0: 42 AA 33 2C 31 37 33 3A 97 42 AA 34 2C 31 38 38 |B.3,173:.B.4,188|
000009F0: 3A 97 42 AA 35 2C 30 30 32 00 37 12 71 00 97 43 |:.B.5,002.7.q..C|
00000A00: AA 30 2C 31 36 32 3A 97 43 AA 31 2C 31 38 39 3A |.0,162:.C.1,189:|
00000A10: 97 43 AA 32 2C 31 36 30 20 20 20 20 3A 97 43 AA |.C.2,160 :.C.|
00000A20: 33 2C 30 30 32 3A 97 43 AA 34 2C 30 33 32 3A 97 |3,002:.C.4,032:.|
00000A30: 43 AA 35 2C 31 38 39 00 75 12 72 00 97 44 AA 30 |C.5,189.u.r..D.0|
00000A40: 2C 32 35 35 3A 97 44 AA 31 2C 31 36 39 3A 97 44 |,255:.D.1,169:.D|
00000A50: AA 32 2C 30 30 30 20 20 20 20 3A 97 44 AA 33 2C |.2,000 :.D.3,|
00000A60: 31 36 32 3A 97 44 AA 34 2C 32 35 35 3A 97 44 AA |162:.D.4,255:.D.|
00000A70: 35 2C 31 36 30 00 B3 12 73 00 97 45 AA 30 2C 32 |5,160...s..E.0,2|
00000A80: 35 35 3A 97 45 AA 31 2C 30 33 32 3A 97 45 AA 32 |55:.E.1,032:.E.2|
00000A90: 2C 32 31 33 20 20 20 20 3A 97 45 AA 33 2C 32 35 |,213 :.E.3,25|
00000AA0: 35 3A 97 45 AA 34 2C 30 39 36 3A 97 45 AA 35 2C |5:.E.4,096:.E.5,|
00000AB0: 30 30 30 00 CD 12 74 00 9E 20 34 39 31 35 32 3A |000...t.. 49152:|
00000AC0: 8B 20 53 54 B2 36 34 20 A7 20 31 32 30 00 F5 12 |. ST.64 . 120...|
00000AD0: 75 00 99 3A 99 20 22 4C 41 41 44 46 4F 55 54 3A |u..:. "LAADFOUT:|
00000AE0: 54 4F 45 53 54 41 4E 44 20 22 53 54 3A 99 3A 89 |TOESTAND "ST:.:.|
00000AF0: 20 39 30 39 39 00 40 13 78 00 41 B2 30 30 36 38 | 9099.@.x.A.0068|
00000B00: 30 3A 42 B2 41 AA 36 20 20 20 20 20 20 20 20 20 |0:B.A.6 |
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B20: 20 3A 8F 20 55 53 52 28 58 29 20 53 50 4C 49 54 | :. USR(X) SPLIT|
00000B30: 53 20 58 20 49 4E 20 4C 53 20 45 4E 20 48 53 2E |S X IN LS EN HS.|
00000B40: 00 7E 13 79 00 97 41 AA 30 2C 30 33 32 3A 97 41 |.~.y..A.0,032:.A|
00000B50: AA 31 2C 32 34 37 3A 97 41 AA 32 2C 31 38 33 20 |.1,247:.A.2,183 |
00000B60: 20 20 20 3A 97 41 AA 33 2C 31 36 35 3A 97 41 AA | :.A.3,165:.A.|
00000B70: 34 2C 30 32 30 3A 97 41 AA 35 2C 31 33 33 00 BC |4,020:.A.5,133..|
00000B80: 13 7A 00 97 42 AA 30 2C 31 36 37 3A 97 42 AA 31 |.z..B.0,167:.B.1|
00000B90: 2C 31 36 35 3A 97 42 AA 32 2C 30 32 31 20 20 20 |,165:.B.2,021 |
00000BA0: 20 3A 97 42 AA 33 2C 31 33 33 3A 97 42 AA 34 2C | :.B.3,133:.B.4,|
00000BB0: 31 36 38 3A 97 42 AA 35 2C 30 39 36 00 FD 13 7B |168:.B.5,096...{|
00000BC0: 00 97 20 37 38 35 2C 31 36 38 3A 97 20 37 38 36 |.. 785,168:. 786|
00000BD0: 2C 30 30 32 20 20 20 20 20 20 20 20 20 20 20 20 |,002 |
00000BE0: 20 20 3A 8F 20 53 2E 50 2E 36 38 30 3B 20 55 49 | :. S.P.680; UI|
00000BF0: 54 3A 20 28 31 36 38 2C 31 36 37 29 2E 00 44 14 |T: (168,167)..D.|
00000C00: 82 00 52 55 B2 31 37 39 32 30 3A 4C 55 B2 33 30 |..RU.17920:LU.30|
00000C10: 38 35 32 3A 5A 55 B2 33 32 37 36 38 3A 56 55 B2 |852:ZU.32768:VU.|
00000C20: 33 38 38 33 32 3A 57 55 B2 30 30 38 33 32 3A 42 |38832:WU.00832:B|
00000C30: 55 B2 30 30 36 38 30 20 3A 8F 20 47 45 42 49 45 |U.00680 :. GEBIE|
00000C40: 44 45 4E 2E 00 7F 14 83 00 5A B2 B7 28 52 55 29 |DEN......Z..(RU)|
00000C50: 3A 97 20 34 30 39 32 38 2C C2 28 31 36 37 29 3A |:. 40928,.(167):|
00000C60: 97 20 34 30 39 32 39 2C C2 28 31 36 38 29 20 20 |. 40929,.(168) |
00000C70: 20 3A 8F 20 52 45 47 45 4C 53 20 40 20 36 2E 00 | :. REGELS @ 6..|
00000C80: BA 14 84 00 5A B2 B7 28 4C 55 29 3A 97 20 34 30 |....Z..(LU):. 40|
00000C90: 39 33 30 2C C2 28 31 36 37 29 3A 97 20 34 30 39 |930,.(167):. 409|
00000CA0: 33 31 2C C2 28 31 36 38 29 20 20 20 3A 8F 20 4C |31,.(168) :. L|
00000CB0: 41 42 45 4C 53 20 40 20 32 2E 00 F1 14 85 00 5A |ABELS @ 2......Z|
00000CC0: B2 B7 28 5A 55 29 3A 97 20 34 30 39 33 32 2C C2 |..(ZU):. 40932,.|
00000CD0: 28 31 36 37 29 3A 97 20 34 30 39 33 33 2C C2 28 |(167):. 40933,.(|
00000CE0: 31 36 38 29 20 20 20 3A 8F 20 45 49 4E 44 2B 31 |168) :. EIND+1|
00000CF0: 2E 00 2F 15 86 00 5A B2 B7 28 56 55 29 3A 97 20 |../...Z..(VU):. |
00000D00: 34 30 39 33 34 2C C2 28 31 36 37 29 3A 97 20 34 |40934,.(167):. 4|
00000D10: 30 39 33 35 2C C2 28 31 36 38 29 20 20 20 3A 8F |0935,.(168) :.|
00000D20: 20 56 4F 4F 52 42 4C 4F 4B 20 54 45 58 54 2E 00 | VOORBLOK TEXT..|
00000D30: 6A 15 87 00 5A B2 B7 28 57 55 29 3A 97 20 34 30 |j...Z..(WU):. 40|
00000D40: 39 33 36 2C C2 28 31 36 37 29 3A 97 20 34 30 39 |936,.(167):. 409|
00000D50: 33 37 2C C2 28 31 36 38 29 20 20 20 3A 8F 20 57 |37,.(168) :. W|
00000D60: 45 52 4B 47 45 42 49 45 44 2E 00 A7 15 88 00 5A |ERKGEBIED......Z|
00000D70: B2 B7 28 42 55 29 3A 97 20 34 30 39 33 38 2C C2 |..(BU):. 40938,.|
00000D80: 28 31 36 37 29 3A 97 20 34 30 39 33 39 2C C2 28 |(167):. 40939,.(|
00000D90: 31 36 38 29 20 20 20 3A 8F 20 42 45 53 54 41 4E |168) :. BESTAN|
00000DA0: 44 53 4E 41 41 4D 2E 00 F4 15 8C 00 4F 55 B2 34 |DSNAAM......OU.4|
00000DB0: 30 32 35 36 20 20 20 20 20 20 20 20 20 20 20 20 |0256 |
00000DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DE0: 20 20 3A 8F 20 47 45 42 49 45 44 20 4F 50 43 4F | :. GEBIED OPCO|
00000DF0: 44 45 53 2E 00 2F 16 8D 00 5A B2 B7 28 4F 55 29 |DES../...Z..(OU)|
00000E00: 3A 97 20 34 30 39 34 30 2C C2 28 31 36 37 29 3A |:. 40940,.(167):|
00000E10: 97 20 34 30 39 34 31 2C C2 28 31 36 38 29 20 20 |. 40941,.(168) |
00000E20: 20 3A 8F 20 42 45 47 49 4E 41 44 52 45 53 2E 00 | :. BEGINADRES..|
00000E30: 6D 16 8E 00 4E 4F B2 31 35 31 20 20 20 20 20 20 |m...NO.151 |
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 41 41 | :. AA|
00000E60: 4E 54 41 4C 20 4F 50 43 4F 44 45 53 2E 00 7C 16 |NTAL OPCODES..|.|
00000E70: 8F 00 97 20 34 30 39 34 32 2C 4E 4F 00 B9 16 93 |... 40942,NO....|
00000E80: 00 8D 20 33 35 30 30 20 20 20 20 20 20 20 20 20 |.. 3500 |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EA0: 20 20 20 20 3A 8F 20 5A 45 54 20 54 45 53 54 50 | :. ZET TESTP|
00000EB0: 52 4F 47 52 41 4D 4D 41 2E 00 F2 16 95 00 9E 20 |ROGRAMMA....... |
00000EC0: 33 36 30 30 30 20 20 20 20 20 20 20 20 20 20 20 |36000 |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EE0: 20 20 20 3A 8F 20 4D 41 43 48 49 4E 45 2D 48 2E | :. MACHINE-H.|
00000EF0: 50 2E 00 2D 17 96 00 52 4D B2 C2 28 37 35 32 29 |P..-...RM..(752)|
00000F00: AA 32 35 36 AC C2 28 37 35 33 29 20 20 20 20 20 |.256..(753) |
00000F10: 20 20 20 20 20 20 20 20 3A 8F 20 4D 41 58 2E 41 | :. MAX.A|
00000F20: 41 4E 54 41 4C 20 52 45 47 45 4C 53 2E 00 68 17 |ANTAL REGELS..h.|
00000F30: 97 00 4C 4D B2 C2 28 37 35 34 29 AA 32 35 36 AC |..LM..(754).256.|
00000F40: C2 28 37 35 35 29 20 20 20 20 20 20 20 20 20 20 |.(755) |
00000F50: 20 20 20 3A 8F 20 4D 41 58 2E 41 41 4E 54 41 4C | :. MAX.AANTAL|
00000F60: 20 4C 41 42 45 4C 53 2E 00 A8 17 98 00 44 43 B2 | LABELS......DC.|
00000F70: C2 28 37 35 36 29 20 20 20 20 20 20 20 20 20 20 |.(756) |
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F90: 20 3A 8F 20 44 43 2D 56 4C 41 47 3B 20 44 45 43 | :. DC-VLAG; DEC|
00000FA0: 49 4D 41 41 4C 3D 31 2E 00 DC 17 99 00 41 42 B2 |IMAAL=1......AB.|
00000FB0: C2 28 37 36 30 29 AA 32 35 36 AC C2 28 37 36 31 |.(760).256..(761|
00000FC0: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F |) :.|
00000FD0: 20 42 45 47 49 4E 41 44 52 45 53 2E 00 0F 18 9A | BEGINADRES.....|
00000FE0: 00 41 45 B2 C2 28 37 36 32 29 AA 32 35 36 AC C2 |.AE..(762).256..|
00000FF0: 28 37 36 33 29 20 20 20 20 20 20 20 20 20 20 20 |(763) |
00001000: 20 20 3A 8F 20 45 49 4E 44 41 44 52 45 53 2E 00 | :. EINDADRES..|
00001010: 45 18 A0 00 4C 24 B2 C7 28 C2 28 37 36 36 29 29 |E...L$..(.(766))|
00001020: AA C7 28 C2 28 37 36 37 29 29 20 20 20 20 20 3A |..(.(767)) :|
00001030: 8F 20 4C 41 42 45 4C 20 42 45 47 49 4E 4C 45 54 |. LABEL BEGINLET|
00001040: 54 45 52 53 2E 00 80 18 A1 00 55 56 B2 C2 28 37 |TERS......UV..(7|
00001050: 35 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |51) |
00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F | :.|
00001070: 20 41 50 50 41 52 41 41 54 4E 55 4D 4D 45 52 2E | APPARAATNUMMER.|
00001080: 00 A5 18 A2 00 4E 24 B2 22 22 3A 42 B2 C2 28 31 |.....N$."":B..(1|
00001090: 36 39 29 AA 32 35 36 AC C2 28 31 37 30 29 3A 4C |69).256..(170):L|
000010A0: B2 C2 28 42 29 00 C7 18 A3 00 81 20 49 B2 31 20 |..(B)...... I.1 |
000010B0: A4 20 4C 3A 4E 24 B2 4E 24 AA C7 28 C2 28 42 AA |. L:N$.N$..(.(B.|
000010C0: 49 29 29 3A 82 20 49 00 E2 18 FB 00 8F 20 34 30 |I)):. I...... 40|
000010D0: 32 35 36 20 54 41 42 45 4C 20 4F 50 43 4F 44 45 |256 TABEL OPCODE|
000010E0: 53 2E 00 FD 18 FC 00 8F 20 34 30 34 31 36 20 54 |S....... 40416 T|
000010F0: 41 42 45 4C 20 53 54 55 55 52 2D 31 2E 00 18 19 |ABEL STUUR-1....|
00001100: FD 00 8F 20 34 30 35 37 36 20 54 41 42 45 4C 20 |... 40576 TABEL |
00001110: 53 54 55 55 52 2D 32 2E 00 32 19 FE 00 8F 20 34 |STUUR-2..2.... 4|
00001120: 30 37 33 36 20 54 41 42 45 4C 20 4D 4E 45 4D 2D |0736 TABEL MNEM-|
00001130: 31 2E 00 4C 19 FF 00 8F 20 34 30 38 30 30 20 54 |1..L.... 40800 T|
00001140: 41 42 45 4C 20 4D 4E 45 4D 2D 32 2E 00 66 19 00 |ABEL MNEM-2..f..|
00001150: 01 8F 20 34 30 38 36 34 20 54 41 42 45 4C 20 4D |.. 40864 TABEL M|
00001160: 4E 45 4D 2D 33 2E 00 7E 19 90 01 99 3A 99 20 22 |NEM-3..~....:. "|
00001170: 44 4F 4F 52 47 41 4E 47 20 32 2E 22 3A 99 00 9B |DOORGANG 2.":...|
00001180: 19 AE 01 8D 20 39 30 3A 8B 20 55 56 B2 30 20 B0 |.... 90:. UV.0 .|
00001190: 20 55 56 B2 33 20 A7 20 34 34 30 00 CF 19 AF 01 | UV.3 . 440.....|
000011A0: 8B 20 53 54 B3 B1 30 20 AF 20 53 54 B3 B1 36 34 |. ST..0 . ST..64|
000011B0: 20 A7 20 99 20 22 4F 50 45 4E 45 4E 20 46 4F 55 | . . "OPENEN FOU|
000011C0: 54 2E 22 3A 8D 20 34 35 3A 89 20 39 30 39 39 00 |T.":. 45:. 9099.|
000011D0: 13 1A B8 01 4D 24 B2 22 20 20 20 20 20 20 20 20 |....M$." |
000011E0: 20 2A 3D 22 3A 4B B2 35 3A 47 B2 41 42 3A 8D 20 | *=":K.5:G.AB:. |
000011F0: 37 30 3A 4D 24 B2 4D 24 AA 47 24 3A 8D 20 39 36 |70:M$.M$.G$:. 96|
00001200: 20 20 20 3A 8F 20 45 45 52 53 54 45 20 52 45 47 | :. EERSTE REG|
00001210: 45 4C 2E 00 4D 1A B9 01 81 20 53 B2 31 20 A4 20 |EL..M.... S.1 . |
00001220: 52 3A 53 36 B2 52 55 AA 36 AC 53 3A 59 4C B2 C2 |R:S6.RU.6.S:YL..|
00001230: 28 53 36 AB 36 29 20 20 20 3A 8F 20 4F 50 44 52 |(S6.6) :. OPDR|
00001240: 41 43 48 54 20 52 45 47 45 4C 20 53 2E 00 90 1A |ACHT REGEL S....|
00001250: BA 01 59 48 B2 C2 28 53 36 AB 35 29 3A 53 31 B2 |..YH..(S6.5):S1.|
00001260: C2 28 53 36 AB 34 29 3A 53 32 B2 C2 28 53 36 AB |.(S6.4):S2..(S6.|
00001270: 33 29 3A 4E 4E B2 53 31 20 AF 20 31 39 32 3A 53 |3):NN.S1 . 192:S|
00001280: 31 B2 53 31 AB 4E 4E 3A 4E 4E B2 4E 4E AD 36 34 |1.S1.NN:NN.NN.64|
00001290: 00 D4 1A BB 01 4F 4C B2 C2 28 53 36 AB 32 29 3A |.....OL..(S6.2):|
000012A0: 4F 48 B2 C2 28 53 36 AB 31 29 3A 4E 53 B2 28 53 |OH..(S6.1):NS.(S|
000012B0: 32 20 AF 20 32 34 29 AD 38 3A 50 B2 28 53 32 20 |2 . 24).8:P.(S2 |
000012C0: AF 20 39 36 29 AD 33 32 3A 58 4C B2 59 4C 3A 58 |. 96).32:XL.YL:X|
000012D0: 48 B2 59 48 00 06 1B BC 01 4D 24 B2 22 20 20 20 |H.YH.....M$." |
000012E0: 20 20 20 22 3A 8D 20 36 30 3A 8B 20 49 B3 31 20 | ":. 60:. I.1 |
000012F0: A7 20 34 34 36 20 20 20 3A 8F 20 5A 4F 45 4B 20 |. 446 :. ZOEK |
00001300: 4C 41 42 45 4C 2E 00 1D 1B BD 01 47 B2 49 3A 8D |LABEL......G.I:.|
00001310: 20 36 35 3A 4D 24 B2 4B 24 AA 22 20 22 00 53 1B | 65:M$.K$." ".S.|
00001320: BE 01 8B 20 53 31 B2 36 33 20 A7 20 4D 24 B2 4D |... S1.63 . M$.M|
00001330: 24 AA 22 2E 42 59 54 45 20 22 3A 47 B2 C2 28 58 |$.".BYTE ":G..(X|
00001340: 4C AA 32 35 36 AC 58 48 29 3A 4B B2 33 3A 89 20 |L.256.XH):K.3:. |
00001350: 34 36 36 00 64 1B C2 01 8B 20 4E 4E B2 30 20 A7 |466.d.... NN.0 .|
00001360: 20 34 36 30 00 95 1B C3 01 8D 20 38 30 3A 8B 20 | 460...... 80:. |
00001370: 4A 56 B2 30 20 A7 20 34 36 30 20 20 20 20 20 20 |JV.0 . 460 |
00001380: 20 20 20 20 20 20 20 20 3A 8F 20 53 55 42 50 41 | :. SUBPA|
00001390: 53 53 20 31 2E 00 C9 1B C4 01 4D 24 B2 4D 24 AA |SS 1......M$.M$.|
000013A0: 22 2E 42 59 54 45 20 22 3A 47 B2 C2 28 59 4C AA |".BYTE ":G..(YL.|
000013B0: 32 35 36 AC 59 48 29 3A 4B B2 33 3A 8D 20 37 30 |256.YH):K.3:. 70|
000013C0: 3A 4D 24 B2 4D 24 AA 47 24 00 F4 1B C5 01 4D 24 |:M$.M$.G$.....M$|
000013D0: B2 C8 28 28 4D 24 AA 53 24 28 53 32 20 AF 20 37 |..((M$.S$(S2 . 7|
000013E0: 29 AA 22 20 20 20 20 20 20 22 29 2C 31 39 29 AA |)." "),19).|
000013F0: 22 20 3B 22 00 36 1C C6 01 8D 20 39 36 20 20 20 |" ;".6.... 96 |
00001400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001410: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4F | :. O|
00001420: 55 54 20 45 45 52 53 54 45 20 2E 42 59 54 45 2D |UT EERSTE .BYTE-|
00001430: 52 45 47 45 4C 2E 00 68 1C C7 01 8D 20 38 35 3A |REGEL..h.... 85:|
00001440: 89 20 34 39 30 20 20 20 20 20 20 20 20 20 20 20 |. 490 |
00001450: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 53 55 | :. SU|
00001460: 42 50 41 53 53 20 32 2E 00 A3 1C CC 01 4D 24 B2 |BPASS 2......M$.|
00001470: 4D 24 AA C7 28 C2 28 34 30 37 33 36 AA 53 31 29 |M$..(.(40736.S1)|
00001480: 29 AA C7 28 C2 28 34 30 38 30 30 AA 53 31 29 29 |)..(.(40800.S1))|
00001490: AA C7 28 C2 28 34 30 38 36 34 AA 53 31 29 29 AA |..(.(40864.S1)).|
000014A0: 22 20 22 00 C9 1C CD 01 8B 20 4E 53 B2 30 20 A7 |" "...... NS.0 .|
000014B0: 20 4D 24 B2 4D 24 AA 22 20 20 20 20 20 20 20 20 | M$.M$." |
000014C0: 20 20 22 3A 89 20 34 37 30 00 FA 1C CE 01 4D 24 | ":. 470.....M$|
000014D0: B2 4D 24 AA C7 28 C2 28 34 30 32 32 34 AA 50 29 |.M$..(.(40224.P)|
000014E0: 29 3A 4B B2 33 3A 8B 20 28 53 32 20 AF 20 31 32 |):K.3:. (S2 . 12|
000014F0: 38 29 B2 30 20 A7 20 34 36 35 00 2F 1D CF 01 58 |8).0 . 465./...X|
00001500: 4C B2 4F 4C 3A 58 48 B2 4F 48 3A 8D 20 36 30 3A |L.OL:XH.OH:. 60:|
00001510: 8B 20 49 B3 31 20 A7 20 34 36 35 20 20 20 3A 8F |. I.1 . 465 :.|
00001520: 20 4C 41 42 45 4C 2D 4F 50 45 52 41 4E 44 3F 00 | LABEL-OPERAND?.|
00001530: 4B 1D D0 01 47 B2 49 3A 8D 20 36 35 3A 4D 24 B2 |K...G.I:. 65:M$.|
00001540: 4D 24 AA 4B 24 3A 89 20 34 37 30 00 6E 1D D1 01 |M$.K$:. 470.n...|
00001550: 47 B2 4F 4C 3A 8B 20 4E 53 B2 32 20 A7 20 47 B2 |G.OL:. NS.2 . G.|
00001560: 47 AA 32 35 36 AC 4F 48 3A 4B B2 4B AA 32 00 80 |G.256.OH:K.K.2..|
00001570: 1D D2 01 8D 20 37 30 3A 4D 24 B2 4D 24 AA 47 24 |.... 70:M$.M$.G$|
00001580: 00 C0 1D D6 01 53 41 B2 53 32 20 AF 20 37 20 20 |.....SA.S2 . 7 |
00001590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015A0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4C 41 54 | :. LAT|
000015B0: 45 52 20 49 4E 20 4D 41 43 48 2E 43 4F 44 45 2E |ER IN MACH.CODE.|
000015C0: 00 F4 1D D7 01 55 24 B2 C7 28 C2 28 34 30 32 33 |.....U$..(.(4023|
000015D0: 32 AA 53 41 29 29 AA C7 28 C2 28 34 30 32 34 30 |2.SA))..(.(40240|
000015E0: AA 53 41 29 29 AA C7 28 C2 28 34 30 32 34 38 AA |.SA))..(.(40248.|
000015F0: 53 41 29 29 00 17 1E D8 01 4D 24 B2 C8 28 28 4D |SA)).....M$..((M|
00001600: 24 AA 55 24 AA 22 20 20 20 20 20 20 22 29 2C 31 |$.U$." "),1|
00001610: 39 29 AA 22 20 3B 22 00 54 1E E0 01 8D 20 39 36 |9)." ;".T.... 96|
00001620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
00001640: 8F 20 4F 55 54 20 47 45 44 49 53 53 2E 20 52 45 |. OUT GEDISS. RE|
00001650: 47 45 4C 2E 00 5C 1E EA 01 82 20 53 00 96 1E EB |GEL..\.... S....|
00001660: 01 4D 24 B2 22 20 20 20 20 20 20 2E 45 4E 44 22 |.M$." .END"|
00001670: 3A 8D 20 39 36 20 20 20 20 20 20 20 20 20 20 20 |:. 96 |
00001680: 20 20 20 20 3A 8F 20 2E 45 4E 44 2D 44 49 52 45 | :. .END-DIRE|
00001690: 43 54 49 45 46 2E 00 C7 1E EC 01 8B 20 55 56 B2 |CTIEF....... UV.|
000016A0: 33 20 A7 20 98 35 2C C7 28 32 37 29 22 40 22 20 |3 . .5,.(27)"@" |
000016B0: 20 20 20 20 20 20 3A 8F 20 52 45 53 45 54 20 50 | :. RESET P|
000016C0: 52 49 4E 54 45 52 2E 00 03 1F ED 01 8D 20 39 38 |RINTER....... 98|
000016D0: 3A 89 20 39 30 39 39 20 20 20 20 20 20 20 20 20 |:. 9099 |
000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 53 | :. S|
000016F0: 4C 55 49 54 20 52 41 4E 44 41 50 50 41 52 41 54 |LUIT RANDAPPARAT|
00001700: 45 4E 2E 00 45 1F 84 03 41 B2 30 30 37 30 30 3A |EN..E...A.00700:|
00001710: 42 B2 41 AA 36 3A 43 B2 42 AA 36 3A 44 B2 43 AA |B.A.6:C.B.6:D.C.|
00001720: 36 3A 45 B2 44 AA 36 3A 46 B2 45 AA 36 3A 47 B2 |6:E.D.6:F.E.6:G.|
00001730: 46 AA 36 3A 48 B2 47 AA 36 3A 49 B2 48 AA 36 3A |F.6:H.G.6:I.H.6:|
00001740: 4A B2 49 AA 36 00 7F 1F 85 03 97 41 AA 30 2C 31 |J.I.6......A.0,1|
00001750: 37 33 3A 97 41 AA 31 2C 30 30 30 3A 97 41 AA 32 |73:.A.1,000:.A.2|
00001760: 2C 30 30 30 3A 97 41 AA 33 2C 31 37 30 3A 97 41 |,000:.A.3,170:.A|
00001770: AA 34 2C 30 34 31 3A 97 41 AA 35 2C 30 31 35 00 |.4,041:.A.5,015.|
00001780: B9 1F 86 03 97 42 AA 30 2C 31 36 38 3A 97 42 AA |.....B.0,168:.B.|
00001790: 31 2C 31 33 38 3A 97 42 AA 32 2C 31 30 36 3A 97 |1,138:.B.2,106:.|
000017A0: 42 AA 33 2C 31 30 36 3A 97 42 AA 34 2C 31 30 36 |B.3,106:.B.4,106|
000017B0: 3A 97 42 AA 35 2C 31 30 36 00 F3 1F 87 03 97 43 |:.B.5,106......C|
000017C0: AA 30 2C 30 34 31 3A 97 43 AA 31 2C 30 31 35 3A |.0,041:.C.1,015:|
000017D0: 97 43 AA 32 2C 31 37 30 3A 97 43 AA 33 2C 31 38 |.C.2,170:.C.3,18|
000017E0: 39 3A 97 43 AA 34 2C 32 31 32 3A 97 43 AA 35 2C |9:.C.4,212:.C.5,|
000017F0: 30 30 32 00 2D 20 88 03 97 44 AA 30 2C 31 37 30 |002.- ...D.0,170|
00001800: 3A 97 44 AA 31 2C 31 38 35 3A 97 44 AA 32 2C 32 |:.D.1,185:.D.2,2|
00001810: 31 32 3A 97 44 AA 33 2C 30 30 32 3A 97 44 AA 34 |12:.D.3,002:.D.4|
00001820: 2C 30 39 36 3A 97 44 AA 35 2C 30 30 30 00 67 20 |,096:.D.5,000.g |
00001830: 89 03 97 45 AA 30 2C 30 34 38 3A 97 45 AA 31 2C |...E.0,048:.E.1,|
00001840: 30 34 39 3A 97 45 AA 32 2C 30 35 30 3A 97 45 AA |049:.E.2,050:.E.|
00001850: 33 2C 30 35 31 3A 97 45 AA 34 2C 30 35 32 3A 97 |3,051:.E.4,052:.|
00001860: 45 AA 35 2C 30 35 33 00 A1 20 8A 03 97 46 AA 30 |E.5,053.. ...F.0|
00001870: 2C 30 35 34 3A 97 46 AA 31 2C 30 35 35 3A 97 46 |,054:.F.1,055:.F|
00001880: AA 32 2C 30 35 36 3A 97 46 AA 33 2C 30 35 37 3A |.2,056:.F.3,057:|
00001890: 97 46 AA 34 2C 30 36 35 3A 97 46 AA 35 2C 30 36 |.F.4,065:.F.5,06|
000018A0: 36 00 DB 20 8B 03 97 47 AA 30 2C 30 36 37 3A 97 |6.. ...G.0,067:.|
000018B0: 47 AA 31 2C 30 36 38 3A 97 47 AA 32 2C 30 36 39 |G.1,068:.G.2,069|
000018C0: 3A 97 47 AA 33 2C 30 37 30 3A 97 47 AA 34 2C 30 |:.G.3,070:.G.4,0|
000018D0: 30 30 3A 97 47 AA 35 2C 31 36 39 00 15 21 8C 03 |00:.G.5,169..!..|
000018E0: 97 48 AA 30 2C 30 31 39 3A 97 48 AA 31 2C 31 34 |.H.0,019:.H.1,14|
000018F0: 31 3A 97 48 AA 32 2C 31 31 39 3A 97 48 AA 33 2C |1:.H.2,119:.H.3,|
00001900: 30 30 32 3A 97 48 AA 34 2C 31 36 32 3A 97 48 AA |002:.H.4,162:.H.|
00001910: 35 2C 30 30 30 00 4F 21 8D 03 97 49 AA 30 2C 31 |5,000.O!...I.0,1|
00001920: 33 34 3A 97 49 AA 31 2C 31 39 38 3A 97 49 AA 32 |34:.I.1,198:.I.2|
00001930: 2C 32 30 32 3A 97 49 AA 33 2C 31 36 39 3A 97 49 |,202:.I.3,169:.I|
00001940: AA 34 2C 30 31 33 3A 97 49 AA 35 2C 31 35 37 00 |.4,013:.I.5,157.|
00001950: 89 21 8E 03 97 4A AA 30 2C 31 32 30 3A 97 4A AA |.!...J.0,120:.J.|
00001960: 31 2C 30 30 32 3A 97 4A AA 32 2C 32 30 32 3A 97 |1,002:.J.2,202:.|
00001970: 4A AA 33 2C 30 31 36 3A 97 4A AA 34 2C 32 35 30 |J.3,016:.J.4,250|
00001980: 3A 97 4A AA 35 2C 30 39 36 00 BB 21 8F 03 99 20 |:.J.5,096..!... |
00001990: C7 28 31 34 37 29 3A 99 3A 85 20 22 42 45 47 49 |.(147):.:. "BEGI|
000019A0: 4E 52 45 47 45 4C 4E 55 4D 4D 45 52 20 28 33 30 |NREGELNUMMER (30|
000019B0: 30 30 2D 37 39 39 39 29 22 3B 52 00 D7 21 90 03 |00-7999)";R..!..|
000019C0: 8B 20 52 B3 33 30 30 30 20 B0 20 52 B1 37 39 39 |. R.3000 . R.799|
000019D0: 39 20 A7 20 39 31 31 00 F9 21 98 03 85 20 22 42 |9 . 911..!... "B|
000019E0: 45 47 49 4E 41 44 52 45 53 20 48 45 58 44 41 54 |EGINADRES HEXDAT|
000019F0: 41 4D 41 4B 45 52 22 3B 41 00 0B 22 99 03 8B 20 |AMAKER";A.."... |
00001A00: 41 B3 32 35 35 20 A7 20 39 32 30 00 2D 22 9A 03 |A.255 . 920.-"..|
00001A10: 85 20 22 20 45 49 4E 44 41 44 52 45 53 20 48 45 |. " EINDADRES HE|
00001A20: 58 44 41 54 41 4D 41 4B 45 52 22 3B 5A 00 47 22 |XDATAMAKER";Z.G"|
00001A30: 9B 03 8B 20 5A B1 35 33 32 34 37 20 B0 20 41 B1 |... Z.53247 . A.|
00001A40: 5A 20 A7 20 39 32 30 00 62 22 9C 03 99 20 C7 28 |Z . 920.b"... .(|
00001A50: 31 34 37 29 3A 99 20 52 AB 35 22 44 41 54 41 22 |147):. R.5"DATA"|
00001A60: 41 3B 00 9B 22 9D 03 99 20 22 22 3A 99 20 22 41 |A;.."... "":. "A|
00001A70: 3D 22 41 22 3A 52 3D 22 52 22 3A 5A 3D 22 5A 22 |="A":R="R":Z="Z"|
00001A80: 3A 47 4F 54 4F 20 39 33 30 22 3B 3A 97 20 37 34 |:GOTO 930";:. 74|
00001A90: 37 2C 35 3A 9E 20 37 34 31 3A 80 00 B4 22 A2 03 |7,5:. 741:..."..|
00001AA0: 99 20 C7 28 31 34 37 29 3A 8B 20 41 B1 5A 20 A7 |. .(147):. A.Z .|
00001AB0: 20 39 34 37 00 CD 22 A3 03 99 20 52 22 44 41 54 | 947.."... R"DAT|
00001AC0: 41 22 3B 3A 81 20 49 B2 30 20 A4 20 33 00 05 23 |A";:. I.0 . 3..#|
00001AD0: AC 03 99 20 22 20 22 3B 3A 81 20 4A B2 30 20 A4 |... " ";:. J.0 .|
00001AE0: 20 37 3A 44 B2 41 AA 38 AC 49 AA 4A 3A 51 B2 B5 | 7:D.A.8.I.J:Q..|
00001AF0: 28 44 AD 32 35 36 29 3A 97 20 37 30 31 2C 44 AB |(D.256):. 701,D.|
00001B00: 32 35 36 AC 51 00 35 23 AD 03 97 20 37 30 32 2C |256.Q.5#... 702,|
00001B10: 51 3A 9E 20 37 30 30 3A 99 20 C7 28 C2 28 37 38 |Q:. 700:. .(.(78|
00001B20: 31 29 29 C7 28 C2 28 37 38 30 29 29 3B 3A 82 20 |1)).(.(780));:. |
00001B30: 4A 3A 82 20 49 00 74 23 B1 03 99 20 22 22 3A 99 |J:. I.t#... "":.|
00001B40: 20 22 41 3D 22 41 AA 33 32 22 3A 52 3D 22 52 AA | "A="A.32":R="R.|
00001B50: 31 30 22 3A 5A 3D 22 5A 22 3A 47 4F 54 4F 20 39 |10":Z="Z":GOTO 9|
00001B60: 33 30 22 3B 3A 97 20 37 34 37 2C 34 3A 9E 20 37 |30";:. 747,4:. 7|
00001B70: 34 31 3A 80 00 A1 23 B3 03 99 20 C7 28 31 34 37 |41:...#... .(147|
00001B80: 29 3A 99 20 52 22 44 41 54 41 20 26 22 3B 3A 99 |):. R"DATA &";:.|
00001B90: 20 22 22 3A 99 20 22 47 4F 54 4F 20 39 34 39 22 | "":. "GOTO 949"|
00001BA0: 3B 00 B5 23 B4 03 97 20 37 34 37 2C 33 3A 9E 20 |;..#... 747,3:. |
00001BB0: 37 34 31 3A 80 00 BB 23 B5 03 80 00 D3 23 AC 0D |741:...#.....#..|
00001BC0: 99 3A 99 20 22 57 41 43 48 54 20 45 56 45 4E 2E |.:. "WACHT EVEN.|
00001BD0: 22 3A 99 00 FF 23 AD 0D 87 20 41 54 3A 5A 54 B2 |":...#... AT:ZT.|
00001BE0: 41 54 3A 99 20 22 42 45 47 49 4E 41 44 52 45 53 |AT:. "BEGINADRES|
00001BF0: 20 3D 22 5A 54 3B C7 28 31 35 37 29 22 2E 22 00 | ="ZT;.(157)".".|
00001C00: 19 24 AE 0D 97 20 32 35 33 2C 33 35 3A 97 20 32 |.$... 253,35:. 2|
00001C10: 35 34 2C C2 28 36 34 38 29 00 38 24 B6 0D 87 20 |54,.(648).8$... |
00001C20: 4B 24 3A 4B B2 C3 28 4B 24 29 3A 57 B2 30 3A 81 |K$:K..(K$):W.0:.|
00001C30: 20 4A B2 31 20 A4 20 4B 00 59 24 C0 0D 55 B2 C6 | J.1 . K.Y$..U..|
00001C40: 28 CA 28 4B 24 2C 4A 2C 31 29 29 3A 8B 20 55 B2 |(.(K$,J,1)):. U.|
00001C50: 33 38 20 A7 20 33 35 39 30 00 6B 24 C5 0D 8B 20 |38 . 3590.k$... |
00001C60: 55 B3 34 38 20 A7 20 33 35 36 30 00 86 24 C6 0D |U.48 . 3560..$..|
00001C70: 8B 20 55 B3 35 38 20 A7 20 55 B2 55 AB 34 38 3A |. U.58 . U.U.48:|
00001C80: 89 20 33 35 33 30 00 98 24 C7 0D 8B 20 55 B3 36 |. 3530..$... U.6|
00001C90: 35 20 A7 20 33 35 36 30 00 B3 24 C8 0D 8B 20 55 |5 . 3560..$... U|
00001CA0: B3 37 31 20 A7 20 55 B2 55 AB 35 35 3A 89 20 33 |.71 . U.U.55:. 3|
00001CB0: 35 33 30 00 BE 24 C9 0D 89 20 33 35 36 30 00 D9 |530..$... 3560..|
00001CC0: 24 CA 0D 8B 20 57 B2 30 20 A7 20 5A B2 55 3A 57 |$... W.0 . Z.U:W|
00001CD0: B2 31 3A 89 20 33 35 36 30 00 ED 24 D4 0D 5A B2 |.1:. 3560..$..Z.|
00001CE0: 5A AC 31 36 AA 55 3A 97 20 41 54 2C 5A 00 FD 24 |Z.16.U:. AT,Z..$|
00001CF0: DE 0D 41 54 B2 41 54 AA 31 3A 57 B2 30 00 0C 25 |..AT.AT.1:W.0..%|
00001D00: E8 0D 82 20 4A 3A 89 20 33 35 31 30 00 39 25 06 |... J:. 3510.9%.|
00001D10: 0E 41 54 B2 41 54 AB 31 3A 99 20 22 20 45 49 4E |.AT.AT.1:. " EIN|
00001D20: 44 41 44 52 45 53 20 3D 22 41 54 3B C7 28 31 35 |DADRES ="AT;.(15|
00001D30: 37 29 22 2E 22 3A 99 3A 8E 00 73 25 A5 0F 83 20 |7)".":.:..s%... |
00001D40: 34 39 39 32 30 20 20 20 20 20 20 20 20 20 20 20 |49920 |
00001D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D60: 20 20 3A 8F 20 54 45 53 54 50 52 4F 47 52 41 4D | :. TESTPROGRAM|
00001D70: 4D 41 2E 00 BD 25 AA 0F 83 20 41 30 33 43 39 30 |MA...%... A03C90|
00001D80: 32 45 42 30 33 34 41 39 31 38 20 37 31 44 34 39 |2EB034A918 71D49|
00001D90: 39 30 31 43 33 31 38 42 36 31 35 20 34 36 31 46 |901C318B615 461F|
00001DA0: 34 41 33 30 46 34 32 30 33 39 43 33 20 41 39 43 |4A30F42039C3 A9C|
00001DB0: 33 38 44 33 30 43 33 38 45 30 31 43 33 00 07 26 |38D30C38E01C3..&|
00001DC0: AF 0F 83 20 41 39 32 35 38 44 32 46 43 33 38 43 |... A9258D2FC38C|
00001DD0: 33 39 43 33 20 36 43 32 46 43 33 31 30 45 35 39 |39C3 6C2FC310E59|
00001DE0: 30 45 32 30 30 20 45 41 35 30 39 43 37 44 32 46 |0E200 EA509C7D2F|
00001DF0: 43 33 32 30 33 41 20 43 33 36 30 30 30 38 44 30 |C3203A C360008D0|
00001E00: 44 43 33 41 45 31 39 00 53 26 B4 0F 83 20 43 33 |DC3AE19.S&... C3|
00001E10: 33 44 31 39 43 33 35 30 46 35 42 30 31 37 20 38 |3D19C350F5B017 8|
00001E20: 43 36 30 43 33 41 45 31 34 43 33 36 35 39 38 20 |C60C3AE14C36598 |
00001E30: 31 30 45 30 36 30 45 41 45 41 41 44 32 46 43 33 |10E060EAEAAD2FC3|
00001E40: 20 46 30 41 36 35 30 41 33 46 45 33 30 43 33 42 | F0A650A3FE30C3B|
00001E50: 43 20 26 00 6F 26 70 17 85 20 22 34 20 48 45 58 |C &.o&p.. "4 HEX|
00001E60: 41 44 45 43 2E 54 45 4B 45 4E 53 22 3B 41 24 00 |ADEC.TEKENS";A$.|
00001E70: 98 26 7A 17 81 20 55 B2 30 20 A4 20 33 3A 97 20 |.&z.. U.0 . 3:. |
00001E80: 37 30 30 AA 55 2C C6 28 CA 28 41 24 2C 55 AA 31 |700.U,.(.(A$,U.1|
00001E90: 2C 31 29 29 3A 82 20 55 00 B7 26 84 17 97 20 32 |,1)):. U..&... 2|
00001EA0: 35 34 2C 32 3A 97 20 32 35 33 2C 31 38 38 20 20 |54,2:. 253,188 |
00001EB0: 3A 8F 20 37 30 30 2E 00 D7 26 8E 17 9E 20 34 30 |:. 700...&... 40|
00001EC0: 30 31 36 3A 56 B2 C2 28 32 35 31 29 AA 32 35 36 |016:V..(251).256|
00001ED0: AC C2 28 32 35 32 29 00 E8 26 98 17 99 20 22 55 |..(252)..&... "U|
00001EE0: 49 54 20 3D 22 56 3A 99 00 F9 26 A2 17 8B 20 56 |IT ="V:...&... V|
00001EF0: B1 30 20 A7 20 36 30 30 30 00 FF 26 AC 17 90 00 |.0 . 6000..&....|
00001F00: 1A 27 40 1F 99 20 22 4E 49 45 54 20 44 4F 4F 52 |.'@.. "NIET DOOR|
00001F10: 20 44 45 20 44 41 54 41 21 22 00 20 27 41 1F 90 | DE DATA!". 'A..|
00001F20: 00 46 27 34 21 85 20 22 52 45 47 45 4C 4E 55 4D |.F'4!. "REGELNUM|
00001F30: 4D 45 52 22 3B 52 3A 8B 20 52 B3 30 37 33 30 20 |MER";R:. R.0730 |
00001F40: A7 20 39 30 39 39 00 6E 27 3E 21 41 B2 33 36 30 |. 9099.n'>!A.360|
00001F50: 30 30 AA 33 32 AC B5 28 28 52 AB 37 33 30 29 AD |00.32..((R.730).|
00001F60: 31 30 29 3A 99 20 41 3A 89 20 38 35 30 30 00 7C |10):. A:. 8500.||
00001F70: 27 28 23 94 22 54 45 4D 44 22 2C 38 00 94 27 29 |'(#."TEMD",8..')|
00001F80: 23 99 3A 99 20 22 54 45 4D 44 20 53 41 56 45 44 |#.:. "TEMD SAVED|
00001F90: 2E 22 3A 99 00 A2 27 2A 23 95 22 54 45 4D 44 22 |.":...'*#."TEMD"|
00001FA0: 2C 38 00 BD 27 2B 23 99 3A 99 20 22 54 45 4D 44 |,8..'+#.:. "TEMD|
00001FB0: 20 56 45 52 49 46 49 45 44 2E 22 3A 99 00 DC 27 | VERIFIED.":...'|
00001FC0: 32 23 9F 20 35 2C 38 2C 31 35 2C 22 53 30 3A 50 |2#. 5,8,15,"S0:P|
00001FD0: 52 4F 44 49 53 2E 42 41 53 2F 4F 22 00 02 28 33 |RODIS.BAS/O"..(3|
00001FE0: 23 98 35 2C 22 52 30 3A 50 52 4F 44 49 53 2E 42 |#.5,"R0:PRODIS.B|
00001FF0: 41 53 2F 4F 3D 30 3A 50 52 4F 44 49 53 2E 42 41 |AS/O=0:PRODIS.BA|
00002000: 53 22 00 20 28 34 23 98 35 2C 22 52 30 3A 50 52 |S". (4#.5,"R0:PR|
00002010: 4F 44 49 53 2E 42 41 53 3D 30 3A 54 45 4D 44 22 |ODIS.BAS=0:TEMD"|
00002020: 00 28 28 37 23 A0 20 35 00 57 28 3C 23 99 3A 99 |.((7#. 5.W(<#.:.|
00002030: 20 22 56 45 52 53 49 45 5A 45 54 20 50 52 4F 44 | "VERSIEZET PROD|
00002040: 49 53 2E 42 41 53 20 4B 4C 41 41 52 2E 22 3A 99 |IS.BAS KLAAR.":.|
00002050: 3A 89 20 39 30 39 39 00 61 28 5A 23 9F 20 34 2C |:. 9099.a(Z#. 4,|
00002060: 34 00 77 28 5F 23 98 34 2C 20 C7 28 32 37 29 22 |4.w(_#.4, .(27)"|
00002070: 42 22 C7 28 30 32 29 00 8D 28 60 23 98 34 2C 20 |B".(02)..(`#.4, |
00002080: C7 28 32 37 29 22 4D 22 C7 28 31 30 29 00 A4 28 |.(27)"M".(10)..(|
00002090: 61 23 98 34 2C 20 C7 28 32 37 29 C7 28 39 32 29 |a#.4, .(27).(92)|
000020A0: C7 28 31 29 00 AC 28 64 23 9D 20 34 00 B7 28 69 |.(1)..(d#. 4..(i|
000020B0: 23 89 20 39 30 39 39 00 C1 28 6E 23 9F 20 34 2C |#. 9099..(n#. 4,|
000020C0: 34 00 DE 28 73 23 98 34 2C 20 22 20 20 20 20 45 |4..(s#.4, " E|
000020D0: 49 4E 44 20 56 41 4E 20 4C 49 53 54 2E 22 00 EF |IND VAN LIST."..|
000020E0: 28 74 23 98 34 2C 20 C7 28 32 37 29 22 40 22 00 |(t#.4, .(27)"@".|
000020F0: F6 28 78 23 98 34 00 FE 28 7D 23 A0 20 34 00 09 |.(x#.4..(}#. 4..|
00002100: 29 7E 23 89 20 39 30 39 39 00 0F 29 8B 23 80 00 |)~#. 9099..).#..|
00002110: 00 00 |.. |
..=.... 100 :. PROGRAMMA PRODIS.BAS D
ISSEMBLER MET LABELS....... 100 :. LA
BELS WORDEN AANGEMAAKT. KEUZE: DECIMAAL
OF HEXADEC..H.... 9000 :. VERSIE
ZET. TAAL: BASIC.
......
******** DATUM: 30 AUG.1989..
N.... 9050 :. LIST.
* RES1 *...... 9070 :. END
LIST. ********.P...A.0082
0:Z..(G) :. GETAL
G MET K HEXTEKENS IN G$....... 39888:G$.
""...... U.0 . 3:G$.G$.G(B(A.U)):. U:G$.
"$".I(G$,K.1):..`...A.00820:Z..(G)
:. GETAL G MET K CIJFER
S IN G$..R.... 39744:G$.""...... U.0 . 4
:G$.G$.G(B(A.U)):. U:G$.I(G$,K):....#.XL
.XL.1:. XL.256 . . :. HOOG XL,X
H OP MET 1....$.XL.XL.256:XH.XH.1:....(.
. 28,AL:. 29,AH:. 30,S1 :. REGEL..
O.).. 31,S2:. 33,OL:. 34,OH:. 37834:VA.B
(757):....-.. UV..2 . .
:. STATUS VAN DISK....... 9,8,15:.9,A$
,B$,C$,D$.L./..:. "SCHIJF "A$", "B$", "C
$", "D$".":..V.0. 9:....2.. 26,XL:. 27,
XH :. LABEL..7.3.. 3787
6:. B(781).0 . . :. ITEM STAAT ER AL..
K.4.. 37792:VB.B(758):. :. VUL
NIEUW ITEM....<.I.L
:. ZOEK ITEM IN LABELTABE
L....=.. (XH.B(LU.I.I.1)) . (XL.B(LU.I.I
.2)) . 63...>.I.I.1:. I.0 . 61...?...=.A
.K.3:. 25:K$.L$.G$:. :. MAAK L
ABEL OF LABELOPERAND...F.. DC.1 . . 25:
. :. DECIMAAL (DC=1) OF HEXADE
CIMAAL....G.. 20:.
:. GETAL G IN K CIJFERS IN G$....P.XL.
YL:XH.YH:JV.0:. U.0 . NN.1 :. SUBP
ASS 1....Q.. 35:. 60:. I.0 . J(U).I:JV.1
.".R.. U:..X.U.XL.YL:XH.YH:. U.0 . NN.1
:. SUBPASS 2....V.M$." ":
. J(U).0 . G.J(U):. 65:M$.K$...W.M$.M$."
.BYTE ":. 35:G.B(XL.256.XH):. 70...X.M$
.M$.G$:M$.H((M$." "),19)." ;":.
96...Y.. U:..7.Z.. UV . 92,93,94
:. OPEN RANDAPPARAAT OP U
V=0..3..H.[.. 37536:.
:. SCHERM....\.. 37536:.
:. TAPE..F.].. 37536:.
:. DISC....^.. 375
36:.5,G(27)"M"G(20):.5," D I S S E M B
L A G E .".3._..5:.5," VELD VAN "AB" T/M
"AE;G(127)".":.5:..J.`.. UV.0 . .5,M$
:. OUTPUT VAN REGEL..U.A..
M$:....B.. UV.0 . 5
:. SLUIT RANDAPPARAAT..P.C.. "EINDE VAN
DISSEMBLAGE.":....D.N$."COD.DISSEM":L.C
(N$):. 700,L:. I.1 . L...E.. 700.I,F(J(N
$,I,1)):. I:..D.F.. "MACHINECODE "N$" IN
LEZEN....":..}.N.A.49152:B.A.6:C.B.6:D.C
.6:E.D.6 :. BOOTSTRAP....O..A.0,1
69:.A.1,001:.A.2,162 :.A.3,008:.A.4,1
60:.A.5,001...P..B.0,032:.B.1,186:.B.2,2
55 :.B.3,173:.B.4,188:.B.5,002.7.Q..C
.0,162:.C.1,189:.C.2,160 :.C.3,002:.C
.4,032:.C.5,189.U.R..D.0,255:.D.1,169:.D
.2,000 :.D.3,162:.D.4,255:.D.5,160...
S..E.0,255:.E.1,032:.E.2,213 :.E.3,25
5:.E.4,096:.E.5,000.M.T.. 49152:. ST.64
. 120...U..:. "LAADFOUT:TOESTAND "ST:.:.
9099.@.X.A.00680:B.A.6
:. USR(X) SPLITS X IN LS EN HS.
.~.Y..A.0,032:.A.1,247:.A.2,183 :.A.3
,165:.A.4,020:.A.5,133...Z..B.0,167:.B.1
,165:.B.2,021 :.B.3,133:.B.4,168:.B.5
,096...{.. 785,168:. 786,002
:. S.P.680; UIT: (168,167)..D...RU.179
20:LU.30852:ZU.32768:VU.38832:WU.00832:B
U.00680 :. GEBIEDEN.....Z..(RU):. 40928
,B(167):. 40929,B(168) :. REGELS @ 6..
....Z..(LU):. 40930,B(167):. 40931,B(168
) :. LABELS @ 2......Z..(ZU):. 40932,B
(167):. 40933,B(168) :. EIND+1../...Z.
.(VU):. 40934,B(167):. 40935,B(168) :.
VOORBLOK TEXT..J...Z..(WU):. 40936,B(16
7):. 40937,B(168) :. WERKGEBIED......Z
..(BU):. 40938,B(167):. 40939,B(168) :
. BESTANDSNAAM......OU.40256
:. GEB
IED OPCODES../...Z..(OU):. 40940,B(167):
. 40941,B(168) :. BEGINADRES..M...NO.1
51 :. AA
NTAL OPCODES..|.... 40942,NO...... 3500
:. ZET TESTP
ROGRAMMA....... 36000
:. MACHINE-H.P..-...RM.B(752)
.256.B(753) :. MAX.AANTAL RE
GELS..H...LM.B(754).256.B(755)
:. MAX.AANTAL LABELS......DC.B(756)
:. DC-VLAG; DEC
IMAAL=1......AB.B(760).256.B(761)
:. BEGINADRES......AE.B(762).256.B
(763) :. EINDADRES..E. .L$.G
(B(766)).G(B(767)) :. LABEL BEGINLET
TERS......UV.B(751)
:. APPARAATNUMMER......N$."":B.B(1
69).256.B(170):L.B(B).G.... I.1 . L:N$.N
$.G(B(B.I)):. I...... 40256 TABEL OPCODE
S....... 40416 TABEL STUUR-1....... 4057
6 TABEL STUUR-2..2.... 40736 TABEL MNEM-
1..L.... 40800 TABEL MNEM-2..F.... 40864
TABEL MNEM-3..~....:. "DOORGANG 2.":...
.... 90:. UV.0 . UV.3 . 440.O.... ST..0
. ST..64 . . "OPENEN FOUT.":. 45:. 9099.
....M$." *=":K.5:G.AB:. 70:M$.M$
.G$:. 96 :. EERSTE REGEL..M.... S.1 .
R:S6.RU.6.S:YL.B(S6.6) :. OPDRACHT REG
EL S......YH.B(S6.5):S1.B(S6.4):S2.B(S6.
3):NN.S1 . 192:S1.S1.NN:NN.NN.64.T...OL.
B(S6.2):OH.B(S6.1):NS.(S2 . 24).8:P.(S2
. 96).32:XL.YL:XH.YH.....M$." ":. 6
0:. I.1 . 446 :. ZOEK LABEL......G.I:.
65:M$.K$." ".S.... S1.63 . M$.M$.".BYTE
":G.B(XL.256.XH):K.3:. 466.D.B.. NN.0 .
460...C.. 80:. JV.0 . 460
:. SUBPASS 1..I.D.M$.M$.".BYTE ":G.B(YL.
256.YH):K.3:. 70:M$.M$.G$...E.M$.H((M$.S
$(S2 . 7)." "),19)." ;".6.F.. 96
:. OUT EERST
E .BYTE-REGEL..H.G.. 85:. 490
:. SUBPASS 2....L.M$.M$.G(B(4
0736.S1)).G(B(40800.S1)).G(B(40864.S1)).
" ".I.M.. NS.0 . M$.M$." ":. 47
0...N.M$.M$.G(B(40224.P)):K.3:. (S2 . 12
8).0 . 465./.O.XL.OL:XH.OH:. 60:. I.1 .
465 :. LABEL-OPERAND?.K.P.G.I:. 65:M$.
M$.K$:. 470.N.Q.G.OL:. NS.2 . G.G.256.OH
:K.K.2...R.. 70:M$.M$.G$...V.SA.S2 . 7
:. LATER IN MA
CH.CODE....W.U$.G(B(40232.SA)).G(B(40240
.SA)).G(B(40248.SA))...X.M$.H((M$.U$."
"),19)." ;".T.... 96
:. OUT GEDISS. REGEL..\..
.. S.....M$." .END":. 96
:. .END-DIRECTIEF..G.... UV.3 . .5,G
(27)"@" :. RESET PRINTER....... 98
:. 9099 :. SLUIT RAN
DAPPARATEN..E...A.00700:B.A.6:C.B.6:D.C.
6:E.D.6:F.E.6:G.F.6:H.G.6:I.H.6:J.I.6..
...A.0,173:.A.1,000:.A.2,000:.A.3,170:.A
.4,041:.A.5,015......B.0,168:.B.1,138:.B
.2,106:.B.3,106:.B.4,106:.B.5,106......C
.0,041:.C.1,015:.C.2,170:.C.3,189:.C.4,2
12:.C.5,002.- ...D.0,170:.D.1,185:.D.2,2
12:.D.3,002:.D.4,096:.D.5,000.G ...E.0,0
48:.E.1,049:.E.2,050:.E.3,051:.E.4,052:.
E.5,053.. ...F.0,054:.F.1,055:.F.2,056:.
F.3,057:.F.4,065:.F.5,066.. ...G.0,067:.
G.1,068:.G.2,069:.G.3,070:.G.4,000:.G.5,
169..!...H.0,019:.H.1,141:.H.2,119:.H.3,
002:.H.4,162:.H.5,000.O!...I.0,134:.I.1,
198:.I.2,202:.I.3,169:.I.4,013:.I.5,157.
.!...J.0,120:.J.1,002:.J.2,202:.J.3,016:
.J.4,250:.J.5,096..!... G(147):.:. "BEGI
NREGELNUMMER (3000-7999)";R.W!... R.3000
. R.7999 . 911..!... "BEGINADRES HEXDAT
AMAKER";A.."... A.255 . 920.-"... " EIND
ADRES HEXDATAMAKER";Z.G"... Z.53247 . A.
Z . 920.B"... G(147):. R.5"DATA"A;.."...
"":. "A="A":R="R":Z="Z":GOTO 930";:. 74
7,5:. 741:..."... G(147):. A.Z . 947.M".
.. R"DATA";:. I.0 . 3..#... " ";:. J.0 .
7:D.A.8.I.J:Q..(D.256):. 701,D.256.Q.5#
... 702,Q:. 700:. G(B(781))G(B(780));:.
J:. I.T#... "":. "A="A.32":R="R.10":Z="Z
":GOTO 930";:. 747,4:. 741:...#... G(147
):. R"DATA &";:. "":. "GOTO 949";..#...
747,3:. 741:...#....S#...:. "WACHT EVEN.
":...#... AT:ZT.AT:. "BEGINADRES ="ZT;G(
157)"."..$... 253,35:. 254,B(648).8$...
K$:K.C(K$):W.0:. J.1 . K.Y$..U.F(J(K$,J,
1)):. U.38 . 3590.K$E.. U.48 . 3560..$F.
. U.58 . U.U.48:. 3530..$G.. U.65 . 3560
..$H.. U.71 . U.U.55:. 3530..$I.. 3560.Y
$J.. W.0 . Z.U:W.1:. 3560..$T.Z.Z.16.U:.
AT,Z..$..AT.AT.1:W.0..%... J:. 3510.9%.
.AT.AT.1:. " EINDADRES ="AT;G(157)".":.:
..S%... 49920
:. TESTPROGRAMMA...%... A03C902EB034A9
18 71D49901C318B615 461F4A30F42039C3 A9C
38D30C38E01C3..&... A9258D2FC38C39C3 6C2
FC310E590E200 EA509C7D2FC3203A C360008D0
DC3AE19.S&... C33D19C350F5B017 8C60C3AE1
4C36598 10E060EAEAAD2FC3 F0A650A3FE30C3B
C &.O&P.. "4 HEXADEC.TEKENS";A$..&Z.. U.
0 . 3:. 700.U,F(J(A$,U.1,1)):. U..&... 2
54,2:. 253,188 :. 700..W&... 40016:V.B(
251).256.B(252)..&... "UIT ="V:...&... V
.0 . 6000..&.....'@.. "NIET DOOR DE DATA
!". 'A...F'4!. "REGELNUMMER";R:. R.0730
. 9099.N'>!A.36000.32..((R.730).10):. A:
. 8500.|'(#."TEMD",8..')#.:. "TEMD SAVED
.":...'*#."TEMD",8..'+#.:. "TEMD VERIFIE
D.":...'2#. 5,8,15,"S0:PRODIS.BAS/O"..(3
#.5,"R0:PRODIS.BAS/O=0:PRODIS.BAS". (4#.
5,"R0:PRODIS.BAS=0:TEMD".((7# 5.W(<#.:.
"VERSIEZET PRODIS.BAS KLAAR.":.:. 9099.
A(Z#. 4,4.W(_#.4, G(27)"B"G(02)..(`#.4,
G(27)"M"G(10)..(A#.4, G(27)G(92)G(1)..(D
#. 4..(I#. 9099.A(N#. 4,4..(S#.4, " E
IND VAN LIST."..(T#.4, G(27)"@"..(X#.4..
(}# 4..)~#. 9099..).#....
> CLICK IMAGE PREVIEW FOR FULL MODAL