HARDCOPY-80.A
FILE INFORMATION
FILENAME(S): HARDCOPY-80.A
FILE TYPE(S): PRG
FILE SIZE: 14.6K
FIRST SEEN: 2025-12-01 20:43:44
APPEARS ON: 1 disk(s)
FILE HASH
73bb1fa287bf88c90e20f7f57a6259a646fe66496e00cb5dc9cbe38941c5abde
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 10 86 | HARDCOPY-80.A | PRG | mace | 25 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 2D 1C 01 00 8F 20 22 20 20 20 20 20 20 20 |..-.... " |
00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000020: 20 20 C8 41 52 44 43 4F 50 59 2D 38 30 00 33 1C | .ARDCOPY-80.3.|
00000030: 02 00 3A 00 6E 1C 03 00 8F 20 22 20 20 20 20 20 |..:.n.... " |
00000040: 20 20 20 20 20 20 20 D2 4F 55 54 49 4E 45 20 45 | .OUTINE E|
00000050: 52 53 54 45 4C 4C 54 20 C8 49 52 45 53 2D C2 49 |RSTELLT .IRES-.I|
00000060: 4C 44 45 52 20 41 55 46 20 C6 D8 2D 38 30 00 74 |LDER AUF ..-80.t|
00000070: 1C 04 00 3A 00 A0 1C 05 00 8F 20 22 20 20 20 20 |...:...... " |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 28 43 29 20 42 59 20 CB D2 D7 | (C) BY ...|
000000A0: 00 A6 1C 06 00 3A 00 CF 1C 07 00 8F 20 22 20 20 |.....:...... " |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 31 39 38 35 00 | 1985.|
000000D0: D5 1C 08 00 3A 00 02 1D 09 00 8F 20 22 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 D6 45 52 53 49 4F 4E 20 31 | .ERSION 1|
00000100: 2E 34 00 08 1D 0A 00 3A 00 0E 1D 0B 00 3A 00 26 |.4.....:.....:.&|
00000110: 1D 32 00 5A 5A 24 B2 22 48 41 52 44 43 4F 50 59 |.2.ZZ$."HARDCOPY|
00000120: 2D 38 30 2E 4D 22 00 3E 1D 3C 00 9F 20 31 35 2C |-80.M".>.<.. 15,|
00000130: 38 2C 31 35 2C 22 53 30 3A 22 AA 5A 5A 24 00 4A |8,15,"S0:".ZZ$.J|
00000140: 1D 46 00 8D 20 36 30 31 30 30 00 61 1D 50 00 9F |.F.. 60100.a.P..|
00000150: 20 32 2C 38 2C 32 2C 5A 5A 24 AA 22 2C 50 2C 57 | 2,8,2,ZZ$.",P,W|
00000160: 22 00 6D 1D 5A 00 8D 20 36 30 31 30 30 00 73 1D |".m.Z.. 60100.s.|
00000170: 64 00 3A 00 80 1D 6E 00 9E 20 39 AC 34 30 39 36 |d.:...n.. 9.4096|
00000180: 00 8C 1D 78 00 2E 4F 50 54 20 4F 32 00 92 1D 82 |...x..OPT O2....|
00000190: 00 3B 00 AC 1D 8C 00 3B 20 22 2A 2A 2A 20 CB 4F |.;.....; "*** .O|
000001A0: 4E 53 54 41 4E 54 45 20 2A 2A 2A 22 00 B2 1D 96 |NSTANTE ***"....|
000001B0: 00 3B 00 E2 1D A0 00 4E 52 9D 20 20 20 B2 20 34 |.;.....NR. . 4|
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 | ; "|
000001D0: C1 4E 5A 41 48 4C 20 44 45 52 20 C2 45 46 45 48 |.NZAHL DER .EFEH|
000001E0: 4C 45 00 10 1E AA 00 42 45 4C 4C 20 20 20 20 B2 |LE.....BELL .|
000001F0: 20 37 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | 7 ;|
00000200: 20 22 CB 4C 49 4E 47 45 4C 5A 45 49 43 48 45 4E | ".LINGELZEICHEN|
00000210: 00 38 1E B4 00 4C 46 20 20 20 20 20 20 B2 20 31 |.8...LF . 1|
00000220: 30 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 |0 ; "|
00000230: CC 49 4E 45 46 45 45 44 00 5E 1E BE 00 43 52 20 |.INEFEED.^...CR |
00000240: 20 20 20 20 20 B2 20 31 33 20 20 20 20 20 20 20 | . 13 |
00000250: 20 20 20 20 20 3B 20 22 D2 45 54 55 52 4E 00 84 | ; ".ETURN..|
00000260: 1E C8 00 45 53 43 20 20 20 20 20 B2 20 32 37 20 |...ESC . 27 |
00000270: 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 C5 53 | ; ".S|
00000280: 43 41 50 45 00 BE 1E D2 00 46 41 20 20 20 20 20 |CAPE.....FA |
00000290: 20 B2 20 34 20 20 20 20 20 20 20 20 20 20 20 20 | . 4 |
000002A0: 20 3B 20 22 C7 45 52 BB 54 45 41 44 52 45 53 53 | ; ".ER.TEADRESS|
000002B0: 45 20 44 45 53 20 C4 52 55 43 4B 45 52 53 00 FA |E DES .RUCKERS..|
000002C0: 1E DC 00 53 41 20 20 20 20 20 20 B2 20 31 32 20 |...SA . 12 |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 D3 45 | ; ".E|
000002E0: 4B 55 4E 44 BB 52 41 44 52 45 53 53 45 20 44 45 |KUND.RADRESSE DE|
000002F0: 53 20 C4 52 55 43 4B 45 52 53 00 00 1F E6 00 3B |S .RUCKERS.....;|
00000300: 00 20 1F F0 00 3B 20 22 2A 2A 2A 20 D3 50 45 49 |. ...; "*** .PEI|
00000310: 43 48 45 52 53 54 45 4C 4C 45 4E 20 2A 2A 2A 22 |CHERSTELLEN ***"|
00000320: 00 26 1F FA 00 3B 00 5D 1F 04 01 53 41 56 41 44 |.&...;.]...SAVAD|
00000330: 52 20 20 B2 20 24 46 43 20 20 20 20 20 20 20 20 |R . $FC |
00000340: 20 20 20 3B 20 22 C1 44 52 45 53 53 BD 42 45 52 | ; ".DRESS.BER|
00000350: 47 41 42 45 20 28 32 20 C2 59 54 45 29 00 99 1F |GABE (2 .YTE)...|
00000360: 0E 01 53 41 56 43 4E 46 47 20 B2 20 24 46 45 20 |..SAVCNFG . $FE |
00000370: 20 20 20 20 20 20 20 20 20 20 3B 20 22 CD CD D5 | ; "...|
00000380: 2D D2 45 47 49 53 54 45 52 5A 57 49 53 43 48 45 |-.EGISTERZWISCHE|
00000390: 4E 53 50 45 49 43 48 45 52 00 AD 1F 18 01 4C 44 |NSPEICHER.....LD|
000003A0: 50 4E 54 20 20 20 B2 20 24 30 32 41 41 00 C1 1F |PNT . $02AA...|
000003B0: 22 01 53 54 50 4E 54 20 20 20 B2 20 24 30 32 42 |".STPNT . $02B|
000003C0: 39 00 C7 1F 2C 01 3B 00 E6 1F 36 01 3B 20 22 2A |9...,.;...6.; "*|
000003D0: 2A 2A 20 CB 45 52 4E 41 4C 52 4F 55 54 49 4E 45 |** .ERNALROUTINE|
000003E0: 4E 20 2A 2A 2A 22 00 EC 1F 40 01 3B 00 00 20 4A |N ***"...@.;.. J|
000003F0: 01 53 45 54 4E 41 4D 20 20 B2 20 24 46 46 42 44 |.SETNAM . $FFBD|
00000400: 00 14 20 54 01 53 45 54 4C 46 53 20 20 B2 20 24 |.. T.SETLFS . $|
00000410: 46 46 42 41 00 25 20 5E 01 9F 20 20 20 20 B2 20 |FFBA.% ^.. . |
00000420: 24 46 46 43 30 00 35 20 68 01 A0 20 20 20 B2 20 |$FFC0.5 h.. . |
00000430: 24 46 46 43 33 00 47 20 72 01 9C 43 48 4E 20 20 |$FFC3.G r..CHN |
00000440: B2 20 24 46 46 43 43 00 5B 20 7C 01 43 48 4B 4F |. $FFCC.[ |.CHKO|
00000450: 55 54 20 20 B2 20 24 46 46 43 39 00 6F 20 86 01 |UT . $FFC9.o ..|
00000460: 43 48 52 4F 55 54 20 20 B2 20 24 46 46 44 32 00 |CHROUT . $FFD2.|
00000470: 75 20 90 01 3B 00 89 20 9A 01 51 55 41 4E 54 20 |u ..;.. ..QUANT |
00000480: 20 20 B2 20 24 37 44 32 38 00 8F 20 A4 01 3B 00 | . $7D28.. ..;.|
00000490: C5 20 AE 01 4C 44 46 41 52 20 20 20 B2 20 24 30 |. ..LDFAR . $0|
000004A0: 32 41 32 20 20 20 20 20 20 20 20 20 3B 20 22 56 |2A2 ; "V|
000004B0: 4F 4E 20 41 4E 44 45 52 45 52 20 C2 41 4E 4B 20 |ON ANDERER .ANK |
000004C0: 4C 41 44 45 4E 00 FD 20 B8 01 53 54 46 41 52 20 |LADEN.. ..STFAR |
000004D0: 20 20 B2 20 24 30 32 41 46 20 20 20 20 20 20 20 | . $02AF |
000004E0: 20 20 3B 20 22 49 4E 20 41 4E 44 45 52 45 20 C2 | ; "IN ANDERE .|
000004F0: 41 4E 4B 20 53 50 45 49 43 48 45 52 4E 00 03 21 |ANK SPEICHERN..!|
00000500: C2 01 3B 00 10 21 D4 03 AC B2 20 24 46 30 30 30 |..;..!.... $F000|
00000510: 00 16 21 DE 03 3B 00 58 21 E8 03 49 4E 49 54 20 |..!..;.X!..INIT |
00000520: 20 20 20 20 53 54 41 20 53 41 56 58 20 20 20 20 | STA SAVX |
00000530: 20 20 3B 20 22 47 45 57 BD 4E 53 43 48 54 45 4E | ; "GEW.NSCHTEN|
00000540: 20 CD 4F 44 55 53 20 5A 57 49 53 43 48 45 4E 53 | .ODUS ZWISCHENS|
00000550: 50 45 49 43 48 45 52 4E 00 A2 21 F2 03 AE 20 20 |PEICHERN..!... |
00000560: 20 20 20 20 20 20 4A 53 52 20 49 4E 43 45 4E 54 | JSR INCENT|
00000570: 20 20 20 20 3B 20 22 C9 4E 49 54 49 41 4C 49 53 | ; ".NITIALIS|
00000580: 49 45 52 55 4E 47 20 44 45 52 20 C3 45 4E 54 52 |IERUNG DER .ENTR|
00000590: 4F 4E 49 43 53 53 43 48 4E 49 54 54 53 54 45 4C |ONICSSCHNITTSTEL|
000005A0: 4C 45 00 BF 21 FC 03 AE 20 20 20 20 20 20 20 20 |LE..!... |
000005B0: 4C 44 58 20 23 80 46 41 52 AB 4A 53 46 41 52 00 |LDX #.FAR.JSFAR.|
000005C0: FA 21 06 04 43 4F 50 59 46 41 52 20 20 4C 44 41 |.!..COPYFAR LDA|
000005D0: 20 4A 53 46 41 52 2C 58 20 20 20 3B 20 22 D3 50 | JSFAR,X ; ".P|
000005E0: 52 55 4E 47 52 4F 55 54 49 4E 45 20 49 4E 20 47 |RUNGROUTINE IN G|
000005F0: 45 4D 45 49 4E 53 41 4D 45 4E 00 31 22 10 04 AE |EMEINSAMEN.1"...|
00000600: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 43 30 | STA $0C0|
00000610: 30 2C 58 20 20 20 3B 20 22 D3 50 45 49 43 48 45 |0,X ; ".PEICHE|
00000620: 52 42 45 52 45 49 43 48 20 4B 4F 50 49 45 52 45 |RBEREICH KOPIERE|
00000630: 4E 00 42 22 1A 04 AE 20 20 20 20 20 20 20 20 44 |N.B"... D|
00000640: 45 58 00 5B 22 24 04 AE 20 20 20 20 20 20 20 20 |EX.["$.. |
00000650: 42 50 4C 20 43 4F 50 59 46 41 52 00 8B 22 2E 04 |BPL COPYFAR.."..|
00000660: AE 20 20 20 20 20 20 20 20 4C 44 58 20 53 41 56 |. LDX SAV|
00000670: 58 20 20 20 20 20 20 3B 20 22 CD 4F 44 55 53 20 |X ; ".ODUS |
00000680: 5A 55 52 BD 43 4B 48 4F 4C 45 4E 00 B5 22 38 04 |ZUR.CKHOLEN.."8.|
00000690: AE 20 20 20 20 20 20 20 20 42 45 51 20 45 52 52 |. BEQ ERR|
000006A0: B0 20 20 20 20 20 3B 20 22 3D 30 20 2D 3E 20 C6 |. ; "=0 -> .|
000006B0: 45 48 4C 45 52 00 E8 22 42 04 AE 20 20 20 20 20 |EHLER.."B.. |
000006C0: 20 20 20 43 50 58 20 23 4E 52 9D AA 31 20 20 3B | CPX #NR..1 ;|
000006D0: 20 22 C1 4E 5A 41 48 4C 20 44 45 52 20 C4 52 55 | ".NZAHL DER .RU|
000006E0: 43 4B 4D 4F 44 49 2B 31 00 19 23 4C 04 AE 20 20 |CKMODI+1..#L.. |
000006F0: 20 20 20 20 20 20 42 43 43 20 49 4E 49 54 31 20 | BCC INIT1 |
00000700: 20 20 20 20 3B 20 22 4B 4C 45 49 4E 45 52 20 2D | ; "KLEINER -|
00000710: 3E 20 45 52 4C 41 55 42 54 00 45 23 56 04 45 52 |> ERLAUBT.E#V.ER|
00000720: 52 B0 20 20 20 20 4C 44 58 20 23 B3 9C 43 48 4E |R. LDX #..CHN|
00000730: 20 20 3B 20 22 C9 2F CF 20 41 55 46 20 D3 54 41 | ; "./. AUF .TA|
00000740: 4E 44 41 52 44 00 5C 23 60 04 AE 20 20 20 20 20 |NDARD.\#`.. |
00000750: 20 20 20 53 54 58 20 24 30 43 30 44 00 74 23 6A | STX $0C0D.t#j|
00000760: 04 AE 20 20 20 20 20 20 20 20 4C 44 58 20 23 B1 |.. LDX #.|
00000770: 9C 43 48 4E 00 8B 23 74 04 AE 20 20 20 20 20 20 |.CHN..#t.. |
00000780: 20 20 53 54 58 20 24 30 43 30 45 00 A2 23 7E 04 | STX $0C0E..#~.|
00000790: AE 20 20 20 20 20 20 20 20 4A 53 52 20 24 30 43 |. JSR $0C|
000007A0: 30 30 00 D2 23 88 04 AE 20 20 20 20 20 20 20 20 |00..#... |
000007B0: 4C 44 41 20 23 42 45 4C 4C 20 20 20 20 20 3B 20 |LDA #BELL ; |
000007C0: 22 32 2A 20 C2 45 4C 4C 20 2D 3E 20 C6 45 48 4C |"2* .ELL -> .EHL|
000007D0: 45 52 00 03 24 92 04 AE 20 20 20 20 20 20 20 20 |ER..$... |
000007E0: 4C 44 58 20 23 B3 43 48 52 4F 55 54 20 20 3B 20 |LDX #.CHROUT ; |
000007F0: 22 31 2A 20 C2 45 4C 4C 20 2D 3E 20 C5 4E 44 45 |"1* .ELL -> .NDE|
00000800: 20 CF CB 00 1A 24 9C 04 AE 20 20 20 20 20 20 20 | ....$... |
00000810: 20 53 54 58 20 24 30 43 30 44 00 34 24 A6 04 AE | STX $0C0D.4$...|
00000820: 20 20 20 20 20 20 20 20 4C 44 58 20 23 B1 43 48 | LDX #.CH|
00000830: 52 4F 55 54 00 4B 24 B0 04 AE 20 20 20 20 20 20 |ROUT.K$... |
00000840: 20 20 53 54 58 20 24 30 43 30 45 00 62 24 BA 04 | STX $0C0E.b$..|
00000850: AE 20 20 20 20 20 20 20 20 4A 53 52 20 24 30 43 |. JSR $0C|
00000860: 30 30 00 9A 24 C4 04 AE 20 20 20 20 20 20 20 20 |00..$... |
00000870: 4C 44 58 20 23 30 20 20 20 20 20 20 20 20 3B 20 |LDX #0 ; |
00000880: 22 D7 41 52 54 45 53 43 48 4C 45 49 46 45 20 46 |".ARTESCHLEIFE F|
00000890: BD 52 20 D0 49 45 50 54 4F 4E 00 AE 24 CE 04 AE |.R .IEPTON..$...|
000008A0: 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 00 BF | LDY #0..|
000008B0: 24 D8 04 45 52 52 31 20 20 20 20 20 44 45 59 00 |$..ERR1 DEY.|
000008C0: D5 24 E2 04 AE 20 20 20 20 20 20 20 20 42 4E 45 |.$... BNE|
000008D0: 20 45 52 52 31 00 E6 24 EC 04 AE 20 20 20 20 20 | ERR1..$... |
000008E0: 20 20 20 44 45 58 00 FC 24 F6 04 AE 20 20 20 20 | DEX..$... |
000008F0: 20 20 20 20 42 4E 45 20 45 52 52 31 00 21 25 00 | BNE ERR1.!%.|
00000900: 05 AE 20 20 20 20 20 20 20 20 53 45 43 20 20 20 |.. SEC |
00000910: 20 20 20 20 20 20 20 20 3B 20 22 C6 45 48 4C 45 | ; ".EHLE|
00000920: 52 00 5F 25 0A 05 80 45 20 20 20 20 20 50 48 50 |R._%...E PHP|
00000930: 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 C5 49 | ; ".I|
00000940: 4E 53 50 52 55 4E 47 20 5A 55 4D 20 C2 45 45 4E |NSPRUNG ZUM .EEN|
00000950: 44 45 4E 20 44 45 52 20 D2 4F 55 54 49 4E 45 00 |DEN DER .OUTINE.|
00000960: 76 25 14 05 AE 20 20 20 20 20 20 20 20 4C 44 41 |v%... LDA|
00000970: 20 23 42 45 4C 4C 00 90 25 1E 05 AE 20 20 20 20 | #BELL..%... |
00000980: 20 20 20 20 4C 44 58 20 23 B3 43 48 52 4F 55 54 | LDX #.CHROUT|
00000990: 00 A7 25 28 05 AE 20 20 20 20 20 20 20 20 53 54 |..%(.. ST|
000009A0: 58 20 24 30 43 30 44 00 C1 25 32 05 AE 20 20 20 |X $0C0D..%2.. |
000009B0: 20 20 20 20 20 4C 44 58 20 23 B1 43 48 52 4F 55 | LDX #.CHROU|
000009C0: 54 00 D8 25 3C 05 AE 20 20 20 20 20 20 20 20 53 |T..%<.. S|
000009D0: 54 58 20 24 30 43 30 45 00 EF 25 46 05 AE 20 20 |TX $0C0E..%F.. |
000009E0: 20 20 20 20 20 20 4A 53 52 20 24 30 43 30 30 00 | JSR $0C00.|
000009F0: 23 26 50 05 AE 20 20 20 20 20 20 20 20 4C 44 41 |#&P.. LDA|
00000A00: 20 23 34 20 20 20 20 20 20 20 20 3B 20 22 C4 52 | #4 ; ".R|
00000A10: 55 43 4B 45 52 46 49 4C 45 20 53 43 48 4C 49 45 |UCKERFILE SCHLIE|
00000A20: BE 45 4E 00 52 26 5A 05 AE 20 20 20 20 20 20 20 |.EN.R&Z.. |
00000A30: 20 4C 44 58 20 23 B3 A0 20 20 20 3B 20 22 55 4E | LDX #.. ; "UN|
00000A40: 44 20 5A 55 52 BD 43 4B 20 49 4E 53 20 C2 C1 D3 |D ZUR.CK INS ...|
00000A50: C9 C3 00 69 26 64 05 AE 20 20 20 20 20 20 20 20 |...i&d.. |
00000A60: 53 54 58 20 24 30 43 30 44 00 7E 26 6E 05 AE 20 |STX $0C0D.~&n.. |
00000A70: 20 20 20 20 20 20 20 4C 44 58 20 23 B1 A0 00 95 | LDX #....|
00000A80: 26 78 05 AE 20 20 20 20 20 20 20 20 53 54 58 20 |&x.. STX |
00000A90: 24 30 43 30 45 00 AC 26 82 05 AE 20 20 20 20 20 |$0C0E..&... |
00000AA0: 20 20 20 4A 53 52 20 24 30 43 30 30 00 E7 26 8C | JSR $0C00..&.|
00000AB0: 05 AE 20 20 20 20 20 20 20 20 50 4C 50 20 20 20 |.. PLP |
00000AC0: 20 20 20 20 20 20 20 20 3B 20 22 C6 45 48 4C 45 | ; ".EHLE|
00000AD0: 52 53 54 41 54 55 53 20 56 4F 4D 20 D3 54 41 43 |RSTATUS VOM .TAC|
00000AE0: 4B 20 48 4F 4C 45 4E 00 11 27 96 05 AE 20 20 20 |K HOLEN..'... |
00000AF0: 20 20 20 20 20 42 43 53 20 80 45 31 20 20 20 20 | BCS .E1 |
00000B00: 20 3B 20 22 C6 45 48 4C 45 52 41 42 42 52 55 43 | ; ".EHLERABBRUC|
00000B10: 48 00 3A 27 A0 05 AE 20 20 20 20 20 20 20 20 52 |H.:'... R|
00000B20: 54 53 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 |TS ; "|
00000B30: 46 45 48 4C 45 52 46 52 45 49 00 40 27 AA 05 3B |FEHLERFREI.@'..;|
00000B40: 00 6D 27 B4 05 80 45 31 20 20 20 20 4C 44 58 20 |.m'...E1 LDX |
00000B50: 23 B3 51 55 41 4E 54 20 20 20 3B 20 22 C9 4C 4C |#.QUANT ; ".LL|
00000B60: 45 47 41 4C 20 D1 55 41 4E 54 49 54 59 00 86 27 |EGAL .UANTITY..'|
00000B70: BE 05 AE 20 20 20 20 20 20 20 20 4C 44 59 20 23 |... LDY #|
00000B80: B1 51 55 41 4E 54 00 9D 27 C8 05 AE 20 20 20 20 |.QUANT..'... |
00000B90: 20 20 20 20 53 54 58 20 24 30 43 30 44 00 B4 27 | STX $0C0D..'|
00000BA0: D2 05 AE 20 20 20 20 20 20 20 20 53 54 59 20 24 |... STY $|
00000BB0: 30 43 30 45 00 CB 27 DC 05 AE 20 20 20 20 20 20 |0C0E..'... |
00000BC0: 20 20 4A 4D 50 20 24 30 43 30 30 00 D1 27 E6 05 | JMP $0C00..'..|
00000BD0: 3B 00 08 28 F0 05 49 4E 49 54 31 20 20 20 20 44 |;..(..INIT1 D|
00000BE0: 45 58 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 |EX ; "|
00000BF0: 58 20 41 4C 53 20 DA 45 49 47 45 52 20 49 4E 20 |X ALS .EIGER IN |
00000C00: D4 41 42 45 4C 4C 45 4E 00 41 28 FA 05 AE 20 20 |.ABELLEN.A(... |
00000C10: 20 20 20 20 20 20 4C 44 41 20 50 52 54 56 B0 2C | LDA PRTV.,|
00000C20: 58 20 20 3B 20 22 D0 41 50 49 45 52 56 4F 52 53 |X ; ".APIERVORS|
00000C30: 43 48 55 42 20 44 45 53 20 C4 52 55 43 4B 45 52 |CHUB DES .RUCKER|
00000C40: 53 00 66 28 04 06 AE 20 20 20 20 20 20 20 20 50 |S.f(... P|
00000C50: 48 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 |HA ; "|
00000C60: 52 45 54 54 45 4E 00 95 28 0E 06 AE 20 20 20 20 |RETTEN..(... |
00000C70: 20 20 20 20 4C 44 41 20 50 52 54 43 54 4C 2C 58 | LDA PRTCTL,X|
00000C80: 20 20 3B 20 22 C4 52 55 43 4B 45 52 53 54 45 55 | ; ".RUCKERSTEU|
00000C90: 45 52 55 4E 47 00 AC 28 18 06 AE 20 20 20 20 20 |ERUNG..(... |
00000CA0: 20 20 20 53 54 41 20 50 52 54 9D 31 00 DD 28 22 | STA PRT.1..("|
00000CB0: 06 AE 20 20 20 20 20 20 20 20 4C 44 41 20 43 54 |.. LDA CT|
00000CC0: 52 4C 2C 58 20 20 20 20 3B 20 22 D0 52 4F 47 52 |RL,X ; ".ROGR|
00000CD0: 41 4D 4D 53 54 45 55 45 52 42 59 54 45 00 F5 28 |AMMSTEUERBYTE..(|
00000CE0: 2C 06 AE 20 20 20 20 20 20 20 20 53 54 41 20 53 |,.. STA S|
00000CF0: 54 45 55 45 52 00 2E 29 36 06 AE 20 20 20 20 20 |TEUER..)6.. |
00000D00: 20 20 20 AF 20 23 25 30 30 30 30 30 30 31 31 20 | . #%00000011 |
00000D10: 3B 20 22 41 55 53 20 58 2D D6 45 52 56 49 45 4C |; "AUS X-.ERVIEL|
00000D20: 46 41 43 48 55 4E 47 20 C1 4E 5A 41 48 4C 00 7C |FACHUNG .NZAHL.||
00000D30: 29 40 06 AE 20 20 20 20 20 20 20 20 54 41 58 20 |)@.. TAX |
00000D40: 20 20 20 20 20 20 20 20 20 20 3B 20 22 44 45 52 | ; "DER|
00000D50: 20 5A 55 20 D5 45 42 45 52 54 52 41 47 45 4E 44 | ZU .EBERTRAGEND|
00000D60: 45 4E 20 C2 59 54 45 53 20 50 52 4F 20 DA 45 49 |EN .YTES PRO .EI|
00000D70: 4C 45 20 45 52 52 45 43 48 4E 45 4E 00 B9 29 4A |LE ERRECHNEN..)J|
00000D80: 06 AE 20 20 20 20 20 20 20 20 4C 44 59 20 23 B3 |.. LDY #.|
00000D90: 36 34 30 20 20 20 20 20 3B 20 22 D7 45 52 54 20 |640 ; ".ERT |
00000DA0: 46 55 45 52 20 4B 45 49 4E 45 20 D6 45 52 56 49 |FUER KEINE .ERVI|
00000DB0: 45 4C 46 41 43 48 55 4E 47 00 D0 29 54 06 AE 20 |ELFACHUNG..)T.. |
00000DC0: 20 20 20 20 20 20 20 4C 44 41 20 23 B1 36 34 30 | LDA #.640|
00000DD0: 00 E8 29 5E 06 AE 20 20 20 20 20 20 20 20 53 54 |..)^.. ST|
00000DE0: 59 20 50 52 54 9D AA 31 00 FE 29 68 06 AE 20 20 |Y PRT..1..)h.. |
00000DF0: 20 20 20 20 20 20 53 54 41 20 50 52 54 9D 00 0F | STA PRT...|
00000E00: 2A 72 06 AE 20 20 20 20 20 20 20 20 44 45 58 00 |*r.. DEX.|
00000E10: 42 2A 7C 06 AE 20 20 20 20 20 20 20 20 42 45 51 |B*|.. BEQ|
00000E20: 20 49 4E 49 54 33 20 20 20 20 20 3B 20 22 4B 45 | INIT3 ; "KE|
00000E30: 49 4E 45 20 D6 45 52 56 49 45 4C 46 41 43 48 55 |INE .ERVIELFACHU|
00000E40: 4E 47 00 73 2A 86 06 49 4E 49 54 32 20 20 20 20 |NG.s*..INIT2 |
00000E50: 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 20 |CLC ; |
00000E60: 22 4D 41 4C 20 D6 45 52 56 49 45 4C 46 41 43 48 |"MAL .ERVIELFACH|
00000E70: 55 4E 47 00 9A 2A 90 06 AE 20 20 20 20 20 20 20 |UNG..*... |
00000E80: 20 54 59 41 20 20 20 20 20 20 20 20 20 20 20 3B | TYA ;|
00000E90: 20 22 CC 4F 57 2D C2 59 54 45 00 B2 2A 9A 06 AE | ".OW-.YTE..*...|
00000EA0: 20 20 20 20 20 20 20 20 41 44 43 20 50 52 54 9D | ADC PRT.|
00000EB0: AA 31 00 CA 2A A4 06 AE 20 20 20 20 20 20 20 20 |.1..*... |
00000EC0: 53 54 41 20 50 52 54 9D AA 31 00 E0 2A AE 06 AE |STA PRT..1..*...|
00000ED0: 20 20 20 20 20 20 20 20 4C 44 41 20 50 52 54 9D | LDA PRT.|
00000EE0: 00 F7 2A B8 06 AE 20 20 20 20 20 20 20 20 41 44 |..*... AD|
00000EF0: 43 20 23 B1 36 34 30 00 0D 2B C2 06 AE 20 20 20 |C #.640..+... |
00000F00: 20 20 20 20 20 53 54 41 20 50 52 54 9D 00 1E 2B | STA PRT...+|
00000F10: CC 06 AE 20 20 20 20 20 20 20 20 44 45 58 00 35 |... DEX.5|
00000F20: 2B D6 06 AE 20 20 20 20 20 20 20 20 42 4E 45 20 |+... BNE |
00000F30: 49 4E 49 54 32 00 6F 2B E0 06 49 4E 49 54 33 20 |INIT2.o+..INIT3 |
00000F40: 20 20 20 4C 44 59 20 23 B3 31 36 30 20 20 20 20 | LDY #.160 |
00000F50: 20 3B 20 22 41 55 53 20 59 2D D6 45 52 56 49 45 | ; "AUS Y-.ERVIE|
00000F60: 4C 46 41 43 48 55 4E 47 20 C1 4E 5A 41 48 4C 00 |LFACHUNG .NZAHL.|
00000F70: B0 2B EA 06 AE 20 20 20 20 20 20 20 20 4C 44 41 |.+... LDA|
00000F80: 20 23 B1 31 36 30 20 20 20 20 20 3B 20 22 44 45 | #.160 ; "DE|
00000F90: 52 20 5A 55 20 4B 4F 50 49 45 52 45 4E 44 45 4E |R ZU KOPIERENDEN|
00000FA0: 20 C2 59 54 45 53 20 45 52 52 45 43 48 4E 45 4E | .YTES ERRECHNEN|
00000FB0: 00 C9 2B F4 06 AE 20 20 20 20 20 20 20 20 53 54 |..+... ST|
00000FC0: 59 20 43 4F 50 59 4C AA 31 00 E2 2B FE 06 AE 20 |Y COPYL.1..+... |
00000FD0: 20 20 20 20 20 20 20 53 54 41 20 43 4F 50 59 48 | STA COPYH|
00000FE0: AA 31 00 1E 2C 08 07 AE 20 20 20 20 20 20 20 20 |.1..,... |
00000FF0: 4C 44 58 20 23 31 30 30 20 20 20 20 20 20 3B 20 |LDX #100 ; |
00001000: 22 4D 41 58 2E 20 C1 4E 5A 41 48 4C 20 44 45 52 |"MAX. .NZAHL DER|
00001010: 20 C4 52 55 43 4B 45 52 5A 45 49 4C 45 4E 00 47 | .RUCKERZEILEN.G|
00001020: 2C 12 07 AE 20 20 20 20 20 20 20 20 53 54 58 20 |,... STX |
00001030: 41 4E 5A 5A 45 49 20 20 20 20 3B 20 22 49 4E 20 |ANZZEI ; "IN |
00001040: DA 41 45 48 4C 45 52 00 5F 2C 1C 07 AE 20 20 20 |.AEHLER._,... |
00001050: 20 20 20 20 20 42 49 54 20 53 54 45 55 45 52 00 | BIT STEUER.|
00001060: 70 2C 26 07 AE 20 20 20 20 20 20 20 20 50 48 50 |p,&.. PHP|
00001070: 00 A3 2C 30 07 AE 20 20 20 20 20 20 20 20 42 50 |..,0.. BP|
00001080: 4C 20 49 4E 49 54 33 31 20 20 20 20 3B 20 22 4B |L INIT31 ; "K|
00001090: 45 49 4E 45 20 D6 45 52 56 49 45 4C 46 41 43 48 |EINE .ERVIELFACH|
000010A0: 55 4E 47 00 CE 2C 3A 07 AE 20 20 20 20 20 20 20 |UNG..,:.. |
000010B0: 20 42 56 53 20 49 4E 49 54 34 20 20 20 20 20 3B | BVS INIT4 ;|
000010C0: 20 22 56 3D 31 20 2D 3E 20 59 3D 59 2A 32 00 F6 | "V=1 -> Y=Y*2..|
000010D0: 2C 44 07 49 4E 49 54 33 31 20 20 20 4C 53 52 20 |,D.INIT31 LSR |
000010E0: 41 4E 5A 5A 45 49 20 20 20 20 3B 20 22 DA 45 49 |ANZZEI ; ".EI|
000010F0: 4C 45 4E 20 2F 32 00 1E 2D 4E 07 AE 20 20 20 20 |LEN /2..-N.. |
00001100: 20 20 20 20 41 53 4C 20 43 4F 50 59 4C AA 31 20 | ASL COPYL.1 |
00001110: 20 20 3B 20 22 C1 4E 5A 41 48 4C 20 2A 32 00 37 | ; ".NZAHL *2.7|
00001120: 2D 58 07 AE 20 20 20 20 20 20 20 20 52 4F 4C 20 |-X.. ROL |
00001130: 43 4F 50 59 48 AA 31 00 48 2D 62 07 49 4E 49 54 |COPYH.1.H-b.INIT|
00001140: 34 20 20 20 20 50 4C 50 00 75 2D 6C 07 AE 20 20 |4 PLP.u-l.. |
00001150: 20 20 20 20 20 20 42 4D 49 20 49 4E 49 54 35 20 | BMI INIT5 |
00001160: 20 20 20 20 3B 20 22 4E 3D 31 20 2D 3E 20 59 3D | ; "N=1 -> Y=|
00001170: 59 2A 32 2A 32 00 8D 2D 76 07 AE 20 20 20 20 20 |Y*2*2..-v.. |
00001180: 20 20 20 4C 53 52 20 41 4E 5A 5A 45 49 00 A6 2D | LSR ANZZEI..-|
00001190: 80 07 AE 20 20 20 20 20 20 20 20 41 53 4C 20 43 |... ASL C|
000011A0: 4F 50 59 4C AA 31 00 BF 2D 8A 07 AE 20 20 20 20 |OPYL.1..-... |
000011B0: 20 20 20 20 52 4F 4C 20 43 4F 50 59 48 AA 31 00 | ROL COPYH.1.|
000011C0: 05 2E 94 07 49 4E 49 54 35 20 20 20 20 4C 44 59 |....INIT5 LDY|
000011D0: 20 43 4F 50 59 4C AA 31 20 20 20 3B 20 22 45 52 | COPYL.1 ; "ER|
000011E0: 52 45 43 48 4E 45 54 45 20 C1 4E 5A 41 48 4C 20 |RECHNETE .NZAHL |
000011F0: 49 4E 20 DA BB 48 4C 45 52 20 55 45 42 45 52 4E |IN ..HLER UEBERN|
00001200: 45 48 4D 45 4E 00 1E 2E 9E 07 AE 20 20 20 20 20 |EHMEN...... |
00001210: 20 20 20 4C 44 41 20 43 4F 50 59 48 AA 31 00 38 | LDA COPYH.1.8|
00001220: 2E A8 07 AE 20 20 20 20 20 20 20 20 53 54 59 20 |.... STY |
00001230: 43 4F 55 4E 54 4C AA 31 00 52 2E B2 07 AE 20 20 |COUNTL.1.R.... |
00001240: 20 20 20 20 20 20 53 54 41 20 43 4F 55 4E 54 48 | STA COUNTH|
00001250: AA 31 00 66 2E BC 07 AE 20 20 20 20 20 20 20 20 |.1.f.... |
00001260: 4C 44 41 20 23 30 00 AB 2E C6 07 AE 20 20 20 20 |LDA #0...... |
00001270: 20 20 20 20 53 54 41 20 53 43 52 50 4E 54 20 20 | STA SCRPNT |
00001280: 20 20 3B 20 22 C2 49 4C 44 53 43 48 49 52 4D 5A | ; ".ILDSCHIRMZ|
00001290: 45 49 47 45 52 20 41 55 46 20 C1 4E 46 41 4E 47 |EIGER AUF .NFANG|
000012A0: 20 C2 49 4C 44 53 43 48 49 52 4D 00 C5 2E D0 07 | .ILDSCHIRM.....|
000012B0: AE 20 20 20 20 20 20 20 20 53 54 41 20 53 43 52 |. STA SCR|
000012C0: 50 4E 54 AA 31 00 F7 2E DA 07 AE 20 20 20 20 20 |PNT.1...... |
000012D0: 20 20 20 4C 44 41 20 23 30 20 20 20 20 20 20 20 | LDA #0 |
000012E0: 20 3B 20 22 C4 52 55 43 4B 45 52 4B 41 4E 41 4C | ; ".RUCKERKANAL|
000012F0: 20 BC 46 46 4E 45 4E 00 29 2F E4 07 AE 20 20 20 | .FFNEN.)/... |
00001300: 20 20 20 20 20 4C 44 58 20 23 B3 53 45 54 4E 41 | LDX #.SETNA|
00001310: 4D 20 20 3B 20 22 CC BB 4E 47 45 20 44 45 53 20 |M ; "..NGE DES |
00001320: CE 41 4D 45 4E 20 3D 20 30 00 40 2F EE 07 AE 20 |.AMEN = 0.@/... |
00001330: 20 20 20 20 20 20 20 53 54 58 20 24 30 43 30 44 | STX $0C0D|
00001340: 00 5A 2F F8 07 AE 20 20 20 20 20 20 20 20 4C 44 |.Z/... LD|
00001350: 58 20 23 B1 53 45 54 4E 41 4D 00 71 2F 02 08 AE |X #.SETNAM.q/...|
00001360: 20 20 20 20 20 20 20 20 53 54 58 20 24 30 43 30 | STX $0C0|
00001370: 45 00 88 2F 0C 08 AE 20 20 20 20 20 20 20 20 4A |E../... J|
00001380: 53 52 20 24 30 43 30 30 00 BF 2F 16 08 AE 20 20 |SR $0C00../... |
00001390: 20 20 20 20 20 20 4C 44 41 20 23 34 20 20 20 20 | LDA #4 |
000013A0: 20 20 20 20 3B 20 22 4C 4F 47 49 53 43 48 45 20 | ; "LOGISCHE |
000013B0: C6 49 4C 45 4E 55 4D 4D 45 52 20 28 4C 41 29 00 |.ILENUMMER (LA).|
000013C0: F2 2F 20 08 AE 20 20 20 20 20 20 20 20 4C 44 59 |./ .. LDY|
000013D0: 20 23 53 41 20 20 20 20 20 20 20 3B 20 22 D3 45 | #SA ; ".E|
000013E0: 4B 55 4E 44 BB 52 41 44 52 45 53 53 45 20 28 53 |KUND.RADRESSE (S|
000013F0: 41 29 00 0A 30 2A 08 AE 20 20 20 20 20 20 20 20 |A)..0*.. |
00001400: 53 54 59 20 53 45 4B 41 44 52 00 35 30 34 08 AE |STY SEKADR.504..|
00001410: 20 20 20 20 20 20 20 20 43 50 59 20 23 24 46 46 | CPY #$FF|
00001420: 20 20 20 20 20 20 3B 20 22 C3 45 4E 54 52 4F 4E | ; ".ENTRON|
00001430: 49 43 53 20 3F 00 7C 30 3E 08 AE 20 20 20 20 20 |ICS ?.|0>.. |
00001440: 20 20 20 42 45 51 20 49 4E 32 20 20 20 20 20 20 | BEQ IN2 |
00001450: 20 3B 20 22 4A 41 20 2D 3E 20 4B 45 49 4E 20 C6 | ; "JA -> KEIN .|
00001460: 49 4C 45 20 41 55 46 20 53 45 52 49 45 4C 4C 45 |ILE AUF SERIELLE|
00001470: 4D 20 C2 55 53 20 BC 46 46 4E 45 4E 00 96 30 48 |M .US .FFNEN..0H|
00001480: 08 AE 20 20 20 20 20 20 20 20 4C 44 58 20 23 B3 |.. LDX #.|
00001490: 53 45 54 4C 46 53 00 AD 30 52 08 AE 20 20 20 20 |SETLFS..0R.. |
000014A0: 20 20 20 20 53 54 58 20 24 30 43 30 44 00 C7 30 | STX $0C0D..0|
000014B0: 5C 08 AE 20 20 20 20 20 20 20 20 4C 44 58 20 23 |\.. LDX #|
000014C0: B1 53 45 54 4C 46 53 00 DE 30 66 08 AE 20 20 20 |.SETLFS..0f.. |
000014D0: 20 20 20 20 20 53 54 58 20 24 30 43 30 45 00 0F | STX $0C0E..|
000014E0: 31 70 08 AE 20 20 20 20 20 20 20 20 4C 44 58 20 |1p.. LDX |
000014F0: 23 46 41 20 20 20 20 20 20 20 3B 20 22 C7 45 52 |#FA ; ".ER|
00001500: BB 54 45 41 44 52 45 53 53 45 20 28 46 41 29 00 |.TEADRESSE (FA).|
00001510: 26 31 7A 08 AE 20 20 20 20 20 20 20 20 4A 53 52 |&1z.. JSR|
00001520: 20 24 30 43 30 30 00 4D 31 84 08 AE 20 20 20 20 | $0C00.M1... |
00001530: 20 20 20 20 4C 44 58 20 23 B3 9F 20 20 20 20 3B | LDX #.. ;|
00001540: 20 22 C6 49 4C 45 20 BC 46 46 4E 45 4E 00 64 31 | ".ILE .FFNEN.d1|
00001550: 8E 08 AE 20 20 20 20 20 20 20 20 53 54 58 20 24 |... STX $|
00001560: 30 43 30 44 00 79 31 98 08 AE 20 20 20 20 20 20 |0C0D.y1... |
00001570: 20 20 4C 44 58 20 23 B1 9F 00 90 31 A2 08 AE 20 | LDX #....1... |
00001580: 20 20 20 20 20 20 20 53 54 58 20 24 30 43 30 45 | STX $0C0E|
00001590: 00 A7 31 AC 08 AE 20 20 20 20 20 20 20 20 4A 53 |..1... JS|
000015A0: 52 20 24 30 43 30 30 00 EC 31 B6 08 AE 20 20 20 |R $0C00..1... |
000015B0: 20 20 20 20 20 42 43 43 20 49 4E 31 32 20 20 20 | BCC IN12 |
000015C0: 20 20 20 3B 20 22 C6 45 48 4C 45 52 20 42 45 49 | ; ".EHLER BEI|
000015D0: 20 CF D0 C5 CE 20 41 55 46 47 45 54 52 45 54 45 | .... AUFGETRETE|
000015E0: 4E 20 2D 3E 20 C1 42 42 52 55 43 48 00 2C 32 C0 |N -> .BBRUCH.,2.|
000015F0: 08 AE 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 |.. PLA |
00001600: 20 20 20 20 20 20 20 20 3B 20 22 D0 41 50 49 45 | ; ".APIE|
00001610: 52 56 4F 52 53 43 48 55 42 53 54 45 55 45 52 55 |RVORSCHUBSTEUERU|
00001620: 4E 47 20 56 4F 4D 20 D3 54 41 43 4B 00 42 32 CA |NG VOM .TACK.B2.|
00001630: 08 AE 20 20 20 20 20 20 20 20 4A 4D 50 20 45 52 |.. JMP ER|
00001640: 52 B0 00 48 32 D4 08 3B 00 83 32 DE 08 49 4E 31 |R..H2..;..2..IN1|
00001650: 32 20 20 20 20 20 4C 44 58 20 23 34 20 20 20 20 |2 LDX #4 |
00001660: 20 20 20 20 3B 20 22 C1 55 53 47 41 42 45 20 41 | ; ".USGABE A|
00001670: 55 46 20 C4 52 55 43 4B 45 52 20 55 4D 4C 45 4E |UF .RUCKER UMLEN|
00001680: 4B 45 4E 00 9D 32 E8 08 AE 20 20 20 20 20 20 20 |KEN..2... |
00001690: 20 4C 44 41 20 23 B3 43 48 4B 4F 55 54 00 B4 32 | LDA #.CHKOUT..2|
000016A0: F2 08 AE 20 20 20 20 20 20 20 20 53 54 41 20 24 |... STA $|
000016B0: 30 43 30 44 00 CE 32 FC 08 AE 20 20 20 20 20 20 |0C0D..2... |
000016C0: 20 20 4C 44 41 20 23 B1 43 48 4B 4F 55 54 00 E5 | LDA #.CHKOUT..|
000016D0: 32 06 09 AE 20 20 20 20 20 20 20 20 53 54 41 20 |2... STA |
000016E0: 24 30 43 30 45 00 FC 32 10 09 AE 20 20 20 20 20 |$0C0E..2... |
000016F0: 20 20 20 4A 53 52 20 24 30 43 30 30 00 35 33 1A | JSR $0C00.53.|
00001700: 09 49 4E 32 20 20 20 20 20 20 4C 44 41 20 23 45 |.IN2 LDA #E|
00001710: 53 43 20 20 20 20 20 20 3B 20 22 C4 52 55 43 4B |SC ; ".RUCK|
00001720: 45 52 56 4F 52 53 43 48 55 42 20 45 49 4E 53 54 |ERVORSCHUB EINST|
00001730: 45 4C 4C 45 4E 00 4D 33 24 09 AE 20 20 20 20 20 |ELLEN.M3$.. |
00001740: 20 20 20 4A 53 52 20 41 55 46 42 55 53 00 82 33 | JSR AUFBUS..3|
00001750: 2E 09 AE 20 20 20 20 20 20 20 20 4C 44 41 20 23 |... LDA #|
00001760: 22 33 22 20 20 20 20 20 20 3B 20 22 D6 4F 52 53 |"3" ; ".ORS|
00001770: 43 48 55 42 20 3D 20 4E 4E 2F 32 31 36 20 DA 4F |CHUB = NN/216 .O|
00001780: 4C 4C 00 9A 33 38 09 AE 20 20 20 20 20 20 20 20 |LL..38.. |
00001790: 4A 53 52 20 41 55 46 42 55 53 00 AB 33 42 09 AE |JSR AUFBUS..3B..|
000017A0: 20 20 20 20 20 20 20 20 50 4C 41 00 D5 33 4C 09 | PLA..3L.|
000017B0: AE 20 20 20 20 20 20 20 20 4A 53 52 20 41 55 46 |. JSR AUF|
000017C0: 42 55 53 20 20 20 20 3B 20 22 4E 4E 20 41 55 53 |BUS ; "NN AUS|
000017D0: 47 45 42 45 4E 00 0F 34 56 09 AE 20 20 20 20 20 |GEBEN..4V.. |
000017E0: 20 20 20 4A 53 52 20 44 52 55 43 4B 45 52 20 20 | JSR DRUCKER |
000017F0: 20 3B 20 22 C4 52 55 43 4B 45 52 20 49 4E 20 C2 | ; ".RUCKER IN .|
00001800: 49 54 4D 4F 44 45 20 53 43 48 41 4C 54 45 4E 00 |ITMODE SCHALTEN.|
00001810: 26 34 60 09 AE 20 20 20 20 20 20 20 20 4A 4D 50 |&4`.. JMP|
00001820: 20 43 4F 50 59 31 00 2C 34 6A 09 3B 00 6B 34 74 | COPY1.,4j.;.k4t|
00001830: 09 43 4F 50 59 20 20 20 20 20 43 4C 43 20 20 20 |.COPY CLC |
00001840: 20 20 20 20 20 20 20 20 3B 20 22 DA 45 49 47 45 | ; ".EIGE|
00001850: 52 20 46 BD 52 20 C2 49 4C 44 53 43 48 49 52 4D |R F.R .ILDSCHIRM|
00001860: 52 41 4D 20 45 52 48 BC 48 45 4E 00 83 34 7E 09 |RAM ERH.HEN..4~.|
00001870: AE 20 20 20 20 20 20 20 20 4C 44 41 20 53 43 52 |. LDA SCR|
00001880: 50 4E 54 00 BA 34 88 09 43 4F 50 59 4C 20 20 20 |PNT..4..COPYL |
00001890: 20 41 44 43 20 23 30 30 20 20 20 20 20 20 20 3B | ADC #00 ;|
000018A0: 20 22 57 49 52 44 20 42 45 49 20 49 4E 49 54 20 | "WIRD BEI INIT |
000018B0: 45 49 4E 47 45 53 45 54 5A 54 00 D2 34 92 09 AE |EINGESETZT..4...|
000018C0: 20 20 20 20 20 20 20 20 53 54 41 20 53 43 52 50 | STA SCRP|
000018D0: 4E 54 00 EC 34 9C 09 AE 20 20 20 20 20 20 20 20 |NT..4... |
000018E0: 4C 44 41 20 53 43 52 50 4E 54 AA 31 00 01 35 A6 |LDA SCRPNT.1..5.|
000018F0: 09 43 4F 50 59 48 20 20 20 20 41 44 43 20 23 30 |.COPYH ADC #0|
00001900: 30 00 1B 35 B0 09 AE 20 20 20 20 20 20 20 20 53 |0..5... S|
00001910: 54 41 20 53 43 52 50 4E 54 AA 31 00 57 35 BA 09 |TA SCRPNT.1.W5..|
00001920: 43 4F 50 59 31 20 20 20 20 4C 44 41 20 23 B3 42 |COPY1 LDA #.B|
00001930: 55 46 46 45 52 20 20 3B 20 22 DA 45 49 47 45 52 |UFFER ; ".EIGER|
00001940: 20 41 55 46 20 C1 4E 46 41 4E 47 20 44 45 53 20 | AUF .NFANG DES |
00001950: C2 55 46 46 45 52 53 00 71 35 C4 09 AE 20 20 20 |.UFFERS.q5... |
00001960: 20 20 20 20 20 4C 44 58 20 23 B1 42 55 46 46 45 | LDX #.BUFFE|
00001970: 52 00 8B 35 CE 09 AE 20 20 20 20 20 20 20 20 53 |R..5... S|
00001980: 54 41 20 42 55 46 50 4E 54 AA 31 00 A5 35 D8 09 |TA BUFPNT.1..5..|
00001990: AE 20 20 20 20 20 20 20 20 53 54 58 20 42 55 46 |. STX BUF|
000019A0: 50 4E 54 AA 32 00 DF 35 E2 09 43 4F 55 4E 54 4C |PNT.2..5..COUNTL|
000019B0: 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 20 20 | LDA #$00 |
000019C0: 20 3B 20 22 C1 4E 5A 41 48 4C 20 44 45 52 20 C2 | ; ".NZAHL DER .|
000019D0: 59 54 45 53 20 28 4C 4F 57 20 C2 59 54 45 29 00 |YTES (LOW .YTE).|
000019E0: 1A 36 EC 09 43 4F 55 4E 54 48 20 20 20 4C 44 59 |.6..COUNTH LDY|
000019F0: 20 23 24 30 30 20 20 20 20 20 20 3B 20 22 C1 4E | #$00 ; ".N|
00001A00: 5A 41 48 4C 20 44 45 52 20 C2 59 54 45 53 20 28 |ZAHL DER .YTES (|
00001A10: C8 49 47 48 20 C2 59 54 45 29 00 33 36 F6 09 AE |.IGH .YTE).36...|
00001A20: 20 20 20 20 20 20 20 20 53 54 41 20 43 4F 55 4E | STA COUN|
00001A30: 54 45 52 00 4E 36 00 0A AE 20 20 20 20 20 20 20 |TER.N6... |
00001A40: 20 53 54 59 20 43 4F 55 4E 54 45 52 AA 31 00 54 | STY COUNTER.1.T|
00001A50: 36 0A 0A 3B 00 92 36 14 0A 3B 20 22 2A 2A 2A 20 |6..;..6..; "*** |
00001A60: C2 59 54 45 53 20 41 55 53 20 C2 49 4C 44 53 43 |.YTES AUS .ILDSC|
00001A70: 48 49 52 4D 53 50 45 49 43 48 45 52 20 49 4E 53 |HIRMSPEICHER INS|
00001A80: 20 D2 C1 CD 20 4B 4F 50 49 45 52 45 4E 20 2A 2A | ... KOPIEREN **|
00001A90: 2A 22 00 98 36 1E 0A 3B 00 AD 36 28 0A AE 20 20 |*"..6..;..6(.. |
00001AA0: 20 20 20 20 20 20 4C 44 58 20 23 31 38 00 EE 36 | LDX #18..6|
00001AB0: 32 0A AE 20 20 20 20 20 20 20 20 4C 44 41 20 53 |2.. LDA S|
00001AC0: 43 52 50 4E 54 AA 31 20 20 3B 20 22 C2 49 4C 44 |CRPNT.1 ; ".ILD|
00001AD0: 53 43 48 49 52 4D 2D D2 C1 CD 2D C1 44 52 45 53 |SCHIRM-...-.DRES|
00001AE0: 53 45 20 28 C8 49 47 48 20 C2 59 54 45 29 00 07 |SE (.IGH .YTE)..|
00001AF0: 37 3C 0A AE 20 20 20 20 20 20 20 20 4C 44 59 20 |7<.. LDY |
00001B00: 23 B3 24 43 44 43 43 00 1E 37 46 0A AE 20 20 20 |#.$CDCC..7F.. |
00001B10: 20 20 20 20 20 53 54 59 20 24 30 43 30 44 00 37 | STY $0C0D.7|
00001B20: 37 50 0A AE 20 20 20 20 20 20 20 20 4C 44 59 20 |7P.. LDY |
00001B30: 23 B1 24 43 44 43 43 00 4E 37 5A 0A AE 20 20 20 |#.$CDCC.N7Z.. |
00001B40: 20 20 20 20 20 53 54 59 20 24 30 43 30 45 00 65 | STY $0C0E.e|
00001B50: 37 64 0A AE 20 20 20 20 20 20 20 20 4A 53 52 20 |7d.. JSR |
00001B60: 24 30 43 30 30 00 7A 37 6E 0A AE 20 20 20 20 20 |$0C00.z7n.. |
00001B70: 20 20 20 4C 44 58 20 23 31 39 00 BA 37 78 0A AE | LDX #19..7x..|
00001B80: 20 20 20 20 20 20 20 20 4C 44 41 20 53 43 52 50 | LDA SCRP|
00001B90: 4E 54 20 20 20 20 3B 20 22 C2 49 4C 44 53 43 48 |NT ; ".ILDSCH|
00001BA0: 49 52 4D 2D D2 C1 CD 2D C1 44 52 45 53 53 45 20 |IRM-...-.DRESSE |
00001BB0: 28 CC 4F 57 20 C2 59 54 45 29 00 D1 37 82 0A AE |(.OW .YTE)..7...|
00001BC0: 20 20 20 20 20 20 20 20 4A 53 52 20 24 30 43 30 | JSR $0C0|
00001BD0: 30 00 E6 37 8C 0A AE 20 20 20 20 20 20 20 20 4C |0..7... L|
00001BE0: 44 58 20 23 33 31 00 FF 37 96 0A AE 20 20 20 20 |DX #31..7... |
00001BF0: 20 20 20 20 4C 44 59 20 23 B3 24 43 44 44 41 00 | LDY #.$CDDA.|
00001C00: 16 38 A0 0A AE 20 20 20 20 20 20 20 20 53 54 59 |.8... STY|
00001C10: 20 24 30 43 30 44 00 2F 38 AA 0A AE 20 20 20 20 | $0C0D./8... |
00001C20: 20 20 20 20 4C 44 59 20 23 B1 24 43 44 44 41 00 | LDY #.$CDDA.|
00001C30: 46 38 B4 0A AE 20 20 20 20 20 20 20 20 53 54 59 |F8... STY|
00001C40: 20 24 30 43 30 45 00 6F 38 BE 0A 43 4F 50 59 32 | $0C0E.o8..COPY2|
00001C50: 20 20 20 20 4A 53 52 20 24 30 43 30 30 20 20 20 | JSR $0C00 |
00001C60: 20 20 3B 20 22 C2 59 54 45 20 48 4F 4C 45 4E 00 | ; ".YTE HOLEN.|
00001C70: BD 38 C8 0A 42 55 46 50 4E 54 20 20 20 53 54 41 |.8..BUFPNT STA|
00001C80: 20 24 46 46 46 46 20 20 20 20 20 3B 20 22 55 4E | $FFFF ; "UN|
00001C90: 44 20 49 4E 53 20 D2 C1 CD 20 53 50 45 49 43 48 |D INS ... SPEICH|
00001CA0: 45 52 4E 20 28 C1 44 52 45 53 53 45 20 57 49 52 |ERN (.DRESSE WIR|
00001CB0: 44 20 45 49 4E 47 45 53 45 54 5A 54 29 00 D7 38 |D EINGESETZT)..8|
00001CC0: D2 0A AE 20 20 20 20 20 20 20 20 49 4E 43 20 42 |... INC B|
00001CD0: 55 46 50 4E 54 AA 31 00 EE 38 DC 0A AE 20 20 20 |UFPNT.1..8... |
00001CE0: 20 20 20 20 20 42 4E 45 20 43 4F 50 59 33 00 08 | BNE COPY3..|
00001CF0: 39 E6 0A AE 20 20 20 20 20 20 20 20 49 4E 43 20 |9... INC |
00001D00: 42 55 46 50 4E 54 AA 32 00 3D 39 F0 0A 43 4F 50 |BUFPNT.2.=9..COP|
00001D10: 59 33 20 20 20 20 53 45 43 20 20 20 20 20 20 20 |Y3 SEC |
00001D20: 20 20 20 20 3B 20 22 DA BB 48 4C 45 52 20 48 45 | ; "..HLER HE|
00001D30: 52 52 55 4E 54 45 52 5A BB 48 4C 45 4E 00 56 39 |RRUNTERZ.HLEN.V9|
00001D40: FA 0A AE 20 20 20 20 20 20 20 20 4C 44 41 20 43 |... LDA C|
00001D50: 4F 55 4E 54 45 52 00 6A 39 04 0B AE 20 20 20 20 |OUNTER.j9... |
00001D60: 20 20 20 20 53 42 43 20 23 31 00 83 39 0E 0B AE | SBC #1..9...|
00001D70: 20 20 20 20 20 20 20 20 53 54 41 20 43 4F 55 4E | STA COUN|
00001D80: 54 45 52 00 9E 39 18 0B AE 20 20 20 20 20 20 20 |TER..9... |
00001D90: 20 4C 44 41 20 43 4F 55 4E 54 45 52 AA 31 00 B2 | LDA COUNTER.1..|
00001DA0: 39 22 0B AE 20 20 20 20 20 20 20 20 53 42 43 20 |9".. SBC |
00001DB0: 23 30 00 CD 39 2C 0B AE 20 20 20 20 20 20 20 20 |#0..9,.. |
00001DC0: 53 54 41 20 43 4F 55 4E 54 45 52 AA 31 00 E4 39 |STA COUNTER.1..9|
00001DD0: 36 0B AE 20 20 20 20 20 20 20 20 42 43 53 20 43 |6.. BCS C|
00001DE0: 4F 50 59 32 00 EA 39 40 0B 3B 00 1D 3A 4A 0B 3B |OPY2..9@.;..:J.;|
00001DF0: 20 22 2A 2A 2A 20 C9 4E 53 20 D2 C1 CD 20 4B 4F | "*** .NS ... KO|
00001E00: 50 49 45 52 54 45 20 C2 59 54 45 53 20 56 45 52 |PIERTE .YTES VER|
00001E10: 41 52 42 45 49 54 45 4E 20 2A 2A 2A 22 00 23 3A |ARBEITEN ***".#:|
00001E20: 54 0B 3B 00 5D 3A 5E 0B AE 20 20 20 20 20 20 20 |T.;.]:^.. |
00001E30: 20 4C 44 58 20 23 30 20 20 20 20 20 20 20 20 3B | LDX #0 ;|
00001E40: 20 22 C2 59 54 45 20 49 4E 20 44 45 52 20 41 4B | ".YTE IN DER AK|
00001E50: 54 55 45 4C 4C 45 4E 20 DA 45 49 4C 45 00 8A 3A |TUELLEN .EILE..:|
00001E60: 68 0B 50 52 31 20 20 20 20 20 20 4C 44 59 20 23 |h.PR1 LDY #|
00001E70: 38 20 20 20 20 20 20 20 20 3B 20 22 38 20 C2 49 |8 ; "8 .I|
00001E80: 54 20 50 52 4F 20 C2 59 54 45 00 B5 3A 72 0B 50 |T PRO .YTE..:r.P|
00001E90: 52 32 20 20 20 20 20 20 4C 44 41 20 23 30 20 20 |R2 LDA #0 |
00001EA0: 20 20 20 20 20 20 3B 20 22 C4 41 54 41 20 4C BC | ; ".ATA L.|
00001EB0: 53 43 48 45 4E 00 C8 3A 7C 0B AE 20 20 20 20 20 |SCHEN..:|.. |
00001EC0: 20 20 20 53 54 41 20 83 00 E0 3A 86 0B AE 20 20 | STA ...:... |
00001ED0: 20 20 20 20 20 20 52 4F 4C 20 52 4F 57 31 2C 58 | ROL ROW1,X|
00001EE0: 00 F3 3A 90 0B AE 20 20 20 20 20 20 20 20 52 4F |..:... RO|
00001EF0: 4C 20 83 00 0B 3B 9A 0B AE 20 20 20 20 20 20 20 |L ...;... |
00001F00: 20 52 4F 4C 20 52 4F 57 32 2C 58 00 1E 3B A4 0B | ROL ROW2,X..;..|
00001F10: AE 20 20 20 20 20 20 20 20 52 4F 4C 20 83 00 4C |. ROL ..L|
00001F20: 3B AE 0B AE 20 20 20 20 20 20 20 20 42 49 54 20 |;... BIT |
00001F30: 53 54 45 55 45 52 20 20 20 20 3B 20 22 56 45 52 |STEUER ; "VER|
00001F40: 56 49 45 4C 46 41 43 48 45 4E 20 3F 00 8B 3B B8 |VIELFACHEN ?..;.|
00001F50: 0B AE 20 20 20 20 20 20 20 20 42 50 4C 20 50 52 |.. BPL PR|
00001F60: 33 20 20 20 20 20 20 20 3B 20 22 4B 45 49 4E 45 |3 ; "KEINE|
00001F70: 20 D6 45 52 47 52 BC BE 45 52 55 4E 47 20 49 4E | .ERGR..ERUNG IN|
00001F80: 20 59 2D D2 49 43 48 54 55 4E 47 00 AC 3B C2 0B | Y-.ICHTUNG..;..|
00001F90: AE 20 20 20 20 20 20 20 20 42 56 53 20 4F 55 54 |. BVS OUT|
00001FA0: 20 20 20 20 20 20 20 3B 20 22 2A 34 00 C4 3B CC | ; "*4..;.|
00001FB0: 0B 50 52 33 20 20 20 20 20 20 52 4F 4C 20 52 4F |.PR3 ROL RO|
00001FC0: 57 33 2C 58 00 D7 3B D6 0B AE 20 20 20 20 20 20 |W3,X..;... |
00001FD0: 20 20 52 4F 4C 20 83 00 EF 3B E0 0B AE 20 20 20 | ROL ...;... |
00001FE0: 20 20 20 20 20 52 4F 4C 20 52 4F 57 34 2C 58 00 | ROL ROW4,X.|
00001FF0: 02 3C EA 0B AE 20 20 20 20 20 20 20 20 52 4F 4C |.<... ROL|
00002000: 20 83 00 1A 3C F4 0B AE 20 20 20 20 20 20 20 20 | ...<... |
00002010: 42 49 54 20 53 54 45 55 45 52 00 3B 3C FE 0B AE |BIT STEUER.;<...|
00002020: 20 20 20 20 20 20 20 20 42 4D 49 20 4F 55 54 20 | BMI OUT |
00002030: 20 20 20 20 20 20 3B 20 22 2A 32 00 53 3C 08 0C | ; "*2.S<..|
00002040: AE 20 20 20 20 20 20 20 20 52 4F 4C 20 52 4F 57 |. ROL ROW|
00002050: 35 2C 58 00 66 3C 12 0C AE 20 20 20 20 20 20 20 |5,X.f<... |
00002060: 20 52 4F 4C 20 83 00 7E 3C 1C 0C AE 20 20 20 20 | ROL ..~<... |
00002070: 20 20 20 20 52 4F 4C 20 52 4F 57 36 2C 58 00 91 | ROL ROW6,X..|
00002080: 3C 26 0C AE 20 20 20 20 20 20 20 20 52 4F 4C 20 |<&.. ROL |
00002090: 83 00 A9 3C 30 0C AE 20 20 20 20 20 20 20 20 52 |...<0.. R|
000020A0: 4F 4C 20 52 4F 57 37 2C 58 00 BC 3C 3A 0C AE 20 |OL ROW7,X..<:.. |
000020B0: 20 20 20 20 20 20 20 52 4F 4C 20 83 00 D4 3C 44 | ROL ...<D|
000020C0: 0C AE 20 20 20 20 20 20 20 20 52 4F 4C 20 52 4F |.. ROL RO|
000020D0: 57 38 2C 58 00 E7 3C 4E 0C AE 20 20 20 20 20 20 |W8,X..<N.. |
000020E0: 20 20 52 4F 4C 20 83 00 16 3D 58 0C 4F 55 54 20 | ROL ...=X.OUT |
000020F0: 20 20 20 20 20 4C 44 41 20 83 20 20 20 20 20 20 | LDA . |
00002100: 3B 20 22 46 45 52 54 49 47 45 53 20 C2 59 54 45 |; "FERTIGES .YTE|
00002110: 20 4C 41 44 45 4E 00 52 3D 62 0C AE 20 20 20 20 | LADEN.R=b.. |
00002120: 20 20 20 20 4A 53 52 20 41 55 53 47 41 42 45 20 | JSR AUSGABE |
00002130: 20 20 3B 20 22 C2 49 54 53 20 56 45 52 41 52 42 | ; ".ITS VERARB|
00002140: 45 49 54 45 4E 20 55 4E 44 20 41 55 53 47 45 42 |EITEN UND AUSGEB|
00002150: 45 4E 00 7D 3D 6C 0C AE 20 20 20 20 20 20 20 20 |EN.}=l.. |
00002160: 44 45 59 20 20 20 20 20 20 20 20 20 20 20 3B 20 |DEY ; |
00002170: 22 4E BB 43 48 53 54 45 53 20 C2 49 54 00 B2 3D |"N.CHSTES .IT..=|
00002180: 76 0C AE 20 20 20 20 20 20 20 20 42 4E 45 20 50 |v.. BNE P|
00002190: 52 32 20 20 20 20 20 20 20 3B 20 22 C2 59 54 45 |R2 ; ".YTE|
000021A0: 20 4E 4F 43 48 20 4E 49 43 48 54 20 46 45 52 54 | NOCH NICHT FERT|
000021B0: 49 47 00 EE 3D 80 0C AE 20 20 20 20 20 20 20 20 |IG..=... |
000021C0: 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 3B 20 |INX ; |
000021D0: 22 4E BB 43 48 53 54 45 53 20 C2 59 54 45 20 49 |"N.CHSTES .YTE I|
000021E0: 4E 20 44 49 45 53 45 52 20 DA 45 49 4C 45 00 2F |N DIESER .EILE./|
000021F0: 3E 8A 0C AE 20 20 20 20 20 20 20 20 43 50 58 20 |>... CPX |
00002200: 23 38 30 20 20 20 20 20 20 20 3B 20 22 41 4C 4C |#80 ; "ALL|
00002210: 45 20 38 30 20 C2 59 54 45 20 44 49 45 53 45 52 |E 80 .YTE DIESER|
00002220: 20 DA 45 49 4C 45 20 46 45 52 54 49 47 20 3F 00 | .EILE FERTIG ?.|
00002230: 52 3E 94 0C AE 20 20 20 20 20 20 20 20 42 4E 45 |R>... BNE|
00002240: 20 50 52 31 20 20 20 20 20 20 20 3B 20 22 4E 45 | PR1 ; "NE|
00002250: 49 4E 00 8F 3E 9E 0C AE 20 20 20 20 20 20 20 20 |IN..>... |
00002260: 44 45 43 20 41 4E 5A 5A 45 49 20 20 20 20 3B 20 |DEC ANZZEI ; |
00002270: 22 4A 41 20 2D 3E 20 DA 45 49 4C 45 4E 5A BB 48 |"JA -> .EILENZ.H|
00002280: 4C 45 52 20 45 52 4E 49 45 44 52 49 47 45 4E 00 |LER ERNIEDRIGEN.|
00002290: BB 3E A8 0C AE 20 20 20 20 20 20 20 20 42 45 51 |.>... BEQ|
000022A0: 20 53 50 41 31 20 20 20 20 20 20 3B 20 22 3D 20 | SPA1 ; "= |
000022B0: 30 20 2D 3E 20 46 45 52 54 49 47 00 FF 3E B2 0C |0 -> FERTIG..>..|
000022C0: AE 20 20 20 20 20 20 20 20 4A 53 52 20 44 52 55 |. JSR DRU|
000022D0: 43 4B 45 52 20 20 20 3B 20 22 53 4F 4E 53 54 20 |CKER ; "SONST |
000022E0: C4 52 55 43 4B 45 52 20 46 BD 52 20 4E 45 55 45 |.RUCKER F.R NEUE|
000022F0: 20 DA 45 49 4C 45 20 41 4E 57 45 49 53 45 4E 00 | .EILE ANWEISEN.|
00002300: 33 3F BC 0C AE 20 20 20 20 20 20 20 20 4A 4D 50 |3?... JMP|
00002310: 20 43 4F 50 59 20 20 20 20 20 20 3B 20 22 4E 45 | COPY ; "NE|
00002320: 55 45 20 DA 45 49 4C 45 20 42 45 41 52 42 45 49 |UE .EILE BEARBEI|
00002330: 54 45 4E 00 39 3F C6 0C 3B 00 51 3F D0 0C 53 50 |TEN.9?..;.Q?..SP|
00002340: 41 31 20 20 20 20 20 4C 44 41 20 23 B3 9C 43 48 |A1 LDA #..CH|
00002350: 4E 00 68 3F DA 0C AE 20 20 20 20 20 20 20 20 53 |N.h?... S|
00002360: 54 41 20 24 30 43 30 44 00 80 3F E4 0C AE 20 20 |TA $0C0D..?... |
00002370: 20 20 20 20 20 20 4C 44 41 20 23 B1 9C 43 48 4E | LDA #..CHN|
00002380: 00 97 3F EE 0C AE 20 20 20 20 20 20 20 20 53 54 |..?... ST|
00002390: 41 20 24 30 43 30 45 00 AE 3F F8 0C AE 20 20 20 |A $0C0E..?... |
000023A0: 20 20 20 20 20 4A 53 52 20 24 30 43 30 30 00 DC | JSR $0C00..|
000023B0: 3F 02 0D AE 20 20 20 20 20 20 20 20 43 4C 43 20 |?... CLC |
000023C0: 20 20 20 20 20 20 20 20 20 20 3B 20 22 C5 4E 44 | ; ".ND|
000023D0: 45 20 46 45 48 4C 45 52 46 52 45 49 00 F0 3F 0C |E FEHLERFREI..?.|
000023E0: 0D AE 20 20 20 20 20 20 20 20 4A 4D 50 20 80 45 |.. JMP .E|
000023F0: 00 F6 3F 16 0D 3B 00 19 40 20 0D 3B 20 22 2A 2A |..?..;..@ .; "**|
00002400: 2A 20 C4 52 55 43 4B 45 52 41 4E 53 54 45 55 45 |* .RUCKERANSTEUE|
00002410: 52 55 4E 47 20 2A 2A 2A 22 00 1F 40 2A 0D 3B 00 |RUNG ***"..@*.;.|
00002420: 54 40 34 0D 44 52 55 43 4B 45 52 20 20 4C 44 59 |T@4.DRUCKER LDY|
00002430: 20 23 35 20 20 20 20 20 20 20 20 3B 20 22 C1 4E | #5 ; ".N|
00002440: 5A 41 48 4C 20 44 45 52 20 C2 45 46 45 48 4C 42 |ZAHL DER .EFEHLB|
00002450: 59 54 45 53 00 6F 40 3E 0D AE 20 20 20 20 20 20 |YTES.o@>.. |
00002460: 20 20 53 54 59 20 43 4F 55 4E 54 45 52 AA 31 00 | STY COUNTER.1.|
00002470: 8A 40 48 0D 44 52 31 20 20 20 20 20 20 4C 44 59 |.@H.DR1 LDY|
00002480: 20 43 4F 55 4E 54 45 52 AA 31 00 A2 40 52 0D AE | COUNTER.1..@R..|
00002490: 20 20 20 20 20 20 20 20 4C 44 41 20 50 52 54 9D | LDA PRT.|
000024A0: 2C 59 00 D2 40 5C 0D AE 20 20 20 20 20 20 20 20 |,Y..@\.. |
000024B0: 4A 53 52 20 41 55 46 42 55 53 20 20 20 20 3B 20 |JSR AUFBUS ; |
000024C0: 22 41 4E 20 C4 52 55 43 4B 45 52 20 53 45 4E 44 |"AN .RUCKER SEND|
000024D0: 45 4E 00 ED 40 66 0D AE 20 20 20 20 20 20 20 20 |EN..@f.. |
000024E0: 44 45 43 20 43 4F 55 4E 54 45 52 AA 31 00 02 41 |DEC COUNTER.1..A|
000024F0: 70 0D AE 20 20 20 20 20 20 20 20 42 50 4C 20 44 |p.. BPL D|
00002500: 52 31 00 13 41 7A 0D AE 20 20 20 20 20 20 20 20 |R1..Az.. |
00002510: 52 54 53 00 19 41 84 0D 3B 00 5F 41 8E 0D 50 52 |RTS..A..;._A..PR|
00002520: 54 9D 20 20 20 2E 42 59 54 20 30 2C 20 30 20 20 |T. .BYT 0, 0 |
00002530: 20 20 20 3B 20 22 C1 4E 5A 41 48 4C 20 D0 55 4E | ; ".NZAHL .UN|
00002540: 4B 54 45 20 50 52 4F 20 DA 45 49 4C 45 20 28 57 |KTE PRO .EILE (W|
00002550: 49 52 44 20 45 49 4E 47 45 53 45 54 5A 54 29 00 |IRD EINGESETZT).|
00002560: A2 41 98 0D 50 52 54 9D 31 20 20 2E 42 59 54 20 |.A..PRT.1 .BYT |
00002570: 30 2C 20 22 2A 22 2C 20 45 53 43 2C 20 43 52 2C |0, "*", ESC, CR,|
00002580: 20 4C 46 3B 20 22 C4 52 55 43 4B 4D 4F 44 55 53 | LF; ".RUCKMODUS|
00002590: 20 28 57 49 52 44 20 45 49 4E 47 45 53 45 54 5A | (WIRD EINGESETZ|
000025A0: 54 29 00 A8 41 A2 0D 3B 00 CA 41 AC 0D 3B 20 22 |T)..A..;..A..; "|
000025B0: 2A 2A 2A 20 C1 55 53 47 41 42 45 4E 53 54 45 55 |*** .USGABENSTEU|
000025C0: 45 52 55 4E 47 20 2A 2A 2A 22 00 D0 41 B6 0D 3B |ERUNG ***"..A..;|
000025D0: 00 F7 41 C0 0D 41 55 53 47 41 42 45 20 20 53 54 |..A..AUSGABE ST|
000025E0: 58 20 53 41 56 58 20 20 20 20 20 20 3B 20 22 58 |X SAVX ; "X|
000025F0: 20 52 45 54 54 45 4E 00 1E 42 CA 0D AE 20 20 20 | RETTEN..B... |
00002600: 20 20 20 20 20 53 54 59 20 53 41 56 59 20 20 20 | STY SAVY |
00002610: 20 20 20 3B 20 22 59 20 52 45 54 54 45 4E 00 36 | ; "Y RETTEN.6|
00002620: 42 D4 0D AE 20 20 20 20 20 20 20 20 42 49 54 20 |B... BIT |
00002630: 53 54 45 55 45 52 00 75 42 DE 0D AE 20 20 20 20 |STEUER.uB... |
00002640: 20 20 20 20 42 50 4C 20 41 55 53 32 20 20 20 20 | BPL AUS2 |
00002650: 20 20 3B 20 22 4B 45 49 4E 20 D6 45 52 56 49 45 | ; "KEIN .ERVIE|
00002660: 4C 46 41 43 48 45 4E 20 49 4E 20 59 2D D2 49 43 |LFACHEN IN Y-.IC|
00002670: 48 54 55 4E 47 00 86 42 E8 0D AE 20 20 20 20 20 |HTUNG..B... |
00002680: 20 20 20 54 41 58 00 9C 42 F2 0D AE 20 20 20 20 | TAX..B... |
00002690: 20 20 20 20 42 56 53 20 41 55 53 31 00 C0 42 FC | BVS AUS1..B.|
000026A0: 0D AE 20 20 20 20 20 20 20 20 4C 44 41 20 44 4F |.. LDA DO|
000026B0: 50 50 45 4C 2C 58 20 20 3B 20 22 59 3D 59 2A 32 |PPEL,X ; "Y=Y*2|
000026C0: 00 F1 42 06 0E AE 20 20 20 20 20 20 20 20 42 56 |..B... BV|
000026D0: 43 20 41 55 53 32 20 20 20 20 20 20 3B 20 22 55 |C AUS2 ; "U|
000026E0: 4E 42 45 44 49 4E 47 54 45 52 20 D3 50 52 55 4E |NBEDINGTER .PRUN|
000026F0: 47 00 F7 42 10 0E 3B 00 1B 43 1A 0E 41 55 53 31 |G..B..;..C..AUS1|
00002700: 20 20 20 20 20 4C 44 41 20 56 49 45 52 2C 58 20 | LDA VIER,X |
00002710: 20 20 20 3B 20 22 59 3D 59 2A 34 00 4D 43 24 0E | ; "Y=Y*4.MC$.|
00002720: 41 55 53 32 20 20 20 20 20 53 54 41 20 83 20 20 |AUS2 STA . |
00002730: 20 20 20 20 3B 20 22 C2 59 54 45 20 5A 57 49 53 | ; ".YTE ZWIS|
00002740: 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 65 43 |CHENSPEICHERN.eC|
00002750: 2E 0E AE 20 20 20 20 20 20 20 20 4C 44 41 20 53 |... LDA S|
00002760: 54 45 55 45 52 00 76 43 38 0E AE 20 20 20 20 20 |TEUER.vC8.. |
00002770: 20 20 20 50 48 41 00 B0 43 42 0E AE 20 20 20 20 | PHA..CB.. |
00002780: 20 20 20 20 AF 20 23 25 30 30 30 30 30 30 31 31 | . #%00000011|
00002790: 20 3B 20 22 D6 45 52 56 49 45 4C 46 41 43 48 55 | ; ".ERVIELFACHU|
000027A0: 4E 47 20 49 4E 20 58 2D D2 49 43 48 54 55 4E 47 |NG IN X-.ICHTUNG|
000027B0: 00 D9 43 4C 0E AE 20 20 20 20 20 20 20 20 53 54 |..CL.. ST|
000027C0: 41 20 43 4F 55 4E 54 45 52 20 20 20 3B 20 22 41 |A COUNTER ; "A|
000027D0: 4C 53 20 DA BB 48 4C 45 52 00 EA 43 56 0E AE 20 |LS ..HLER..CV.. |
000027E0: 20 20 20 20 20 20 20 50 4C 41 00 0F 44 60 0E AE | PLA..D`..|
000027F0: 20 20 20 20 20 20 20 20 AF 20 23 25 30 30 31 30 | . #%0010|
00002800: 30 30 30 30 20 3B 20 22 D2 C5 D6 C5 D2 D3 C5 00 |0000 ; "........|
00002810: 32 44 6A 0E AE 20 20 20 20 20 20 20 20 42 45 51 |2Dj.. BEQ|
00002820: 20 41 55 53 33 20 20 20 20 20 20 3B 20 22 4E 45 | AUS3 ; "NE|
00002830: 49 4E 00 45 44 74 0E AE 20 20 20 20 20 20 20 20 |IN.EDt.. |
00002840: 4C 44 41 20 83 00 5A 44 7E 0E AE 20 20 20 20 20 |LDA ..ZD~.. |
00002850: 20 20 20 45 B0 20 23 24 46 46 00 6D 44 88 0E AE | E. #$FF.mD...|
00002860: 20 20 20 20 20 20 20 20 53 54 41 20 83 00 80 44 | STA ...D|
00002870: 92 0E 41 55 53 33 20 20 20 20 20 4C 44 41 20 83 |..AUS3 LDA .|
00002880: 00 A9 44 9C 0E AE 20 20 20 20 20 20 20 20 4A 53 |..D... JS|
00002890: 52 20 41 55 46 42 55 53 20 20 20 20 3B 20 22 41 |R AUFBUS ; "A|
000028A0: 4E 20 C4 52 55 43 4B 45 52 00 C2 44 A6 0E AE 20 |N .RUCKER..D... |
000028B0: 20 20 20 20 20 20 20 44 45 43 20 43 4F 55 4E 54 | DEC COUNT|
000028C0: 45 52 00 D8 44 B0 0E AE 20 20 20 20 20 20 20 20 |ER..D... |
000028D0: 42 4E 45 20 41 55 53 33 00 0F 45 BA 0E AE 20 20 |BNE AUS3..E... |
000028E0: 20 20 20 20 20 20 4C 44 58 20 53 41 56 58 20 20 | LDX SAVX |
000028F0: 20 20 20 20 3B 20 22 D2 45 47 49 53 54 45 52 20 | ; ".EGISTER |
00002900: 5A 55 52 BD 43 4B 53 50 45 49 43 48 45 52 4E 00 |ZUR.CKSPEICHERN.|
00002910: 25 45 C4 0E AE 20 20 20 20 20 20 20 20 4C 44 59 |%E... LDY|
00002920: 20 53 41 56 59 00 36 45 CE 0E AE 20 20 20 20 20 | SAVY.6E... |
00002930: 20 20 20 52 54 53 00 3C 45 D8 0E 3B 00 6F 45 E2 | RTS.<E..;.oE.|
00002940: 0E 3B 20 22 2A 2A 2A 20 C2 59 54 45 20 41 55 53 |.; "*** .YTE AUS|
00002950: 47 45 42 45 4E 20 28 53 45 52 49 45 4C 4C 2F 43 |GEBEN (SERIELL/C|
00002960: 45 4E 54 52 4F 4E 49 43 53 29 20 2A 2A 2A 22 00 |ENTRONICS) ***".|
00002970: 75 45 EC 0E 3B 00 86 45 F6 0E 41 55 46 42 55 53 |uE..;..E..AUFBUS|
00002980: 20 20 20 50 48 41 00 B1 45 00 0F AE 20 20 20 20 | PHA..E... |
00002990: 20 20 20 20 4C 44 41 20 53 45 4B 41 44 52 20 20 | LDA SEKADR |
000029A0: 20 20 3B 20 22 C3 45 4E 54 52 4F 4E 49 43 53 20 | ; ".ENTRONICS |
000029B0: 3F 00 C7 45 0A 0F AE 20 20 20 20 20 20 20 20 43 |?..E... C|
000029C0: 4D 50 20 23 24 46 46 00 E8 45 14 0F AE 20 20 20 |MP #$FF..E... |
000029D0: 20 20 20 20 20 42 45 51 20 41 55 46 31 20 20 20 | BEQ AUF1 |
000029E0: 20 20 20 3B 20 22 4A 41 00 02 46 1E 0F AE 20 20 | ; "JA..F... |
000029F0: 20 20 20 20 20 20 4C 44 41 20 23 B3 43 48 52 4F | LDA #.CHRO|
00002A00: 55 54 00 19 46 28 0F AE 20 20 20 20 20 20 20 20 |UT..F(.. |
00002A10: 53 54 41 20 24 30 43 30 44 00 33 46 32 0F AE 20 |STA $0C0D.3F2.. |
00002A20: 20 20 20 20 20 20 20 4C 44 41 20 23 B1 43 48 52 | LDA #.CHR|
00002A30: 4F 55 54 00 4A 46 3C 0F AE 20 20 20 20 20 20 20 |OUT.JF<.. |
00002A40: 20 53 54 41 20 24 30 43 30 45 00 79 46 46 0F AE | STA $0C0E.yFF..|
00002A50: 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 | PLA |
00002A60: 20 20 20 20 20 20 3B 20 22 C2 59 54 45 20 5A 55 | ; ".YTE ZU|
00002A70: 52 BD 43 4B 48 4F 4C 45 4E 00 AE 46 50 0F AE 20 |R.CKHOLEN..FP.. |
00002A80: 20 20 20 20 20 20 20 4A 4D 50 20 24 30 43 30 30 | JMP $0C00|
00002A90: 20 20 20 20 20 3B 20 22 55 4E 44 20 41 55 53 47 | ; "UND AUSG|
00002AA0: 45 42 45 4E 20 28 53 45 52 49 45 4C 4C 29 00 B4 |EBEN (SERIELL)..|
00002AB0: 46 5A 0F 3B 00 E3 46 64 0F 41 55 46 31 20 20 20 |FZ.;..Fd.AUF1 |
00002AC0: 20 20 4C 44 58 20 23 B3 24 44 44 30 33 20 20 20 | LDX #.$DD03 |
00002AD0: 3B 20 22 C4 C4 D2 C2 20 41 55 46 20 C1 55 53 47 |; ".... AUF .USG|
00002AE0: 41 42 45 00 FC 46 6E 0F AE 20 20 20 20 20 20 20 |ABE..Fn.. |
00002AF0: 20 4C 44 59 20 23 B1 24 44 44 30 33 00 13 47 78 | LDY #.$DD03..Gx|
00002B00: 0F AE 20 20 20 20 20 20 20 20 4A 53 52 20 49 4E |.. JSR IN|
00002B10: 44 53 54 00 42 47 82 0F AE 20 20 20 20 20 20 20 |DST.BG... |
00002B20: 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B | PLA ;|
00002B30: 20 22 C2 59 54 45 20 5A 55 52 BD 43 4B 48 4F 4C | ".YTE ZUR.CKHOL|
00002B40: 45 4E 00 64 47 8C 0F AE 20 20 20 20 20 20 20 20 |EN.dG... |
00002B50: 4C 44 58 20 23 B3 24 44 44 30 31 20 20 20 3B 20 |LDX #.$DD01 ; |
00002B60: 22 D0 D2 C2 00 7D 47 96 0F AE 20 20 20 20 20 20 |"....}G... |
00002B70: 20 20 4C 44 59 20 23 B1 24 44 44 30 31 00 94 47 | LDY #.$DD01..G|
00002B80: A0 0F AE 20 20 20 20 20 20 20 20 4A 53 52 20 49 |... JSR I|
00002B90: 4E 44 53 54 00 BE 47 AA 0F AE 20 20 20 20 20 20 |NDST..G... |
00002BA0: 20 20 4C 44 58 20 23 B3 24 44 44 30 44 20 20 20 | LDX #.$DD0D |
00002BB0: 3B 20 22 C9 D2 D1 20 4C BC 53 43 48 45 4E 00 D7 |; "... L.SCHEN..|
00002BC0: 47 B4 0F AE 20 20 20 20 20 20 20 20 4C 44 59 20 |G... LDY |
00002BD0: 23 B1 24 44 44 30 44 00 EE 47 BE 0F AE 20 20 20 |#.$DD0D..G... |
00002BE0: 20 20 20 20 20 4A 53 52 20 49 4E 44 4C 44 00 13 | JSR INDLD..|
00002BF0: 48 C8 0F AE 20 20 20 20 20 20 20 20 4C 44 58 20 |H... LDX |
00002C00: 23 B3 24 44 44 30 30 20 20 20 3B 20 22 D3 54 52 |#.$DD00 ; ".TR|
00002C10: 4F 42 45 00 2C 48 D2 0F AE 20 20 20 20 20 20 20 |OBE.,H... |
00002C20: 20 4C 44 59 20 23 B1 24 44 44 30 30 00 43 48 DC | LDY #.$DD00.CH.|
00002C30: 0F AE 20 20 20 20 20 20 20 20 4A 53 52 20 49 4E |.. JSR IN|
00002C40: 44 4C 44 00 57 48 E6 0F AE 20 20 20 20 20 20 20 |DLD.WH... |
00002C50: 20 AF 20 23 24 46 42 00 6F 48 F0 0F AE 20 20 20 | . #$FB.oH... |
00002C60: 20 20 20 20 20 4A 53 52 20 49 4E 44 53 54 31 00 | JSR INDST1.|
00002C70: 84 48 FA 0F AE 20 20 20 20 20 20 20 20 B0 41 20 |.H... .A |
00002C80: 23 24 30 34 00 9C 48 04 10 AE 20 20 20 20 20 20 |#$04..H... |
00002C90: 20 20 4A 53 52 20 49 4E 44 53 54 31 00 D4 48 0E | JSR INDST1..H.|
00002CA0: 10 41 55 46 32 20 20 20 20 20 4C 44 58 20 23 B3 |.AUF2 LDX #.|
00002CB0: 24 44 44 30 44 20 20 20 3B 20 22 41 55 46 20 C4 |$DD0D ; "AUF .|
00002CC0: 52 55 43 4B 45 52 41 4E 54 57 4F 52 54 20 57 41 |RUCKERANTWORT WA|
00002CD0: 52 54 45 4E 00 ED 48 18 10 AE 20 20 20 20 20 20 |RTEN..H... |
00002CE0: 20 20 4C 44 59 20 23 B1 24 44 44 30 44 00 04 49 | LDY #.$DD0D..I|
00002CF0: 22 10 AE 20 20 20 20 20 20 20 20 4A 53 52 20 49 |".. JSR I|
00002D00: 4E 44 4C 44 00 18 49 2C 10 AE 20 20 20 20 20 20 |NDLD..I,.. |
00002D10: 20 20 AF 20 23 24 31 30 00 2E 49 36 10 AE 20 20 | . #$10..I6.. |
00002D20: 20 20 20 20 20 20 42 45 51 20 41 55 46 32 00 71 | BEQ AUF2.q|
00002D30: 49 40 10 49 4E 49 54 43 49 41 20 20 4C 44 41 20 |I@.INITCIA LDA |
00002D40: 23 30 20 20 20 20 20 20 20 20 3B 20 22 C4 C4 D2 |#0 ; "...|
00002D50: C2 20 28 53 49 43 48 45 52 48 45 49 54 53 48 41 |. (SICHERHEITSHA|
00002D60: 4C 42 45 52 29 20 41 55 46 20 C5 49 4E 47 41 4E |LBER) AUF .INGAN|
00002D70: 47 00 8A 49 4A 10 AE 20 20 20 20 20 20 20 20 4C |G..IJ.. L|
00002D80: 44 58 20 23 B3 24 44 44 30 33 00 A3 49 54 10 AE |DX #.$DD03..IT..|
00002D90: 20 20 20 20 20 20 20 20 4C 44 59 20 23 B1 24 44 | LDY #.$D|
00002DA0: 44 30 33 00 BA 49 5E 10 AE 20 20 20 20 20 20 20 |D03..I^.. |
00002DB0: 20 4A 4D 50 20 49 4E 44 53 54 00 C0 49 68 10 3B | JMP INDST..Ih.;|
00002DC0: 00 E0 49 72 10 3B 20 22 2A 2A 2A 20 C9 4E 49 54 |..Ir.; "*** .NIT|
00002DD0: 20 C3 45 4E 54 52 4F 4E 49 43 53 20 2A 2A 2A 22 | .ENTRONICS ***"|
00002DE0: 00 E6 49 7C 10 3B 00 1E 4A 86 10 49 4E 43 45 4E |..I|.;..J..INCEN|
00002DF0: 54 20 20 20 4A 53 52 20 49 4E 49 54 43 49 41 20 |T JSR INITCIA |
00002E00: 20 20 3B 20 22 C3 45 4E 54 52 4F 4E 49 43 53 20 | ; ".ENTRONICS |
00002E10: 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 37 |INITIALISIEREN.7|
00002E20: 4A 90 10 AE 20 20 20 20 20 20 20 20 4C 44 58 20 |J... LDX |
00002E30: 23 B3 24 44 44 30 32 00 50 4A 9A 10 AE 20 20 20 |#.$DD02.PJ... |
00002E40: 20 20 20 20 20 4C 44 59 20 23 B1 24 44 44 30 32 | LDY #.$DD02|
00002E50: 00 78 4A A4 10 AE 20 20 20 20 20 20 20 20 4A 53 |.xJ... JS|
00002E60: 52 20 49 4E 44 4C 44 20 20 20 20 20 3B 20 22 D3 |R INDLD ; ".|
00002E70: 54 52 4F 42 45 42 49 54 00 A2 4A AE 10 AE 20 20 |TROBEBIT..J... |
00002E80: 20 20 20 20 20 20 B0 41 20 23 25 30 30 30 30 30 | .A #%00000|
00002E90: 31 30 30 20 3B 20 22 41 55 46 20 C1 55 53 47 41 |100 ; "AUF .USGA|
00002EA0: 42 45 00 BA 4A B8 10 AE 20 20 20 20 20 20 20 20 |BE..J... |
00002EB0: 4A 53 52 20 49 4E 44 53 54 31 00 D3 4A C2 10 AE |JSR INDST1..J...|
00002EC0: 20 20 20 20 20 20 20 20 4C 44 58 20 23 B3 24 44 | LDX #.$D|
00002ED0: 44 30 30 00 EC 4A CC 10 AE 20 20 20 20 20 20 20 |D00..J... |
00002EE0: 20 4C 44 59 20 23 B1 24 44 44 30 30 00 16 4B D6 | LDY #.$DD00..K.|
00002EF0: 10 AE 20 20 20 20 20 20 20 20 4A 53 52 20 49 4E |.. JSR IN|
00002F00: 44 4C 44 20 20 20 20 20 3B 20 22 D3 54 52 4F 42 |DLD ; ".TROB|
00002F10: 45 50 45 47 45 4C 00 3D 4B E0 10 AE 20 20 20 20 |EPEGEL.=K... |
00002F20: 20 20 20 20 B0 41 20 23 25 30 30 30 30 30 31 30 | .A #%0000010|
00002F30: 30 20 3B 20 22 41 55 46 20 48 49 47 48 00 55 4B |0 ; "AUF HIGH.UK|
00002F40: EA 10 AE 20 20 20 20 20 20 20 20 4A 4D 50 20 49 |... JMP I|
00002F50: 4E 44 53 54 31 00 5B 4B F4 10 3B 00 61 4B FE 10 |NDST1.[K..;.aK..|
00002F60: 3B 00 88 4B 08 11 3B 20 22 2E 2A AE 20 41 55 53 |;..K..; ".*. AUS|
00002F70: 20 41 4E 44 45 52 45 52 20 C2 41 4E 4B 20 4C 41 | ANDERER .ANK LA|
00002F80: 44 45 4E 20 2A 2A 2A 22 00 8E 4B 12 11 3B 00 A6 |DEN ***"..K..;..|
00002F90: 4B 1C 11 49 4E 44 4C 44 20 20 20 20 53 54 58 20 |K..INDLD STX |
00002FA0: 53 41 56 41 44 52 00 C0 4B 26 11 AE 20 20 20 20 |SAVADR..K&.. |
00002FB0: 20 20 20 20 53 54 59 20 53 41 56 41 44 52 AA 31 | STY SAVADR.1|
00002FC0: 00 D6 4B 30 11 49 4E 44 4C 44 31 20 20 20 4C 44 |..K0.INDLD1 LD|
00002FD0: 59 20 23 24 30 30 00 EF 4B 3A 11 AE 20 20 20 20 |Y #$00..K:.. |
00002FE0: 20 20 20 20 4C 44 58 20 23 53 41 56 41 44 52 00 | LDX #SAVADR.|
00002FF0: 06 4C 44 11 AE 20 20 20 20 20 20 20 20 53 54 58 |.LD.. STX|
00003000: 20 4C 44 50 4E 54 00 3D 4C 4E 11 AE 20 20 20 20 | LDPNT.=LN.. |
00003010: 20 20 20 20 4C 44 58 20 23 24 30 30 20 20 20 20 | LDX #$00 |
00003020: 20 20 3B 20 22 C2 41 4E 4B 20 31 35 20 26 20 C9 | ; ".ANK 15 & .|
00003030: 2F CF 20 45 49 4E 42 4C 45 4E 44 45 4E 00 54 4C |/. EINBLENDEN.TL|
00003040: 58 11 AE 20 20 20 20 20 20 20 20 4A 4D 50 20 4C |X.. JMP L|
00003050: 44 46 41 52 00 5A 4C 62 11 3B 00 83 4C 6C 11 3B |DFAR.ZLb.;..Ll.;|
00003060: 20 22 2A 2A 2A 20 49 4E 20 41 4E 44 45 52 45 20 | "*** IN ANDERE |
00003070: C2 41 4E 4B 20 53 50 45 49 43 48 45 52 4E 20 2A |.ANK SPEICHERN *|
00003080: 2A 2A 22 00 89 4C 76 11 3B 00 A1 4C 80 11 49 4E |**"..Lv.;..L..IN|
00003090: 44 53 54 20 20 20 20 53 54 58 20 53 41 56 41 44 |DST STX SAVAD|
000030A0: 52 00 BB 4C 8A 11 AE 20 20 20 20 20 20 20 20 53 |R..L... S|
000030B0: 54 59 20 53 41 56 41 44 52 AA 31 00 D1 4C 94 11 |TY SAVADR.1..L..|
000030C0: 49 4E 44 53 54 31 20 20 20 4C 44 59 20 23 24 30 |INDST1 LDY #$0|
000030D0: 30 00 EA 4C 9E 11 AE 20 20 20 20 20 20 20 20 4C |0..L... L|
000030E0: 44 58 20 23 53 41 56 41 44 52 00 01 4D A8 11 AE |DX #SAVADR..M...|
000030F0: 20 20 20 20 20 20 20 20 53 54 58 20 53 54 50 4E | STX STPN|
00003100: 54 00 38 4D B2 11 AE 20 20 20 20 20 20 20 20 4C |T.8M... L|
00003110: 44 58 20 23 24 30 30 20 20 20 20 20 20 3B 20 22 |DX #$00 ; "|
00003120: C2 41 4E 4B 20 31 35 20 26 20 C9 2F CF 20 45 49 |.ANK 15 & ./. EI|
00003130: 4E 42 4C 45 4E 44 45 4E 00 4F 4D BC 11 AE 20 20 |NBLENDEN.OM... |
00003140: 20 20 20 20 20 20 4A 4D 50 20 53 54 46 41 52 00 | JMP STFAR.|
00003150: 55 4D C6 11 3B 00 6E 4D D0 11 3B 20 22 2A 2A 2A |UM..;.nM..; "***|
00003160: 20 D4 41 42 45 4C 4C 45 4E 20 2A 2A 2A 22 00 74 | .ABELLEN ***".t|
00003170: 4D DA 11 3B 00 B1 4D E4 11 44 4F 50 50 45 4C 20 |M..;..M..DOPPEL |
00003180: 20 20 2E 42 59 54 20 25 30 30 30 30 30 30 30 30 | .BYT %00000000|
00003190: 2C 20 25 30 30 30 30 30 30 31 31 2C 20 25 30 30 |, %00000011, %00|
000031A0: 30 30 31 31 30 30 2C 20 25 30 30 30 30 31 31 31 |001100, %0000111|
000031B0: 31 00 EE 4D EE 11 AE 20 20 20 20 20 20 20 20 2E |1..M... .|
000031C0: 42 59 54 20 25 30 30 31 31 30 30 30 30 2C 20 25 |BYT %00110000, %|
000031D0: 30 30 31 31 30 30 31 31 2C 20 25 30 30 31 31 31 |00110011, %00111|
000031E0: 31 30 30 2C 20 25 30 30 31 31 31 31 31 31 00 2B |100, %00111111.+|
000031F0: 4E F8 11 AE 20 20 20 20 20 20 20 20 2E 42 59 54 |N... .BYT|
00003200: 20 25 31 31 30 30 30 30 30 30 2C 20 25 31 31 30 | %11000000, %110|
00003210: 30 30 30 31 31 2C 20 25 31 31 30 30 31 31 30 30 |00011, %11001100|
00003220: 2C 20 25 31 31 30 30 31 31 31 31 00 68 4E 02 12 |, %11001111.hN..|
00003230: AE 20 20 20 20 20 20 20 20 2E 42 59 54 20 25 31 |. .BYT %1|
00003240: 31 31 31 30 30 30 30 2C 20 25 31 31 31 31 30 30 |1110000, %111100|
00003250: 31 31 2C 20 25 31 31 31 31 31 31 30 30 2C 20 25 |11, %11111100, %|
00003260: 31 31 31 31 31 31 31 31 00 6E 4E 0C 12 3B 00 AB |11111111.nN..;..|
00003270: 4E 16 12 56 49 45 52 20 20 20 20 20 2E 42 59 54 |N..VIER .BYT|
00003280: 20 25 30 30 30 30 30 30 30 30 2C 20 25 30 30 30 | %00000000, %000|
00003290: 30 31 31 31 31 2C 20 25 31 31 31 31 30 30 30 30 |01111, %11110000|
000032A0: 2C 20 25 31 31 31 31 31 31 31 31 00 B1 4E 20 12 |, %11111111..N .|
000032B0: 3B 00 C8 4E 2A 12 50 52 54 43 54 4C 20 20 20 2E |;..N*.PRTCTL .|
000032C0: 42 59 54 20 37 2C 20 37 00 DF 4E 34 12 AE 20 20 |BYT 7, 7..N4.. |
000032D0: 20 20 20 20 20 20 2E 42 59 54 20 33 2C 20 33 00 | .BYT 3, 3.|
000032E0: E5 4E 3E 12 3B 00 FD 4E 48 12 50 52 54 56 B0 20 |.N>.;..NH.PRTV. |
000032F0: 20 20 2E 42 59 54 20 32 33 2C 20 32 33 00 16 4F | .BYT 23, 23..O|
00003300: 52 12 AE 20 20 20 20 20 20 20 20 2E 42 59 54 20 |R.. .BYT |
00003310: 32 33 2C 20 32 33 00 1C 4F 5C 12 3B 00 43 4F 66 |23, 23..O\.;.COf|
00003320: 12 43 54 52 4C 20 20 20 20 20 2E 42 59 54 20 25 |.CTRL .BYT %|
00003330: 30 30 30 30 30 30 30 31 2C 20 25 30 30 31 30 30 |00000001, %00100|
00003340: 30 30 31 00 6A 4F 70 12 AE 20 20 20 20 20 20 20 |001.jOp.. |
00003350: 20 2E 42 59 54 20 25 31 30 30 30 30 30 31 31 2C | .BYT %10000011,|
00003360: 20 25 31 30 31 30 30 30 31 31 00 70 4F 7A 12 3B | %10100011.pOz.;|
00003370: 00 9F 4F 84 12 3B 20 22 C5 52 4B 4C BB 52 55 4E |..O..; ".RKL.RUN|
00003380: 47 20 44 45 52 20 D3 54 45 55 45 52 42 49 54 53 |G DER .TEUERBITS|
00003390: 20 28 43 54 52 4C 2D D4 41 42 45 4C 4C 45 29 00 | (CTRL-.ABELLE).|
000033A0: A5 4F 8E 12 3B 00 C0 4F 98 12 3B 22 20 42 49 54 |.O..;..O..;" BIT|
000033B0: 20 37 20 20 3D 20 30 20 3A 20 4E 4F 52 4D 41 4C | 7 = 0 : NORMAL|
000033C0: 00 F0 4F A2 12 3B 22 20 20 20 20 20 20 20 20 3D |..O..;" =|
000033D0: 20 31 20 3A 20 56 45 52 56 49 45 4C 46 41 43 48 | 1 : VERVIELFACH|
000033E0: 45 4E 20 49 4E 20 59 2D D2 49 43 48 54 55 4E 47 |EN IN Y-.ICHTUNG|
000033F0: 00 27 50 AC 12 3B 22 20 42 49 54 20 36 20 20 3D |.'P..;" BIT 6 =|
00003400: 20 30 20 3A 20 59 3D 59 2A 32 20 28 4E 55 52 20 | 0 : Y=Y*2 (NUR |
00003410: 47 BD 4C 54 49 47 20 20 57 45 4E 4E 20 42 49 54 |G.LTIG WENN BIT|
00003420: 20 37 20 3D 20 31 29 00 5E 50 B6 12 3B 22 20 20 | 7 = 1).^P..;" |
00003430: 20 20 20 20 20 20 3D 20 31 20 3A 20 59 3D 59 2A | = 1 : Y=Y*|
00003440: 34 20 28 4E 55 52 20 47 BD 4C 54 49 47 20 20 57 |4 (NUR G.LTIG W|
00003450: 45 4E 4E 20 42 49 54 20 37 20 3D 20 31 29 00 79 |ENN BIT 7 = 1).y|
00003460: 50 C0 12 3B 22 20 42 49 54 20 35 20 20 3D 20 30 |P..;" BIT 5 = 0|
00003470: 20 3A 20 4E 4F 52 4D 41 4C 00 95 50 CA 12 3B 22 | : NORMAL..P..;"|
00003480: 20 20 20 20 20 20 20 20 3D 20 31 20 3A 20 52 45 | = 1 : RE|
00003490: 56 45 52 53 45 00 DD 50 D4 12 3B 22 20 42 49 54 |VERSE..P..;" BIT|
000034A0: 20 30 2F 31 20 20 20 20 3A 20 56 45 52 56 49 45 | 0/1 : VERVIE|
000034B0: 4C 46 41 43 48 45 4E 20 49 4E 20 58 20 28 30 20 |LFACHEN IN X (0 |
000034C0: 42 49 53 20 33 20 4D 41 4C 3B 20 30 20 3D 20 4B |BIS 3 MAL; 0 = K|
000034D0: 45 49 4E 20 C1 55 53 44 52 55 43 4B 29 00 E3 50 |EIN .USDRUCK)..P|
000034E0: DE 12 3B 00 19 51 E8 12 3B 20 20 22 2A 2A 2A 20 |..;..Q..; "*** |
000034F0: 4A 53 52 20 46 41 52 20 28 57 49 52 44 20 4E 41 |JSR FAR (WIRD NA|
00003500: 43 48 20 24 30 43 30 30 20 56 45 52 53 43 48 4F |CH $0C00 VERSCHO|
00003510: 42 45 4E 29 20 2A 2A 2A 22 00 1F 51 F2 12 3B 00 |BEN) ***"..Q..;.|
00003520: 30 51 FC 12 4A 53 46 41 52 20 20 20 20 50 48 41 |0Q..JSFAR PHA|
00003530: 00 6C 51 06 13 AE 20 20 20 20 20 20 20 20 4C 44 |.lQ... LD|
00003540: 41 20 24 46 46 30 30 20 20 20 20 20 3B 20 22 41 |A $FF00 ; "A|
00003550: 4B 54 55 45 4C 4C 45 20 CB 4F 4E 46 49 47 55 52 |KTUELLE .ONFIGUR|
00003560: 41 54 49 4F 4E 20 52 45 54 54 45 4E 00 85 51 10 |ATION RETTEN..Q.|
00003570: 13 AE 20 20 20 20 20 20 20 20 53 54 41 20 53 41 |.. STA SA|
00003580: 56 43 4E 46 47 00 BC 51 1A 13 AE 20 20 20 20 20 |VCNFG..Q... |
00003590: 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 20 20 | LDA #$00 |
000035A0: 20 3B 20 22 C2 41 4E 4B 20 31 35 20 26 20 C9 2F | ; ".ANK 15 & ./|
000035B0: CF 20 45 49 4E 42 4C 45 4E 44 45 4E 00 D3 51 24 |. EINBLENDEN..Q$|
000035C0: 13 AE 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |.. STA $F|
000035D0: 46 30 30 00 E4 51 2E 13 AE 20 20 20 20 20 20 20 |F00..Q... |
000035E0: 20 50 4C 41 00 15 52 38 13 AE 20 20 20 20 20 20 | PLA..R8.. |
000035F0: 20 20 4A 53 52 20 24 46 46 46 46 20 20 20 20 20 | JSR $FFFF |
00003600: 3B 20 22 57 49 52 44 20 BD 42 45 52 53 43 48 52 |; "WIRD .BERSCHR|
00003610: 49 45 42 45 4E 00 26 52 42 13 AE 20 20 20 20 20 |IEBEN.&RB.. |
00003620: 20 20 20 50 48 41 00 68 52 4C 13 AE 20 20 20 20 | PHA.hRL.. |
00003630: 20 20 20 20 4C 44 41 20 53 41 56 43 4E 46 47 20 | LDA SAVCNFG |
00003640: 20 20 3B 20 22 41 4C 54 45 20 CB 4F 4E 46 49 47 | ; "ALTE .ONFIG|
00003650: 55 52 41 54 49 4F 4E 20 57 49 45 44 45 52 48 45 |URATION WIEDERHE|
00003660: 52 53 54 45 4C 4C 45 4E 00 7F 52 56 13 AE 20 20 |RSTELLEN..RV.. |
00003670: 20 20 20 20 20 20 53 54 41 20 24 46 46 30 30 00 | STA $FF00.|
00003680: 90 52 60 13 AE 20 20 20 20 20 20 20 20 50 4C 41 |.R`.. PLA|
00003690: 00 9F 52 6A 13 80 46 41 52 20 20 20 52 54 53 00 |..Rj..FAR RTS.|
000036A0: A5 52 74 13 3B 00 B6 52 7E 13 83 20 20 20 20 20 |.Rt.;..R~.. |
000036B0: 2A 3D 20 2A 2B 31 00 E1 52 88 13 53 54 45 55 45 |*= *+1..R..STEUE|
000036C0: 52 20 20 20 AC B2 20 AC AA 31 20 20 20 20 20 20 |R .. ..1 |
000036D0: 20 20 3B 20 22 CB 4F 4E 54 52 4F 4C 4C 57 4F 52 | ; ".ONTROLLWOR|
000036E0: 54 00 10 53 92 13 53 43 52 50 4E 54 20 20 20 AC |T..S..SCRPNT .|
000036F0: B2 20 AC AA 32 20 20 20 20 20 20 20 20 3B 20 22 |. ..2 ; "|
00003700: C2 49 4C 44 53 43 48 49 52 4D 5A 45 49 47 45 52 |.ILDSCHIRMZEIGER|
00003710: 00 4A 53 9C 13 41 4E 5A 5A 45 49 20 20 20 AC B2 |.JS..ANZZEI ..|
00003720: 20 AC AA 31 20 20 20 20 20 20 20 20 3B 20 22 C1 | ..1 ; ".|
00003730: 4E 5A 41 48 4C 20 44 45 52 20 C2 49 4C 44 53 43 |NZAHL DER .ILDSC|
00003740: 48 49 52 4D 5A 45 49 4C 45 4E 00 89 53 A6 13 53 |HIRMZEILEN..S..S|
00003750: 41 56 58 20 20 20 20 20 AC B2 20 AC AA 31 20 20 |AVX .. ..1 |
00003760: 20 20 20 20 20 20 3B 20 22 DA 57 49 53 43 48 45 | ; ".WISCHE|
00003770: 4E 53 50 45 49 43 48 45 52 20 46 55 45 52 20 58 |NSPEICHER FUER X|
00003780: 2D D2 45 47 49 53 54 45 52 00 C8 53 B0 13 53 41 |-.EGISTER..S..SA|
00003790: 56 59 20 20 20 20 20 AC B2 20 AC AA 31 20 20 20 |VY .. ..1 |
000037A0: 20 20 20 20 20 3B 20 22 DA 57 49 53 43 48 45 4E | ; ".WISCHEN|
000037B0: 53 50 45 49 43 48 45 52 20 46 55 45 52 20 59 2D |SPEICHER FUER Y-|
000037C0: D2 45 47 49 53 54 45 52 00 F6 53 BA 13 53 45 4B |.EGISTER..S..SEK|
000037D0: 41 44 52 20 20 20 AC B2 20 AC AA 31 20 20 20 20 |ADR .. ..1 |
000037E0: 20 20 20 20 3B 20 22 D3 45 4B 55 4E 44 BB 52 41 | ; ".EKUND.RA|
000037F0: 44 52 45 53 53 45 00 33 54 C4 13 43 4F 55 4E 54 |DRESSE.3T..COUNT|
00003800: 45 52 20 20 AC B2 20 AC AA 32 20 20 20 20 20 20 |ER .. ..2 |
00003810: 20 20 3B 20 22 DA BB 48 4C 45 52 20 46 55 45 52 | ; "..HLER FUER|
00003820: 20 56 45 52 53 43 48 49 45 44 45 4E 20 DA 57 45 | VERSCHIEDEN .WE|
00003830: 43 4B 45 00 43 54 CE 13 42 55 46 46 45 52 20 20 |CKE.CT..BUFFER |
00003840: 20 B2 AC 00 62 54 D8 13 52 4F 57 31 20 20 20 20 | ...bT..ROW1 |
00003850: 20 B2 20 42 55 46 46 45 52 20 AA 20 28 30 AC 38 | . BUFFER . (0.8|
00003860: 30 29 00 81 54 E2 13 52 4F 57 32 20 20 20 20 20 |0)..T..ROW2 |
00003870: B2 20 42 55 46 46 45 52 20 AA 20 28 31 AC 38 30 |. BUFFER . (1.80|
00003880: 29 00 A0 54 EC 13 52 4F 57 33 20 20 20 20 20 B2 |)..T..ROW3 .|
00003890: 20 42 55 46 46 45 52 20 AA 20 28 32 AC 38 30 29 | BUFFER . (2.80)|
000038A0: 00 BF 54 F6 13 52 4F 57 34 20 20 20 20 20 B2 20 |..T..ROW4 . |
000038B0: 42 55 46 46 45 52 20 AA 20 28 33 AC 38 30 29 00 |BUFFER . (3.80).|
000038C0: DE 54 00 14 52 4F 57 35 20 20 20 20 20 B2 20 42 |.T..ROW5 . B|
000038D0: 55 46 46 45 52 20 AA 20 28 34 AC 38 30 29 00 FD |UFFER . (4.80)..|
000038E0: 54 0A 14 52 4F 57 36 20 20 20 20 20 B2 20 42 55 |T..ROW6 . BU|
000038F0: 46 46 45 52 20 AA 20 28 35 AC 38 30 29 00 1C 55 |FFER . (5.80)..U|
00003900: 14 14 52 4F 57 37 20 20 20 20 20 B2 20 42 55 46 |..ROW7 . BUF|
00003910: 46 45 52 20 AA 20 28 36 AC 38 30 29 00 3B 55 1E |FER . (6.80).;U.|
00003920: 14 52 4F 57 38 20 20 20 20 20 B2 20 42 55 46 46 |.ROW8 . BUFF|
00003930: 45 52 20 AA 20 28 37 AC 38 30 29 00 41 55 28 14 |ER . (7.80).AU(.|
00003940: 3B 00 48 55 4C EA 2E 80 00 4E 55 56 EA 80 00 6C |;.HUL....NUV...l|
00003950: 55 60 EA 5A 5A 24 B2 22 48 41 52 44 43 4F 50 59 |U`.ZZ$."HARDCOPY|
00003960: 2D 38 30 2E 41 22 3A 20 55 4E B2 38 00 85 55 6A |-80.A": UN.8..Uj|
00003970: EA 9F 20 31 35 2C 55 4E 2C 31 35 2C 22 53 30 3A |.. 15,UN,15,"S0:|
00003980: 22 AA 5A 5A 24 00 91 55 74 EA 8D 20 36 30 31 30 |".ZZ$..Ut.. 6010|
00003990: 30 00 9E 55 7E EA 94 20 5A 5A 24 2C 55 4E 00 AA |0..U~.. ZZ$,UN..|
000039A0: 55 88 EA 8D 20 36 30 31 30 30 00 B7 55 92 EA 95 |U... 60100..U...|
000039B0: 20 5A 5A 24 2C 55 4E 00 C0 55 9C EA A0 20 31 35 | ZZ$,UN..U... 15|
000039C0: 00 C6 55 A6 EA 80 00 CC 55 B0 EA 3A 00 E4 55 C4 |..U.....U..:..U.|
000039D0: EA 84 31 35 2C 20 53 31 2C 20 53 24 2C 20 53 32 |..15, S1, S$, S2|
000039E0: 2C 20 53 33 00 FA 55 CE EA 8B 20 53 31 B2 31 20 |, S3..U... S1.1 |
000039F0: A7 20 99 20 53 32 3B 20 53 24 00 0A 56 D8 EA 8B |. . S2; S$..V...|
00003A00: 20 53 31 B3 32 30 20 A7 20 8E 00 2A 56 E2 EA 99 | S1.20 . ..*V...|
00003A10: 20 53 31 20 22 2C 20 22 20 53 24 20 22 2C 22 20 | S1 ", " S$ "," |
00003A20: 53 32 3B 20 22 2C 22 20 53 33 00 33 56 EC EA A0 |S2; "," S3.3V...|
00003A30: 20 31 35 00 00 00 | 15... |
..-.... " HARDCO
PY-80.3...:.N.... " ROUTINE E
RSTELLT HIRES-BILDER AUF FX-80.T...:. ..
.. " (C) BY KRW
.....:.O.... "
1985.U...:...... "
VERSION 1.4.....:.....:.&.2.ZZ$."
HARDCOPY-80.M".>.<.. 15,8,15,"S0:".ZZ$.J
.F.. 60100.A.P.. 2,8,2,ZZ$.",P,W".M.Z..
60100.S.D.:...N.. 9.4096...X..OPT O2....
.;.....; "*** KONSTANTE ***".....;... .N
R. . 4 ; "ANZAHL DER BEFEH
LE.....BELL . 7 ; "KLINGE
LZEICHEN.8...LF . 10 ; "
LINEFEED.^...CR . 13 ; "
RETURN...H.ESC . 27 ; "ES
CAPE...R.FA . 4 ; "GER.
TEADRESSE DES DRUCKERS.....SA . 12
; "SEKUND.RADRESSE DES DRUCKE
RS.....;. ...; "*** SPEICHERSTELLEN ***"
.&...;.]...SAVADR . $FC ; "AD
RESS.BERGABE (2 BYTE).....SAVCNFG . $FE
; "MMU-REGISTERZWISCHENSPEICHE
R.....LDPNT . $02AA.A.".STPNT . $02B
9.G.,.;...6.; "*** KERNALROUTINEN ***"..
.@.;.. J.SETNAM . $FFBD.. T.SETLFS . $
FFBA.% ^.. . $FFC0.5 H. . $FFC3.G
R..CHN . $FFCC.[ |.CHKOUT . $FFC9.O ..
CHROUT . $FFD2.U ..;.. ..QUANT . $7D2
8.. ..;.E ..LDFAR . $02A2 ; "V
ON ANDERER BANK LADEN.. ..STFAR . $02A
F ; "IN ANDERE BANK SPEICHERN..!
B.;..!T... $F000..!..;.X!..INIT STA
SAVX ; "GEW.NSCHTEN MODUS ZWISCHENS
PEICHERN..!... JSR INCENT ; "I
NITIALISIERUNG DER CENTRONICSSCHNITTSTEL
LE..!... LDX #.FAR.JSFAR..!..COPY
FAR LDA JSFAR,X ; "SPRUNGROUTINE IN G
EMEINSAMEN.1"... STA $0C00,X ;
"SPEICHERBEREICH KOPIEREN.B"... D
EX.["$.. BPL COPYFAR.."...
LDX SAVX ; "MODUS ZUR.CKHOLEN.."8.
. BEQ ERR. ; "=0 -> FEHLER.."
B.. CPX #NR..1 ; "ANZAHL DER DRU
CKMODI+1..#L.. BCC INIT1 ; "K
LEINER -> ERLAUBT.E#V.ERR. LDX #..CHN
; "I/O AUF STANDARD.\#`.. STX $
0C0D.T#J.. LDX #..CHN..#T..
STX $0C0E..#~.. JSR $0C00.R#...
LDA #BELL ; "2* BELL -> FEHL
ER..$... LDX #.CHROUT ; "1* BELL
-> ENDE OK..$... STX $0C0D.4$...
LDX #.CHROUT.K$... STX $0
C0E.B$... JSR $0C00..$D..
LDX #0 ; "WARTESCHLEIFE F.R PIEPT
ON..$N.. LDY #0..$X.ERR1 DEY.
U$... BNE ERR1..$... DEX..
$... BNE ERR1.!%... SEC
; "FEHLER._%...E PHP
; "EINSPRUNG ZUM BEENDEN DER ROUTINE.
V%... LDA #BELL..%... LDX
#.CHROUT..%(.. STX $0C0D.A%2..
LDX #.CHROUT.X%<.. STX $0C0E
..%F.. JSR $0C00.#&P.. LDA
#4 ; "DRUCKERFILE SCHLIE.EN.R&Z.
. LDX #. ; "UND ZUR.CK INS BAS
IC.I&D.. STX $0C0D.~&N.. L
DX #. ..&X.. STX $0C0E..&...
JSR $0C00..&... PLP
; "FEHLERSTATUS VOM STACK HOLEN..'...
BCS .E1 ; "FEHLERABBRUCH.:' ..
RTS ; "FEHLERFREI.@'..;
.M'...E1 LDX #.QUANT ; "ILLEGAL QUA
NTITY..'... LDY #.QUANT..'H..
STX $0C0D..'R.. STY $0C0E.K'.
.. JMP $0C00.Q'..;..(..INIT1 D
EX ; "X ALS ZEIGER IN TABELLEN
.A(... LDA PRTV.,X ; "PAPIERVORS
CHUB DES DRUCKERS.F(... PHA
; "RETTEN..(... LDA PRTCTL,X
; "DRUCKERSTEUERUNG..(... STA P
RT.1..(".. LDA CTRL,X ; "PROGR
AMMSTEUERBYTE..(,.. STA STEUER..)
6.. . #%00000011 ; "AUS X-VERVIEL
FACHUNG ANZAHL.|)@.. TAX
; "DER ZU UEBERTRAGENDEN BYTES PRO ZEI
LE ERRECHNEN..)J.. LDY #.640
; "WERT FUER KEINE VERVIELFACHUNG.P)T..
LDA #.640..)^.. STY PRT..1
..)H.. STA PRT...*R.. DEX.
B*|.. BEQ INIT3 ; "KEINE VERV
IELFACHUNG.S*..INIT2 CLC ;
"MAL VERVIELFACHUNG..*... TYA
; "LOW-BYTE..*... ADC PRT.
.1.J*... STA PRT..1..*...
LDA PRT...*... ADC #.640..+B..
STA PRT...+L.. DEX.5+V..
BNE INIT2.O+..INIT3 LDY #.160
; "AUS Y-VERVIELFACHUNG ANZAHL..+...
LDA #.160 ; "DER ZU KOPIERENDEN
BYTES ERRECHNEN.I+... STY COPYL.
1..+... STA COPYH.1..,...
LDX #100 ; "MAX. ANZAHL DER DRUCKER
ZEILEN.G,... STX ANZZEI ; "IN
ZAEHLER._,... BIT STEUER.P,&..
PHP..,0.. BPL INIT31 ; "K
EINE VERVIELFACHUNG.N,:.. BVS INI
T4 ; "V=1 -> Y=Y*2..,D.INIT31 LSR
ANZZEI ; "ZEILEN /2..-N.. ASL
COPYL.1 ; "ANZAHL *2.7-X.. ROL
COPYH.1.H-B.INIT4 PLP.U-L.. BM
I INIT5 ; "N=1 -> Y=Y*2*2..-V..
LSR ANZZEI..-... ASL COPYL.1..
-... ROL COPYH.1.....INIT5 LDY
COPYL.1 ; "ERRECHNETE ANZAHL IN Z.HLE
R UEBERNEHMEN...... LDA COPYH.1.8
.... STY COUNTL.1.R.... ST
A COUNTH.1.F.... LDA #0...F..
STA SCRPNT ; "BILDSCHIRMZEIGER AU
F ANFANG BILDSCHIRM.E.P.. STA SCR
PNT.1...Z.. LDA #0 ; "DRUC
KERKANAL .FFNEN.)/... LDX #.SETNA
M ; "L.NGE DES NAMEN = 0.@/... S
TX $0C0D.Z/... LDX #.SETNAM.Q/...
STX $0C0E../... JSR $0C00
../... LDA #4 ; "LOGISCHE
FILENUMMER (LA)../ .. LDY #SA
; "SEKUND.RADRESSE (SA)..0*..
STY SEKADR.504.. CPY #$FF ;
"CENTRONICS ?.|0>.. BEQ IN2
; "JA -> KEIN FILE AUF SERIELLEM BUS .F
FNEN..0H.. LDX #.SETLFS..0R..
STX $0C0D.G0\.. LDX #.SETLFS.
.0F.. STX $0C0E..1P.. LDX
#FA ; "GER.TEADRESSE (FA).&1Z..
JSR $0C00.M1... LDX #.. ;
"FILE .FFNEN.D1... STX $0C0D.Y1.
.. LDX #....1... STX $0C0E
..1... JSR $0C00..1... BCC
IN12 ; "FEHLER BEI OPEN AUFGETRETE
N -> ABBRUCH.,2... PLA
; "PAPIERVORSCHUBSTEUERUNG VOM STACK.B2J
.. JMP ERR..H2T.;..2..IN12 LD
X #4 ; "AUSGABE AUF DRUCKER UMLEN
KEN..2... LDA #.CHKOUT..2...
STA $0C0D.N2... LDA #.CHKOUT..
2... STA $0C0E..2... JSR $
0C00.53..IN2 LDA #ESC ; "DRUCK
ERVORSCHUB EINSTELLEN.M3$.. JSR A
UFBUS..3... LDA #"3" ; "VORS
CHUB = NN/216 ZOLL..38.. JSR AUFB
US..3B.. PLA.U3L.. JSR AUF
BUS ; "NN AUSGEBEN..4V.. JSR D
RUCKER ; "DRUCKER IN BITMODE SCHALTEN.
&4`.. JMP COPY1.,4J.;.K4T.COPY
CLC ; "ZEIGER F.R BILDSCHIRM
RAM ERH.HEN..4~.. LDA SCRPNT..4..
COPYL ADC #00 ; "WIRD BEI INIT
EINGESETZT.R4... STA SCRPNT..4...
LDA SCRPNT.1..5..COPYH ADC #0
0..5... STA SCRPNT.1.W5..COPY1
LDA #.BUFFER ; "ZEIGER AUF ANFANG DES
BUFFERS.Q5D.. LDX #.BUFFER..5N..
STA BUFPNT.1..5X.. STX BUF
PNT.2..5..COUNTL LDA #$00 ; "ANZA
HL DER BYTES (LOW BYTE)..6..COUNTH LDY
#$00 ; "ANZAHL DER BYTES (HIGH BYT
E).36... STA COUNTER.N6...
STY COUNTER.1.T6..;..6..; "*** BYTES AU
S BILDSCHIRMSPEICHER INS RAM KOPIEREN **
*"..6..;..6(.. LDX #18..62..
LDA SCRPNT.1 ; "BILDSCHIRM-RAM-ADRES
SE (HIGH BYTE)..7<.. LDY #.$CDCC.
.7F.. STY $0C0D.77P.. LDY
#.$CDCC.N7Z.. STY $0C0E.E7D..
JSR $0C00.Z7N.. LDX #19..7X..
LDA SCRPNT ; "BILDSCHIRM-RAM-
ADRESSE (LOW BYTE).Q7... JSR $0C0
0..7... LDX #31..7... LDY
#.$CDDA..8 .. STY $0C0D./8...
LDY #.$CDDA.F8... STY $0C0E.O
8..COPY2 JSR $0C00 ; "BYTE HOLEN.
.8H.BUFPNT STA $FFFF ; "UND INS RA
M SPEICHERN (ADRESSE WIRD EINGESETZT).W8
R.. INC BUFPNT.1..8... BNE
COPY3..9... INC BUFPNT.2.=9..COP
Y3 SEC ; "Z.HLER HERRUNTERZ
.HLEN.V9... LDA COUNTER.J9...
SBC #1..9... STA COUNTER..9..
. LDA COUNTER.1..9".. SBC
#0.M9,.. STA COUNTER.1..96..
BCS COPY2..9@.;..:J.; "*** INS RAM KO
PIERTE BYTES VERARBEITEN ***".#:T.;.]:^.
. LDX #0 ; "BYTE IN DER AK
TUELLEN ZEILE..:H.PR1 LDY #8
; "8 BIT PRO BYTE..:R.PR2 LDA #0
; "DATA L.SCHEN.H:|.. STA .
..:... ROL ROW1,X..:... RO
L ...;... ROL ROW2,X..;...
ROL ..L;... BIT STEUER ; "VER
VIELFACHEN ?..;... BPL PR3
; "KEINE VERGR..ERUNG IN Y-RICHTUNG..;B.
. BVS OUT ; "*4.D;L.PR3
ROL ROW3,X.W;V.. ROL ...;...
ROL ROW4,X..<... ROL ...<...
BIT STEUER.;<... BMI OUT
; "*2.S<... ROL ROW5,X.F<..
. ROL ..~<... ROL ROW6,X..
<&.. ROL ...<0.. ROL ROW7,
X..<:.. ROL ..T<D.. ROL RO
W8,X..<N.. ROL ...=X.OUT LDA
. ; "FERTIGES BYTE LADEN.R=B..
JSR AUSGABE ; "BITS VERARBEITEN UN
D AUSGEBEN.}=L.. DEY ;
"N.CHSTES BIT..=V.. BNE PR2
; "BYTE NOCH NICHT FERTIG..=...
INX ; "N.CHSTES BYTE IN DIESER
ZEILE./>... CPX #80 ; "ALL
E 80 BYTE DIESER ZEILE FERTIG ?.R>...
BNE PR1 ; "NEIN..>...
DEC ANZZEI ; "JA -> ZEILENZ.HLER ERNI
EDRIGEN..>... BEQ SPA1 ; "=
0 -> FERTIG..>... JSR DRUCKER ;
"SONST DRUCKER F.R NEUE ZEILE ANWEISEN.
3?... JMP COPY ; "NEUE ZEILE
BEARBEITEN.9?F.;.Q?P.SPA1 LDA #..CH
N.H?Z.. STA $0C0D..?... LD
A #..CHN..?... STA $0C0E..?...
JSR $0C00..?... CLC
; "ENDE FEHLERFREI..?... JMP .E
..?..;..@ .; "*** DRUCKERANSTEUERUNG ***
"..@*.;.T@4.DRUCKER LDY #5 ; "AN
ZAHL DER BEFEHLBYTES.O@>.. STY CO
UNTER.1..@H.DR1 LDY COUNTER.1..@R..
LDA PRT.,Y.R@\.. JSR AUFB
US ; "AN DRUCKER SENDEN..@F..
DEC COUNTER.1..AP.. BPL DR1..AZ..
RTS..A..;._A..PRT. .BYT 0, 0
; "ANZAHL PUNKTE PRO ZEILE (WIRD EING
ESETZT)..A..PRT.1 .BYT 0, "*", ESC, CR,
LF; "DRUCKMODUS (WIRD EINGESETZT)..A..;
.JA..; "*** AUSGABENSTEUERUNG ***".PA..;
..A..AUSGABE STX SAVX ; "X RETTEN.
.BJ.. STY SAVY ; "Y RETTEN.6
BT.. BIT STEUER.UB... BPL
AUS2 ; "KEIN VERVIELFACHEN IN Y-RIC
HTUNG..B... TAX..B... BVS
AUS1..B... LDA DOPPEL,X ; "Y=Y*2
..B... BVC AUS2 ; "UNBEDINGT
ER SPRUNG..B..;..C..AUS1 LDA VIER,X
; "Y=Y*4.MC$.AUS2 STA . ; "B
YTE ZWISCHENSPEICHERN.EC... LDA S
TEUER.VC8.. PHA..CB.. . #%
00000011 ; "VERVIELFACHUNG IN X-RICHTUNG
.YCL.. STA COUNTER ; "ALS Z.HLE
R..CV.. PLA..D`.. . #%0010
0000 ; "REVERSE.2DJ.. BEQ AUS3
; "NEIN.EDT.. LDA ..ZD~..
E. #$FF.MD... STA ...D..AUS3
LDA ...D... JSR AUFBUS ; "A
N DRUCKER.BD... DEC COUNTER.XD...
BNE AUS3..E... LDX SAVX
; "REGISTER ZUR.CKSPEICHERN.%ED..
LDY SAVY.6EN.. RTS.<EX.;.OE.
.; "*** BYTE AUSGEBEN (SERIELL/CENTRONIC
S) ***".UE..;..E..AUFBUS PHA..E...
LDA SEKADR ; "CENTRONICS ?.GE...
CMP #$FF..E... BEQ AUF1
; "JA..F... LDA #.CHROUT..F(..
STA $0C0D.3F2.. LDA #.CHR
OUT.JF<.. STA $0C0E.YFF..
PLA ; "BYTE ZUR.CKHOLEN..FP..
JMP $0C00 ; "UND AUSGEBEN (SE
RIELL)..FZ.;..FD.AUF1 LDX #.$DD03
; "DDRB AUF AUSGABE..FN.. LDY #.$
DD03..GX.. JSR INDST.BG...
PLA ; "BYTE ZUR.CKHOLEN.DG...
LDX #.$DD01 ; "PRB.}G...
LDY #.$DD01..G .. JSR INDST..G.
.. LDX #.$DD0D ; "IRQ L.SCHEN.W
G... LDY #.$DD0D..G... JSR
INDLD..HH.. LDX #.$DD00 ; "STR
OBE.,HR.. LDY #.$DD00.CH...
JSR INDLD.WH... . #$FB.OH...
JSR INDST1..H... .A #$04..H.
.. JSR INDST1.TH..AUF2 LDX #.
$DD0D ; "AUF DRUCKERANTWORT WARTEN..H.
.. LDY #.$DD0D..I".. JSR I
NDLD..I,.. . #$10..I6.. BE
Q AUF2.QI@.INITCIA LDA #0 ; "DDR
B (SICHERHEITSHALBER) AUF EINGANG..IJ..
LDX #.$DD03..IT.. LDY #.$D
D03..I^.. JMP INDST..IH.;..IR.; "
*** INIT CENTRONICS ***"..I|.;..J..INCEN
T JSR INITCIA ; "CENTRONICS INITIALI
SIEREN.7J... LDX #.$DD02.PJ...
LDY #.$DD02.XJ... JSR INDLD
; "STROBEBIT..J... .A #%00000
100 ; "AUF AUSGABE..J... JSR INDS
T1.SJB.. LDX #.$DD00..JL..
LDY #.$DD00..KV.. JSR INDLD
; "STROBEPEGEL.=K... .A #%0000010
0 ; "AUF HIGH.UK... JMP INDST1.[K
..;.AK..;..K..; ".*. AUS ANDERER BANK LA
DEN ***"..K..;..K..INDLD STX SAVADR..
K&.. STY SAVADR.1.VK0.INDLD1 LD
Y #$00..K:.. LDX #SAVADR..LD..
STX LDPNT.=LN.. LDX #$00
; "BANK 15 & I/O EINBLENDEN.TLX..
JMP LDFAR.ZLB.;..LL.; "*** IN ANDERE
BANK SPEICHERN ***"..LV.;..L..INDST S
TX SAVADR..L... STY SAVADR.1.QL..
INDST1 LDY #$00..L... LDX #SAVA
DR..M... STX STPNT.8M... L
DX #$00 ; "BANK 15 & I/O EINBLENDEN
.OM... JMP STFAR.UMF.;.NMP.; "***
TABELLEN ***".TMZ.;..M..DOPPEL .BYT %
00000000, %00000011, %00001100, %0000111
1..M... .BYT %00110000, %00110011
, %00111100, %00111111.+N... .BYT
%11000000, %11000011, %11001100, %11001
111.HN... .BYT %11110000, %111100
11, %11111100, %11111111.NN..;..N..VIER
.BYT %00000000, %00001111, %11110000
, %11111111..N .;.HN*.PRTCTL .BYT 7, 7
..N4.. .BYT 3, 3..N>.;..NH.PRTV.
.BYT 23, 23..OR.. .BYT 23, 23..
O\.;.COF.CTRL .BYT %00000001, %00100
001.JOP.. .BYT %10000011, %101000
11.POZ.;..O..; "ERKL.RUNG DER STEUERBITS
(CTRL-TABELLE)..O..;..O..;" BIT 7 = 0
: NORMAL..O..;" = 1 : VERVIELFACH
EN IN Y-RICHTUNG.'P..;" BIT 6 = 0 : Y=Y
*2 (NUR G.LTIG WENN BIT 7 = 1).^P..;"
= 1 : Y=Y*4 (NUR G.LTIG WENN BIT
7 = 1).YP..;" BIT 5 = 0 : NORMAL..PJ.;"
= 1 : REVERSE..PT.;" BIT 0/1
: VERVIELFACHEN IN X (0 BIS 3 MAL; 0 = K
EIN AUSDRUCK)..P..;..Q..; "*** JSR FAR
(WIRD NACH $0C00 VERSCHOBEN) ***"..Q..;.
0Q..JSFAR PHA.LQ... LDA $FF00
; "AKTUELLE KONFIGURATION RETTEN..Q.
.. STA SAVCNFG..Q... LDA #
$00 ; "BANK 15 & I/O EINBLENDEN.SQ$
.. STA $FF00..Q... PLA..R8
.. JSR $FFFF ; "WIRD .BERSCHR
IEBEN.&RB.. PHA.HRL.. LDA
SAVCNFG ; "ALTE KONFIGURATION WIEDERHE
RSTELLEN.RV.. STA $FF00..R`..
PLA..RJ..FAR RTS..RT.;..R~..
*= *+1..R..STEUER .. ..1 ; "KON
TROLLWORT..S..SCRPNT .. ..2 ; "
BILDSCHIRMZEIGER.JS..ANZZEI .. ..1
; "ANZAHL DER BILDSCHIRMZEILEN..S..S
AVX .. ..1 ; "ZWISCHENSPEICHE
R FUER X-REGISTER.HS..SAVY .. ..1
; "ZWISCHENSPEICHER FUER Y-REGISTER
..S..SEKADR .. ..1 ; "SEKUND.RA
DRESSE.3TD.COUNTER .. ..2 ; "Z.H
LER FUER VERSCHIEDEN ZWECKE.CTN.BUFFER
...BTX.ROW1 . BUFFER . (0.80)..T..R
OW2 . BUFFER . (1.80). T..ROW3 .
BUFFER . (2.80)..T..ROW4 . BUFFER .
(3.80)..T..ROW5 . BUFFER . (4.80)..
T..ROW6 . BUFFER . (5.80)..U..ROW7
. BUFFER . (6.80).;U..ROW8 . BUFF
ER . (7.80).AU(.;.HUL....NUV...LU`.ZZ$."
HARDCOPY-80.A": UN.8..UJ.. 15,UN,15,"S0:
".ZZ$..UT.. 60100..U~.. ZZ$,UN..U... 601
00..U... ZZ$,UN..U.. 15.FU....LU..:..UD
..15, S1, S$, S2, S3..UN.. S1.1 . . S2;
S$..VX.. S1.20 . ..*V... S1 ", " S$ ","
S2; "," S3.3V.. 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL