EP-SUP.SOU
FILE INFORMATION
FILENAME(S): EP-SUP.SOU
FILE TYPE(S): PRG
FILE SIZE: 10.9K
FIRST SEEN: 2025-11-30 21:13:07
APPEARS ON: 1 disk(s)
FILE HASH
539d8f700e746afa7d0f58bdc23866d6b3ed8b6b133d97118021bb52478516b2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 4 | EP-SUP.SOU | PRG | DuncanTwain | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 22 20 2E 42 41 20 24 43 30 30 |....d." .BA $C00|
00000010: 30 20 3B 50 43 20 53 45 54 5A 45 4E 00 47 08 69 |0 ;PC SETZEN.G.i|
00000020: 00 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." ;************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 00 69 08 6E 00 22 20 3B 20 |*******.i.n." ; |
00000050: 45 20 50 20 53 20 4F 20 4E 20 2D 20 53 20 55 20 |E P S O N - S U |
00000060: 50 20 50 20 4F 20 52 20 54 00 71 08 73 00 22 20 |P P O R T.q.s." |
00000070: 3B 00 9A 08 78 00 22 20 3B 56 45 52 53 49 4F 4E |;...x." ;VERSION|
00000080: 20 31 2E 37 20 28 43 29 31 39 38 34 20 42 59 20 | 1.7 (C)1984 BY |
00000090: 41 2E 44 45 4C 20 50 49 4E 4F 00 A2 08 7D 00 22 |A.DEL PINO...}."|
000000A0: 20 3B 00 CD 08 82 00 22 20 3B 2A 2A 2A 2A 2A 2A | ;....." ;******|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 08 |*************...|
000000D0: 83 00 22 20 3B 00 F7 08 84 00 22 20 3B 56 41 52 |.." ;....." ;VAR|
000000E0: 49 41 42 4C 45 4E 20 26 20 53 59 53 54 45 4D 41 |IABLEN & SYSTEMA|
000000F0: 44 52 45 53 53 45 4E 00 FF 08 85 00 22 20 3B 00 |DRESSEN....." ;.|
00000100: 11 09 87 00 22 48 45 4C 50 20 3D 20 24 30 33 33 |...."HELP = $033|
00000110: 43 00 23 09 8C 00 22 59 56 41 4C 55 45 20 3D 20 |C.#..."YVALUE = |
00000120: 24 31 34 00 37 09 91 00 22 58 56 41 4C 55 45 20 |$14.7..."XVALUE |
00000130: 3D 20 24 30 33 33 43 00 47 09 96 00 22 58 31 20 |= $033C.G..."X1 |
00000140: 3D 20 24 30 33 35 30 00 56 09 9B 00 22 59 31 20 |= $0350.V..."Y1 |
00000150: 3D 20 58 31 2B 32 00 65 09 A0 00 22 58 32 20 3D |= X1+2.e..."X2 =|
00000160: 20 58 31 2B 34 00 74 09 A5 00 22 59 32 20 3D 20 | X1+4.t..."Y2 = |
00000170: 58 31 2B 36 00 86 09 AA 00 22 58 53 54 45 50 20 |X1+6....."XSTEP |
00000180: 3D 20 58 31 2B 38 00 99 09 AF 00 22 59 53 54 45 |= X1+8....."YSTE|
00000190: 50 20 3D 20 58 31 2B 31 30 00 AC 09 B4 00 22 58 |P = X1+10....."X|
000001A0: 44 49 46 46 20 3D 20 58 31 2B 31 32 00 BF 09 B9 |DIFF = X1+12....|
000001B0: 00 22 59 44 49 46 46 20 3D 20 58 31 2B 31 34 00 |."YDIFF = X1+14.|
000001C0: D0 09 BE 00 22 53 55 4D 20 3D 20 58 31 2B 31 36 |...."SUM = X1+16|
000001D0: 00 E0 09 C3 00 22 58 4D 41 58 20 3D 20 38 30 30 |....."XMAX = 800|
000001E0: 00 F0 09 C8 00 22 59 4D 41 58 20 3D 20 35 35 32 |....."YMAX = 552|
000001F0: 00 13 0A CD 00 22 44 49 53 41 42 4C 45 20 3D 20 |....."DISABLE = |
00000200: 24 33 34 20 3B 52 4F 4D 20 41 55 53 42 4C 45 4E |$34 ;ROM AUSBLEN|
00000210: 44 45 4E 00 34 0A D2 00 22 45 4E 41 42 4C 45 20 |DEN.4..."ENABLE |
00000220: 3D 20 35 35 20 3B 52 4F 4D 20 45 49 4E 42 4C 45 |= 55 ;ROM EINBLE|
00000230: 4E 44 45 4E 00 46 0A D7 00 22 46 4C 41 47 20 3D |NDEN.F..."FLAG =|
00000240: 20 58 31 2B 31 38 00 5A 0A DC 00 22 42 49 54 50 | X1+18.Z..."BITP|
00000250: 4F 53 20 3D 20 58 31 2B 31 39 00 6D 0A E1 00 22 |OS = X1+19.m..."|
00000260: 46 4C 41 47 31 20 3D 20 58 31 2B 32 33 00 80 0A |FLAG1 = X1+23...|
00000270: E6 00 22 46 4C 41 47 32 20 3D 20 58 31 2B 32 34 |.."FLAG2 = X1+24|
00000280: 00 93 0A EB 00 22 46 4C 41 47 33 20 3D 20 58 31 |....."FLAG3 = X1|
00000290: 2B 32 35 00 A6 0A F0 00 22 4C 45 4E 47 48 20 3D |+25....."LENGH =|
000002A0: 20 58 31 2B 32 36 00 BB 0A F5 00 22 4C 49 4E 45 | X1+26....."LINE|
000002B0: 54 59 50 20 3D 20 58 31 2B 32 37 00 C3 0A F6 00 |TYP = X1+27.....|
000002C0: 22 20 3B 00 EA 0A F7 00 22 20 3B 50 52 4F 47 52 |" ;....." ;PROGR|
000002D0: 41 4D 4D 53 54 41 52 54 2C 20 5A 45 49 47 45 52 |AMMSTART, ZEIGER|
000002E0: 20 56 45 52 42 49 45 47 45 4E 00 F2 0A F8 00 22 | VERBIEGEN....."|
000002F0: 20 3B 00 03 0B FA 00 22 20 4C 44 41 20 23 3C 45 | ;....." LDA #<E|
00000300: 53 55 50 00 14 0B FF 00 22 20 4C 44 59 20 23 3E |SUP....." LDY #>|
00000310: 45 53 55 50 00 24 0B 04 01 22 20 53 54 41 20 24 |ESUP.$..." STA $|
00000320: 30 33 30 38 00 34 0B 09 01 22 20 53 54 59 20 24 |0308.4..." STY $|
00000330: 30 33 30 39 00 45 0B 0E 01 22 20 4C 44 41 20 23 |0309.E..." LDA #|
00000340: 3C 38 31 39 30 00 56 0B 13 01 22 20 4C 44 59 20 |<8190.V..." LDY |
00000350: 23 3E 38 31 39 30 00 64 0B 18 01 22 20 53 54 41 |#>8190.d..." STA|
00000360: 20 24 33 33 00 72 0B 1D 01 22 20 53 54 59 20 24 | $33.r..." STY $|
00000370: 33 34 00 80 0B 22 01 22 20 53 54 41 20 24 33 37 |34..."." STA $37|
00000380: 00 8E 0B 27 01 22 20 53 54 59 20 24 33 38 00 96 |...'." STY $38..|
00000390: 0B 28 01 22 20 3B 00 AD 0B 29 01 22 20 3B 50 52 |.(." ;...)." ;PR|
000003A0: 4F 4D 50 54 20 41 55 53 47 45 42 45 4E 00 B5 0B |OMPT AUSGEBEN...|
000003B0: 2A 01 22 20 3B 00 C8 0B 2C 01 22 20 4C 44 41 20 |*." ;...,." LDA |
000003C0: 23 3C 50 52 4F 4D 50 54 00 DB 0B 31 01 22 20 4C |#<PROMPT...1." L|
000003D0: 44 59 20 23 3E 50 52 4F 4D 50 54 00 EB 0B 36 01 |DY #>PROMPT...6.|
000003E0: 22 20 4A 4D 50 20 24 41 42 31 45 00 F3 0B 37 01 |" JMP $AB1E...7.|
000003F0: 22 20 3B 00 0F 0C 38 01 22 20 3B 42 41 53 49 43 |" ;...8." ;BASIC|
00000400: 2D 54 4F 4B 45 4E 20 45 52 4B 45 4E 4E 45 4E 00 |-TOKEN ERKENNEN.|
00000410: 17 0C 39 01 22 20 3B 00 29 0C 3B 01 22 45 53 55 |..9." ;.).;."ESU|
00000420: 50 20 4A 53 52 20 24 37 33 00 38 0C 40 01 22 20 |P JSR $73.8.@." |
00000430: 43 4D 50 20 23 27 26 27 00 4A 0C 45 01 22 20 42 |CMP #'&'.J.E." B|
00000440: 45 51 20 53 55 50 50 4F 52 54 00 58 0C 4A 01 22 |EQ SUPPORT.X.J."|
00000450: 20 4A 53 52 20 24 37 39 00 68 0C 4F 01 22 20 4A | JSR $79.h.O." J|
00000460: 4D 50 20 24 41 37 45 37 00 7E 0C 54 01 22 53 55 |MP $A7E7.~.T."SU|
00000470: 50 50 4F 52 54 20 4C 44 58 20 23 24 46 46 00 8B |PPORT LDX #$FF..|
00000480: 0C 59 01 22 20 4C 44 59 20 23 30 00 9A 0C 5E 01 |.Y." LDY #0...^.|
00000490: 22 20 53 54 59 20 46 4C 41 47 00 A9 0C 63 01 22 |" STY FLAG...c."|
000004A0: 53 4C 4F 4F 50 20 49 4E 58 00 B3 0C 68 01 22 20 |SLOOP INX...h." |
000004B0: 49 4E 59 00 C7 0C 6D 01 22 20 4C 44 41 20 40 53 |INY...m." LDA @S|
000004C0: 54 4D 54 41 42 2C 58 00 D9 0C 72 01 22 20 42 45 |TMTAB,X...r." BE|
000004D0: 51 20 4E 45 57 53 54 4D 54 00 EB 0C 77 01 22 20 |Q NEWSTMT...w." |
000004E0: 43 4D 50 20 28 24 37 41 29 2C 59 00 FB 0C 7C 01 |CMP ($7A),Y...|.|
000004F0: 22 20 42 45 51 20 53 4C 4F 4F 50 00 08 0D 81 01 |" BEQ SLOOP.....|
00000500: 22 4E 58 54 20 49 4E 58 00 1C 0D 86 01 22 20 4C |"NXT INX....." L|
00000510: 44 41 20 40 53 54 4D 54 41 42 2C 58 00 2A 0D 8B |DA @STMTAB,X.*..|
00000520: 01 22 20 42 4E 45 20 4E 58 54 00 39 0D 90 01 22 |." BNE NXT.9..."|
00000530: 20 49 4E 43 20 46 4C 41 47 00 46 0D 95 01 22 20 | INC FLAG.F..." |
00000540: 4C 44 59 20 23 30 00 5C 0D 9A 01 22 20 4C 44 41 |LDY #0.\..." LDA|
00000550: 20 40 53 54 4D 54 41 42 2B 31 2C 58 00 6C 0D 9F | @STMTAB+1,X.l..|
00000560: 01 22 20 42 4E 45 20 53 4C 4F 4F 50 00 7C 0D A4 |." BNE SLOOP.|..|
00000570: 01 22 20 4A 4D 50 20 24 41 46 30 38 00 8D 0D A9 |." JMP $AF08....|
00000580: 01 22 4E 45 57 53 54 4D 54 20 44 45 59 00 97 0D |."NEWSTMT DEY...|
00000590: AE 01 22 20 43 4C 43 00 A1 0D B3 01 22 20 54 59 |.." CLC....." TY|
000005A0: 41 00 AF 0D B8 01 22 20 41 44 43 20 24 37 41 00 |A....." ADC $7A.|
000005B0: BD 0D BD 01 22 20 53 54 41 20 24 37 41 00 CA 0D |...." STA $7A...|
000005C0: C2 01 22 20 42 43 43 20 4C 31 00 D8 0D C7 01 22 |.." BCC L1....."|
000005D0: 20 49 4E 43 20 24 37 42 00 E0 0D C8 01 22 20 3B | INC $7B....." ;|
000005E0: 00 04 0E C9 01 22 20 3B 52 45 54 55 52 4E 2D 41 |....." ;RETURN-A|
000005F0: 44 52 45 53 53 45 20 41 55 46 20 44 45 4E 20 53 |DRESSE AUF DEN S|
00000600: 54 41 43 4B 00 0C 0E CA 01 22 20 3B 00 1D 0E CC |TACK....." ;....|
00000610: 01 22 4C 31 20 4C 44 41 20 23 24 41 37 00 27 0E |."L1 LDA #$A7.'.|
00000620: D1 01 22 20 50 48 41 00 36 0E D6 01 22 20 4C 44 |.." PHA.6..." LD|
00000630: 41 20 23 24 45 39 00 40 0E DB 01 22 20 50 48 41 |A #$E9.@..." PHA|
00000640: 00 4F 0E E0 01 22 20 4C 44 41 20 46 4C 41 47 00 |.O..." LDA FLAG.|
00000650: 59 0E E5 01 22 20 41 53 4C 00 63 0E EA 01 22 20 |Y..." ASL.c..." |
00000660: 54 41 58 00 78 0E EF 01 22 20 4C 44 41 20 40 45 |TAX.x..." LDA @E|
00000670: 4E 54 52 59 2B 31 2C 58 00 80 0E F0 01 22 20 3B |NTRY+1,X....." ;|
00000680: 00 AF 0E F1 01 22 20 3B 41 44 52 45 53 53 45 20 |....." ;ADRESSE |
00000690: 44 45 53 20 4E 45 55 45 4E 20 42 45 46 45 48 4C |DES NEUEN BEFEHL|
000006A0: 53 20 41 55 46 20 44 45 4E 20 53 54 41 43 4B 00 |S AUF DEN STACK.|
000006B0: B9 0E F4 01 22 20 50 48 41 00 CC 0E F9 01 22 20 |...." PHA....." |
000006C0: 4C 44 41 20 40 45 4E 54 52 59 2C 58 00 D6 0E FE |LDA @ENTRY,X....|
000006D0: 01 22 20 50 48 41 00 E4 0E 03 02 22 20 4A 4D 50 |." PHA....." JMP|
000006E0: 20 24 37 33 00 EC 0E 04 02 22 20 3B 00 12 0F 05 | $73....." ;....|
000006F0: 02 22 20 3B 48 49 45 52 20 53 49 4E 44 20 44 49 |." ;HIER SIND DI|
00000700: 45 20 4E 45 55 45 4E 20 42 45 46 45 48 4C 45 2E |E NEUEN BEFEHLE.|
00000710: 2E 2E 00 1A 0F 06 02 22 20 3B 00 3C 0F 08 02 22 |......." ;.<..."|
00000720: 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ;**************|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 44 0F 0D |************.D..|
00000740: 02 22 20 3B 00 53 0F 12 02 22 20 3B 20 26 43 4C |." ;.S..." ; &CL|
00000750: 45 41 52 00 5B 0F 17 02 22 20 3B 00 7D 0F 1C 02 |EAR.[..." ;.}...|
00000760: 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |" ;*************|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 93 0F |*************...|
00000780: 21 02 22 43 4C 45 41 52 20 4C 44 41 20 23 3C 38 |!."CLEAR LDA #<8|
00000790: 31 39 32 00 A4 0F 26 02 22 20 4C 44 59 20 23 3E |192...&." LDY #>|
000007A0: 38 31 39 32 00 B2 0F 2B 02 22 20 53 54 41 20 24 |8192...+." STA $|
000007B0: 46 42 00 C0 0F 30 02 22 20 53 54 59 20 24 46 43 |FB...0." STY $FC|
000007C0: 00 CA 0F 35 02 22 20 53 45 49 00 DD 0F 3A 02 22 |...5." SEI...:."|
000007D0: 20 4C 44 41 20 23 44 49 53 41 42 4C 45 00 E9 0F | LDA #DISABLE...|
000007E0: 3F 02 22 20 53 54 41 20 31 00 F6 0F 44 02 22 20 |?." STA 1...D." |
000007F0: 4C 44 59 20 23 30 00 00 10 49 02 22 20 54 59 41 |LDY #0...I." TYA|
00000800: 00 15 10 4E 02 22 43 4C 31 20 53 54 41 20 28 24 |...N."CL1 STA ($|
00000810: 46 42 29 2C 59 00 1F 10 53 02 22 20 49 4E 59 00 |FB),Y...S." INY.|
00000820: 2D 10 58 02 22 20 42 4E 45 20 43 4C 31 00 3B 10 |-.X." BNE CL1.;.|
00000830: 5D 02 22 20 49 4E 43 20 24 46 43 00 49 10 62 02 |]." INC $FC.I.b.|
00000840: 22 20 4C 44 58 20 24 46 43 00 58 10 67 02 22 20 |" LDX $FC.X.g." |
00000850: 43 50 58 20 23 24 43 30 00 66 10 6C 02 22 20 42 |CPX #$C0.f.l." B|
00000860: 4E 45 20 43 4C 31 00 75 10 71 02 22 20 4C 44 58 |NE CL1.u.q." LDX|
00000870: 20 23 24 43 38 00 83 10 76 02 22 20 53 54 58 20 | #$C8...v." STX |
00000880: 24 46 43 00 98 10 7B 02 22 43 4C 32 20 53 54 41 |$FC...{."CL2 STA|
00000890: 20 28 24 46 42 29 2C 59 00 A2 10 80 02 22 20 49 | ($FB),Y....." I|
000008A0: 4E 59 00 B0 10 85 02 22 20 42 4E 45 20 43 4C 32 |NY....." BNE CL2|
000008B0: 00 BE 10 8A 02 22 20 49 4E 43 20 24 46 43 00 CC |....." INC $FC..|
000008C0: 10 8F 02 22 20 42 4E 45 20 43 4C 32 00 DE 10 94 |..." BNE CL2....|
000008D0: 02 22 20 4C 44 41 20 23 45 4E 41 42 4C 45 00 EA |." LDA #ENABLE..|
000008E0: 10 99 02 22 20 53 54 41 20 31 00 F4 10 9E 02 22 |..." STA 1....."|
000008F0: 20 43 4C 49 00 FE 10 A3 02 22 20 52 54 53 00 20 | CLI....." RTS. |
00000900: 11 A8 02 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..." ;**********|
00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000920: 00 28 11 AD 02 22 20 3B 00 3E 11 B2 02 22 20 3B |.(..." ;.>..." ;|
00000930: 20 44 4F 54 20 2D 20 42 45 46 45 48 4C 45 00 46 | DOT - BEFEHLE.F|
00000940: 11 B7 02 22 20 3B 00 68 11 BC 02 22 20 3B 2A 2A |..." ;.h..." ;**|
00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 00 78 11 C1 02 22 44 4F |********.x..."DO|
00000970: 54 20 4C 44 41 20 23 30 00 87 11 C6 02 22 20 53 |T LDA #0....." S|
00000980: 54 41 20 46 4C 41 47 00 99 11 CB 02 22 20 4A 53 |TA FLAG....." JS|
00000990: 52 20 56 41 4C 55 45 2B 33 00 AA 11 D0 02 22 20 |R VALUE+3....." |
000009A0: 53 54 41 20 58 56 41 4C 55 45 00 BD 11 D5 02 22 |STA XVALUE....."|
000009B0: 20 53 54 59 20 58 56 41 4C 55 45 2B 31 00 CD 11 | STY XVALUE+1...|
000009C0: DA 02 22 20 4A 53 52 20 56 41 4C 55 45 00 E5 11 |.." JSR VALUE...|
000009D0: DF 02 22 57 4F 52 4B 44 4F 54 20 43 50 59 20 23 |.."WORKDOT CPY #|
000009E0: 3E 59 4D 41 58 00 F3 11 E4 02 22 20 42 43 43 20 |>YMAX....." BCC |
000009F0: 53 45 31 00 04 12 E9 02 22 20 43 4D 50 20 23 3C |SE1....." CMP #<|
00000A00: 59 4D 41 58 00 12 12 EE 02 22 20 42 43 43 20 53 |YMAX....." BCC S|
00000A10: 45 31 00 1C 12 F3 02 22 20 52 54 53 00 24 12 F4 |E1....." RTS.$..|
00000A20: 02 22 20 3B 00 49 12 F5 02 22 20 3B 41 44 52 45 |." ;.I..." ;ADRE|
00000A30: 53 53 45 20 44 45 53 20 50 55 4E 4B 54 45 53 20 |SSE DES PUNKTES |
00000A40: 42 45 52 45 43 48 4E 45 4E 00 51 12 F6 02 22 20 |BERECHNEN.Q..." |
00000A50: 3B 00 66 12 F8 02 22 53 45 31 20 53 54 41 20 40 |;.f..."SE1 STA @|
00000A60: 48 45 4C 50 2B 32 00 78 12 FD 02 22 20 53 54 59 |HELP+2.x..." STY|
00000A70: 20 40 48 45 4C 50 2B 33 00 85 12 02 03 22 20 4C | @HELP+3....." L|
00000A80: 44 59 20 23 33 00 92 12 07 03 22 53 45 32 20 43 |DY #3....."SE2 C|
00000A90: 4C 43 00 A4 12 0C 03 22 20 4C 53 52 20 40 48 45 |LC....." LSR @HE|
00000AA0: 4C 50 2B 33 00 B6 12 11 03 22 20 52 4F 52 20 40 |LP+3....." ROR @|
00000AB0: 48 45 4C 50 2B 32 00 C0 12 16 03 22 20 44 45 59 |HELP+2....." DEY|
00000AC0: 00 CE 12 1B 03 22 20 42 4E 45 20 53 45 32 00 D8 |....." BNE SE2..|
00000AD0: 12 20 03 22 20 43 4C 43 00 EA 12 25 03 22 20 4C |. ." CLC...%." L|
00000AE0: 44 41 20 40 48 45 4C 50 2B 32 00 FB 12 2A 03 22 |DA @HELP+2...*."|
00000AF0: 20 41 44 43 20 23 3E 38 31 39 32 00 09 13 2F 03 | ADC #>8192.../.|
00000B00: 22 20 53 54 41 20 24 46 43 00 1B 13 34 03 22 20 |" STA $FC...4." |
00000B10: 4C 44 41 20 40 48 45 4C 50 2B 32 00 29 13 39 03 |LDA @HELP+2.).9.|
00000B20: 22 20 53 54 41 20 24 46 42 00 33 13 3E 03 22 20 |" STA $FB.3.>." |
00000B30: 41 53 4C 00 41 13 43 03 22 20 41 44 43 20 24 46 |ASL.A.C." ADC $F|
00000B40: 43 00 4F 13 48 03 22 20 53 54 41 20 24 46 43 00 |C.O.H." STA $FC.|
00000B50: 5C 13 4D 03 22 20 4C 44 41 20 23 30 00 6A 13 52 |\.M." LDA #0.j.R|
00000B60: 03 22 20 41 53 4C 20 24 46 42 00 74 13 57 03 22 |." ASL $FB.t.W."|
00000B70: 20 52 4F 4C 00 82 13 5C 03 22 20 41 53 4C 20 24 | ROL...\." ASL $|
00000B80: 46 42 00 8C 13 61 03 22 20 52 4F 4C 00 9A 13 66 |FB...a." ROL...f|
00000B90: 03 22 20 41 53 4C 20 24 46 42 00 A4 13 6B 03 22 |." ASL $FB...k."|
00000BA0: 20 52 4F 4C 00 B2 13 70 03 22 20 41 53 4C 20 24 | ROL...p." ASL $|
00000BB0: 46 42 00 BC 13 75 03 22 20 52 4F 4C 00 CA 13 7A |FB...u." ROL...z|
00000BC0: 03 22 20 41 53 4C 20 24 46 42 00 D4 13 7F 03 22 |." ASL $FB....."|
00000BD0: 20 52 4F 4C 00 E2 13 84 03 22 20 41 44 43 20 24 | ROL....." ADC $|
00000BE0: 46 43 00 F0 13 89 03 22 20 53 54 41 20 24 46 43 |FC....." STA $FC|
00000BF0: 00 01 14 8E 03 22 53 45 34 20 4C 44 41 20 24 31 |....."SE4 LDA $1|
00000C00: 34 00 0E 14 93 03 22 20 41 4E 44 20 23 37 00 18 |4....." AND #7..|
00000C10: 14 98 03 22 20 54 41 58 00 29 14 9D 03 22 20 4C |..." TAX.)..." L|
00000C20: 44 41 20 40 42 49 54 2C 58 00 3A 14 A2 03 22 20 |DA @BIT,X.:..." |
00000C30: 53 54 41 20 42 49 54 50 4F 53 00 4B 14 A7 03 22 |STA BITPOS.K..."|
00000C40: 20 4C 44 41 20 58 56 41 4C 55 45 00 5E 14 AC 03 | LDA XVALUE.^...|
00000C50: 22 20 4C 44 59 20 58 56 41 4C 55 45 2B 31 00 6F |" LDY XVALUE+1.o|
00000C60: 14 B1 03 22 20 43 50 59 20 23 3E 58 4D 41 58 00 |..." CPY #>XMAX.|
00000C70: 7D 14 B6 03 22 20 42 43 43 20 53 45 35 00 8E 14 |}..." BCC SE5...|
00000C80: BB 03 22 20 43 4D 50 20 23 3C 58 4D 41 58 00 9C |.." CMP #<XMAX..|
00000C90: 14 C0 03 22 20 42 43 43 20 53 45 35 00 A6 14 C5 |..." BCC SE5....|
00000CA0: 03 22 20 52 54 53 00 B7 14 CA 03 22 53 45 35 20 |." RTS....."SE5 |
00000CB0: 41 44 43 20 24 46 42 00 C5 14 CF 03 22 20 53 54 |ADC $FB....." ST|
00000CC0: 41 20 24 46 42 00 CF 14 D4 03 22 20 54 59 41 00 |A $FB....." TYA.|
00000CD0: DD 14 D9 03 22 20 41 44 43 20 24 46 43 00 EC 14 |...." ADC $FC...|
00000CE0: DE 03 22 20 43 4D 50 20 23 24 43 30 00 FA 14 E3 |.." CMP #$C0....|
00000CF0: 03 22 20 42 43 43 20 53 45 36 00 07 15 E8 03 22 |." BCC SE6....."|
00000D00: 20 41 44 43 20 23 37 00 18 15 ED 03 22 53 45 36 | ADC #7....."SE6|
00000D10: 20 53 54 41 20 24 46 43 00 22 15 F2 03 22 20 53 | STA $FC."..." S|
00000D20: 45 49 00 2A 15 F3 03 22 20 3B 00 40 15 F4 03 22 |EI.*..." ;.@..."|
00000D30: 20 3B 52 4F 4D 20 41 55 53 42 4C 45 4E 44 45 4E | ;ROM AUSBLENDEN|
00000D40: 00 48 15 F5 03 22 20 3B 00 5B 15 F7 03 22 20 4C |.H..." ;.[..." L|
00000D50: 44 41 20 23 44 49 53 41 42 4C 45 00 67 15 FC 03 |DA #DISABLE.g...|
00000D60: 22 20 53 54 41 20 31 00 74 15 01 04 22 20 4C 44 |" STA 1.t..." LD|
00000D70: 59 20 23 30 00 83 15 06 04 22 20 42 49 54 20 46 |Y #0....." BIT F|
00000D80: 4C 41 47 00 93 15 0B 04 22 20 42 50 4C 20 44 4F |LAG....." BPL DO|
00000D90: 54 30 58 00 A4 15 10 04 22 20 42 56 43 20 49 4E |T0X....." BVC IN|
00000DA0: 56 45 52 54 00 AC 15 11 04 22 20 3B 00 CA 15 12 |VERT....." ;....|
00000DB0: 04 22 20 3B 50 55 4E 4B 54 20 54 45 53 54 45 4E |." ;PUNKT TESTEN|
00000DC0: 20 27 42 49 54 54 45 53 54 27 00 D2 15 13 04 22 | 'BITTEST'....."|
00000DD0: 20 3B 00 E3 15 15 04 22 20 4C 44 41 20 42 49 54 | ;....." LDA BIT|
00000DE0: 50 4F 53 00 F0 15 1A 04 22 20 4C 44 58 20 23 30 |POS....." LDX #0|
00000DF0: 00 02 16 1F 04 22 20 41 4E 44 20 28 24 46 42 29 |....." AND ($FB)|
00000E00: 2C 59 00 10 16 24 04 22 20 42 45 51 20 54 53 31 |,Y...$." BEQ TS1|
00000E10: 00 1A 16 29 04 22 20 44 45 58 00 2C 16 2E 04 22 |...)." DEX.,..."|
00000E20: 54 53 31 20 53 54 58 20 46 4C 41 47 00 3D 16 33 |TS1 STX FLAG.=.3|
00000E30: 04 22 20 4A 4D 50 20 45 4E 44 44 4F 54 00 45 16 |." JMP ENDDOT.E.|
00000E40: 34 04 22 20 3B 00 5E 16 35 04 22 20 3B 50 55 4E |4." ;.^.5." ;PUN|
00000E50: 4B 54 20 49 4E 56 45 52 54 49 45 52 45 4E 00 66 |KT INVERTIEREN.f|
00000E60: 16 36 04 22 20 3B 00 7D 16 38 04 22 49 4E 56 45 |.6." ;.}.8."INVE|
00000E70: 52 54 20 4C 44 41 20 42 49 54 50 4F 53 00 8F 16 |RT LDA BITPOS...|
00000E80: 3D 04 22 20 45 4F 52 20 28 24 46 42 29 2C 59 00 |=." EOR ($FB),Y.|
00000E90: A1 16 42 04 22 20 53 54 41 20 28 24 46 42 29 2C |..B." STA ($FB),|
00000EA0: 59 00 B2 16 47 04 22 20 4A 4D 50 20 45 4E 44 44 |Y...G." JMP ENDD|
00000EB0: 4F 54 00 C5 16 4C 04 22 44 4F 54 30 58 20 42 56 |OT...L."DOT0X BV|
00000EC0: 43 20 53 45 54 00 CD 16 4D 04 22 20 3B 00 E8 16 |C SET...M." ;...|
00000ED0: 4E 04 22 20 3B 50 55 4E 4B 54 20 5A 55 52 55 45 |N." ;PUNKT ZURUE|
00000EE0: 43 4B 53 45 54 5A 45 4E 00 F0 16 4F 04 22 20 3B |CKSETZEN...O." ;|
00000EF0: 00 01 17 51 04 22 20 4C 44 41 20 42 49 54 50 4F |...Q." LDA BITPO|
00000F00: 53 00 10 17 56 04 22 20 45 4F 52 20 23 24 46 46 |S...V." EOR #$FF|
00000F10: 00 22 17 5B 04 22 20 41 4E 44 20 28 24 46 42 29 |.".[." AND ($FB)|
00000F20: 2C 59 00 34 17 60 04 22 20 53 54 41 20 28 24 46 |,Y.4.`." STA ($F|
00000F30: 42 29 2C 59 00 45 17 65 04 22 20 4A 4D 50 20 45 |B),Y.E.e." JMP E|
00000F40: 4E 44 44 4F 54 00 4D 17 66 04 22 20 3B 00 61 17 |NDDOT.M.f." ;.a.|
00000F50: 67 04 22 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 |g." ;PUNKT SETZE|
00000F60: 4E 00 69 17 68 04 22 20 3B 00 7D 17 6A 04 22 53 |N.i.h." ;.}.j."S|
00000F70: 45 54 20 4C 44 41 20 42 49 54 50 4F 53 00 8F 17 |ET LDA BITPOS...|
00000F80: 6F 04 22 20 4F 52 41 20 28 24 46 42 29 2C 59 00 |o." ORA ($FB),Y.|
00000F90: A1 17 74 04 22 20 53 54 41 20 28 24 46 42 29 2C |..t." STA ($FB),|
00000FA0: 59 00 B9 17 79 04 22 45 4E 44 44 4F 54 20 4C 44 |Y...y."ENDDOT LD|
00000FB0: 41 20 23 45 4E 41 42 4C 45 00 C5 17 7E 04 22 20 |A #ENABLE...~." |
00000FC0: 53 54 41 20 31 00 CF 17 83 04 22 20 43 4C 49 00 |STA 1....." CLI.|
00000FD0: D9 17 88 04 22 20 52 54 53 00 FB 17 8D 04 22 20 |...." RTS....." |
00000FE0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 18 92 04 |***********.....|
00001000: 22 20 3B 00 12 18 97 04 22 20 3B 20 26 50 52 49 |" ;....." ; &PRI|
00001010: 4E 54 00 1A 18 9C 04 22 20 3B 00 3C 18 A1 04 22 |NT....." ;.<..."|
00001020: 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ;**************|
00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 66 18 A2 |************.f..|
00001040: 04 22 20 3B 55 53 45 52 50 4F 52 54 2D 49 4E 54 |." ;USERPORT-INT|
00001050: 45 52 46 41 43 45 20 44 55 52 43 48 20 47 45 45 |ERFACE DURCH GEE|
00001060: 49 47 4E 54 45 53 00 8E 18 A3 04 22 20 3B 53 45 |IGNTES....." ;SE|
00001070: 54 5A 45 4E 20 44 45 52 20 50 4F 52 54 42 41 55 |TZEN DER PORTBAU|
00001080: 53 54 45 49 4E 2D 52 45 47 49 53 54 45 52 00 C8 |STEIN-REGISTER..|
00001090: 18 A4 04 22 20 3B 49 4E 49 54 49 41 4C 49 53 49 |..." ;INITIALISI|
000010A0: 45 52 45 4E 2E 20 42 45 49 20 44 52 55 43 4B 45 |EREN. BEI DRUCKE|
000010B0: 52 4E 20 41 4D 20 53 45 52 49 45 4C 4C 45 4E 20 |RN AM SERIELLEN |
000010C0: 42 55 53 20 4D 55 53 53 00 FF 18 A5 04 22 20 3B |BUS MUSS....." ;|
000010D0: 48 49 45 52 20 45 49 4E 20 46 49 4C 45 20 41 55 |HIER EIN FILE AU|
000010E0: 46 20 44 45 4E 20 44 52 55 43 4B 45 52 20 45 52 |F DEN DRUCKER ER|
000010F0: 4F 45 46 46 4E 45 54 20 57 45 52 44 45 4E 2E 00 |OEFFNET WERDEN..|
00001100: 11 19 A6 04 22 48 41 52 44 43 4F 50 59 20 53 45 |...."HARDCOPY SE|
00001110: 49 00 20 19 AB 04 22 20 4C 44 41 20 23 24 46 46 |I. ..." LDA #$FF|
00001120: 00 30 19 B0 04 22 20 53 54 41 20 24 44 44 30 33 |.0..." STA $DD03|
00001130: 00 40 19 B5 04 22 20 4C 44 41 20 24 44 44 30 32 |.@..." LDA $DD02|
00001140: 00 4D 19 BA 04 22 20 4F 52 41 20 23 34 00 5D 19 |.M..." ORA #4.].|
00001150: BF 04 22 20 53 54 41 20 24 44 44 30 32 00 6D 19 |.." STA $DD02.m.|
00001160: C4 04 22 20 4C 44 41 20 24 44 44 30 30 00 7A 19 |.." LDA $DD00.z.|
00001170: C9 04 22 20 4F 52 41 20 23 34 00 8A 19 CE 04 22 |.." ORA #4....."|
00001180: 20 53 54 41 20 24 44 44 30 30 00 99 19 D3 04 22 | STA $DD00....."|
00001190: 20 4C 44 41 20 23 24 31 30 00 A9 19 D8 04 22 20 | LDA #$10....." |
000011A0: 53 54 41 20 24 44 44 30 44 00 B9 19 DD 04 22 20 |STA $DD0D....." |
000011B0: 4C 44 41 20 24 44 44 30 44 00 C3 19 E2 04 22 20 |LDA $DD0D....." |
000011C0: 43 4C 49 00 F0 19 E3 04 22 20 3B 53 54 45 55 45 |CLI....." ;STEUE|
000011D0: 52 43 4F 44 45 53 20 46 55 45 52 20 45 50 53 4F |RCODES FUER EPSO|
000011E0: 4E 20 52 58 2D 38 30 20 41 55 53 47 45 42 45 4E |N RX-80 AUSGEBEN|
000011F0: 00 FD 19 E7 04 22 20 4C 44 58 20 23 35 00 14 1A |....." LDX #5...|
00001200: EC 04 22 48 43 30 20 4C 44 41 20 40 54 41 42 4C |.."HC0 LDA @TABL|
00001210: 45 31 2C 58 00 25 1A F1 04 22 20 4A 53 52 20 43 |E1,X.%..." JSR C|
00001220: 57 52 4F 55 54 00 2F 1A F6 04 22 20 44 45 58 00 |WROUT./..." DEX.|
00001230: 3D 1A FB 04 22 20 42 50 4C 20 48 43 30 00 4E 1A |=..." BPL HC0.N.|
00001240: 00 05 22 20 4C 44 41 20 23 3C 38 31 39 32 00 5F |.." LDA #<8192._|
00001250: 1A 05 05 22 20 4C 44 59 20 23 3E 38 31 39 32 00 |..." LDY #>8192.|
00001260: 6D 1A 0A 05 22 20 53 54 41 20 24 46 42 00 7B 1A |m..." STA $FB.{.|
00001270: 0F 05 22 20 53 54 59 20 24 46 43 00 88 1A 14 05 |.." STY $FC.....|
00001280: 22 20 4C 44 41 20 23 30 00 96 1A 19 05 22 20 53 |" LDA #0....." S|
00001290: 54 41 20 24 46 44 00 C8 1A 1A 05 22 20 3B 53 54 |TA $FD....." ;ST|
000012A0: 45 55 45 52 43 4F 44 45 53 20 46 55 45 52 20 4E |EUERCODES FUER N|
000012B0: 45 55 45 20 47 52 41 46 49 4B 5A 45 49 4C 45 20 |EUE GRAFIKZEILE |
000012C0: 41 55 53 47 45 42 45 4E 00 D8 1A 1E 05 22 48 43 |AUSGEBEN....."HC|
000012D0: 31 20 4C 44 58 20 23 30 00 EC 1A 23 05 22 20 4C |1 LDX #0...#." L|
000012E0: 44 41 20 40 54 41 42 4C 45 32 2C 58 00 FD 1A 28 |DA @TABLE2,X...(|
000012F0: 05 22 20 4A 53 52 20 43 57 52 4F 55 54 00 07 1B |." JSR CWROUT...|
00001300: 2D 05 22 20 49 4E 58 00 15 1B 32 05 22 20 43 50 |-." INX...2." CP|
00001310: 58 20 23 31 34 00 25 1B 37 05 22 20 42 4E 45 20 |X #14.%.7." BNE |
00001320: 48 43 31 2B 32 00 53 1B 38 05 22 20 3B 45 49 4E |HC1+2.S.8." ;EIN|
00001330: 45 20 47 52 41 46 49 4B 5A 45 49 4C 45 20 28 38 |E GRAFIKZEILE (8|
00001340: 2A 38 30 30 20 44 4F 54 53 29 20 41 55 53 47 45 |*800 DOTS) AUSGE|
00001350: 42 45 4E 00 60 1B 3C 05 22 20 4C 44 58 20 23 30 |BEN.`.<." LDX #0|
00001360: 00 73 1B 41 05 22 48 43 32 20 4A 53 52 20 57 52 |.s.A."HC2 JSR WR|
00001370: 4F 55 54 00 7D 1B 46 05 22 20 49 4E 58 00 8B 1B |OUT.}.F." INX...|
00001380: 4B 05 22 20 42 4E 45 20 48 43 32 00 9E 1B 50 05 |K." BNE HC2...P.|
00001390: 22 48 43 33 20 4A 53 52 20 57 52 4F 55 54 00 A8 |"HC3 JSR WROUT..|
000013A0: 1B 55 05 22 20 49 4E 58 00 B6 1B 5A 05 22 20 42 |.U." INX...Z." B|
000013B0: 4E 45 20 48 43 33 00 C9 1B 5F 05 22 48 43 34 20 |NE HC3..._."HC4 |
000013C0: 4A 53 52 20 57 52 4F 55 54 00 D3 1B 64 05 22 20 |JSR WROUT...d." |
000013D0: 49 4E 58 00 E1 1B 69 05 22 20 42 4E 45 20 48 43 |INX...i." BNE HC|
000013E0: 34 00 F4 1B 6E 05 22 48 43 35 20 4A 53 52 20 57 |4...n."HC5 JSR W|
000013F0: 52 4F 55 54 00 FE 1B 73 05 22 20 49 4E 58 00 0F |ROUT...s." INX..|
00001400: 1C 78 05 22 20 43 50 58 20 23 3C 58 4D 41 58 00 |.x." CPX #<XMAX.|
00001410: 1D 1C 7D 05 22 20 42 4E 45 20 48 43 35 00 2B 1C |..}." BNE HC5.+.|
00001420: 82 05 22 20 49 4E 43 20 24 46 44 00 39 1C 87 05 |.." INC $FD.9...|
00001430: 22 20 4C 44 41 20 24 46 44 00 47 1C 8C 05 22 20 |" LDA $FD.G..." |
00001440: 43 4D 50 20 23 36 39 00 55 1C 91 05 22 20 42 4E |CMP #69.U..." BN|
00001450: 45 20 48 43 31 00 5F 1C 96 05 22 20 52 54 53 00 |E HC1._..." RTS.|
00001460: 75 1C 97 05 22 20 3B 52 4F 4D 20 41 55 53 42 4C |u..." ;ROM AUSBL|
00001470: 45 4E 44 45 4E 00 84 1C 9B 05 22 57 52 4F 55 54 |ENDEN....."WROUT|
00001480: 20 53 45 49 00 97 1C A0 05 22 20 4C 44 41 20 23 | SEI....." LDA #|
00001490: 44 49 53 41 42 4C 45 00 A3 1C A5 05 22 20 53 54 |DISABLE....." ST|
000014A0: 41 20 31 00 D6 1C A6 05 22 20 3B 41 44 52 45 53 |A 1....." ;ADRES|
000014B0: 53 45 20 44 45 53 20 41 55 53 5A 55 47 45 42 45 |SE DES AUSZUGEBE|
000014C0: 4E 44 45 4E 20 50 55 4E 4B 54 45 53 20 42 45 52 |NDEN PUNKTES BER|
000014D0: 45 43 48 4E 45 4E 00 E0 1C AA 05 22 20 43 4C 43 |ECHNEN....." CLC|
000014E0: 00 EE 1C AF 05 22 20 4C 44 41 20 24 46 42 00 FF |....." LDA $FB..|
000014F0: 1C B4 05 22 20 41 44 43 20 23 3C 24 38 30 30 00 |..." ADC #<$800.|
00001500: 0D 1D B9 05 22 20 53 54 41 20 24 46 45 00 1B 1D |...." STA $FE...|
00001510: BE 05 22 20 4C 44 41 20 24 46 43 00 2C 1D C3 05 |.." LDA $FC.,...|
00001520: 22 20 41 44 43 20 23 3E 24 38 30 30 00 3A 1D C8 |" ADC #>$800.:..|
00001530: 05 22 20 53 54 41 20 24 46 46 00 47 1D CD 05 22 |." STA $FF.G..."|
00001540: 20 4C 44 59 20 23 30 00 55 1D D2 05 22 20 4C 44 | LDY #0.U..." LD|
00001550: 41 20 24 46 43 00 64 1D D7 05 22 20 43 4D 50 20 |A $FC.d..." CMP |
00001560: 23 24 43 30 00 72 1D DC 05 22 20 42 43 53 20 57 |#$C0.r..." BCS W|
00001570: 52 31 00 84 1D E1 05 22 20 4C 44 41 20 28 24 46 |R1....." LDA ($F|
00001580: 42 29 2C 59 00 92 1D E6 05 22 20 2E 42 59 20 24 |B),Y....." .BY $|
00001590: 32 43 00 A7 1D EB 05 22 57 52 31 20 4C 44 41 20 |2C....."WR1 LDA |
000015A0: 28 24 46 45 29 2C 59 00 B5 1D F0 05 22 20 49 4E |($FE),Y....." IN|
000015B0: 43 20 24 46 42 00 C3 1D F5 05 22 20 42 4E 45 20 |C $FB....." BNE |
000015C0: 57 52 32 00 D1 1D FA 05 22 20 49 4E 43 20 24 46 |WR2....." INC $F|
000015D0: 43 00 EE 1D FB 05 22 20 3B 52 4F 4D 20 57 49 45 |C....." ;ROM WIE|
000015E0: 44 45 52 20 45 49 4E 42 4C 45 4E 44 45 4E 00 03 |DER EINBLENDEN..|
000015F0: 1E FF 05 22 57 52 32 20 4C 44 59 20 23 45 4E 41 |..."WR2 LDY #ENA|
00001600: 42 4C 45 00 0F 1E 04 06 22 20 53 54 59 20 31 00 |BLE....." STY 1.|
00001610: 19 1E 09 06 22 20 43 4C 49 00 3F 1E 0A 06 22 20 |...." CLI.?..." |
00001620: 3B 47 45 42 45 20 41 53 43 49 49 2D 5A 45 49 43 |;GEBE ASCII-ZEIC|
00001630: 48 45 4E 20 49 4D 20 41 43 43 55 20 41 55 53 00 |HEN IM ACCU AUS.|
00001640: 6F 1E 0B 06 22 20 3B 42 45 49 20 44 52 55 43 4B |o..." ;BEI DRUCK|
00001650: 45 52 4E 20 4D 49 54 20 53 45 52 49 45 4C 4C 45 |ERN MIT SERIELLE|
00001660: 52 20 53 43 48 4E 49 54 54 53 54 45 4C 4C 45 00 |R SCHNITTSTELLE.|
00001670: 93 1E 0C 06 22 20 3B 4D 55 53 53 20 48 49 45 52 |...." ;MUSS HIER|
00001680: 20 27 4A 4D 50 20 24 46 46 44 32 27 20 53 54 45 | 'JMP $FFD2' STE|
00001690: 48 45 4E 00 B4 1E 0D 06 22 20 3B 55 4E 44 20 44 |HEN....." ;UND D|
000016A0: 41 4E 41 43 48 20 41 55 43 48 20 45 49 4E 20 27 |ANACH AUCH EIN '|
000016B0: 52 54 53 27 00 CA 1E 0E 06 22 43 57 52 4F 55 54 |RTS'....."CWROUT|
000016C0: 20 53 54 41 20 24 44 44 30 31 00 DA 1E 13 06 22 | STA $DD01....."|
000016D0: 20 4C 44 41 20 24 44 44 30 30 00 E9 1E 18 06 22 | LDA $DD00....."|
000016E0: 20 41 4E 44 20 23 24 46 42 00 F9 1E 1D 06 22 20 | AND #$FB....." |
000016F0: 53 54 41 20 24 44 44 30 30 00 06 1F 22 06 22 20 |STA $DD00..."." |
00001700: 4F 52 41 20 23 34 00 16 1F 27 06 22 20 53 54 41 |ORA #4...'." STA|
00001710: 20 24 44 44 30 30 00 2A 1F 2C 06 22 57 41 49 54 | $DD00.*.,."WAIT|
00001720: 20 4C 44 41 20 24 44 44 30 44 00 39 1F 31 06 22 | LDA $DD0D.9.1."|
00001730: 20 41 4E 44 20 23 24 31 30 00 48 1F 36 06 22 20 | AND #$10.H.6." |
00001740: 42 45 51 20 57 41 49 54 00 52 1F 3B 06 22 20 43 |BEQ WAIT.R.;." C|
00001750: 4C 43 00 5C 1F 40 06 22 20 52 54 53 00 7E 1F 45 |LC.\.@." RTS.~.E|
00001760: 06 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." ;************|
00001770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 |**************..|
00001780: 1F 4A 06 22 20 3B 00 9B 1F 4F 06 22 20 3B 20 4C |.J." ;...O." ; L|
00001790: 49 4E 45 2D 42 45 46 45 48 4C 45 00 A3 1F 54 06 |INE-BEFEHLE...T.|
000017A0: 22 20 3B 00 C5 1F 59 06 22 20 3B 2A 2A 2A 2A 2A |" ;...Y." ;*****|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017C0: 2A 2A 2A 2A 2A 00 D6 1F 5E 06 22 4C 49 4E 45 20 |*****...^."LINE |
000017D0: 4C 44 41 20 23 30 00 E5 1F 63 06 22 20 53 54 41 |LDA #0...c." STA|
000017E0: 20 46 4C 41 47 00 F2 1F 68 06 22 20 4C 44 41 20 | FLAG...h." LDA |
000017F0: 23 30 00 04 20 6D 06 22 20 53 54 41 20 4C 49 4E |#0.. m." STA LIN|
00001800: 45 54 59 50 00 16 20 72 06 22 20 4A 53 52 20 56 |ETYP.. r." JSR V|
00001810: 41 4C 55 45 2B 33 00 23 20 77 06 22 20 53 54 41 |ALUE+3.# w." STA|
00001820: 20 58 31 00 32 20 7C 06 22 20 53 54 59 20 58 31 | X1.2 |." STY X1|
00001830: 2B 31 00 42 20 81 06 22 20 4A 53 52 20 56 41 4C |+1.B .." JSR VAL|
00001840: 55 45 00 4F 20 86 06 22 20 53 54 41 20 59 31 00 |UE.O .." STA Y1.|
00001850: 5E 20 8B 06 22 20 53 54 59 20 59 31 2B 31 00 6E |^ .." STY Y1+1.n|
00001860: 20 90 06 22 20 4A 53 52 20 56 41 4C 55 45 00 7B | .." JSR VALUE.{|
00001870: 20 95 06 22 20 53 54 41 20 58 32 00 8A 20 9A 06 | .." STA X2.. ..|
00001880: 22 20 53 54 59 20 58 32 2B 31 00 9A 20 9F 06 22 |" STY X2+1.. .."|
00001890: 20 4A 53 52 20 56 41 4C 55 45 00 A7 20 A4 06 22 | JSR VALUE.. .."|
000018A0: 20 53 54 41 20 59 32 00 B6 20 A9 06 22 20 53 54 | STA Y2.. .." ST|
000018B0: 59 20 59 32 2B 31 00 C3 20 AE 06 22 20 4C 44 58 |Y Y2+1.. .." LDX|
000018C0: 20 23 31 00 D0 20 B3 06 22 20 4C 44 59 20 23 30 | #1.. .." LDY #0|
000018D0: 00 DA 20 B8 06 22 20 53 45 43 00 E7 20 BD 06 22 |.. .." SEC.. .."|
000018E0: 20 4C 44 41 20 58 32 00 F4 20 C2 06 22 20 53 42 | LDA X2.. .." SB|
000018F0: 43 20 58 31 00 04 21 C7 06 22 20 53 54 41 20 58 |C X1..!.." STA X|
00001900: 44 49 46 46 00 13 21 CC 06 22 20 4C 44 41 20 58 |DIFF..!.." LDA X|
00001910: 32 2B 31 00 22 21 D1 06 22 20 53 42 43 20 58 31 |2+1."!.." SBC X1|
00001920: 2B 31 00 34 21 D6 06 22 20 53 54 41 20 58 44 49 |+1.4!.." STA XDI|
00001930: 46 46 2B 31 00 42 21 DB 06 22 20 42 50 4C 20 4C |FF+1.B!.." BPL L|
00001940: 49 31 00 4C 21 E0 06 22 20 44 45 58 00 56 21 E5 |I1.L!.." DEX.V!.|
00001950: 06 22 20 44 45 58 00 60 21 EA 06 22 20 44 45 59 |." DEX.`!.." DEY|
00001960: 00 6F 21 EF 06 22 20 45 4F 52 20 23 24 46 46 00 |.o!.." EOR #$FF.|
00001970: 81 21 F4 06 22 20 53 54 41 20 58 44 49 46 46 2B |.!.." STA XDIFF+|
00001980: 31 00 91 21 F9 06 22 20 4C 44 41 20 58 44 49 46 |1..!.." LDA XDIF|
00001990: 46 00 A0 21 FE 06 22 20 45 4F 52 20 23 24 46 46 |F..!.." EOR #$FF|
000019A0: 00 B0 21 03 07 22 20 53 54 41 20 58 44 49 46 46 |..!.." STA XDIFF|
000019B0: 00 C0 21 08 07 22 20 49 4E 43 20 58 44 49 46 46 |..!.." INC XDIFF|
000019C0: 00 CE 21 0D 07 22 20 42 4E 45 20 4C 49 31 00 E0 |..!.." BNE LI1..|
000019D0: 21 12 07 22 20 49 4E 43 20 58 44 49 46 46 2B 31 |!.." INC XDIFF+1|
000019E0: 00 F3 21 17 07 22 4C 49 31 20 53 54 58 20 58 53 |..!.."LI1 STX XS|
000019F0: 54 45 50 00 05 22 1C 07 22 20 53 54 59 20 58 53 |TEP..".." STY XS|
00001A00: 54 45 50 2B 31 00 12 22 21 07 22 20 4C 44 58 20 |TEP+1.."!." LDX |
00001A10: 23 31 00 1F 22 26 07 22 20 4C 44 59 20 23 30 00 |#1.."&." LDY #0.|
00001A20: 29 22 2B 07 22 20 53 45 43 00 36 22 30 07 22 20 |)"+." SEC.6"0." |
00001A30: 4C 44 41 20 59 32 00 43 22 35 07 22 20 53 42 43 |LDA Y2.C"5." SBC|
00001A40: 20 59 31 00 53 22 3A 07 22 20 53 54 41 20 59 44 | Y1.S":." STA YD|
00001A50: 49 46 46 00 62 22 3F 07 22 20 4C 44 41 20 59 32 |IFF.b"?." LDA Y2|
00001A60: 2B 31 00 71 22 44 07 22 20 53 42 43 20 59 31 2B |+1.q"D." SBC Y1+|
00001A70: 31 00 83 22 49 07 22 20 53 54 41 20 59 44 49 46 |1.."I." STA YDIF|
00001A80: 46 2B 31 00 91 22 4E 07 22 20 42 50 4C 20 4C 49 |F+1.."N." BPL LI|
00001A90: 32 00 9B 22 53 07 22 20 44 45 58 00 A5 22 58 07 |2.."S." DEX.."X.|
00001AA0: 22 20 44 45 58 00 AF 22 5D 07 22 20 44 45 59 00 |" DEX.."]." DEY.|
00001AB0: BE 22 62 07 22 20 45 4F 52 20 23 24 46 46 00 D0 |."b." EOR #$FF..|
00001AC0: 22 67 07 22 20 53 54 41 20 59 44 49 46 46 2B 31 |"g." STA YDIFF+1|
00001AD0: 00 E0 22 6C 07 22 20 4C 44 41 20 59 44 49 46 46 |.."l." LDA YDIFF|
00001AE0: 00 EF 22 71 07 22 20 45 4F 52 20 23 24 46 46 00 |.."q." EOR #$FF.|
00001AF0: FF 22 76 07 22 20 53 54 41 20 59 44 49 46 46 00 |."v." STA YDIFF.|
00001B00: 0F 23 7B 07 22 20 49 4E 43 20 59 44 49 46 46 00 |.#{." INC YDIFF.|
00001B10: 1D 23 80 07 22 20 42 4E 45 20 4C 49 32 00 2F 23 |.#.." BNE LI2./#|
00001B20: 85 07 22 20 49 4E 43 20 59 44 49 46 46 2B 31 00 |.." INC YDIFF+1.|
00001B30: 42 23 8A 07 22 4C 49 32 20 53 54 58 20 59 53 54 |B#.."LI2 STX YST|
00001B40: 45 50 00 54 23 8F 07 22 20 53 54 59 20 59 53 54 |EP.T#.." STY YST|
00001B50: 45 50 2B 31 00 61 23 94 07 22 20 4C 44 59 20 23 |EP+1.a#.." LDY #|
00001B60: 30 00 71 23 99 07 22 20 4C 44 41 20 58 44 49 46 |0.q#.." LDA XDIF|
00001B70: 46 00 83 23 9E 07 22 20 4F 52 41 20 58 44 49 46 |F..#.." ORA XDIF|
00001B80: 46 2B 31 00 91 23 A3 07 22 20 42 4E 45 20 4C 49 |F+1..#.." BNE LI|
00001B90: 33 00 9B 23 A8 07 22 20 44 45 59 00 AC 23 AD 07 |3..#.." DEY..#..|
00001BA0: 22 4C 49 33 20 53 54 59 20 53 55 4D 00 BC 23 B2 |"LI3 STY SUM..#.|
00001BB0: 07 22 20 53 54 59 20 53 55 4D 2B 31 00 CC 23 B7 |." STY SUM+1..#.|
00001BC0: 07 22 4C 49 34 20 4C 44 41 20 58 31 00 DB 23 BC |."LI4 LDA X1..#.|
00001BD0: 07 22 20 4C 44 59 20 58 31 2B 31 00 EC 23 C1 07 |." LDY X1+1..#..|
00001BE0: 22 20 53 54 41 20 58 56 41 4C 55 45 00 FF 23 C6 |" STA XVALUE..#.|
00001BF0: 07 22 20 53 54 59 20 58 56 41 4C 55 45 2B 31 00 |." STY XVALUE+1.|
00001C00: 0C 24 CB 07 22 20 4C 44 41 20 59 31 00 1B 24 D0 |.$.." LDA Y1..$.|
00001C10: 07 22 20 4C 44 59 20 59 31 2B 31 00 2C 24 D5 07 |." LDY Y1+1.,$..|
00001C20: 22 20 53 54 41 20 59 56 41 4C 55 45 00 3F 24 DA |" STA YVALUE.?$.|
00001C30: 07 22 20 53 54 59 20 59 56 41 4C 55 45 2B 31 00 |." STY YVALUE+1.|
00001C40: 4F 24 DF 07 22 20 4A 53 52 20 53 43 41 4E 4E 00 |O$.." JSR SCANN.|
00001C50: 61 24 E4 07 22 20 4A 53 52 20 57 4F 52 4B 44 4F |a$.." JSR WORKDO|
00001C60: 54 00 6E 24 E9 07 22 20 4C 44 41 20 58 31 00 7B |T.n$.." LDA X1.{|
00001C70: 24 EE 07 22 20 43 4D 50 20 58 32 00 89 24 F3 07 |$.." CMP X2..$..|
00001C80: 22 20 42 4E 45 20 4C 49 35 00 98 24 F8 07 22 20 |" BNE LI5..$.." |
00001C90: 4C 44 41 20 58 31 2B 31 00 A7 24 FD 07 22 20 43 |LDA X1+1..$.." C|
00001CA0: 4D 50 20 58 32 2B 31 00 B5 24 02 08 22 20 42 4E |MP X2+1..$.." BN|
00001CB0: 45 20 4C 49 35 00 C2 24 07 08 22 20 4C 44 41 20 |E LI5..$.." LDA |
00001CC0: 59 31 00 CF 24 0C 08 22 20 43 4D 50 20 59 32 00 |Y1..$.." CMP Y2.|
00001CD0: DD 24 11 08 22 20 42 4E 45 20 4C 49 35 00 EC 24 |.$.." BNE LI5..$|
00001CE0: 16 08 22 20 4C 44 41 20 59 31 2B 31 00 FB 24 1B |.." LDA Y1+1..$.|
00001CF0: 08 22 20 43 4D 50 20 59 32 2B 31 00 09 25 20 08 |." CMP Y2+1..% .|
00001D00: 22 20 42 4E 45 20 4C 49 35 00 13 25 25 08 22 20 |" BNE LI5..%%." |
00001D10: 52 54 53 00 26 25 2A 08 22 4C 49 35 20 42 49 54 |RTS.&%*."LI5 BIT|
00001D20: 20 53 55 4D 2B 31 00 34 25 2F 08 22 20 42 50 4C | SUM+1.4%/." BPL|
00001D30: 20 4C 49 36 00 3E 25 34 08 22 20 43 4C 43 00 4B | LI6.>%4." CLC.K|
00001D40: 25 39 08 22 20 4C 44 41 20 59 31 00 5B 25 3E 08 |%9." LDA Y1.[%>.|
00001D50: 22 20 41 44 43 20 59 53 54 45 50 00 68 25 43 08 |" ADC YSTEP.h%C.|
00001D60: 22 20 53 54 41 20 59 31 00 77 25 48 08 22 20 4C |" STA Y1.w%H." L|
00001D70: 44 41 20 59 31 2B 31 00 89 25 4D 08 22 20 41 44 |DA Y1+1..%M." AD|
00001D80: 43 20 59 53 54 45 50 2B 31 00 98 25 52 08 22 20 |C YSTEP+1..%R." |
00001D90: 53 54 41 20 59 31 2B 31 00 A2 25 57 08 22 20 43 |STA Y1+1..%W." C|
00001DA0: 4C 43 00 B0 25 5C 08 22 20 4C 44 41 20 53 55 4D |LC..%\." LDA SUM|
00001DB0: 00 C0 25 61 08 22 20 41 44 43 20 58 44 49 46 46 |..%a." ADC XDIFF|
00001DC0: 00 CE 25 66 08 22 20 53 54 41 20 53 55 4D 00 DE |..%f." STA SUM..|
00001DD0: 25 6B 08 22 20 4C 44 41 20 53 55 4D 2B 31 00 F0 |%k." LDA SUM+1..|
00001DE0: 25 70 08 22 20 41 44 43 20 58 44 49 46 46 2B 31 |%p." ADC XDIFF+1|
00001DF0: 00 00 26 75 08 22 20 53 54 41 20 53 55 4D 2B 31 |..&u." STA SUM+1|
00001E00: 00 0E 26 7A 08 22 20 4A 4D 50 20 4C 49 34 00 1B |..&z." JMP LI4..|
00001E10: 26 7F 08 22 4C 49 36 20 43 4C 43 00 28 26 84 08 |&.."LI6 CLC.(&..|
00001E20: 22 20 4C 44 41 20 58 31 00 38 26 89 08 22 20 41 |" LDA X1.8&.." A|
00001E30: 44 43 20 58 53 54 45 50 00 45 26 8E 08 22 20 53 |DC XSTEP.E&.." S|
00001E40: 54 41 20 58 31 00 54 26 93 08 22 20 4C 44 41 20 |TA X1.T&.." LDA |
00001E50: 58 31 2B 31 00 66 26 98 08 22 20 41 44 43 20 58 |X1+1.f&.." ADC X|
00001E60: 53 54 45 50 2B 31 00 75 26 9D 08 22 20 53 54 41 |STEP+1.u&.." STA|
00001E70: 20 58 31 2B 31 00 7F 26 A2 08 22 20 53 45 43 00 | X1+1..&.." SEC.|
00001E80: 8D 26 A7 08 22 20 4C 44 41 20 53 55 4D 00 9D 26 |.&.." LDA SUM..&|
00001E90: AC 08 22 20 53 42 43 20 59 44 49 46 46 00 AB 26 |.." SBC YDIFF..&|
00001EA0: B1 08 22 20 53 54 41 20 53 55 4D 00 BB 26 B6 08 |.." STA SUM..&..|
00001EB0: 22 20 4C 44 41 20 53 55 4D 2B 31 00 CD 26 BB 08 |" LDA SUM+1..&..|
00001EC0: 22 20 53 42 43 20 59 44 49 46 46 2B 31 00 DD 26 |" SBC YDIFF+1..&|
00001ED0: C0 08 22 20 53 54 41 20 53 55 4D 2B 31 00 EB 26 |.." STA SUM+1..&|
00001EE0: C5 08 22 20 4A 4D 50 20 4C 49 34 00 00 27 CA 08 |.." JMP LI4..'..|
00001EF0: 22 56 41 4C 55 45 20 4A 53 52 20 24 41 45 46 44 |"VALUE JSR $AEFD|
00001F00: 00 10 27 CF 08 22 20 4A 53 52 20 24 41 44 38 41 |..'.." JSR $AD8A|
00001F10: 00 20 27 D4 08 22 20 4A 53 52 20 24 42 37 46 37 |. '.." JSR $B7F7|
00001F20: 00 2E 27 D9 08 22 20 4C 44 41 20 24 31 34 00 3C |..'.." LDA $14.<|
00001F30: 27 DE 08 22 20 4C 44 59 20 24 31 35 00 46 27 E3 |'.." LDY $15.F'.|
00001F40: 08 22 20 52 54 53 00 89 27 E4 08 22 20 3B 46 4C |." RTS..'.." ;FL|
00001F50: 41 47 20 53 45 54 5A 45 4E 20 46 55 45 52 20 4D |AG SETZEN FUER M|
00001F60: 4F 44 49 46 49 5A 49 45 52 54 45 4E 20 50 55 4E |ODIFIZIERTEN PUN|
00001F70: 4B 54 2D 20 55 4E 44 20 4C 49 4E 49 45 4E 2D 46 |KT- UND LINIEN-F|
00001F80: 55 4E 4B 54 49 4F 4E 45 4E 00 A0 27 E8 08 22 52 |UNKTIONEN..'.."R|
00001F90: 45 53 45 54 44 4F 54 20 4C 44 41 20 23 24 34 30 |ESETDOT LDA #$40|
00001FA0: 00 B0 27 ED 08 22 20 4A 4D 50 20 44 4F 54 2B 32 |..'.." JMP DOT+2|
00001FB0: 00 C8 27 F2 08 22 49 4E 56 45 52 54 44 4F 54 20 |..'.."INVERTDOT |
00001FC0: 4C 44 41 20 23 24 38 30 00 D8 27 F7 08 22 20 4A |LDA #$80..'.." J|
00001FD0: 4D 50 20 44 4F 54 2B 32 00 F0 27 FC 08 22 52 45 |MP DOT+2..'.."RE|
00001FE0: 53 45 54 4C 49 4E 45 20 4C 44 41 20 23 24 34 30 |SETLINE LDA #$40|
00001FF0: 00 01 28 01 09 22 20 4A 4D 50 20 4C 49 4E 45 2B |..(.." JMP LINE+|
00002000: 32 00 1A 28 06 09 22 49 4E 56 45 52 54 4C 49 4E |2..(.."INVERTLIN|
00002010: 45 20 4C 44 41 20 23 24 38 30 00 2B 28 0B 09 22 |E LDA #$80.+(.."|
00002020: 20 4A 4D 50 20 4C 49 4E 45 2B 32 00 4D 28 10 09 | JMP LINE+2.M(..|
00002030: 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |" ;*************|
00002040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 55 28 |*************.U(|
00002050: 15 09 22 20 3B 00 63 28 1A 09 22 20 3B 20 26 45 |.." ;.c(.." ; &E|
00002060: 58 49 54 00 6B 28 1F 09 22 20 3B 00 8D 28 24 09 |XIT.k(.." ;..($.|
00002070: 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |" ;*************|
00002080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B1 28 |*************..(|
00002090: 25 0B EE EF E6 EE E2 D8 47 48 52 20 57 4E 7E 7E |%.......GHR WN~~|
000020A0: EE 79 8E 81 71 7E 79 EE 7E EE 78 EE 7E 71 7E 75 |.y..q~y.~.x.~q~u|
000020B0: 81 FE E7 8E 9E FE 98 EE 7E 7E 77 8E EE 7E 59 20 |........~~w..~Y |
000020C0: 23 24 41 37 00 D3 28 2E 09 22 20 4C 44 41 20 23 |#$A7..(.." LDA #|
000020D0: 24 45 34 00 E3 28 33 09 22 20 53 54 41 20 24 30 |$E4..(3." STA $0|
000020E0: 33 30 38 00 F3 28 38 09 22 20 53 54 59 20 24 30 |308..(8." STY $0|
000020F0: 33 30 39 00 FD 28 3D 09 22 20 53 45 43 00 0D 29 |309..(=." SEC..)|
00002100: 42 09 22 20 4A 53 52 20 24 46 46 39 39 00 1B 29 |B." JSR $FF99..)|
00002110: 47 09 22 20 53 54 58 20 24 33 37 00 29 29 4C 09 |G." STX $37.))L.|
00002120: 22 20 53 54 59 20 24 33 38 00 4A 29 51 09 22 20 |" STY $38.J)Q." |
00002130: 4A 4D 50 20 24 45 33 39 41 20 3B 53 59 53 54 45 |JMP $E39A ;SYSTE|
00002140: 4D 20 41 55 46 52 55 46 45 4E 00 6C 29 52 09 22 |M AUFRUFEN.l)R."|
00002150: 20 3B 20 54 45 58 54 2D 42 45 46 45 48 4C 45 2C | ; TEXT-BEFEHLE,|
00002160: 20 46 4C 41 47 20 53 45 54 5A 45 4E 00 82 29 56 | FLAG SETZEN..)V|
00002170: 09 22 49 4E 56 54 45 58 54 20 4C 44 41 20 23 24 |."INVTEXT LDA #$|
00002180: 38 30 00 90 29 5B 09 22 20 2E 42 59 20 24 32 43 |80..)[." .BY $2C|
00002190: 00 A6 29 60 09 22 52 45 53 54 45 58 54 20 4C 44 |..)`."RESTEXT LD|
000021A0: 41 20 23 24 34 30 00 B4 29 65 09 22 20 2E 42 59 |A #$40..)e." .BY|
000021B0: 20 24 32 43 00 C5 29 6A 09 22 54 45 58 54 20 4C | $2C..)j."TEXT L|
000021C0: 44 41 20 23 30 00 D4 29 6F 09 22 20 53 54 41 20 |DA #0..)o." STA |
000021D0: 46 4C 41 47 00 E6 29 74 09 22 20 4A 53 52 20 56 |FLAG..)t." JSR V|
000021E0: 41 4C 55 45 2B 33 00 F3 29 79 09 22 20 53 54 41 |ALUE+3..)y." STA|
000021F0: 20 58 31 00 02 2A 7E 09 22 20 53 54 59 20 58 31 | X1..*~." STY X1|
00002200: 2B 31 00 12 2A 83 09 22 20 4A 53 52 20 56 41 4C |+1..*.." JSR VAL|
00002210: 55 45 00 1F 2A 88 09 22 20 53 54 41 20 59 31 00 |UE..*.." STA Y1.|
00002220: 2E 2A 8D 09 22 20 53 54 59 20 59 31 2B 31 00 3F |.*.." STY Y1+1.?|
00002230: 2A 92 09 22 20 4A 53 52 20 53 54 52 49 4E 47 00 |*.." JSR STRING.|
00002240: 4E 2A 97 09 22 20 42 4E 45 20 54 58 54 31 00 58 |N*.." BNE TXT1.X|
00002250: 2A 9C 09 22 20 52 54 53 00 6C 2A A1 09 22 54 58 |*.." RTS.l*.."TX|
00002260: 54 31 20 53 54 41 20 4C 45 4E 47 48 00 7C 2A A6 |T1 STA LENGH.|*.|
00002270: 09 22 20 53 54 59 20 46 4C 41 47 33 00 90 2A AB |." STY FLAG3..*.|
00002280: 09 22 54 58 54 32 20 4C 44 59 20 46 4C 41 47 33 |."TXT2 LDY FLAG3|
00002290: 00 A2 2A B0 09 22 20 4C 44 41 20 28 24 36 34 29 |..*.." LDA ($64)|
000022A0: 2C 59 00 B1 2A B5 09 22 20 43 4D 50 20 23 24 32 |,Y..*.." CMP #$2|
000022B0: 30 00 C0 2A BA 09 22 20 42 43 43 20 54 58 54 33 |0..*.." BCC TXT3|
000022C0: 00 CF 2A BF 09 22 20 43 4D 50 20 23 24 34 30 00 |..*.." CMP #$40.|
000022D0: E0 2A C4 09 22 20 42 43 43 20 54 58 54 33 2B 32 |.*.." BCC TXT3+2|
000022E0: 00 EF 2A C9 09 22 20 43 4D 50 20 23 24 36 30 00 |..*.." CMP #$60.|
000022F0: FE 2A CE 09 22 20 42 43 53 20 54 58 54 33 00 0D |.*.." BCS TXT3..|
00002300: 2B D3 09 22 20 41 4E 44 20 23 24 31 46 00 1B 2B |+.." AND #$1F..+|
00002310: D8 09 22 20 2E 42 59 20 24 32 43 00 2E 2B DD 09 |.." .BY $2C..+..|
00002320: 22 54 58 54 33 20 4C 44 41 20 23 24 32 30 00 3A |"TXT3 LDA #$20.:|
00002330: 2B E2 09 22 20 53 54 41 20 32 00 49 2B E7 09 22 |+.." STA 2.I+.."|
00002340: 20 4C 44 41 20 23 24 31 41 00 55 2B EC 09 22 20 | LDA #$1A.U+.." |
00002350: 41 53 4C 20 32 00 5F 2B F1 09 22 20 52 4F 4C 00 |ASL 2._+.." ROL.|
00002360: 6B 2B F6 09 22 20 41 53 4C 20 32 00 75 2B FB 09 |k+.." ASL 2.u+..|
00002370: 22 20 52 4F 4C 00 81 2B 00 0A 22 20 41 53 4C 20 |" ROL..+.." ASL |
00002380: 32 00 8B 2B 05 0A 22 20 52 4F 4C 00 97 2B 0A 0A |2..+.." ROL..+..|
00002390: 22 20 53 54 41 20 33 00 A1 2B 0F 0A 22 20 53 45 |" STA 3..+.." SE|
000023A0: 49 00 B0 2B 14 0A 22 20 4C 44 41 20 23 24 33 31 |I..+.." LDA #$31|
000023B0: 00 BC 2B 19 0A 22 20 53 54 41 20 31 00 C9 2B 1E |..+.." STA 1..+.|
000023C0: 0A 22 20 4C 44 59 20 23 37 00 DD 2B 23 0A 22 54 |." LDY #7..+#."T|
000023D0: 58 54 34 20 4C 44 41 20 28 32 29 2C 59 00 EE 2B |XT4 LDA (2),Y..+|
000023E0: 28 0A 22 20 53 54 41 20 24 32 30 30 2C 59 00 F8 |(." STA $200,Y..|
000023F0: 2B 2D 0A 22 20 44 45 59 00 07 2C 32 0A 22 20 42 |+-." DEY..,2." B|
00002400: 50 4C 20 54 58 54 34 00 19 2C 37 0A 22 20 4C 44 |PL TXT4..,7." LD|
00002410: 41 20 23 45 4E 41 42 4C 45 00 25 2C 3C 0A 22 20 |A #ENABLE.%,<." |
00002420: 53 54 41 20 31 00 2F 2C 41 0A 22 20 43 4C 49 00 |STA 1./,A." CLI.|
00002430: 3C 2C 46 0A 22 20 4C 44 41 20 23 30 00 4C 2C 4B |<,F." LDA #0.L,K|
00002440: 0A 22 20 53 54 41 20 46 4C 41 47 31 00 5D 2C 50 |." STA FLAG1.],P|
00002450: 0A 22 54 58 54 35 20 4C 44 41 20 23 37 00 6D 2C |."TXT5 LDA #7.m,|
00002460: 55 0A 22 20 53 54 41 20 46 4C 41 47 32 00 81 2C |U." STA FLAG2..,|
00002470: 5A 0A 22 54 58 54 36 20 4C 44 58 20 46 4C 41 47 |Z."TXT6 LDX FLAG|
00002480: 32 00 92 2C 5F 0A 22 20 4C 44 41 20 24 32 30 30 |2..,_." LDA $200|
00002490: 2C 58 00 A2 2C 64 0A 22 20 4C 44 58 20 46 4C 41 |,X..,d." LDX FLA|
000024A0: 47 31 00 B3 2C 69 0A 22 20 41 4E 44 20 40 42 49 |G1..,i." AND @BI|
000024B0: 54 2C 58 00 C2 2C 6E 0A 22 20 42 45 51 20 54 58 |T,X..,n." BEQ TX|
000024C0: 54 38 00 CF 2C 73 0A 22 20 4C 44 41 20 58 31 00 |T8..,s." LDA X1.|
000024D0: DE 2C 78 0A 22 20 4C 44 59 20 58 31 2B 31 00 EF |.,x." LDY X1+1..|
000024E0: 2C 7D 0A 22 20 53 54 41 20 58 56 41 4C 55 45 00 |,}." STA XVALUE.|
000024F0: 02 2D 82 0A 22 20 53 54 59 20 58 56 41 4C 55 45 |.-.." STY XVALUE|
00002500: 2B 31 00 11 2D 87 0A 22 20 4C 44 59 20 59 31 2B |+1..-.." LDY Y1+|
00002510: 31 00 21 2D 8C 0A 22 20 4C 44 41 20 46 4C 41 47 |1.!-.." LDA FLAG|
00002520: 32 00 2B 2D 91 0A 22 20 43 4C 43 00 38 2D 96 0A |2.+-.." CLC.8-..|
00002530: 22 20 41 44 43 20 59 31 00 46 2D 9B 0A 22 20 53 |" ADC Y1.F-.." S|
00002540: 54 41 20 24 31 34 00 55 2D A0 0A 22 20 42 43 43 |TA $14.U-.." BCC|
00002550: 20 54 58 54 37 00 5F 2D A5 0A 22 20 49 4E 59 00 | TXT7._-.." INY.|
00002560: 75 2D AA 0A 22 54 58 54 37 20 4A 53 52 20 57 4F |u-.."TXT7 JSR WO|
00002570: 52 4B 44 4F 54 00 89 2D AF 0A 22 54 58 54 38 20 |RKDOT..-.."TXT8 |
00002580: 44 45 43 20 46 4C 41 47 32 00 98 2D B4 0A 22 20 |DEC FLAG2..-.." |
00002590: 42 50 4C 20 54 58 54 36 00 A5 2D B9 0A 22 20 49 |BPL TXT6..-.." I|
000025A0: 4E 43 20 58 31 00 B4 2D BE 0A 22 20 42 4E 45 20 |NC X1..-.." BNE |
000025B0: 54 58 54 39 00 C3 2D C3 0A 22 20 49 4E 43 20 58 |TXT9..-.." INC X|
000025C0: 31 2B 31 00 D7 2D C8 0A 22 54 58 54 39 20 49 4E |1+1..-.."TXT9 IN|
000025D0: 43 20 46 4C 41 47 31 00 E7 2D CD 0A 22 20 4C 44 |C FLAG1..-.." LD|
000025E0: 58 20 46 4C 41 47 31 00 F4 2D D2 0A 22 20 43 50 |X FLAG1..-.." CP|
000025F0: 58 20 23 38 00 03 2E D7 0A 22 20 42 4E 45 20 54 |X #8....." BNE T|
00002600: 58 54 35 00 13 2E DC 0A 22 20 49 4E 43 20 46 4C |XT5....." INC FL|
00002610: 41 47 33 00 23 2E E1 0A 22 20 4C 44 41 20 46 4C |AG3.#..." LDA FL|
00002620: 41 47 33 00 33 2E E6 0A 22 20 43 4D 50 20 4C 45 |AG3.3..." CMP LE|
00002630: 4E 47 48 00 43 2E EB 0A 22 20 42 4E 45 20 54 58 |NGH.C..." BNE TX|
00002640: 54 31 30 00 4D 2E F0 0A 22 20 52 54 53 00 61 2E |T10.M..." RTS.a.|
00002650: F5 0A 22 54 58 54 31 30 20 4A 4D 50 20 54 58 54 |.."TXT10 JMP TXT|
00002660: 32 00 77 2E FA 0A 22 53 54 52 49 4E 47 20 4A 53 |2.w..."STRING JS|
00002670: 52 20 24 41 45 46 44 00 87 2E FF 0A 22 20 4A 53 |R $AEFD....." JS|
00002680: 52 20 24 41 44 39 45 00 97 2E 04 0B 22 20 4A 53 |R $AD9E....." JS|
00002690: 52 20 24 42 36 41 33 00 A4 2E 09 0B 22 20 4C 44 |R $B6A3....." LD|
000026A0: 59 20 23 30 00 B6 2E 0E 0B 22 20 4C 44 41 20 28 |Y #0....." LDA (|
000026B0: 24 36 34 29 2C 59 00 C4 2E 13 0B 22 20 53 54 41 |$64),Y....." STA|
000026C0: 20 24 36 33 00 CE 2E 18 0B 22 20 49 4E 59 00 E0 | $63....." INY..|
000026D0: 2E 1D 0B 22 20 4C 44 41 20 28 24 36 34 29 2C 59 |..." LDA ($64),Y|
000026E0: 00 EA 2E 22 0B 22 20 54 41 58 00 F4 2E 27 0B 22 |..."." TAX...'."|
000026F0: 20 49 4E 59 00 06 2F 2C 0B 22 20 4C 44 41 20 28 | INY../,." LDA (|
00002700: 24 36 34 29 2C 59 00 14 2F 31 0B 22 20 53 54 41 |$64),Y../1." STA|
00002710: 20 24 36 35 00 22 2F 36 0B 22 20 53 54 58 20 24 | $65."/6." STX $|
00002720: 36 34 00 2F 2F 3B 0B 22 20 4C 44 59 20 23 30 00 |64.//;." LDY #0.|
00002730: 3D 2F 40 0B 22 20 4C 44 41 20 24 36 33 00 47 2F |=/@." LDA $63.G/|
00002740: 45 0B 22 20 52 54 53 00 5E 2F 4A 0B 22 53 43 41 |E." RTS.^/J."SCA|
00002750: 4E 4E 20 42 49 54 20 4C 49 4E 45 54 59 50 00 6D |NN BIT LINETYP.m|
00002760: 2F 4F 0B 22 20 42 4D 49 20 53 43 41 31 00 77 2F |/O." BMI SCA1.w/|
00002770: 54 0B 22 20 52 54 53 00 8A 2F 59 0B 22 53 43 41 |T." RTS../Y."SCA|
00002780: 31 20 4C 44 58 20 23 24 46 30 00 99 2F 5E 0B 22 |1 LDX #$F0../^."|
00002790: 20 53 54 58 20 46 4C 41 47 00 AB 2F 63 0B 22 20 | STX FLAG../c." |
000027A0: 4A 53 52 20 57 4F 52 4B 44 4F 54 00 B8 2F 68 0B |JSR WORKDOT../h.|
000027B0: 22 20 4C 44 41 20 59 31 00 C7 2F 6D 0B 22 20 4C |" LDA Y1../m." L|
000027C0: 44 59 20 59 31 2B 31 00 D5 2F 72 0B 22 20 53 54 |DY Y1+1../r." ST|
000027D0: 41 20 24 31 34 00 E4 2F 77 0B 22 20 42 49 54 20 |A $14../w." BIT |
000027E0: 46 4C 41 47 00 F3 2F 7C 0B 22 20 42 50 4C 20 53 |FLAG../|." BPL S|
000027F0: 43 41 32 00 FD 2F 81 0B 22 20 50 4C 41 00 07 30 |CA2../.." PLA..0|
00002800: 86 0B 22 20 50 4C 41 00 11 30 8B 0B 22 20 52 54 |.." PLA..0.." RT|
00002810: 53 00 22 30 90 0B 22 53 43 41 32 20 4C 44 58 20 |S."0.."SCA2 LDX |
00002820: 23 30 00 31 30 95 0B 22 20 53 54 58 20 46 4C 41 |#0.10.." STX FLA|
00002830: 47 00 3B 30 9A 0B 22 20 52 54 53 00 51 30 9F 0B |G.;0.." RTS.Q0..|
00002840: 22 53 43 41 4E 4E 4C 4E 20 4C 44 41 20 23 24 46 |"SCANNLN LDA #$F|
00002850: 46 00 62 30 A4 0B 22 20 4A 4D 50 20 4C 49 4E 45 |F.b0.." JMP LINE|
00002860: 2B 37 00 84 30 A9 0B 22 20 3B 2A 2A 2A 2A 2A 2A |+7..0.." ;******|
00002870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002880: 2A 2A 2A 2A 00 8C 30 AE 0B 22 20 3B 00 AC 30 B3 |****..0.." ;..0.|
00002890: 0B 22 20 3B 20 44 20 41 20 54 20 45 20 4E 20 42 |." ; D A T E N B|
000028A0: 20 45 20 52 20 45 20 49 20 43 20 48 00 B4 30 B8 | E R E I C H..0.|
000028B0: 0B 22 20 3B 00 D6 30 BD 0B 22 20 3B 2A 2A 2A 2A |." ;..0.." ;****|
000028C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000028D0: 2A 2A 2A 2A 2A 2A 00 F8 30 C2 0B 22 42 49 54 20 |******..0.."BIT |
000028E0: 2E 42 59 20 31 32 38 20 36 34 20 33 32 20 31 36 |.BY 128 64 32 16|
000028F0: 20 38 20 34 20 32 20 31 00 1B 31 C7 0B 22 54 41 | 8 4 2 1..1.."TA|
00002900: 42 4C 45 31 20 2E 42 59 20 31 33 20 38 20 27 41 |BLE1 .BY 13 8 'A|
00002910: 27 20 32 37 20 27 38 27 20 32 37 00 49 31 CC 0B |' 27 '8' 27.I1..|
00002920: 22 54 41 42 4C 45 32 20 2E 42 59 20 31 30 20 31 |"TABLE2 .BY 10 1|
00002930: 33 20 27 20 20 20 20 20 20 20 27 20 32 37 20 27 |3 ' ' 27 '|
00002940: 2A 27 20 31 20 58 4D 41 58 00 77 31 D1 0B 22 50 |*' 1 XMAX.w1.."P|
00002950: 52 4F 4D 50 54 20 2E 42 59 20 27 45 50 53 4F 4E |ROMPT .BY 'EPSON|
00002960: 2D 53 55 50 50 4F 52 54 20 20 56 31 2E 37 20 20 |-SUPPORT V1.7 |
00002970: 2A 2A 2A 27 20 31 33 00 A1 31 D6 0B 22 20 2E 42 |***' 13..1.." .B|
00002980: 59 20 27 28 43 29 31 39 38 34 20 42 59 20 41 4C |Y '(C)1984 BY AL|
00002990: 45 58 20 44 45 4C 20 50 49 4E 4F 27 20 31 33 20 |EX DEL PINO' 13 |
000029A0: 30 00 BB 31 DB 0B 22 53 54 4D 54 41 42 20 2E 42 |0..1.."STMTAB .B|
000029B0: 59 20 27 43 4C 45 41 52 27 20 30 00 CD 31 E0 0B |Y 'CLEAR' 0..1..|
000029C0: 22 20 2E 42 59 20 27 44 4F 54 27 20 30 00 E4 31 |" .BY 'DOT' 0..1|
000029D0: E5 0B 22 20 2E 42 59 20 27 52 45 53 45 54 44 4F |.." .BY 'RESETDO|
000029E0: 54 27 20 30 00 F9 31 EA 0B 22 20 2E 42 59 20 27 |T' 0..1.." .BY '|
000029F0: 49 4E 56 44 4F 54 27 20 30 00 0C 32 EF 0B 22 20 |INVDOT' 0..2.." |
00002A00: 2E 42 59 20 27 4C 49 4E 45 27 20 30 00 24 32 F4 |.BY 'LINE' 0.$2.|
00002A10: 0B 22 20 2E 42 59 20 27 52 45 53 45 54 4C 49 4E |." .BY 'RESETLIN|
00002A20: 45 27 20 30 00 3A 32 F9 0B 22 20 2E 42 59 20 27 |E' 0.:2.." .BY '|
00002A30: 49 4E 56 4C 49 4E 45 27 20 30 00 4A 32 FE 0B 22 |INVLINE' 0.J2.."|
00002A40: 20 2E 42 59 20 31 35 33 20 30 00 5D 32 03 0C 22 | .BY 153 0.]2.."|
00002A50: 20 2E 42 59 20 27 45 58 49 54 27 20 30 00 70 32 | .BY 'EXIT' 0.p2|
00002A60: 08 0C 22 20 2E 42 59 20 27 54 45 58 54 27 20 30 |.." .BY 'TEXT' 0|
00002A70: 00 86 32 0D 0C 22 20 2E 42 59 20 27 49 4E 56 54 |..2.." .BY 'INVT|
00002A80: 45 58 54 27 20 30 00 9E 32 12 0C 22 20 2E 42 59 |EXT' 0..2.." .BY|
00002A90: 20 27 52 45 53 45 54 54 45 58 54 27 20 30 00 B7 | 'RESETTEXT' 0..|
00002AA0: 32 17 0C 22 20 2E 42 59 20 27 53 43 41 4E 4C 49 |2.." .BY 'SCANLI|
00002AB0: 4E 45 27 20 30 20 30 00 EB 32 1C 0C 22 45 4E 54 |NE' 0 0..2.."ENT|
00002AC0: 52 59 20 2E 42 59 20 43 4C 45 41 52 2D 31 20 44 |RY .BY CLEAR-1 D|
00002AD0: 4F 54 2D 31 20 52 45 53 45 54 44 4F 54 2D 31 20 |OT-1 RESETDOT-1 |
00002AE0: 49 4E 56 45 52 54 44 4F 54 2D 31 00 27 33 21 0C |INVERTDOT-1.'3!.|
00002AF0: 22 20 2E 42 59 20 4C 49 4E 45 2D 31 20 52 45 53 |" .BY LINE-1 RES|
00002B00: 45 54 4C 49 4E 45 2D 31 20 49 4E 56 45 52 54 4C |ETLINE-1 INVERTL|
00002B10: 49 4E 45 2D 31 20 48 41 52 44 43 4F 50 59 2D 31 |INE-1 HARDCOPY-1|
00002B20: 20 45 58 49 54 2D 31 00 56 33 26 0C 22 20 2E 42 | EXIT-1.V3&." .B|
00002B30: 59 20 54 45 58 54 2D 31 20 49 4E 56 54 45 58 54 |Y TEXT-1 INVTEXT|
00002B40: 2D 31 20 52 45 53 54 45 58 54 2D 31 20 53 43 41 |-1 RESTEXT-1 SCA|
00002B50: 4E 4E 4C 4E 2D 31 00 74 33 2B 0C 22 20 2E 45 4E |NNLN-1.t3+." .EN|
00002B60: 20 3B 45 4E 44 20 4F 46 20 53 4F 55 52 43 45 2D | ;END OF SOURCE-|
00002B70: 46 49 4C 45 00 00 00 B9 00 |FILE..... |
....D." .BA $C000 ;PC SETZEN.G.I." ;****
*******************************.I.N." ;
E P S O N - S U P P O R T.Q.S." ;...X."
;VERSION 1.7 (C)1984 BY A.DEL PINO...}."
;.M..." ;******************************
*****.U..." ;....." ;VARIABLEN & SYSTEMA
DRESSEN....." ;....."HELP = $033C.#..."Y
VALUE = $14.7..."XVALUE = $033C.G..."X1
= $0350.V..."Y1 = X1+2.E. ."X2 = X1+4.T.
.."Y2 = X1+6....."XSTEP = X1+8....."YSTE
P = X1+10....."XDIFF = X1+12....."YDIFF
= X1+14.P..."SUM = X1+16...C."XMAX = 800
...H."YMAX = 552...M."DISABLE = $34 ;ROM
AUSBLENDEN.4.R."ENABLE = 55 ;ROM EINBLE
NDEN.F.W."FLAG = X1+18.Z..."BITPOS = X1+
19.M..."FLAG1 = X1+23....."FLAG2 = X1+24
....."FLAG3 = X1+25....."LENGH = X1+26..
..."LINETYP = X1+27.C..." ;....." ;PROGR
AMMSTART, ZEIGER VERBIEGEN....." ;....."
LDA #<ESUP....." LDY #>ESUP.$..." STA $
0308.4..." STY $0309.E..." LDA #<8190.V.
.." LDY #>8190.D..." STA $33.R..." STY $
34..."." STA $37...'." STY $38...(." ;..
.)." ;PROMPT AUSGEBEN...*." ;.H.,." LDA
#<PROMPT...1." LDY #>PROMPT...6." JMP $A
B1E...7." ;...8." ;BASIC-TOKEN ERKENNEN.
..9." ;.).;."ESUP JSR $73.8.@." CMP #'&'
.J.E." BEQ SUPPORT.X.J." JSR $79.H.O." J
MP $A7E7.~.T."SUPPORT LDX #$FF...Y." LDY
#0...^." STY FLAG...C."SLOOP INX...H."
INY.G.M." LDA @STMTAB,X.Y.R." BEQ NEWSTM
T...W." CMP ($7A),Y...|." BEQ SLOOP.....
"NXT INX....." LDA @STMTAB,X.*..." BNE N
XT.9..." INC FLAG.F..." LDY #0.\..." LDA
@STMTAB+1,X.L..." BNE SLOOP.|..." JMP $
AF08....."NEWSTMT DEY....." CLC....." TY
A....." ADC $7A....." STA $7A.J.B." BCC
L1.X.G." INC $7B...H." ;...I." ;RETURN-A
DRESSE AUF DEN STACK...J." ;...L."L1 LDA
#$A7.'.Q." PHA.6.V." LDA #$E9.@..." PHA
.O..." LDA FLAG.Y..." ASL.C..." TAX.X...
" LDA @ENTRY+1,X....." ;....." ;ADRESSE
DES NEUEN BEFEHLS AUF DEN STACK....." PH
A.L..." LDA @ENTRY,X.V..." PHA....." JMP
$73....." ;....." ;HIER SIND DIE NEUEN
BEFEHLE........" ;.<..." ;**************
************.D..." ;.S..." ; &CLEAR.[...
" ;.}..." ;**************************...
!."CLEAR LDA #<8192...&." LDY #>8192...+
." STA $FB...0." STY $FC.J.5." SEI...:."
LDA #DISABLE...?." STA 1...D." LDY #0..
.I." TYA...N."CL1 STA ($FB),Y...S." INY.
-.X." BNE CL1.;.]." INC $FC.I.B." LDX $F
C.X.G." CPX #$C0.F.L." BNE CL1.U.Q." LDX
#$C8...V." STX $FC...{."CL2 STA ($FB),Y
....." INY....." BNE CL2....." INC $FC.L
..." BNE CL2....." LDA #ENABLE....." STA
1....." CLI....." RTS. ..." ;**********
****************.(..." ;.>..." ; DOT - B
EFEHLE.F..." ;.H..." ;******************
********.X.A."DOT LDA #0...F." STA FLAG.
..K." JSR VALUE+3...P." STA XVALUE...U."
STY XVALUE+1.M.Z." JSR VALUE....."WORKD
OT CPY #>YMAX....." BCC SE1....." CMP #<
YMAX....." BCC SE1....." RTS.$..." ;.I..
." ;ADRESSE DES PUNKTES BERECHNEN.Q..."
;.F..."SE1 STA @HELP+2.X..." STY @HELP+3
....." LDY #3....."SE2 CLC....." LSR @HE
LP+3....." ROR @HELP+2....." DEY.N..." B
NE SE2.X. ." CLC...%." LDA @HELP+2...*."
ADC #>8192.../." STA $FC...4." LDA @HEL
P+2.).9." STA $FB.3.>." ASL.A.C." ADC $F
C.O.H." STA $FC.\.M." LDA #0.J.R." ASL $
FB.T.W." ROL...\." ASL $FB...A." ROL...F
." ASL $FB...K." ROL...P." ASL $FB...U."
ROL.J.Z." ASL $FB.T.." ROL....." ADC $
FC....." STA $FC....."SE4 LDA $14....."
AND #7....." TAX.)..." LDA @BIT,X.:..."
STA BITPOS.K..." LDA XVALUE.^..." LDY XV
ALUE+1.O..." CPY #>XMAX.}..." BCC SE5...
.." CMP #<XMAX....." BCC SE5...E." RTS..
.J."SE5 ADC $FB.E.O." STA $FB.O.T." TYA.
..Y." ADC $FC....." CMP #$C0....." BCC S
E6....." ADC #7....."SE6 STA $FC."..." S
EI.*..." ;.@..." ;ROM AUSBLENDEN.H..." ;
.[..." LDA #DISABLE.G..." STA 1.T..." LD
Y #0....." BIT FLAG....." BPL DOT0X.....
" BVC INVERT....." ;.J..." ;PUNKT TESTEN
'BITTEST'.R..." ;....." LDA BITPOS.....
" LDX #0....." AND ($FB),Y...$." BEQ TS1
...)." DEX.,..."TS1 STX FLAG.=.3." JMP E
NDDOT.E.4." ;.^.5." ;PUNKT INVERTIEREN.F
.6." ;.}.8."INVERT LDA BITPOS...=." EOR
($FB),Y...B." STA ($FB),Y...G." JMP ENDD
OT.E.L."DOT0X BVC SET.M.M." ;...N." ;PUN
KT ZURUECKSETZEN...O." ;...Q." LDA BITPO
S...V." EOR #$FF.".[." AND ($FB),Y.4.`."
STA ($FB),Y.E.E." JMP ENDDOT.M.F." ;.A.
G." ;PUNKT SETZEN.I.H." ;.}.J."SET LDA B
ITPOS...O." ORA ($FB),Y...T." STA ($FB),
Y...Y."ENDDOT LDA #ENABLE.E.~." STA 1.O.
.." CLI.Y..." RTS....." ;***************
***********....." ;....." ; &PRINT....."
;.<..." ;**************************.F..
." ;USERPORT-INTERFACE DURCH GEEIGNTES..
..." ;SETZEN DER PORTBAUSTEIN-REGISTER.H
..." ;INITIALISIEREN. BEI DRUCKERN AM SE
RIELLEN BUS MUSS....." ;HIER EIN FILE AU
F DEN DRUCKER EROEFFNET WERDEN......"HAR
DCOPY SEI. ..." LDA #$FF.0..." STA $DD03
.@..." LDA $DD02.M..." ORA #4.]..." STA
$DD02.M.D." LDA $DD00.Z.I." ORA #4...N."
STA $DD00...S." LDA #$10...X." STA $DD0
D....." LDA $DD0D.C..." CLI....." ;STEUE
RCODES FUER EPSON RX-80 AUSGEBEN....." L
DX #5....."HC0 LDA @TABLE1,X.%..." JSR C
WROUT./..." DEX.=..." BPL HC0.N..." LDA
#<8192._..." LDY #>8192.M..." STA $FB.{.
.." STY $FC....." LDA #0....." STA $FD.H
..." ;STEUERCODES FUER NEUE GRAFIKZEILE
AUSGEBEN.X..."HC1 LDX #0...#." LDA @TABL
E2,X...(." JSR CWROUT...-." INX...2." CP
X #14.%.7." BNE HC1+2.S.8." ;EINE GRAFIK
ZEILE (8*800 DOTS) AUSGEBEN.`.<." LDX #0
.S.A."HC2 JSR WROUT.}.F." INX...K." BNE
HC2...P."HC3 JSR WROUT...U." INX...Z." B
NE HC3.I._."HC4 JSR WROUT.S.D." INX...I.
" BNE HC4...N."HC5 JSR WROUT...S." INX..
.X." CPX #<XMAX...}." BNE HC5.+..." INC
$FD.9..." LDA $FD.G..." CMP #69.U..." BN
E HC1._..." RTS.U..." ;ROM AUSBLENDEN...
.."WROUT SEI... ." LDA #DISABLE....." ST
A 1.V..." ;ADRESSE DES AUSZUGEBENDEN PUN
KTES BERECHNEN....." CLC....." LDA $FB..
..." ADC #<$800....." STA $FE....." LDA
$FC.,.C." ADC #>$800.:.H." STA $FF.G.M."
LDY #0.U.R." LDA $FC.D.W." CMP #$C0.R..
." BCS WR1....." LDA ($FB),Y....." .BY $
2C....."WR1 LDA ($FE),Y....." INC $FB.C.
.." BNE WR2.Q..." INC $FC....." ;ROM WIE
DER EINBLENDEN....."WR2 LDY #ENABLE.....
" STY 1....." CLI.?..." ;GEBE ASCII-ZEIC
HEN IM ACCU AUS.O..." ;BEI DRUCKERN MIT
SERIELLER SCHNITTSTELLE....." ;MUSS HIER
'JMP $FFD2' STEHEN....." ;UND DANACH AU
CH EIN 'RTS'.J..."CWROUT STA $DD01.Z..."
LDA $DD00....." AND #$FB....." STA $DD0
0..."." ORA #4...'." STA $DD00.*.,."WAIT
LDA $DD0D.9.1." AND #$10.H.6." BEQ WAIT
.R.;." CLC.\.@." RTS.~.E." ;************
**************...J." ;...O." ; LINE-BEFE
HLE...T." ;.E.Y." ;*********************
*****.V.^."LINE LDA #0...C." STA FLAG...
H." LDA #0.. M." STA LINETYP.. R." JSR V
ALUE+3.# W." STA X1.2 |." STY X1+1.B .."
JSR VALUE.O .." STA Y1.^ .." STY Y1+1.N
.." JSR VALUE.{ .." STA X2.. .." STY X2
+1.. .." JSR VALUE.. .." STA Y2.. .." ST
Y Y2+1.C .." LDX #1.P .." LDY #0.Z .." S
EC.. .." LDA X2.. B." SBC X1..!G." STA X
DIFF..!L." LDA X2+1."!Q." SBC X1+1.4!V."
STA XDIFF+1.B!.." BPL LI1.L!.." DEX.V!.
." DEX.`!.." DEY.O!.." EOR #$FF..!.." ST
A XDIFF+1..!.." LDA XDIFF. !.." EOR #$FF
..!.." STA XDIFF..!.." INC XDIFF.N!.." B
NE LI1..!.." INC XDIFF+1..!.."LI1 STX XS
TEP..".." STY XSTEP+1.."!." LDX #1.."&."
LDY #0.)"+." SEC.6"0." LDA Y2.C"5." SBC
Y1.S":." STA YDIFF.B"?." LDA Y2+1.Q"D."
SBC Y1+1.."I." STA YDIFF+1.."N." BPL LI
2.."S." DEX.."X." DEX.."]." DEY.."B." EO
R #$FF.P"G." STA YDIFF+1.."L." LDA YDIFF
.."Q." EOR #$FF.."V." STA YDIFF..#{." IN
C YDIFF..#.." BNE LI2./#.." INC YDIFF+1.
B#.."LI2 STX YSTEP.T#.." STY YSTEP+1.A#.
." LDY #0.Q#.." LDA XDIFF..#.." ORA XDIF
F+1..#.." BNE LI3..#.." DEY..#.."LI3 STY
SUM..#.." STY SUM+1.L#.."LI4 LDA X1..#.
." LDY X1+1..#A." STA XVALUE..#F." STY X
VALUE+1..$K." LDA Y1..$P." LDY Y1+1.,$U.
" STA YVALUE.?$Z." STY YVALUE+1.O$.." JS
R SCANN.A$.." JSR WORKDOT.N$.." LDA X1.{
$.." CMP X2..$.." BNE LI5..$.." LDA X1+1
..$.." CMP X2+1..$.." BNE LI5.B$.." LDA
Y1.O$.." CMP Y2..$.." BNE LI5..$.." LDA
Y1+1..$.." CMP Y2+1..% ." BNE LI5..%%."
RTS.&%*."LI5 BIT SUM+1.4%/." BPL LI6.>%4
." CLC.K%9." LDA Y1.[%>." ADC YSTEP.H%C.
" STA Y1.W%H." LDA Y1+1..%M." ADC YSTEP+
1..%R." STA Y1+1..%W." CLC..%\." LDA SUM
..%A." ADC XDIFF.N%F." STA SUM..%K." LDA
SUM+1..%P." ADC XDIFF+1..&U." STA SUM+1
..&Z." JMP LI4..&."LI6 CLC.(&.." LDA X1
.8&.." ADC XSTEP.E&.." STA X1.T&.." LDA
X1+1.F&.." ADC XSTEP+1.U&.." STA X1+1.&
.." SEC..&.." LDA SUM..&.." SBC YDIFF..&
.." STA SUM..&.." LDA SUM+1.M&.." SBC YD
IFF+1..&.." STA SUM+1..&E." JMP LI4..'J.
"VALUE JSR $AEFD..'O." JSR $AD8A. 'T." J
SR $B7F7..'Y." LDA $14.<'.." LDY $15.F'.
." RTS..'.." ;FLAG SETZEN FUER MODIFIZIE
RTEN PUNKT- UND LINIEN-FUNKTIONEN. '.."R
ESETDOT LDA #$40..'.." JMP DOT+2.H'.."IN
VERTDOT LDA #$80.X'.." JMP DOT+2..'.."RE
SETLINE LDA #$40..(.." JMP LINE+2..(.."I
NVERTLINE LDA #$80.+(.." JMP LINE+2.M(..
" ;**************************.U(.." ;.C(
.." ; &EXIT.K(.." ;..($." ;*************
*************..(%......XGHR WN~~.Y..Q~Y.
~.X.~Q~U........~~W..~Y #$A7.S(.." LDA #
$E4..(3." STA $0308..(8." STY $0309..(=.
" SEC..)B." JSR $FF99..)G." STX $37.))L.
" STY $38.J)Q." JMP $E39A ;SYSTEM AUFRUF
EN.L)R." ; TEXT-BEFEHLE, FLAG SETZEN..)V
."INVTEXT LDA #$80..)[." .BY $2C..)`."RE
STEXT LDA #$40..)E." .BY $2C.E)J."TEXT L
DA #0.T)O." STA FLAG..)T." JSR VALUE+3..
)Y." STA X1..*~." STY X1+1..*.." JSR VAL
UE..*.." STA Y1..*.." STY Y1+1.?*.." JSR
STRING.N*.." BNE TXT1.X*.." RTS.L*.."TX
T1 STA LENGH.|*.." STY FLAG3..*.."TXT2 L
DY FLAG3..*.." LDA ($64),Y..*.." CMP #$2
0..*.." BCC TXT3.O*.." CMP #$40..*D." BC
C TXT3+2..*I." CMP #$60..*N." BCS TXT3..
+S." AND #$1F..+X." .BY $2C..+.."TXT3 LD
A #$20.:+.." STA 2.I+.." LDA #$1A.U+.."
ASL 2._+.." ROL.K+.." ASL 2.U+.." ROL..+
.." ASL 2..+.." ROL..+.." STA 3..+.." SE
I..+.." LDA #$31..+.." STA 1.I+.." LDY #
7..+#."TXT4 LDA (2),Y..+(." STA $200,Y..
+-." DEY..,2." BPL TXT4..,7." LDA #ENABL
E.%,<." STA 1./,A." CLI.<,F." LDA #0.L,K
." STA FLAG1.],P."TXT5 LDA #7.M,U." STA
FLAG2..,Z."TXT6 LDX FLAG2..,_." LDA $200
,X..,D." LDX FLAG1..,I." AND @BIT,X.B,N.
" BEQ TXT8.O,S." LDA X1..,X." LDY X1+1..
,}." STA XVALUE..-.." STY XVALUE+1..-.."
LDY Y1+1.!-.." LDA FLAG2.+-.." CLC.8-..
" ADC Y1.F-.." STA $14.U- ." BCC TXT7._-
.." INY.U-.."TXT7 JSR WORKDOT..-.."TXT8
DEC FLAG2..-.." BPL TXT6..-.." INC X1..-
.." BNE TXT9.C-C." INC X1+1.W-H."TXT9 IN
C FLAG1..-M." LDX FLAG1..-R." CPX #8...W
." BNE TXT5....." INC FLAG3.#..." LDA FL
AG3.3..." CMP LENGH.C..." BNE TXT10.M...
" RTS.A..."TXT10 JMP TXT2.W..."STRING JS
R $AEFD....." JSR $AD9E....." JSR $B6A3.
...." LDY #0....." LDA ($64),Y.D..." STA
$63.N..." INY....." LDA ($64),Y..."." T
AX...'." INY../,." LDA ($64),Y../1." STA
$65."/6." STX $64.//;." LDY #0.=/@." LD
A $63.G/E." RTS.^/J."SCANN BIT LINETYP.M
/O." BMI SCA1.W/T." RTS../Y."SCA1 LDX #$
F0../^." STX FLAG../C." JSR WORKDOT../H.
" LDA Y1.G/M." LDY Y1+1.U/R." STA $14../
W." BIT FLAG../|." BPL SCA2../.." PLA..0
.." PLA..0.." RTS."0.."SCA2 LDX #0.10.."
STX FLAG.;0.." RTS.Q0.."SCANNLN LDA #$F
F.B0.." JMP LINE+7..0.." ;**************
************..0.." ;..0.." ; D A T E N B
E R E I C H..0.." ;.V0.." ;************
**************..0B."BIT .BY 128 64 32 16
8 4 2 1..1G."TABLE1 .BY 13 8 'A' 27 '8'
27.I1L."TABLE2 .BY 10 13 ' ' 27 '
*' 1 XMAX.W1Q."PROMPT .BY 'EPSON-SUPPORT
V1.7 ***' 13..1V." .BY '(C)1984 BY AL
EX DEL PINO' 13 0..1.."STMTAB .BY 'CLEAR
' 0.M1.." .BY 'DOT' 0..1.." .BY 'RESETDO
T' 0..1.." .BY 'INVDOT' 0..2.." .BY 'LIN
E' 0.$2.." .BY 'RESETLINE' 0.:2.." .BY '
INVLINE' 0.J2.." .BY 153 0.]2.." .BY 'EX
IT' 0.P2.." .BY 'TEXT' 0..2.." .BY 'INVT
EXT' 0..2.." .BY 'RESETTEXT' 0..2.." .BY
'SCANLINE' 0 0..2.."ENTRY .BY CLEAR-1 D
OT-1 RESETDOT-1 INVERTDOT-1.'3!." .BY LI
NE-1 RESETLINE-1 INVERTLINE-1 HARDCOPY-1
EXIT-1.V3&." .BY TEXT-1 INVTEXT-1 RESTE
XT-1 SCANNLN-1.T3+." .EN ;END OF SOURCE-
FILE.....
> CLICK IMAGE PREVIEW FOR FULL MODAL