HCOPY 1520.MAE
FILE INFORMATION
FILENAME(S): HCOPY 1520.MAE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 21:13:11
APPEARS ON: 1 disk(s)
FILE HASH
9178d61f7bb4c9116324edddc7753f6566d7552d7ef3f57de0df1eb88a8817c8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 9 86 | HCOPY 1520.MAE | PRG | DuncanTwain | 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 64 65 20 24 66 66 62 E1 |setlfs .de $ffb.| 00000030: 50 00 73 65 74 6E 61 6D 20 2E 64 65 20 24 66 66 |P.setnam .de $ff| 00000040: 62 E4 60 00 6F 70 65 6E 20 2E 64 65 20 24 65 31 |b.`.open .de $e1| 00000050: 63 B1 70 00 63 6C 6F 73 65 20 2E 64 65 20 24 65 |c.p.close .de $e| 00000060: 31 63 E3 80 00 63 6C 72 63 68 6E 20 2E 64 65 20 |1c...clrchn .de | 00000070: 24 66 66 63 E3 90 00 63 68 6B 6F 75 74 20 2E 64 |$ffc...chkout .d| 00000080: 65 20 24 65 31 31 B8 00 01 76 6D 61 70 20 2E 64 |e $e11...vmap .d| 00000090: 65 20 24 32 30 30 B0 10 01 6C 6D 61 70 20 2E 64 |e $200...lmap .d| 000000A0: 65 20 24 30 34 30 B0 20 01 67 65 74 69 6E 20 2E |e $040. .getin .| 000000B0: 64 65 20 24 66 66 65 B4 30 01 62 61 73 69 6E 20 |de $ffe.0.basin | 000000C0: 2E 64 65 20 24 65 31 31 B2 40 01 73 74 72 6F 75 |.de $e11.@.strou| 000000D0: 74 20 2E 64 65 20 24 61 62 31 E5 50 01 6C 69 6E |t .de $ab1.P.lin| 000000E0: 65 69 6E 20 2E 64 65 20 24 61 35 36 B0 60 01 76 |ein .de $a56.`.v| 000000F0: 69 63 20 2E 64 65 20 24 64 30 30 B0 70 01 67 65 |ic .de $d00.p.ge| 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 32 20 6A 6D 70 20 |ce...hcopy2 jmp | 00000260: 68 63 6F 70 F9 20 04 BB 30 04 7A 65 69 67 65 6E |hcop. ..0.zeigen| 00000270: 20 6C 64 61 20 23 B1 40 04 20 6C 64 78 20 23 B0 | lda #.@. ldx #.| 00000280: 50 04 7A 6C 6F 70 20 73 74 61 20 6C 6D 61 70 2C |P.zlop sta lmap,| 00000290: F8 60 04 20 73 74 61 20 6C 6D 61 70 2B 32 35 30 |.`. sta lmap+250| 000002A0: 2C F8 70 04 20 73 74 61 20 6C 6D 61 70 2B 35 30 |,.p. sta lmap+50| 000002B0: 30 2C F8 80 04 20 73 74 61 20 6C 6D 61 70 2B 37 |0,... sta lmap+7| 000002C0: 35 30 2C F8 90 04 20 69 6E F8 00 05 20 63 70 78 |50,... in... cpx| 000002D0: 20 23 32 35 B0 10 05 20 62 63 63 20 7A 6C 6F F0 | #25... bcc zlo.| 000002E0: 20 05 20 6C 64 61 20 23 35 B9 30 05 20 73 74 61 | . lda #5.0. sta| 000002F0: 20 76 69 63 2B 31 B7 40 05 20 6C 64 61 20 23 32 | vic+1.@. 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 64 79 20 23 B0 80 07 20 6A 73 72 20 |p. ldy #... jsr | 00000420: 73 65 74 6C 66 F3 90 07 20 6A 73 72 20 6F 70 65 |setlf... jsr ope| 00000430: EE 00 08 20 6C 64 61 20 23 B0 10 08 20 6C 64 78 |... lda #... ldx| 00000440: 20 23 6C 2C 76 6D 61 F0 20 08 20 6C 64 79 20 23 | #l,vma. . ldy #| 00000450: 68 2C 76 6D 61 F0 30 08 20 6A 73 72 20 6C 6F 61 |h,vma.0. jsr loa| 00000460: 64 A0 40 08 20 6C 64 61 20 23 B1 50 08 20 6A 73 |d.@. lda #.P. js| 00000470: 72 20 63 6C 6F 73 E5 60 08 20 6C 64 61 20 23 B1 |r clos.`. lda #.| 00000480: 70 08 20 6C 64 78 20 23 B8 80 08 20 6C 64 79 20 |p. ldx #... ldy | 00000490: 23 31 B5 90 08 20 6A 73 72 20 73 65 74 6C 66 F3 |#1... jsr setlf.| 000004A0: 00 09 20 6C 64 61 20 23 B0 10 09 20 6A 73 72 20 |.. lda #... jsr | 000004B0: 73 65 74 6E 61 ED 20 09 20 6A 73 72 20 6F 70 65 |setna. . jsr ope| 000004C0: EE 30 09 20 6C 64 78 20 23 B1 40 09 20 6A 73 72 |.0. ldx #.@. jsr| 000004D0: 20 63 68 6B 69 EE 50 09 20 6A 73 72 20 6C 69 6E | chki.P. jsr lin| 000004E0: 65 69 EE 60 09 20 6C 64 61 20 23 B1 70 09 20 6A |ei.`. lda #.p. j| 000004F0: 73 72 20 63 6C 6F 73 E5 80 09 20 6A 73 72 20 63 |sr clos... 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 64 78 20 23 6C 2C 76 6D 61 70 2D B1 |`. ldx #l,vmap-.| 00000670: 70 12 20 6C 64 79 20 23 68 2C 76 6D 61 70 2D B1 |p. ldy #h,vmap-.| 00000680: 80 12 72 6F 77 6C 6F 6F 70 20 6C 64 61 20 23 38 |..rowloop lda #8| 00000690: A0 90 12 20 73 74 61 20 7A 65 69 63 6F 75 6E F4 |... sta zeicoun.| 000006A0: 00 13 7A 65 69 6C 6F 6F 70 20 69 6E F8 10 13 20 |..zeiloop in... | 000006B0: 62 6E 65 20 6B 75 65 62 65 F2 20 13 20 69 6E F9 |bne kuebe. . in.| 000006C0: 30 13 6B 75 65 62 65 72 20 73 74 78 20 76 65 E3 |0.kueber stx ve.| 000006D0: 40 13 20 73 74 79 20 76 65 63 2B B1 50 13 20 73 |@. sty vec+.P. s| 000006E0: 74 78 20 76 65 63 B2 60 13 20 73 74 79 8E 1B 1E |tx vec.`. sty...| 000006F0: B8 99 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 6D |r clos. ! jsr cm| 00000AB0: E0 A4 E3 DD EE E7 EF 4F CB 4F EF C3 CD 46 FA C0 |.......O.O...F..| 00000AC0: 85 5C 90 84 A6 DE DA 80 D0 9E 9C D0 84 80 E4 DA |.\..............| 00000AD0: DE 80 DE E0 9E DA FA 90 84 80 96 9A DE 80 AA 96 |................| 00000AE0: 95 AE D0 84 80 96 9A 94 80 AB 6C 74 61 62 2C F8 |..........ltab,.| 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 64 79 20 23 B0 50 |clrch.@" ldy #.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 .
DE $FFB.P.SETNAM .DE $FFB.`.OPEN .DE $E1
C.P.CLOSE .DE $E1C...CLRCHN .DE $FFC...C
HKOUT .DE $E11...VMAP .DE $200...LMAP .D
E $040. .GETIN .DE $FFE.0.BASIN .DE $E11
.@.STROUT .DE $AB1.P.LINEIN .DE $A56.`.V
IC .DE $D00.P.GETSTR .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
PY2 JMP HCOP. ..0.ZEIGEN LDA #.@. LDX #.
P.ZLOP STA LMAP,.`. STA LMAP+250,.P. STA
LMAP+500,... STA LMAP+750,... IN... CPX
#25... BCC ZLO. . LDA #5.0. STA VIC+1.@
. 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. LDY #... JSR SETLF... JSR OPE... LDA
#... LDX #L,VMA. . LDY #H,VMA.0. JSR LOA
D @. LDA #.P. JSR CLOS.`. LDA #.P. LDX #
... LDY #1... JSR SETLF... LDA #... JSR
SETNA. . JSR OPE.0. LDX #.@. JSR CHKI.P.
JSR LINEI.`. LDA #.P. JSR CLOS... 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+.`. LDX #
L,VMAP-.P. LDY #H,VMAP-...ROWLOOP LDA #8
.. STA ZEICOUN...ZEILOOP IN... BNE KUEB
E. . IN.0.KUEBER STX VE.@. STY VEC+.P. S
TX VEC.`. STY.....+.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 CM.......OKO.CMF...\....Z.
P..P...Z.....Z............P.......LTAB,.
.! STA OUTTA..! LDX #.." JSR CHKOU.." LD
A #1. " JSR $AB2.0" JSR CLRCH.@" LDY #.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