HCOPY 1520.MAE
FILE INFORMATION
FILENAME(S): HCOPY 1520.MAE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 00:13:20
APPEARS ON: 1 disk(s)
FILE HASH
d38d08549eeb19387918fc9a7b4a5e931f0ba1095f2cd35c04086a874ff17805
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 9 86 | HCOPY 1520.MAE | PRG | earthshaker | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: B7 00 30 5A 3D 00 10 00 20 2E 62 61 20 24 30 38 |..0Z=... .ba $08| 00000010: 30 B1 20 00 20 2E 6F F3 30 00 20 2E 63 E5 40 00 |0. . .o.0. .c.@.| 00000020: 73 65 74 6C 66 73 20 2E 6D FF FF FF CC CC FF FF |setlfs .m.......| 00000030: FF FF FF FF 4D CD FF CB FF FF FF FF FF FF CC CC |....M...........| 00000040: FF FF FF FF C1 4F FF CD FF FF FF FF FF FF FF FF |.....O..........| 00000050: FF 67 FF FF FF FF C1 FF FF FF FF FF FF FF FF FF |.g..............| 00000060: FF FF FF FF FF FF FF FF FF FF CD FF FF FF FF FF |................| 00000070: FF CC CC FF FF FF FF FF FF C7 C1 FF 4D FF FF FF |............M...| 00000080: FF FF FF FF FF FF 62 FF FF 5C CB FF 4F FF FF FF |......b..\..O...| 00000090: FF FF FF FF FF FF FF FF FF FF CB FF 4F FF FF FF |............O...| 000000A0: FF FF FF FF FF FF 6F FF FF C5 FF 4D C3 CD FF FF |......o....M....| 000000B0: FF FF FF FF CC CC FF 6D FF FF FF FF FF C6 BA 80 |.......m........| 000000C0: 1A 9A 9E 80 8A 9E C4 AE FF 22 2D FF BF FF FC BD |........."-.....| 000000D0: FF FF 7F 3F FF FF 3F 2D FF FF 3B A2 2D 3C 6B 51 |...?..?-..;.-<kQ| 000000E0: FF FF 58 FF 51 FF 52 02 46 13 53 6B 06 00 17 66 |..X.Q.R.F.Sk...f| 000000F0: BC FF FF FF DC E8 08 A9 AC 0C 1C 0D 88 55 67 65 |.............Uge| 00000100: 74 73 74 72 20 2E 64 65 20 24 62 34 38 B7 80 01 |tstr .de $b48...| 00000110: 66 72 65 73 74 72 20 2E 64 65 20 24 62 36 61 B6 |frestr .de $b6a.| 00000120: 90 01 6C 6F 61 64 20 2E 64 65 20 24 66 66 64 B5 |..load .de $ffd.| 00000130: 00 02 65 70 75 66 66 72 20 2E 64 65 20 24 30 32 |..epuffr .de $02| 00000140: 30 B0 10 02 63 68 6B 69 6E 20 2E 64 65 20 24 65 |0...chkin .de $e| 00000150: 31 31 E5 20 02 76 65 63 20 2E 64 65 20 24 66 E2 |11. .vec .de $f.| 00000160: 30 02 76 65 63 32 20 2E 64 65 20 24 66 E4 40 02 |0.vec2 .de $f.@.| 00000170: 20 2E 73 65 20 24 30 38 30 E2 50 02 20 2E 73 65 | .se $080.P. .se| 00000180: 20 31 39 38 B6 60 02 20 20 20 20 20 20 20 20 20 | 198.`. | 00000190: 20 20 2E 62 79 20 24 39 65 20 27 32 30 36 31 27 | .by $9e '2061'| 000001A0: 20 30 20 30 20 B0 70 02 BB 80 02 69 6E 69 74 20 | 0 0 .p....init | 000001B0: 6C 64 61 20 23 6C 2C 74 69 74 65 EC 90 02 20 6C |lda #l,tite... l| 000001C0: 64 79 20 23 68 2C 74 69 74 65 EC 00 03 20 6A 73 |dy #h,tite... js| 000001D0: 72 20 73 74 72 6F 75 F4 10 03 69 6E 6C 6F 70 20 |r strou...inlop | 000001E0: 6A 73 72 20 67 65 74 69 EE 20 03 20 63 6D 70 20 |jsr geti. . cmp | 000001F0: 23 27 44 A7 30 03 20 62 65 71 20 68 63 6F 70 79 |#'D.0. beq hcopy| 00000200: B2 40 03 20 63 6D 70 20 23 27 4C A7 50 03 20 62 |.@. cmp #'L.P. b| 00000210: 65 71 20 6C 61 64 65 EE 60 03 20 63 6D 70 20 23 |eq lade.`. cmp #| 00000220: 27 5A A7 70 03 20 62 65 71 20 7A 65 69 67 65 EE |'Z.p. beq zeige.| 00000230: 80 03 20 63 6D 70 20 23 27 51 A7 90 03 20 62 6E |.. cmp #'Q... bn| 00000240: 65 20 69 6E 6C 6F F0 00 04 20 6A 6D 70 20 24 66 |e inlo... jmp $f| 00000250: 63 65 B2 10 04 68 63 6F 70 79 12 20 6A 6D 70 20 |ce...hcopy. jmp | 00000260: 68 63 6F 70 F9 20 04 BB FF FF 5F FF C3 C5 FF CD |hcop. ...._.....| 00000270: FF FF FF FF FF FF 66 FF FF FF FF FF 43 FF FF FF |......f.....C...| 00000280: FF FF 5F FF C1 4F FF FF 4D FF FF FF CB FF 4F FF |.._..O..M.....O.| 00000290: 03 FF FF FF FF 4D FF FF FF CB FF 4F FF FF FF FF |.....M.....O....| 000002A0: FF 03 FF FF FF FF 4D FF FF FF CB FF 4F FF FF FF |......M.....O...| 000002B0: FF FF 02 FF FF FF FF 4D FF FF FF CB FF 4F FF FF |.......M.....O..| 000002C0: FF FF FF 03 FF FF FF C3 CD 02 FF FF FF FF 4F 43 |..............OC| 000002D0: FF FF FF FF FF FF FF FF FF FF FF FF 5F FF C1 0F |............_...| 000002E0: FF FF FF FF FF FF FF FF FF 73 FF FF FF FF 4D FF |.........s....M.| 000002F0: FF 5C C3 FF FF FF 74 FF FF FF 6C 64 61 20 23 32 |.\....t...lda #2| 00000300: B4 50 05 20 73 74 61 20 76 69 63 2B 32 B4 60 05 |.P. sta vic+2.`.| 00000310: 7A 32 6C 6F 70 20 6A 73 72 20 67 65 74 69 EE 70 |z2lop jsr geti.p| 00000320: 05 20 62 65 71 20 7A 32 6C 6F F0 80 05 20 6C 64 |. beq z2lo... ld| 00000330: 61 20 23 32 B7 90 05 20 73 74 61 20 76 69 63 2B |a #2... sta vic+| 00000340: 31 B7 00 06 20 6C 64 61 20 23 32 B1 10 06 20 73 |1... lda #2... s| 00000350: 74 61 20 76 69 63 2B 32 B4 20 06 20 6A 6D 70 20 |ta vic+2. . jmp | 00000360: 69 6E 69 F4 30 06 BB 40 06 6C 61 64 65 6E 20 6C |ini.0..@.laden l| 00000370: 64 61 20 23 B1 50 06 20 6A 73 72 20 63 6C 6F 73 |da #.P. jsr clos| 00000380: E5 60 06 20 6C 64 61 20 23 6C 2C 6C 74 69 F4 70 |.`. lda #l,lti.p| 00000390: 06 20 6C 64 79 20 23 68 2C 6C 74 69 F4 80 06 20 |. ldy #h,lti... | 000003A0: 6A 73 72 20 73 74 72 6F 75 F4 90 06 20 6A 73 72 |jsr strou... jsr| 000003B0: 20 6C 69 6E 65 69 EE 00 07 20 6C 64 61 20 23 6C | linei... lda #l| 000003C0: 2C 65 70 75 66 66 F2 10 07 20 6C 64 79 20 23 68 |,epuff... ldy #h| 000003D0: 2C 65 70 75 66 66 F2 20 07 20 6A 73 72 20 67 65 |,epuff. . jsr ge| 000003E0: 74 73 74 F2 30 07 20 6A 73 72 20 66 72 65 73 74 |tst.0. jsr frest| 000003F0: F2 40 07 20 6A 73 72 20 73 65 74 6E 61 ED 50 07 |.@. jsr setna.P.| 00000400: 20 6C 64 61 20 23 B1 60 07 20 6C 64 78 20 23 B8 | lda #.`. ldx #.| 00000410: 70 07 20 6C 6D 53 FF FF FF FF F5 FF CF FF FF FF |p. lmS..........| 00000420: FF FF 4D FF CC FF FF F5 FF CF FF FF FF C1 4F FF |..M...........O.| 00000430: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 43 |...............C| 00000440: FF FF FF FF 5C CB FF 0F FF FF FF FF FF 53 FF FF |....\........S..| 00000450: FF FF 5C CB FF 0F FF FF FF CF FF FF FF FF C1 FF |..\.............| 00000460: FF FF FF FF FF FF FF FF FF FF 66 FF FF FF CF FF |..........f.....| 00000470: FF FF FF C6 A6 E5 9E 98 FF 80 96 9A 94 80 05 C4 |................| 00000480: D8 FF 80 96 9A FF 80 05 FF FF FF 80 96 9A FF 80 |................| 00000490: 04 C5 FF FF FF 80 B0 E4 E0 80 E4 9E DA 96 AA 6C |...............l| 000004A0: 88 FF 80 96 9A 94 80 05 C8 C8 FF 80 B0 E4 E0 80 |................| 000004B0: E4 9E DA BA 95 B6 88 FF 80 B0 E4 E0 80 A6 D0 FF |................| 000004C0: BA C8 FF 80 96 9A FF 80 05 CC 98 FF 80 B0 E4 E0 |................| 000004D0: 80 A4 FF B4 FF B9 D8 FF 80 B0 E4 E0 80 96 FF BA |................| 000004E0: 9E FF BA 98 FF 80 96 9A 94 80 05 C4 D8 FF 80 B0 |................| 000004F0: E4 E0 80 A4 96 A7 73 E5 80 09 20 6A 73 72 20 63 |......s... jsr c| 00000500: 6C 72 63 68 EE 90 09 20 6C 64 61 20 65 70 75 66 |lrch... lda epuf| 00000510: 66 F2 00 10 20 63 6D 70 20 23 27 30 A7 10 10 20 |f... cmp #'0... | 00000520: 62 65 71 20 69 6E 69 74 B2 20 10 20 6C 64 61 20 |beq init. . lda | 00000530: 23 6C 2C 65 70 75 66 66 F2 30 10 20 6C 64 79 20 |#l,epuff.0. ldy | 00000540: 23 68 2C 65 70 75 66 66 F2 40 10 20 6A 73 72 20 |#h,epuff.@. jsr | 00000550: 73 74 72 6F 75 F4 50 10 6C 32 6C 6F 70 20 6A 73 |strou.P.l2lop js| 00000560: 72 20 67 65 74 69 EE 60 10 20 62 65 71 20 6C 32 |r geti.`. beq l2| 00000570: 6C 6F F0 70 10 69 6E 69 74 32 20 6A 6D 70 20 69 |lo.p.init2 jmp i| 00000580: 6E 69 F4 80 10 BB 90 10 68 63 6F 70 79 20 6C 64 |ni......hcopy ld| 00000590: 61 20 23 B1 00 11 20 6C 64 78 20 23 B6 10 11 20 |a #... ldx #... | 000005A0: 74 61 F9 20 11 20 6A 73 72 20 73 65 74 6C 66 F3 |ta. . jsr setlf.| 000005B0: 30 11 20 6C 64 61 20 23 B0 40 11 20 6A 73 72 20 |0. lda #.@. jsr | 000005C0: 73 65 74 6E 61 ED 50 11 20 6A 73 72 20 6F 70 65 |setna.P. jsr ope| 000005D0: EE 60 11 20 6C 64 61 20 23 6C 2C 6F 75 74 74 61 |.`. lda #l,outta| 000005E0: E2 70 11 20 73 74 61 20 24 32 B2 80 11 20 6C 64 |.p. sta $2... ld| 000005F0: 61 20 23 68 2C 6F 75 74 74 61 E2 90 11 20 20 20 |a #h,outta... | 00000600: 20 20 20 20 20 20 20 20 73 74 61 20 24 32 B3 00 | sta $2..| 00000610: 12 20 6C 64 61 20 23 32 B5 10 12 20 73 74 61 20 |. lda #2... sta | 00000620: 72 6F 77 63 6F 75 6E F4 20 12 20 6C 64 61 20 23 |rowcoun. . lda #| 00000630: 27 30 A7 30 12 20 73 74 61 20 6F 75 74 74 61 62 |'0.0. sta outtab| 00000640: 2B B7 40 12 20 73 74 61 20 6F 75 74 74 61 62 2B |+.@. sta outtab+| 00000650: B8 50 12 20 73 74 61 20 6F 75 74 74 61 62 2B B9 |.P. sta outtab+.| 00000660: 60 12 20 6C 6D 43 FF FF FF FF 5C CB FF 4F FF 67 |`. lmC....\..O.g| 00000670: FF FF FF FF FF 53 FF FF FF FF 5C CB FF 4F FF 66 |.....S....\..O.f| 00000680: FF FF FF C1 55 FF C1 C1 4F FF FF FF FF FF FF FF |....U...O.......| 00000690: FF FF FF FF FF 4D FF FF 5F FF C3 FF C1 FF CD FF |.....M.._.......| 000006A0: FF FF 5F FF C3 FF C1 C1 4F FF C3 CD 02 FF FF FF |.._.....O.......| 000006B0: FF CD FF FF C7 FF FF FF FF FF FF FF FF C3 CD 13 |................| 000006C0: FF FF C7 FF FF FF FF FF FF FF 4D 43 FF 5C FF FF |..........MC.\..| 000006D0: FF FF FF FF 4D 53 FF 5C FF FF FF 66 FF FF FF FF |....MS.\...f....| 000006E0: 4D 43 FF 5C FF FF FF FF FF FF FF 4D 53 FF 5C FF |MC.\.......MS.\.| 000006F0: FF FF 2B B1 70 13 20 6C 64 61 20 23 27 30 A7 80 |..+.p. lda #'0..| 00000700: 13 20 73 74 61 20 6F 75 74 74 61 62 2B B2 90 13 |. sta outtab+...| 00000710: 20 73 74 61 20 6F 75 74 74 61 62 2B B3 00 14 20 | sta outtab+... | 00000720: 73 74 61 20 6F 75 74 74 61 62 2B B4 10 14 20 6C |sta outtab+... l| 00000730: 64 61 20 23 34 B0 20 14 20 73 74 61 20 73 70 61 |da #4. . sta spa| 00000740: 63 6F 75 6E F4 30 14 20 6C 64 61 20 23 B0 40 14 |coun.0. lda #.@.| 00000750: 20 73 74 61 20 66 6C 61 E7 50 14 20 6A 73 72 20 | sta fla.P. jsr | 00000760: 6F 75 F4 60 14 20 6C 64 79 20 23 B8 70 14 20 6C |ou.`. ldy #.p. l| 00000770: 64 61 20 28 76 65 63 29 2C F9 80 14 20 61 73 6C |da (vec),... asl| 00000780: 20 E1 90 14 20 72 6F 6C 20 66 6C 61 E7 00 15 20 | ... rol fla... | 00000790: 6C 64 79 20 23 B0 10 15 20 62 65 71 20 6B 75 65 |ldy #... beq kue| 000007A0: F2 20 15 73 70 61 6C 6F 6F 70 20 63 6C E3 30 15 |. .spaloop cl.0.| 000007B0: 20 6C 64 61 20 76 65 E3 40 15 20 61 64 63 20 23 | lda ve.@. adc #| 000007C0: B8 50 15 20 73 74 61 20 76 65 E3 60 15 20 62 63 |.P. sta ve.`. bc| 000007D0: 63 20 6B 75 65 F2 70 15 20 69 6E 63 20 76 65 63 |c kue.p. inc vec| 000007E0: 2B B1 80 15 6B 75 65 72 20 6C 64 61 20 28 76 65 |+...kuer lda (ve| 000007F0: 63 29 2C F9 90 15 20 73 74 61 20 74 65 6D F0 00 |c),... sta tem..| 00000800: 16 20 6C 64 78 20 23 B8 10 16 20 62 6E 65 20 6E |. ldx #... bne n| 00000810: 69 78 69 6E E3 20 16 62 69 74 6C 6F 6F 70 20 69 |ixin. .bitloop i| 00000820: 6E 63 20 6F 75 74 74 61 62 2B B4 30 16 20 6C 64 |nc outtab+.0. ld| 00000830: 61 20 6F 75 74 74 61 62 2B B4 40 16 20 63 6D 70 |a outtab+.@. cmp| 00000840: 20 23 35 B8 50 16 20 62 63 63 20 6E 69 78 69 6E | #5.P. bcc nixin| 00000850: E3 60 16 20 6C 64 61 20 23 27 30 A7 70 16 20 73 |.`. lda #'0.p. s| 00000860: 74 61 20 6F 75 74 74 61 62 2B B4 80 16 20 69 6E |ta outtab+... in| 00000870: 63 20 6F 75 74 74 61 62 2B B3 90 16 20 6C 64 61 |c outtab+... lda| 00000880: 20 6F 75 74 74 61 62 2B B3 00 17 20 63 6D 70 20 | outtab+... cmp | 00000890: 23 35 B8 10 17 20 62 63 63 20 6E 69 78 69 6E E3 |#5... bcc nixin.| 000008A0: 20 17 20 6C 64 61 20 23 27 30 A7 30 17 20 73 74 | . lda #'0.0. st| 000008B0: 61 20 6F 75 74 74 61 62 2B B3 40 17 20 69 6E 63 |a outtab+.@. inc| 000008C0: 20 6F 75 74 74 61 62 2B B2 50 17 6E 69 78 69 6E | outtab+.P.nixin| 000008D0: 63 20 74 79 E1 60 17 20 61 73 6C 20 74 65 6D F0 |c ty.`. asl tem.| 000008E0: 70 17 20 72 6F 6C 20 E1 80 17 20 63 6D 70 20 66 |p. rol ... cmp f| 000008F0: 6C 61 E7 90 17 20 62 65 71 20 6E 69 78 64 72 61 |la... beq nixdra| 00000900: F7 00 18 20 6A 73 72 20 6F 75 F4 10 18 6E 69 78 |... jsr ou...nix| 00000910: 64 72 61 77 20 73 74 61 20 66 6C 61 E7 20 18 20 |draw sta fla. . | 00000920: 64 65 F8 30 18 20 62 6E 65 20 62 69 74 6C 6F 6F |de.0. bne bitloo| 00000930: F0 40 18 20 64 65 63 20 73 70 61 63 6F 75 6E F4 |.@. dec spacoun.| 00000940: 50 18 20 62 6E 65 20 73 70 61 6C 6F 6F F0 60 18 |P. bne spaloo.`.| 00000950: 20 6A 73 72 20 6F 75 F4 70 18 20 69 6E 63 20 6F | jsr ou.p. inc o| 00000960: 75 74 74 61 62 2B B9 80 18 20 6C 64 61 20 6F 75 |uttab+... lda ou| 00000970: 74 74 61 62 2B B9 90 18 20 63 6D 70 20 23 35 B8 |ttab+... cmp #5.| 00000980: 00 19 20 62 63 63 20 69 6E 63 66 E5 10 19 20 6C |.. bcc incf... l| 00000990: 64 61 20 23 27 30 A7 20 19 20 73 74 61 20 6F 75 |da #'0. . sta ou| 000009A0: 74 74 61 62 2B B9 30 19 20 69 6E 63 20 6F 75 74 |ttab+.0. inc out| 000009B0: 74 61 62 2B B8 40 19 20 6C 64 61 20 6F 75 74 74 |tab+.@. lda outt| 000009C0: 61 62 2B B8 50 19 20 63 6D 70 20 23 35 B8 60 19 |ab+.P. cmp #5.`.| 000009D0: 20 62 63 63 20 69 6E 63 66 E5 70 19 20 6C 64 61 | bcc incf.p. lda| 000009E0: 20 23 27 30 A7 80 19 20 73 74 61 20 6F 75 74 74 | #'0... sta outt| 000009F0: 61 62 2B B8 90 19 20 69 6E 63 20 6F 75 74 74 61 |ab+... inc outta| 00000A00: 62 2B B7 00 20 69 6E 63 66 65 20 6C 64 78 20 76 |b+.. incfe ldx v| 00000A10: 65 63 B2 10 20 20 6C 64 79 20 76 65 63 32 2B B1 |ec.. ldy vec2+.| 00000A20: 20 20 20 64 65 63 20 7A 65 69 63 6F 75 6E F4 30 | dec zeicoun.0| 00000A30: 20 20 62 65 71 20 7A 65 69 66 E5 40 20 20 6A 6D | beq zeif.@ jm| 00000A40: 70 20 7A 65 69 6C 6F 6F F0 50 20 7A 65 69 66 65 |p zeiloo.P zeife| 00000A50: 20 6C 64 78 20 76 65 E3 60 20 20 6C 64 79 20 76 | ldx ve.` ldy v| 00000A60: 65 63 2B B1 70 20 20 64 65 63 20 72 6F 77 63 6F |ec+.p dec rowco| 00000A70: 75 6E F4 80 20 20 62 65 71 20 72 6F 77 66 E5 90 |un.. beq rowf..| 00000A80: 20 20 6A 6D 70 20 72 6F 77 6C 6F 6F F0 00 21 72 | jmp rowloo..!r| 00000A90: 6F 77 66 65 20 6C 64 61 20 23 B1 10 21 20 6A 73 |owfe lda #..! js| 00000AA0: 72 20 63 6C 6F 73 E5 20 21 20 6A 73 72 20 63 6C |r clos. ! jsr cl| 00000AB0: 72 63 68 EE 25 21 20 6A 6D 70 20 69 6E 69 F4 30 |rch.%! jmp ini.0| 00000AC0: 21 BB 40 21 6F 75 74 20 70 68 E1 50 21 20 73 74 |!.@!out ph.P! st| 00000AD0: 78 20 78 72 65 74 F4 60 21 20 6C 64 78 20 66 6C |x xret.`! ldx fl| 00000AE0: 61 E7 70 21 20 6C 64 61 20 66 6C 74 61 62 2C F8 |a.p! lda fltab,.| 00000AF0: 80 21 20 73 74 61 20 6F 75 74 74 61 E2 90 21 20 |.! sta outta..! | 00000B00: 6C 64 78 20 23 B1 00 22 20 6A 73 72 20 63 68 6B |ldx #.." jsr chk| 00000B10: 6F 75 F4 10 22 20 6C 64 61 20 23 31 B1 20 22 20 |ou.." lda #1. " | 00000B20: 6A 73 72 20 24 61 62 32 B4 30 22 20 6A 73 72 20 |jsr $ab2.0" jsr | 00000B30: 63 6C 72 63 68 EE 40 22 20 6C 6E 79 20 23 B0 50 |clrch.@" lny #.P| 00000B40: 22 20 6C 64 78 20 78 72 65 74 F4 60 22 20 70 6C |" ldx xret.`" pl| 00000B50: E1 70 22 20 20 20 20 20 20 20 20 20 20 20 72 74 |.p" rt| 00000B60: F3 80 22 BB 90 22 6F 75 74 74 61 62 20 2E 62 79 |..".."outtab .by| 00000B70: 20 27 78 20 30 30 30 20 2D 30 30 30 27 20 31 B3 | 'x 000 -000' 1.| 00000B80: 00 23 66 6C 74 61 62 20 2E 62 79 20 27 4D 27 20 |.#fltab .by 'M' | 00000B90: 27 44 A7 10 23 BB 20 23 66 6C 61 67 20 2E 62 79 |'D..#. #flag .by| 00000BA0: 20 B0 30 23 72 6F 77 63 6F 75 6E 74 20 2E 62 79 | .0#rowcount .by| 00000BB0: 20 B0 40 23 7A 65 69 63 6F 75 6E 74 20 2E 62 79 | .@#zeicount .by| 00000BC0: 20 B0 50 23 73 70 61 63 6F 75 6E 74 20 2E 62 79 | .P#spacount .by| 00000BD0: 20 B0 60 23 78 72 65 74 74 20 2E 62 79 20 B0 70 | .`#xrett .by .p| 00000BE0: 23 74 65 6D 70 20 2E 62 79 20 B0 80 23 BB 90 23 |#temp .by ..#..#| 00000BF0: 74 69 74 65 6C 20 2E 62 79 20 31 34 37 20 31 33 |titel .by 147 13| 00000C00: 20 31 33 20 27 20 20 20 20 20 20 20 48 43 4F 50 | 13 ' HCOP| 00000C10: 59 20 46 55 45 52 20 43 4F 4D 4D 4F 44 4F 52 45 |Y FUER COMMODORE| 00000C20: 20 31 35 32 30 A7 00 24 20 2E 62 79 20 31 33 20 | 1520..$ .by 13 | 00000C30: 31 33 20 27 42 49 54 54 45 20 47 45 42 45 4E 20 |13 'BITTE GEBEN | 00000C40: 53 49 45 20 45 49 4E 3A A7 10 24 20 20 20 20 20 |SIE EIN:..$ | 00000C50: 20 20 20 20 20 20 2E 62 79 20 31 33 20 27 20 20 | .by 13 ' | 00000C60: 27 20 33 39 20 27 4C 27 20 33 39 20 27 20 3D 20 |' 39 'L' 39 ' = | 00000C70: 42 49 4C 44 20 4C 41 44 45 4E A7 20 24 20 20 20 |BILD LADEN. $ | 00000C80: 20 20 20 20 20 20 20 20 2E 62 79 20 31 33 20 27 | .by 13 '| 00000C90: 20 20 27 20 33 39 20 27 5A 27 20 33 39 20 27 20 | ' 39 'Z' 39 ' | 00000CA0: 3D 20 42 49 4C 44 20 5A 45 49 47 45 4E A7 30 24 |= BILD ZEIGEN.0$| 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 2E 62 79 20 31 | .by 1| 00000CC0: 33 20 27 20 20 27 20 33 39 20 27 44 27 20 33 39 |3 ' ' 39 'D' 39| 00000CD0: 20 27 20 3D 20 42 49 4C 44 20 44 52 55 43 4B 45 | ' = BILD DRUCKE| 00000CE0: 4E A7 40 24 20 20 20 20 20 20 20 20 20 20 20 2E |N.@$ .| 00000CF0: 62 79 20 31 33 20 27 20 20 27 20 33 39 20 27 51 |by 13 ' ' 39 'Q| 00000D00: 27 20 33 39 20 27 20 3D 20 51 55 49 54 27 20 B0 |' 39 ' = QUIT' .| 00000D10: 50 24 6C 74 69 74 20 20 20 20 20 20 20 2E 62 79 |P$ltit .by| 00000D20: 20 31 34 37 20 31 33 20 31 33 20 27 47 45 42 45 | 147 13 13 'GEBE| 00000D30: 4E 20 53 49 45 20 42 49 54 54 45 20 44 45 4E 20 |N SIE BITTE DEN | 00000D40: 4E 41 4D 45 4E 20 44 45 53 20 46 49 4C 45 53 20 |NAMEN DES FILES | 00000D50: 45 49 4E 3A 27 20 31 33 20 B0 60 24 20 2E 65 EE |EIN:' 13 .`$ .e.| 00000D60: 01 A0 |.. |
..0Z=... .BA $080. . .O.0. .C.@.SETLFS .
M...LL......MM.K......LL....AO.M........
.G....A...................M......LL.....
.GA.M.........B..\K.O.............K.O...
......O..E.MCM......LL.M.....F........D.
."-.......?..?-..;.-<KQ..X.Q.R.F.SK...F
.............UGETSTR .DE $B48...FRESTR .
DE $B6A...LOAD .DE $FFD...EPUFFR .DE $02
0...CHKIN .DE $E11. .VEC .DE $F.0.VEC2 .
DE $F.@. .SE $080.P. .SE 198.`.
.BY $9E '2061' 0 0 .P....INIT LDA #L,T
ITE... LDY #H,TITE... JSR STROU...INLOP
JSR GETI. . CMP #'D.0. BEQ HCOPY.@. CMP
#'L.P. BEQ LADE.`. CMP #'Z.P. BEQ ZEIGE.
.. CMP #'Q... BNE INLO... JMP $FCE...HCO
PY. JMP HCOP. ...._.CE.M......F.....C...
.._.AO..M...K.O......M...K.O..........M.
..K.O..........M...K.O.........CM.....OC
............_.A..........S....M..\C...T.
..LDA #2.P. STA VIC+2.`.Z2LOP JSR GETI.P
. BEQ Z2LO... LDA #2... STA VIC+1... LDA
#2... STA VIC+2. . JMP INI.0..@.LADEN L
DA #.P. JSR CLOS.`. LDA #L,LTI.P. LDY #H
,LTI... JSR STROU... JSR LINEI... LDA #L
,EPUFF... LDY #H,EPUFF. . JSR GETST.0. J
SR FREST.@. JSR SETNA.P. LDA #.`. LDX #.
P. LMS......O.....M.L....O...AO.........
.......C....\K.......S....\K.....O....A.
..........F...O....F...........DX.......
.........E..........Z..L........HH......
..Z...........P..H.......L............X.
...................DX.........S... JSR C
LRCH... LDA EPUFF... CMP #'0... BEQ INIT
. . LDA #L,EPUFF.0. LDY #H,EPUFF.@. JSR
STROU.P.L2LOP JSR GETI.`. BEQ L2LO.P.INI
T2 JMP INI......HCOPY LDA #... LDX #...
TA. . JSR SETLF.0. LDA #.@. JSR SETNA.P.
JSR OPE.`. LDA #L,OUTTA.P. STA $2... LD
A #H,OUTTA... STA $2... LDA #2
... STA ROWCOUN. . LDA #'0.0. STA OUTTAB
+.@. STA OUTTAB+.P. STA OUTTAB+.`. LMC..
..\K.O.G.....S....\K.O.F...AU.AAO.......
.....M.._.C.A.M..._.C.AAO.CM.....M..G...
.....CM...G.......MC.\......MS.\...F....
MC.\.......MS.\...+.P. LDA #'0... STA OU
TTAB+... STA OUTTAB+... STA OUTTAB+... L
DA #4. . STA SPACOUN.0. LDA #.@. STA FLA
.P. JSR OU.`. LDY #.P. LDA (VEC),... ASL
... ROL FLA... LDY #... BEQ KUE. .SPALO
OP CL.0. LDA VE.@. ADC #.P. STA VE.`. BC
C KUE.P. INC VEC+...KUER LDA (VEC),... S
TA TEM... LDX #... BNE NIXIN. .BITLOOP I
NC OUTTAB+.0. LDA OUTTAB+.@. CMP #5.P. B
CC NIXIN.`. LDA #'0.P. STA OUTTAB+... IN
C OUTTAB+... LDA OUTTAB+... CMP #5... BC
C NIXIN. . LDA #'0.0. STA OUTTAB+.@. INC
OUTTAB+.P.NIXINC TY.`. ASL TEM.P. ROL .
.. CMP FLA... BEQ NIXDRA... JSR OU...NIX
DRAW STA FLA. . DE.0. BNE BITLOO.@. DEC
SPACOUN.P. BNE SPALOO.`. JSR OU.P. INC O
UTTAB+... LDA OUTTAB+... CMP #5... BCC I
NCF... LDA #'0. . STA OUTTAB+.0. INC OUT
TAB+.@. LDA OUTTAB+.P. CMP #5.`. BCC INC
F.P. LDA #'0... STA OUTTAB+... INC OUTTA
B+.. INCFE LDX VEC.. LDY VEC2+. DEC Z
EICOUN.0 BEQ ZEIF.@ JMP ZEILOO.P ZEIFE
LDX VE.` LDY VEC+.P DEC ROWCOUN.. BE
Q ROWF.. JMP ROWLOO..!ROWFE LDA #..! JS
R CLOS. ! JSR CLRCH.%! JMP INI.0!.@!OUT
PH.P! STX XRET.`! LDX FLA.P! LDA FLTAB,.
.! STA OUTTA..! LDX #.." JSR CHKOU.." LD
A #1. " JSR $AB2.0" JSR CLRCH.@" LNY #.P
" LDX XRET.`" PL.P" RT..".."OU
TTAB .BY 'X 000 -000' 1..#FLTAB .BY 'M'
'D..#. #FLAG .BY .0#ROWCOUNT .BY .@#ZEIC
OUNT .BY .P#SPACOUNT .BY .`#XRETT .BY .P
#TEMP .BY ..#..#TITEL .BY 147 13 13 '
HCOPY FUER COMMODORE 1520..$ .BY 13
13 'BITTE GEBEN SIE EIN:..$ .B
Y 13 ' ' 39 'L' 39 ' = BILD LADEN. $
.BY 13 ' ' 39 'Z' 39 ' = BILD Z
EIGEN.0$ .BY 13 ' ' 39 'D' 39
' = BILD DRUCKEN.@$ .BY 13 '
' 39 'Q' 39 ' = QUIT' .P$LTIT .BY
147 13 13 'GEBEN SIE BITTE DEN NAMEN DE
S FILES EIN:' 13 .`$ .E..
> CLICK IMAGE PREVIEW FOR FULL MODAL