WERT4
FILE INFORMATION
FILENAME(S): WERT4
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:09:55
APPEARS ON: 1 disk(s)
FILE HASH
211d96905b4fef49499f4314406e2ff70a628b4647e275976a87c51e2eccd606
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEM | WERT4 | PRG | DuncanTwain | 23 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 E8 03 20 AA 24 43 30 30 30 00 14 08 |...... .$C000...|
00000010: 1A 04 20 E8 00 25 08 4C 04 20 CA 23 3C 28 49 52 |.. ..%.L. .#<(IR|
00000020: 51 4E 45 57 29 00 36 08 7E 04 20 C2 23 3E 28 49 |QNEW).6.~. .#>(I|
00000030: 52 51 4E 45 57 29 00 42 08 B0 04 20 D2 24 30 33 |RQNEW).B... .$03|
00000040: 31 34 00 4E 08 E2 04 20 D3 24 30 33 31 35 00 55 |14.N... .$0315.U|
00000050: 08 14 05 20 E7 00 5C 08 46 05 20 E3 00 6B 08 78 |... ..\.F. ..k.x|
00000060: 05 49 52 51 4E 45 57 20 CA 23 30 00 75 08 AA 05 |.IRQNEW .#0.u...|
00000070: 20 D2 24 43 36 00 7F 08 DC 05 20 CA 24 43 35 00 | .$C6..... .$C5.|
00000080: 89 08 0E 06 20 C4 23 30 33 00 93 08 40 06 20 F7 |.... .#03...@. .|
00000090: 56 45 52 00 9F 08 72 06 20 D5 24 45 41 33 31 00 |VER...r. .$EA31.|
000000A0: AE 08 A4 06 56 45 52 20 CA 35 36 33 33 34 00 B9 |....VER .56334..|
000000B0: 08 D6 06 20 C6 23 32 35 34 00 C5 08 08 07 20 D2 |... .#254..... .|
000000C0: 35 36 33 33 34 00 E4 08 3A 07 3B 2A 2A 2A 2A 2A |56334...:.;*****|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 00 F0 08 6C 07 4E 45 52 20 44 49 52 |****...l.NER DIR|
000000F0: 00 0F 09 66 08 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...f.;**********|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000110: 1B 09 98 08 20 CA 35 36 33 33 34 00 24 09 CA 08 |.... .56334.$...|
00000120: 20 CE 23 31 00 30 09 FC 08 20 D2 35 36 33 33 34 | .#1.0... .56334|
00000130: 00 3C 09 2E 09 20 D5 24 45 41 33 31 00 62 09 60 |.<... .$EA31.b.`|
00000140: 09 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 00 88 09 92 09 3B 2A 20 20 48 45 52 42 49 |**.....;* HERBI|
00000170: 45 27 53 20 44 49 53 4B 20 4D 41 43 52 4F 27 53 |E'S DISK MACRO'S|
00000180: 20 20 31 2E 31 20 20 2A 00 AE 09 C4 09 3B 2A 2A | 1.1 *.....;**|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BD |**************..|
000001B0: 09 F6 09 3B 4D 41 43 52 4F 20 44 49 52 00 E2 09 |...;MACRO DIR...|
000001C0: 28 0A 3B 4D 41 43 52 4F 20 4C 4F 41 44 A0 4E 41 |(.;MACRO LOAD.NA|
000001D0: 41 4D 41 44 52 45 53 2C 4C 45 4E 47 54 45 4E 41 |AMADRES,LENGTENA|
000001E0: 41 4D 00 05 0A 5A 0A 3B 4D 41 43 52 4F 20 53 41 |AM...Z.;MACRO SA|
000001F0: 56 45 A0 4E 41 4D 41 44 52 2C 4C 2C 41 44 52 31 |VE.NAMADR,L,ADR1|
00000200: 2C 41 44 52 32 00 29 0A 8C 0A 3B 4D 41 43 52 4F |,ADR2.)...;MACRO|
00000210: 20 53 43 52 41 54 43 48 A0 4E 41 41 4D 41 44 52 | SCRATCH.NAAMADR|
00000220: 45 53 2C 4C 45 4E 47 54 45 00 49 0A BE 0A 3B 4D |ES,LENGTE.I...;M|
00000230: 41 43 52 4F 20 44 49 53 4B 53 54 41 54 55 53 A0 |ACRO DISKSTATUS.|
00000240: 58 2C 59 2C 43 4F 4C 4F 52 00 68 0A F0 0A 3B 4D |X,Y,COLOR.h...;M|
00000250: 41 43 52 4F 20 44 49 53 4B 45 52 52 4F 52 A0 58 |ACRO DISKERROR.X|
00000260: 2C 59 2C 43 4F 4C 4F 52 00 7C 0A 22 0B 3B 4D 41 |,Y,COLOR.|.".;MA|
00000270: 43 52 4F 20 44 49 53 4B 49 4E 49 54 00 8F 0A 54 |CRO DISKINIT...T|
00000280: 0B 3B 4D 41 43 52 4F 20 44 49 53 4B 56 41 4C 00 |.;MACRO DISKVAL.|
00000290: B5 0A 86 0B 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....;***********|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 00 BE 0A B8 0B A1 44 49 52 00 C9 |*****......DIR..|
000002C0: 0A EA 0B 20 CA 23 24 32 34 00 D5 0A 1C 0C 20 D2 |... .#$24..... .|
000002D0: 24 30 31 30 30 00 E1 0A 4E 0C 20 D6 24 41 41 44 |$0100...N. .$AAD|
000002E0: 37 00 EC 0A 80 0C 20 CA 23 24 30 31 00 F3 0A B2 |7..... .#$01....|
000002F0: 0C 20 DA 00 FE 0A E4 0C 20 C2 23 24 30 30 00 0A |. ...... .#$00..|
00000300: 0B 16 0D 20 D6 24 46 46 42 44 00 15 0B 48 0D 20 |... .$FFBD...H. |
00000310: C2 23 24 30 38 00 20 0B 7A 0D 20 C3 23 24 36 30 |.#$08. .z. .#$60|
00000320: 00 2C 0B AC 0D 20 D6 24 46 46 42 41 00 38 0B DE |.,... .$FFBA.8..|
00000330: 0D 20 D6 24 46 33 44 35 00 42 0B 10 0E 20 CA 24 |. .$F3D5.B... .$|
00000340: 42 41 00 4E 0B 42 0E 20 D6 24 46 46 42 34 00 58 |BA.N.B. .$FFB4.X|
00000350: 0B 74 0E 20 CA 24 42 39 00 64 0B A6 0E 20 D6 24 |.t. .$B9.d... .$|
00000360: 46 46 39 36 00 6F 0B D8 0E 20 CA 23 24 30 30 00 |FF96.o... .#$00.|
00000370: 79 0B 0A 0F 20 D2 24 39 30 00 84 0B 3C 0F 20 C3 |y... .$90...<. .|
00000380: 23 24 30 33 00 92 0B 6E 0F 54 45 58 30 20 D4 24 |#$03...n.TEX0 .$|
00000390: 46 46 00 9E 0B A0 0F 20 D6 24 46 46 41 35 00 A8 |FF..... .$FFA5..|
000003A0: 0B D2 0F 20 D2 24 46 45 00 B2 0B 04 10 20 C3 24 |... .$FE..... .$|
000003B0: 39 30 00 BD 0B 36 10 20 F6 54 45 58 34 00 C9 0B |90...6. .TEX4...|
000003C0: 68 10 20 D6 24 46 46 41 35 00 D3 0B 9A 10 20 C3 |h. .$FFA5..... .|
000003D0: 24 39 30 00 DE 0B CC 10 20 F6 54 45 58 34 00 E8 |$90..... .TEX4..|
000003E0: 0B FE 10 20 C3 24 46 46 00 EF 0B 30 11 20 EC 00 |... .$FF...0. ..|
000003F0: FA 0B 62 11 20 F6 54 45 58 30 00 04 0C 94 11 20 |..b. .TEX0..... |
00000400: C2 24 46 45 00 10 0C C6 11 20 D6 24 42 44 43 44 |.$FE..... .$BDCD|
00000410: 00 1B 0C F8 11 20 D6 54 45 58 35 00 2B 0C 2A 12 |..... .TEX5.+.*.|
00000420: 54 45 58 31 20 D6 24 46 46 41 35 00 35 0C 5C 12 |TEX1 .$FFA5.5.\.|
00000430: 20 C2 24 39 30 00 40 0C 8E 12 20 F6 54 45 58 34 | .$90.@... .TEX4|
00000440: 00 47 0C C0 12 20 DA 00 4E 0C F2 12 20 D8 00 59 |.G... ..N... ..Y|
00000450: 0C 24 13 20 F7 54 45 58 32 00 65 0C 56 13 20 D6 |.$. .TEX2.e.V. .|
00000460: 24 46 46 44 32 00 70 0C 88 13 20 D5 54 45 58 31 |$FFD2.p... .TEX1|
00000470: 00 80 0C BA 13 54 45 58 32 20 D6 24 41 41 44 37 |.....TEX2 .$AAD7|
00000480: 00 8B 0C EC 13 20 CA 23 24 30 30 00 95 0C 1E 14 |..... .#$00.....|
00000490: 20 D2 24 43 36 00 9F 0C 50 14 20 CA 24 43 35 00 | .$C6...P. .$C5.|
000004A0: A9 0C 82 14 20 C4 23 36 30 00 B4 0C B4 14 20 F7 |.... .#60..... .|
000004B0: 54 45 58 37 00 BE 0C E6 14 20 C4 23 36 33 00 C9 |TEX7..... .#63..|
000004C0: 0C 18 15 20 F7 54 45 58 34 00 D8 0C 4A 15 54 45 |... .TEX4...J.TE|
000004D0: 58 33 20 C3 23 24 30 32 00 E3 0C 7C 15 20 D5 54 |X3 .#$02...|. .T|
000004E0: 45 58 30 00 F3 0C AE 15 54 45 58 34 20 D6 24 46 |EX0.....TEX4 .$F|
000004F0: 36 34 32 00 FE 0C E0 15 20 CA 23 24 30 38 00 08 |642..... .#$08..|
00000500: 0D 12 16 20 D2 24 42 41 00 14 0D 44 16 20 D6 24 |... .$BA...D. .$|
00000510: 46 46 42 34 00 1F 0D 76 16 20 CA 23 24 36 46 00 |FFB4...v. .#$6F.|
00000520: 29 0D A8 16 20 D2 24 42 39 00 35 0D DA 16 20 D6 |)... .$B9.5... .|
00000530: 24 46 46 39 36 00 41 0D 0C 17 20 D6 24 46 46 41 |$FF96.A... .$FFA|
00000540: 42 00 4C 0D 3E 17 20 CA 23 24 30 30 00 56 0D 70 |B.L.>. .#$00.V.p|
00000550: 17 20 D2 24 43 36 00 62 0D A2 17 20 D5 54 45 58 |. .$C6.b... .TEX|
00000560: 31 30 00 71 0D D4 17 54 45 58 35 20 CA 23 24 32 |10.q...TEX5 .#$2|
00000570: 30 00 7D 0D 06 18 20 D5 24 46 46 44 32 00 89 0D |0.}... .$FFD2...|
00000580: 38 18 20 C2 24 30 32 46 37 00 95 0D 6A 18 20 D6 |8. .$02F7...j. .|
00000590: 24 46 46 43 39 00 A0 0D 9C 18 20 F4 54 45 58 36 |$FFC9..... .TEX6|
000005A0: 00 AC 0D CE 18 20 D5 24 45 30 46 39 00 B7 0D 00 |..... .$E0F9....|
000005B0: 19 54 45 58 36 20 E3 00 C6 0D 32 19 54 45 58 37 |.TEX6 ....2.TEX7|
000005C0: 20 C2 23 24 30 30 00 D6 0D 64 19 54 45 58 38 20 | .#$00...d.TEX8 |
000005D0: D6 24 45 45 42 33 00 DD 0D 96 19 20 EF 00 E8 0D |.$EEB3..... ....|
000005E0: C8 19 20 F6 54 45 58 38 00 F7 0D FA 19 54 45 58 |.. .TEX8.....TEX|
000005F0: 39 20 CA 23 24 30 30 00 01 0E 2C 1A 20 D2 24 43 |9 .#$00...,. .$C|
00000600: 36 00 0B 0E 5E 1A 20 CA 24 43 35 00 15 0E 90 1A |6...^. .$C5.....|
00000610: 20 C4 23 36 30 00 20 0E C2 1A 20 F6 54 45 58 39 | .#60. ... .TEX9|
00000620: 00 2B 0E F4 1A 20 D5 54 45 58 33 00 37 0E 26 1B |.+... .TEX3.7.&.|
00000630: 54 45 58 31 30 20 E4 00 3D 0E 58 1B A2 00 62 0E |TEX10 ..=.X...b.|
00000640: 8A 1B 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000660: 2A 2A 00 7C 0E BC 1B A1 44 49 53 4B 53 54 41 54 |**.|....DISKSTAT|
00000670: 55 53 A0 58 2C 59 2C 43 4F 4C 4F 52 00 86 0E EE |US.X,Y,COLOR....|
00000680: 1B 20 D5 45 45 4E 00 99 0E 20 1C 54 45 58 31 30 |. .EEN... .TEX10|
00000690: 30 20 A8 22 44 4F 53 3A 22 00 A9 0E 52 1C 45 45 |0 ."DOS:"...R.EE|
000006A0: 4E 20 CA 23 43 4F 4C 4F 52 00 B5 0E 84 1C 20 D2 |N .#COLOR..... .|
000006B0: 24 30 32 38 36 00 BE 0E B6 1C 20 C2 23 59 00 C7 |$0286..... .#Y..|
000006C0: 0E E8 1C 20 C3 23 58 00 CE 0E 1A 1D 20 E5 00 DA |... .#X..... ...|
000006D0: 0E 4C 1D 20 D6 24 46 46 46 30 00 E3 0E 7E 1D 20 |.L. .$FFF0...~. |
000006E0: C2 23 30 00 F2 0E B0 1D 20 CA 54 45 58 31 30 30 |.#0..... .TEX100|
000006F0: 2C 58 00 FE 0E E2 1D 20 D6 24 46 46 44 32 00 05 |,X..... .$FFD2..|
00000700: 0F 14 1E 20 EF 00 0E 0F 46 1E 20 C0 23 34 00 18 |... ....F. .#4..|
00000710: 0F 78 1E 20 F6 2A 2D 39 00 21 0F AA 1E 20 CA 23 |.x. .*-9.!... .#|
00000720: 30 00 28 0F DC 1E 20 DA 00 2F 0F 0E 1F 20 D8 00 |0.(... ../... ..|
00000730: 3B 0F 40 1F 20 D6 24 46 46 42 44 00 45 0F 72 1F |;.@. .$FFBD.E.r.|
00000740: 20 CA 23 31 35 00 4E 0F A4 1F 20 C2 23 38 00 55 | .#15.N... .#8.U|
00000750: 0F D6 1F 20 DA 00 61 0F 08 20 20 D6 24 46 46 42 |... ..a.. .$FFB|
00000760: 41 00 6D 0F 3A 20 20 D6 24 46 46 43 30 00 77 0F |A.m.: .$FFC0.w.|
00000770: 6C 20 20 C2 23 31 35 00 83 0F 9E 20 20 D6 24 46 |l .#15.... .$F|
00000780: 46 43 36 00 8E 0F D0 20 20 C3 23 24 30 30 00 9F |FC6.... .#$00..|
00000790: 0F 02 21 54 45 58 39 38 20 D6 24 46 46 43 46 00 |..!TEX98 .$FFCF.|
000007A0: AA 0F 34 21 20 C4 23 24 30 44 00 B6 0F 66 21 20 |..4! .#$0D...f! |
000007B0: F7 54 45 58 39 39 00 C2 0F 98 21 20 D6 24 46 46 |.TEX99....! .$FF|
000007C0: 44 32 00 CE 0F CA 21 20 D5 54 45 58 39 38 00 DD |D2....! .TEX98..|
000007D0: 0F FC 21 54 45 58 39 39 20 CA 23 31 35 00 E9 0F |..!TEX99 .#15...|
000007E0: 2E 22 20 D6 24 46 46 43 33 00 F5 0F 60 22 20 D6 |." .$FFC3...`" .|
000007F0: 24 46 46 45 37 00 FE 0F 92 22 20 CA 23 30 00 08 |$FFE7...." .#0..|
00000800: 10 C4 22 20 D2 24 43 36 00 0E 10 F6 22 A2 00 34 |.." .$C6...."..4|
00000810: 10 28 23 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(#;************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000830: 2A 2A 2A 2A 00 4D 10 5A 23 A1 44 49 53 4B 45 52 |****.M.Z#.DISKER|
00000840: 52 4F 52 A0 58 2C 59 2C 43 4F 4C 4F 52 00 5A 10 |ROR.X,Y,COLOR.Z.|
00000850: 8C 23 20 CA 23 43 4F 4C 4F 52 00 66 10 BE 23 20 |.# .#COLOR.f..# |
00000860: D2 24 30 32 38 36 00 6F 10 F0 23 20 C2 23 59 00 |.$0286.o..# .#Y.|
00000870: 78 10 22 24 20 C3 23 58 00 7F 10 54 24 20 E5 00 |x."$ .#X...T$ ..|
00000880: 8B 10 86 24 20 D6 24 46 46 46 30 00 94 10 B8 24 |...$ .$FFF0....$|
00000890: 20 CA 23 30 00 9B 10 EA 24 20 DA 00 A2 10 1C 25 | .#0....$ .....%|
000008A0: 20 D8 00 AE 10 4E 25 20 D6 24 46 46 42 44 00 B8 | ....N% .$FFBD..|
000008B0: 10 80 25 20 CA 23 31 35 00 C1 10 B2 25 20 C2 23 |..% .#15....% .#|
000008C0: 38 00 C8 10 E4 25 20 DA 00 D4 10 16 26 20 D6 24 |8....% .....& .$|
000008D0: 46 46 42 41 00 E0 10 48 26 20 D6 24 46 46 43 30 |FFBA...H& .$FFC0|
000008E0: 00 EA 10 7A 26 20 C2 23 31 35 00 F6 10 AC 26 20 |...z& .#15....& |
000008F0: D6 24 46 46 43 36 00 01 11 DE 26 20 C3 23 24 30 |.$FFC6....& .#$0|
00000900: 30 00 12 11 10 27 54 45 58 39 38 20 D6 24 46 46 |0....'TEX98 .$FF|
00000910: 43 46 00 1B 11 42 27 20 C1 23 30 00 27 11 74 27 |CF...B' .#0.'.t'|
00000920: 20 F7 54 45 58 39 37 00 33 11 A6 27 54 45 58 39 | .TEX97.3..'TEX9|
00000930: 36 20 ED 00 3E 11 D8 27 20 C4 23 24 30 44 00 4A |6 ..>..' .#$0D.J|
00000940: 11 0A 28 20 F7 54 45 58 39 39 00 56 11 3C 28 20 |..( .TEX99.V.<( |
00000950: D6 24 46 46 44 32 00 62 11 6E 28 20 D5 54 45 58 |.$FFD2.b.n( .TEX|
00000960: 39 38 00 74 11 A0 28 54 45 58 39 39 20 D4 54 45 |98.t..(TEX99 .TE|
00000970: 58 31 30 33 00 7E 11 D2 28 20 CA 23 31 35 00 8A |X103.~..( .#15..|
00000980: 11 04 29 20 D6 24 46 46 43 33 00 96 11 36 29 20 |..) .$FFC3...6) |
00000990: D6 24 46 46 45 37 00 9F 11 68 29 20 CA 23 30 00 |.$FFE7...h) .#0.|
000009A0: A9 11 9A 29 20 D2 24 43 36 00 B6 11 CC 29 20 D5 |...) .$C6....) .|
000009B0: 54 45 58 31 30 32 00 C5 11 FE 29 54 45 58 39 37 |TEX102....)TEX97|
000009C0: 20 C4 23 34 38 00 D1 11 30 2A 20 F7 54 45 58 39 | .#48...0* .TEX9|
000009D0: 39 00 DB 11 62 2A 20 C4 23 34 39 00 E7 11 94 2A |9...b* .#49....*|
000009E0: 20 F7 54 45 58 39 39 00 EE 11 C6 2A 20 DA 00 F7 | .TEX99....* ...|
000009F0: 11 F8 2A 20 C2 23 30 00 06 12 2A 2B 20 CA 54 45 |..* .#0...*+ .TE|
00000A00: 58 31 30 30 2C 58 00 12 12 5C 2B 20 D6 24 46 46 |X100,X...\+ .$FF|
00000A10: 44 32 00 19 12 8E 2B 20 EF 00 23 12 C0 2B 20 C0 |D2....+ ..#..+ .|
00000A20: 23 32 30 00 2D 12 F2 2B 20 F6 2A 2D 39 00 34 12 |#20.-..+ .*-9.4.|
00000A30: 24 2C 20 D9 00 3D 12 56 2C 20 C3 23 30 00 49 12 |$, ..=.V, .#0.I.|
00000A40: 88 2C 20 D5 54 45 58 39 36 00 6A 12 BA 2C 54 45 |., .TEX96.j..,TE|
00000A50: 58 31 30 30 20 A8 22 44 4F 53 20 45 52 52 4F 52 |X100 ."DOS ERROR|
00000A60: 20 4D 45 53 53 41 47 45 3A 22 00 74 12 EC 2C 20 | MESSAGE:".t.., |
00000A70: A5 24 30 44 00 88 12 1E 2D 54 45 58 31 30 31 20 |.$0D....-TEX101 |
00000A80: A5 24 30 44 2C 24 30 44 00 A6 12 50 2D 20 A8 22 |.$0D,$0D...P- ."|
00000A90: 2D 48 49 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 |-HIY KEY TO CONT|
00000AA0: 49 4E 55 45 2D 22 00 B5 12 82 2D 54 45 58 31 30 |INUE-"....-TEX10|
00000AB0: 33 20 A5 30 30 00 C8 12 B4 2D 54 45 58 31 30 32 |3 .00....-TEX102|
00000AC0: 20 C2 54 45 58 31 30 33 00 D5 12 E6 2D 20 F7 54 | .TEX103....- .T|
00000AD0: 45 58 31 30 34 00 E0 12 18 2E 20 C2 23 24 30 30 |EX104..... .#$00|
00000AE0: 00 EF 12 4A 2E 20 CA 54 45 58 31 30 31 2C 58 00 |...J. .TEX101,X.|
00000AF0: FB 12 7C 2E 20 D6 24 46 46 44 32 00 02 13 AE 2E |..|. .$FFD2.....|
00000B00: 20 EF 00 0C 13 E0 2E 20 C0 23 32 33 00 16 13 12 | ...... .#23....|
00000B10: 2F 20 F6 2A 2D 39 00 1F 13 44 2F 20 C2 23 30 00 |/ .*-9...D/ .#0.|
00000B20: 29 13 76 2F 20 D3 24 43 36 00 33 13 A8 2F 20 C2 |).v/ .$C6.3../ .|
00000B30: 24 43 35 00 3D 13 DA 2F 20 C0 23 36 34 00 47 13 |$C5.=../ .#64.G.|
00000B40: 0C 30 20 F7 2A 2D 38 00 54 13 3E 30 54 45 58 31 |.0 .*-8.T.>0TEX1|
00000B50: 30 34 20 E4 00 5A 13 70 30 A2 00 80 13 A2 30 3B |04 ..Z.p0.....0;|
00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B80: 00 8E 13 D4 30 A1 44 49 53 4B 49 4E 49 54 00 99 |....0.DISKINIT..|
00000B90: 13 06 31 20 D5 54 57 45 45 00 A9 13 38 31 4E 41 |..1 .TWEE...81NA|
00000BA0: 41 4D 20 A8 22 49 2F 30 22 00 B6 13 6A 31 54 57 |AM ."I/0"...j1TW|
00000BB0: 45 45 20 CA 23 33 00 C5 13 9C 31 20 C3 23 3E 28 |EE .#3....1 .#>(|
00000BC0: 4E 41 41 4D 29 00 D4 13 CE 31 20 C2 23 3C 28 4E |NAAM)....1 .#<(N|
00000BD0: 41 41 4D 29 00 E0 13 00 32 20 D6 24 46 46 42 44 |AAM)....2 .$FFBD|
00000BE0: 00 EA 13 32 32 20 CA 23 31 35 00 F3 13 64 32 20 |...22 .#15...d2 |
00000BF0: C2 23 38 00 FD 13 96 32 20 C3 23 31 35 00 09 14 |.#8....2 .#15...|
00000C00: C8 32 20 D6 24 46 46 42 41 00 15 14 FA 32 20 D6 |.2 .$FFBA....2 .|
00000C10: 24 46 46 43 30 00 1F 14 2C 33 20 CA 23 31 35 00 |$FFC0...,3 .#15.|
00000C20: 2B 14 5E 33 20 D6 24 46 46 43 33 00 37 14 90 33 |+.^3 .$FFC3.7..3|
00000C30: 20 D6 24 46 46 45 37 00 3D 14 C2 33 A2 00 63 14 | .$FFE7.=..3..c.|
00000C40: F4 33 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.3;*************|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C60: 2A 2A 2A 00 70 14 26 34 A1 44 49 53 4B 56 41 4C |***.p.&4.DISKVAL|
00000C70: 00 7B 14 58 34 20 D5 44 52 49 45 00 8A 14 8A 34 |.{.X4 .DRIE....4|
00000C80: 4E 41 41 4D 33 20 A8 22 56 22 00 97 14 BC 34 44 |NAAM3 ."V"....4D|
00000C90: 52 49 45 20 CA 23 31 00 A7 14 EE 34 20 C3 23 3E |RIE .#1....4 .#>|
00000CA0: 28 4E 41 41 4D 33 29 00 B7 14 20 35 20 C2 23 3C |(NAAM3)... 5 .#<|
00000CB0: 28 4E 41 41 4D 33 29 00 C3 14 52 35 20 D6 24 46 |(NAAM3)...R5 .$F|
00000CC0: 46 42 44 00 CD 14 84 35 20 CA 23 31 35 00 D6 14 |FBD....5 .#15...|
00000CD0: B6 35 20 C2 23 38 00 E0 14 E8 35 20 C3 23 31 35 |.5 .#8....5 .#15|
00000CE0: 00 EC 14 1A 36 20 D6 24 46 46 42 41 00 F8 14 4C |....6 .$FFBA...L|
00000CF0: 36 20 D6 24 46 46 43 30 00 02 15 7E 36 20 CA 23 |6 .$FFC0...~6 .#|
00000D00: 31 35 00 0E 15 B0 36 20 D6 24 46 46 43 33 00 1A |15....6 .$FFC3..|
00000D10: 15 E2 36 20 D6 24 46 46 45 37 00 20 15 14 37 A2 |..6 .$FFE7. ..7.|
00000D20: 00 47 15 46 37 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.G.F7;**********|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D40: 2A 2A 2A 2A 2A 2A 2A 00 66 15 78 37 A1 4C 4F 41 |*******.f.x7.LOA|
00000D50: 44 A0 4E 41 41 4D 41 44 52 45 53 2C 4C 45 4E 47 |D.NAAMADRES,LENG|
00000D60: 54 45 4E 41 41 4D 00 71 15 AA 37 20 CA 23 24 30 |TENAAM.q..7 .#$0|
00000D70: 34 00 7C 15 DC 37 20 C2 23 24 30 38 00 87 15 0E |4.|..7 .#$08....|
00000D80: 38 20 C3 23 24 30 31 00 93 15 40 38 20 D6 24 46 |8 .#$01...@8 .$F|
00000D90: 46 42 41 00 A5 15 72 38 20 CA 23 4C 45 4E 47 54 |FBA...r8 .#LENGT|
00000DA0: 45 4E 41 41 4D 00 B9 15 A4 38 20 C2 23 3C 28 4E |ENAAM....8 .#<(N|
00000DB0: 41 41 4D 41 44 52 45 53 29 00 CD 15 D6 38 20 C3 |AAMADRES)....8 .|
00000DC0: 23 3E 28 4E 41 41 4D 41 44 52 45 53 29 00 D9 15 |#>(NAAMADRES)...|
00000DD0: 08 39 20 D6 24 46 46 42 44 00 E4 15 3A 39 20 CA |.9 .$FFBD...:9 .|
00000DE0: 23 24 30 30 00 EF 15 6C 39 20 C2 23 24 46 46 00 |#$00...l9 .#$FF.|
00000DF0: FA 15 9E 39 20 C3 23 24 46 46 00 06 16 D0 39 20 |...9 .#$FF....9 |
00000E00: D6 24 46 46 44 35 00 0C 16 02 3A A2 00 33 16 34 |.$FFD5....:..3.4|
00000E10: 3A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |:;**************|
00000E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E30: 2A 2A 2A 00 50 16 66 3A A1 53 41 56 45 A0 4E 41 |***.P.f:.SAVE.NA|
00000E40: 4D 41 44 52 2C 4C 2C 41 44 52 31 2C 41 44 52 32 |MADR,L,ADR1,ADR2|
00000E50: 00 5B 16 98 3A 20 CA 23 24 30 34 00 66 16 CA 3A |.[..: .#$04.f..:|
00000E60: 20 C2 23 24 30 38 00 71 16 FC 3A 20 C3 23 24 30 | .#$08.q..: .#$0|
00000E70: 31 00 7D 16 2E 3B 20 D6 24 46 46 42 41 00 86 16 |1.}..; .$FFBA...|
00000E80: 60 3B 20 CA 23 4C 00 97 16 92 3B 20 C2 23 3C 28 |`; .#L....; .#<(|
00000E90: 4E 41 4D 41 44 52 29 00 A8 16 C4 3B 20 C3 23 3E |NAMADR)....; .#>|
00000EA0: 28 4E 41 4D 41 44 52 29 00 B4 16 F6 3B 20 D6 24 |(NAMADR)....; .$|
00000EB0: 46 46 42 44 00 C3 16 28 3C 20 CA 23 3C 28 41 44 |FFBD...(< .#<(AD|
00000EC0: 52 31 29 00 CD 16 5A 3C 20 D2 24 30 32 00 DC 16 |R1)...Z< .$02...|
00000ED0: 8C 3C 20 CA 23 3E 28 41 44 52 31 29 00 E6 16 BE |.< .#>(ADR1)....|
00000EE0: 3C 20 D2 24 30 33 00 F5 16 F0 3C 20 C2 23 3C 28 |< .$03....< .#<(|
00000EF0: 41 44 52 32 29 00 04 17 22 3D 20 C3 23 3E 28 41 |ADR2)..."= .#>(A|
00000F00: 44 52 32 29 00 0F 17 54 3D 20 CA 23 24 30 32 00 |DR2)...T= .#$02.|
00000F10: 1B 17 86 3D 20 D6 24 46 46 44 38 00 21 17 B8 3D |...= .$FFD8.!..=|
00000F20: A2 00 47 17 EA 3D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..G..=;*********|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F40: 2A 2A 2A 2A 2A 2A 2A 00 65 17 1C 3E A1 53 43 52 |*******.e..>.SCR|
00000F50: 41 54 43 48 A0 4E 41 41 4D 41 44 52 45 53 2C 4C |ATCH.NAAMADRES,L|
00000F60: 45 4E 47 54 45 00 71 17 4E 3E 20 D5 42 45 47 49 |ENGTE.q.N> .BEGI|
00000F70: 4E 00 91 17 80 3E 4E 41 41 4D 20 A8 22 53 30 3A |N....>NAAM ."S0:|
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F90: 22 00 A0 17 B2 3E 42 45 47 49 4E 20 C2 23 30 30 |"....>BEGIN .#00|
00000FA0: 00 B8 17 E4 3E 54 45 58 32 30 30 20 CA 4E 41 41 |....>TEX200 .NAA|
00000FB0: 4D 41 44 52 45 53 2C 58 00 C9 17 16 3F 20 D2 4E |MADRES,X....? .N|
00000FC0: 41 41 4D 2B 24 30 33 2C 58 00 D0 17 48 3F 20 EF |AAM+$03,X...H? .|
00000FD0: 00 DE 17 7A 3F 20 C0 23 4C 45 4E 47 54 45 00 EB |...z? .#LENGTE..|
00000FE0: 17 AC 3F 20 F6 54 45 58 32 30 30 00 FB 17 DE 3F |..? .TEX200....?|
00000FF0: 20 CA 23 4C 45 4E 47 54 45 2B 33 00 0A 18 10 40 | .#LENGTE+3....@|
00001000: 20 C3 23 3E 28 4E 41 41 4D 29 00 19 18 42 40 20 | .#>(NAAM)...B@ |
00001010: C2 23 3C 28 4E 41 41 4D 29 00 25 18 74 40 20 D6 |.#<(NAAM).%.t@ .|
00001020: 24 46 46 42 44 00 2F 18 A6 40 20 CA 23 31 35 00 |$FFBD./..@ .#15.|
00001030: 38 18 D8 40 20 C2 23 38 00 42 18 0A 41 20 C3 23 |8..@ .#8.B..A .#|
00001040: 31 35 00 4E 18 3C 41 20 D6 24 46 46 42 41 00 5A |15.N.<A .$FFBA.Z|
00001050: 18 6E 41 20 D6 24 46 46 43 30 00 64 18 A0 41 20 |.nA .$FFC0.d..A |
00001060: CA 23 31 35 00 70 18 D2 41 20 D6 24 46 46 43 33 |.#15.p..A .$FFC3|
00001070: 00 7C 18 04 42 20 D6 24 46 46 45 37 00 82 18 36 |.|..B .$FFE7...6|
00001080: 42 A2 00 00 00 |B.... |
...... .$C000..... ..%.L. J#<(IRQNEW).6.
~. B#>(IRQNEW).B... R$0314.N... S$0315.U
... ..\.F. ..K.X.IRQNEW J#0.U... R$C6..
.. J$C5..... D#03...@. .VER...R. U$EA31.
....VER J56334...V. F#254.E... R56334...
:.;*************************...L.NER DIR
...F.;*************************..... J56
334.$.J. N#1.0... R56334.<... U$EA31.B.`
.;********************************.....;
* HERBIE'S DISK MACRO'S 1.1 *...D.;**
******************************.....;MACR
O DIR...(.;MACRO LOAD NAAMADRES,LENGTENA
AM...Z.;MACRO SAVE NAMADR,L,ADR1,ADR2.).
..;MACRO SCRATCH NAAMADRES,LENGTE.I...;M
ACRO DISKSTATUS X,Y,COLOR.H...;MACRO DIS
KERROR X,Y,COLOR.|.".;MACRO DISKINIT...T
.;MACRO DISKVAL.....;*******************
*************......DIR.I... J#$24.U... R
$0100...N. V$AAD7..... J#$01..... Z.....
B#$00..... V$FFBD...H. B#$08. .Z. C#$60
.,... V$FFBA.8... V$F3D5.B... J$BA.N.B.
V$FFB4.X.T. J$B9.D... V$FF96.O.X. J#$00.
Y... R$90...<. C#$03...N.TEX0 T$FF... .
V$FFA5...R. R$FE..... C$90...6. .TEX4.I.
H. V$FFA5.S... C$90...L. .TEX4..... C$FF
...0. ....B. .TEX0..... B$FE...F. V$BDCD
..... VTEX5.+.*.TEX1 V$FFA5.5.\. B$90.@.
.. .TEX4.G... Z.N... X.Y.$. .TEX2.E.V. V
$FFD2.P... UTEX1.....TEX2 V$AAD7..... J#
$00..... R$C6...P. J$C5..... D#60..... .
TEX7..... D#63.I... .TEX4.X.J.TEX3 C#$02
...|. UTEX0.....TEX4 V$F642..... J#$08..
... R$BA...D. V$FFB4...V. J#$6F.)... R$B
9.5.Z. V$FF96.A... V$FFAB.L.>. J#$00.V.P
. R$C6.B... UTEX10.Q.T.TEX5 J#$20.}... U
$FFD2...8. B$02F7...J. V$FFC9. ... .TEX6
...N. U$E0F9.....TEX6 ..F.2.TEX7 B#$00.V
.D.TEX8 V$EEB3..... ....H. .TEX8.....TEX
9 J#$00...,. R$C6...^. J$C5..... D#60. .
B. .TEX9.+... UTEX3.7.&.TEX10 ..=.X...B.
..;*******************************.|....
DISKSTATUS X,Y,COLOR..... UEEN... .TEX10
0 ."DOS:"...R.EEN J#COLOR..... R$0286...
.. B#Y.G... C#X.N... ..Z.L. V$FFF0...~.
B#0..... JTEX100,X..... V$FFD2..... ....
F. .#4...X. .*-9.!... J#0.(... Z./... X.
;.@. V$FFBD.E.R. J#15.N... B#8.U.V. Z.A.
. V$FFBA.M.: V$FFC0.W.L B#15.... V$F
FC6...P C#$00....!TEX98 V$FFCF...4! D#$
0D...F! .TEX99.B..! V$FFD2.N.J! UTEX98..
..!TEX99 J#15...." V$FFC3...`" V$FFE7...
." J#0...D" R$C6...."..4.(#;************
********************.M.Z#.DISKERROR X,Y,
COLOR.Z..# J#COLOR.F..# R$0286.O..# B#Y.
X."$ C#X..T$ .....$ V$FFF0....$ J#0....
$ Z....% X...N% V$FFBD....% J#15.A..% B#
8.H..% Z.T..& V$FFBA...H& V$FFC0...Z& B#
15....& V$FFC6....& C#$00....'TEX98 V$FF
CF...B' A#0.'.T' .TEX97.3..'TEX96 ..>.X'
D#$0D.J..( .TEX99.V.<( V$FFD2.B.N( UTEX
98.T. (TEX99 TTEX103.~.R( J#15....) V$FF
C3...6) V$FFE7...H) J#0....) R$C6...L) U
TEX102.E..)TEX97 D#48.Q.0* .TEX99...B* D
#49....* .TEX99...F* Z....* B#0...*+ JTE
X100,X...\+ V$FFD2....+ ..#..+ .#20.-..+
.*-9.4.$, Y.=.V, C#0.I.., UTEX96.J..,TE
X100 ."DOS ERROR MESSAGE:".T.., .$0D....
-TEX101 .$0D,$0D...P- ."-HIY KEY TO CONT
INUE-"....-TEX103 .00.H..-TEX102 BTEX103
.U..- .TEX104..... B#$00...J. JTEX101,X.
..|. V$FFD2..... ...... .#23..../ .*-9..
.D/ B#0.).V/ S$C6.3../ B$C5.=.Z/ .#64.G.
.0 .*-8.T.>0TEX104 ..Z.P0.....0;********
************************...T0.DISKINIT..
..1 UTWEE...81NAAM ."I/0"...J1TWEE J#3.E
..1 C#>(NAAM).T.N1 B#<(NAAM)....2 V$FFBD
...22 J#15...D2 B#8....2 C#15...H2 V$FFB
A....2 V$FFC0...,3 J#15.+.^3 V$FFC3.7..3
V$FFE7.=.B3..C..3;*********************
***********.P.&4.DISKVAL.{.X4 UDRIE....4
NAAM3 ."V"....4DRIE J#1....4 C#>(NAAM3).
.. 5 B#<(NAAM3).C.R5 V$FFBD.M..5 J#15.V.
.5 B#8....5 C#15....6 V$FFBA...L6 V$FFC0
...~6 J#15....6 V$FFC3....6 V$FFE7. ..7.
.G.F7;*********************************.
F.X7.LOAD NAAMADRES,LENGTENAAM.Q..7 J#$0
4.|..7 B#$08....8 C#$01...@8 V$FFBA...R8
J#LENGTENAAM....8 B#<(NAAMADRES).M.V8 C
#>(NAAMADRES).Y..9 V$FFBD...:9 J#$00...L
9 B#$FF....9 C#$FF...P9 V$FFD5....:..3.4
:;*********************************.P.F:
.SAVE NAMADR,L,ADR1,ADR2.[..: J#$04.F.J:
B#$08.Q..: C#$01.}..; V$FFBA...`; J#L..
..; B#<(NAMADR)...D; C#>(NAMADR)....; V$
FFBD.C.(< J#<(ADR1).M.Z< R$02....< J#>(A
DR1)....< R$03....< B#<(ADR2)..."= C#>(A
DR2)...T= J#$02....= V$FFD8.!..=..G..=;*
*******************************.E..>.SCR
ATCH NAAMADRES,LENGTE.Q.N> UBEGIN....>NA
AM ."S0: ". ..>BEGIN B#00
....>TEX200 JNAAMADRES,X.I..? RNAAM+$03,
X.P.H? ....Z? .#LENGTE....? .TEX200....?
J#LENGTE+3....@ C#>(NAAM)...B@ B#<(NAAM
).%.T@ V$FFBD./..@ J#15.8.X@ B#8.B..A C#
15.N.<A V$FFBA.Z.NA V$FFC0.D. A J#15.P.R
A V$FFC3.|..B V$FFE7...6B....
> CLICK IMAGE PREVIEW FOR FULL MODAL