LINE.SRC
FILE INFORMATION
FILENAME(S): LINE.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 2 disk(s)
FILE HASH
84af8061012857899558e74e33a7d469a5ec17548ca2afc3e336b0e125f32236
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10907 SEITE A | LINE.SRC | PRG | C64er, DuncanTwain | 30 | 13 | DOWNLOAD FILE |
| 10907 SEITE A | LINE.SRC | PRG | earthshaker | 30 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 50 00 9F 31 2C 38 2C 32 2C 22 4C 49 |....P..1,8,2,"LI| 00000010: 4E 45 2E 4F 42 4A 2C 50 2C 57 22 00 37 08 55 00 |NE.OBJ,P,W".7.U.| 00000020: 9E 39 AC 34 30 39 36 3A 2E 4F 50 54 20 4F 31 3A |.9.4096:.OPT O1:| 00000030: AC B2 24 43 30 30 30 00 56 08 56 00 2E C6 20 22 |..$C000.V.V... "| 00000040: 55 53 49 4E 47 20 50 4C 4F 54 2C 33 3A 50 52 4F |USING PLOT,3:PRO| 00000050: 47 52 41 4D 3A 22 00 77 08 5A 00 43 4B 43 4F 4D |GRAM:".w.Z.CKCOM| 00000060: 20 B2 20 24 41 45 46 44 3A 46 52 4D 4E 55 4D 20 | . $AEFD:FRMNUM | 00000070: B2 20 24 41 44 38 41 00 C1 08 64 00 4A 53 52 20 |. $AD8A...d.JSR | 00000080: 46 52 4D 4E 55 4D 3A 4A 53 52 20 24 42 43 39 42 |FRMNUM:JSR $BC9B| 00000090: 3A 4C 44 41 20 24 36 35 3A 53 54 41 20 58 4C 30 |:LDA $65:STA XL0| 000000A0: 3A 4C 44 41 20 24 36 34 3A 53 54 41 20 58 48 30 |:LDA $64:STA XH0| 000000B0: 3A 4A 53 52 20 24 45 32 30 30 3A 53 54 58 20 59 |:JSR $E200:STX Y| 000000C0: 30 00 04 09 6E 00 4A 53 52 20 43 4B 43 4F 4D 3A |0...n.JSR CKCOM:| 000000D0: 4A 53 52 20 46 52 4D 4E 55 4D 3A 4A 53 52 20 24 |JSR FRMNUM:JSR $| 000000E0: 42 43 39 42 3A 4C 44 41 20 24 36 35 3A 53 54 41 |BC9B:LDA $65:STA| 000000F0: 20 58 4C 31 3A 4C 44 41 20 24 36 34 3A 53 54 41 | XL1:LDA $64:STA| 00000100: 20 58 48 31 00 2D 09 72 00 4A 53 52 20 24 45 32 | XH1.-.r.JSR $E2| 00000110: 30 30 3A 53 54 58 20 59 31 3A 4A 53 52 20 24 45 |00:STX Y1:JSR $E| 00000120: 32 30 30 3A 53 54 58 20 4D 4F 44 55 53 00 4A 09 |200:STX MODUS.J.| 00000130: 8C 00 4C 44 41 20 58 4C 31 3A 43 4D 50 20 58 4C |..LDA XL1:CMP XL| 00000140: 30 3A 42 4E 45 20 4C 32 30 30 00 67 09 8E 00 4C |0:BNE L200.g...L| 00000150: 44 41 20 58 48 31 3A 43 4D 50 20 58 48 30 3A 42 |DA XH1:CMP XH0:B| 00000160: 4E 45 20 4C 32 30 30 00 82 09 90 00 4C 44 41 20 |NE L200.....LDA | 00000170: 59 31 3A 43 4D 50 20 59 30 3A 42 4E 45 20 4C 32 |Y1:CMP Y0:BNE L2| 00000180: 30 30 00 96 09 96 00 3B 20 58 31 AD 59 31 20 B2 |00.....; X1.Y1 .| 00000190: 20 58 30 AD 59 30 00 C9 09 A0 00 4C 44 41 20 4D | X0.Y0.....LDA M| 000001A0: 4F 44 55 53 3A 50 48 41 3A 4C 44 41 20 58 4C 30 |ODUS:PHA:LDA XL0| 000001B0: 3A 4C 44 58 20 58 48 30 3A 4C 44 59 20 59 30 3A |:LDX XH0:LDY Y0:| 000001C0: 4A 4D 50 20 50 4C 4F 54 32 00 DD 09 BE 00 3B 20 |JMP PLOT2.....; | 000001D0: AC AC AC 20 4C 49 4E 49 45 20 AC AC AC 00 20 0A |... LINIE .... .| 000001E0: C8 00 4C 32 30 30 20 4C 44 41 20 23 30 3A 53 54 |..L200 LDA #0:ST| 000001F0: 41 20 44 59 48 3A 4C 44 41 20 59 31 3A 53 45 43 |A DYH:LDA Y1:SEC| 00000200: 3A 53 42 43 20 59 30 3A 53 54 41 20 44 59 4C 3A |:SBC Y0:STA DYL:| 00000210: 53 54 41 20 B6 44 59 3A 42 43 53 20 4C 32 31 30 |STA .DY:BCS L210| 00000220: 00 5F 0A CC 00 45 B0 20 23 32 35 35 3A 53 54 41 |._...E. #255:STA| 00000230: 20 B6 44 59 3A 49 4E 43 20 B6 44 59 3A 4C 44 41 | .DY:INC .DY:LDA| 00000240: 20 23 32 35 35 3A 53 54 41 20 44 59 48 3B 20 5A | #255:STA DYH; Z| 00000250: 57 45 49 45 52 4B 4F 4D 50 4C 45 4D 45 4E 54 00 |WEIERKOMPLEMENT.| 00000260: 8D 0A D2 00 4C 32 31 30 20 4C 44 41 20 58 4C 31 |....L210 LDA XL1| 00000270: 3A 53 45 43 3A 53 42 43 20 58 4C 30 3A 53 54 41 |:SEC:SBC XL0:STA| 00000280: 20 44 58 4C 3A 53 54 41 20 B6 44 58 4C 00 BB 0A | DXL:STA .DXL...| 00000290: D3 00 4C 44 41 20 58 48 31 3A 53 42 43 20 58 48 |..LDA XH1:SBC XH| 000002A0: 30 3A 53 54 41 20 44 58 48 3A 53 54 41 20 B6 44 |0:STA DXH:STA .D| 000002B0: 58 48 3A 42 43 53 20 4C 32 32 30 00 E3 0A D4 00 |XH:BCS L220.....| 000002C0: 4C 44 41 20 44 58 4C 3A 45 B0 20 23 32 35 35 3A |LDA DXL:E. #255:| 000002D0: 43 4C 43 3A 41 44 43 20 23 31 3A 53 54 41 20 B6 |CLC:ADC #1:STA .| 000002E0: 44 58 4C 00 07 0B D6 00 4C 44 41 20 44 58 48 3A |DXL.....LDA DXH:| 000002F0: 45 B0 20 23 32 35 35 3A 41 44 43 20 23 30 3A 53 |E. #255:ADC #0:S| 00000300: 54 41 20 B6 44 58 48 00 23 0B DA 00 3B 20 AC AC |TA .DXH.#...; ..| 00000310: AC 20 4D 41 58 20 28 B6 44 58 2C B6 44 59 29 20 |. MAX (.DX,.DY) | 00000320: AC AC AC 00 4C 0B DC 00 4C 32 32 30 20 4C 44 41 |....L...L220 LDA| 00000330: 20 23 24 38 30 3A 53 54 41 20 4D 49 44 3A 4C 44 | #$80:STA MID:LD| 00000340: 41 20 23 30 3A 53 54 41 20 4C 4F 57 00 86 0B DE |A #0:STA LOW....| 00000350: 00 4C 44 41 20 B6 44 58 48 3A 42 4E 45 20 58 47 |.LDA .DXH:BNE XG| 00000360: 52 4F 45 53 53 45 52 3A 4C 44 41 20 B6 44 58 4C |ROESSER:LDA .DXL| 00000370: 3A 43 4D 50 20 B6 44 59 3A 42 43 53 20 58 47 52 |:CMP .DY:BCS XGR| 00000380: 4F 45 53 53 45 52 00 98 0B E0 00 4A 4D 50 20 59 |OESSER.....JMP Y| 00000390: 47 52 4F 45 53 53 45 52 00 AE 0B E6 00 3B 20 AC |GROESSER.....; .| 000003A0: AC AC 20 44 58 20 B1 20 44 59 20 AC AC AC 00 F4 |.. DX . DY .....| 000003B0: 0B E8 00 58 47 52 4F 45 53 53 45 52 20 4C 44 41 |...XGROESSER LDA| 000003C0: 20 44 59 48 3A 4C 44 59 20 44 59 4C 3A 4A 53 52 | DYH:LDY DYL:JSR| 000003D0: 20 24 42 33 39 35 3A 4C 44 58 20 41 42 4C AA 31 | $B395:LDX ABL.1| 000003E0: 3A 4C 44 59 20 41 42 4C AA 32 3A 4A 53 52 20 24 |:LDY ABL.2:JSR $| 000003F0: 42 42 44 34 00 12 0C EA 00 4C 44 41 20 44 58 48 |BBD4.....LDA DXH| 00000400: 3A 4C 44 59 20 44 58 4C 3A 4A 53 52 20 24 42 33 |:LDY DXL:JSR $B3| 00000410: 39 35 00 34 0C EB 00 4C 44 41 20 41 42 4C AA 31 |95.4...LDA ABL.1| 00000420: 3A 4C 44 59 20 41 42 4C AA 32 3A 4A 53 52 20 24 |:LDY ABL.2:JSR $| 00000430: 42 42 30 46 00 5E 0C EC 00 4C 44 41 20 24 36 31 |BB0F.^...LDA $61| 00000440: 3A 43 4C 43 3A 41 44 43 20 23 31 36 3A 53 54 41 |:CLC:ADC #16:STA| 00000450: 20 24 36 31 3A 4A 53 52 20 24 42 43 39 42 00 80 | $61:JSR $BC9B..| 00000460: 0C F0 00 4C 44 41 20 44 58 48 3A 42 50 4C 20 4C |...LDA DXH:BPL L| 00000470: 49 4E 58 3A 4A 53 52 20 54 41 55 53 43 48 45 4E |INX:JSR TAUSCHEN| 00000480: 00 9B 0C FA 00 3B 20 AC AC AC 20 4C 49 4E 49 45 |.....; ... LINIE| 00000490: 20 5A 49 45 48 45 4E 20 AC AC AC 00 D0 0C FC 00 | ZIEHEN ........| 000004A0: 4C 49 4E 58 20 4C 44 41 20 58 4C 30 3A 53 54 41 |LINX LDA XL0:STA| 000004B0: 20 58 4C 3A 4C 44 41 20 58 48 30 3A 53 54 41 20 | XL:LDA XH0:STA | 000004C0: 58 48 3A 4C 44 41 20 59 30 3A 53 54 41 20 59 42 |XH:LDA Y0:STA YB| 000004D0: 00 F9 0C FE 00 4C 32 35 34 20 4A 53 52 20 50 4C |.....L254 JSR PL| 000004E0: 4F 54 3A 49 4E 43 20 58 4C 3A 42 4E 45 20 4C 32 |OT:INC XL:BNE L2| 000004F0: 35 36 3A 49 4E 43 20 58 48 00 36 0D 00 01 4C 32 |56:INC XH.6...L2| 00000500: 35 36 20 4C 44 41 20 4C 4F 57 3A 43 4C 43 3A 41 |56 LDA LOW:CLC:A| 00000510: 44 43 20 24 36 35 3A 53 54 41 20 4C 4F 57 3A 4C |DC $65:STA LOW:L| 00000520: 44 41 20 4D 49 44 3A 41 44 43 20 24 36 34 3A 53 |DA MID:ADC $64:S| 00000530: 54 41 20 4D 49 44 00 50 0D 01 01 4C 44 41 20 59 |TA MID.P...LDA Y| 00000540: 42 3A 41 44 43 20 24 36 33 3A 53 54 41 20 59 42 |B:ADC $63:STA YB| 00000550: 00 83 0D 02 01 53 45 43 3A 4C 44 41 20 58 4C 31 |.....SEC:LDA XL1| 00000560: 3A 53 42 43 20 58 4C 3A 4C 44 41 20 58 48 31 3A |:SBC XL:LDA XH1:| 00000570: 53 42 43 20 58 48 3A 42 43 53 20 4C 32 35 34 3A |SBC XH:BCS L254:| 00000580: 52 54 53 00 99 0D 0E 01 3B 20 AC AC AC 20 44 59 |RTS.....; ... DY| 00000590: 20 B1 20 44 58 20 AC AC AC 00 DF 0D 10 01 59 47 | . DX ........YG| 000005A0: 52 4F 45 53 53 45 52 20 4C 44 41 20 44 58 48 3A |ROESSER LDA DXH:| 000005B0: 4C 44 59 20 44 58 4C 3A 4A 53 52 20 24 42 33 39 |LDY DXL:JSR $B39| 000005C0: 35 3A 4C 44 58 20 41 42 4C AA 31 3A 4C 44 59 20 |5:LDX ABL.1:LDY | 000005D0: 41 42 4C AA 32 3A 4A 53 52 20 24 42 42 44 34 00 |ABL.2:JSR $BBD4.| 000005E0: FD 0D 12 01 4C 44 41 20 44 59 48 3A 4C 44 59 20 |....LDA DYH:LDY | 000005F0: 44 59 4C 3A 4A 53 52 20 24 42 33 39 35 00 1F 0E |DYL:JSR $B395...| 00000600: 13 01 4C 44 41 20 41 42 4C AA 31 3A 4C 44 59 20 |..LDA ABL.1:LDY | 00000610: 41 42 4C AA 32 3A 4A 53 52 20 24 42 42 30 46 00 |ABL.2:JSR $BB0F.| 00000620: 49 0E 14 01 4C 44 41 20 24 36 31 3A 43 4C 43 3A |I...LDA $61:CLC:| 00000630: 41 44 43 20 23 31 36 3A 53 54 41 20 24 36 31 3A |ADC #16:STA $61:| 00000640: 4A 53 52 20 24 42 43 39 42 00 6B 0E 18 01 4C 44 |JSR $BC9B.k...LD| 00000650: 41 20 44 59 48 3A 42 50 4C 20 4C 49 4E 59 3A 4A |A DYH:BPL LINY:J| 00000660: 53 52 20 54 41 55 53 43 48 45 4E 00 86 0E 22 01 |SR TAUSCHEN...".| 00000670: 3B 20 AC AC AC 20 4C 49 4E 49 45 20 5A 49 45 48 |; ... LINIE ZIEH| 00000680: 45 4E 20 AC AC AC 00 BB 0E 24 01 4C 49 4E 59 20 |EN ......$.LINY | 00000690: 4C 44 41 20 58 4C 30 3A 53 54 41 20 58 4C 3A 4C |LDA XL0:STA XL:L| 000006A0: 44 41 20 58 48 30 3A 53 54 41 20 58 48 3A 4C 44 |DA XH0:STA XH:LD| 000006B0: 41 20 59 30 3A 53 54 41 20 59 42 00 CD 0E 26 01 |A Y0:STA YB...&.| 000006C0: 4C 32 39 34 20 4A 53 52 20 50 4C 4F 54 00 05 0F |L294 JSR PLOT...| 000006D0: 28 01 4C 44 41 20 4C 4F 57 3A 43 4C 43 3A 41 44 |(.LDA LOW:CLC:AD| 000006E0: 43 20 24 36 35 3A 53 54 41 20 4C 4F 57 3A 4C 44 |C $65:STA LOW:LD| 000006F0: 41 20 4D 49 44 3A 41 44 43 20 24 36 34 3A 53 54 |A MID:ADC $64:ST| 00000700: 41 20 4D 49 44 00 35 0F 29 01 4C 44 41 20 58 4C |A MID.5.).LDA XL| 00000710: 3A 41 44 43 20 24 36 33 3A 53 54 41 20 58 4C 3A |:ADC $63:STA XL:| 00000720: 4C 44 41 20 58 48 3A 41 44 43 20 24 36 32 3A 53 |LDA XH:ADC $62:S| 00000730: 54 41 20 58 48 00 60 0F 2A 01 4C 32 39 38 20 49 |TA XH.`.*.L298 I| 00000740: 4E 43 20 59 42 3A 4C 44 41 20 59 42 3A 43 4D 50 |NC YB:LDA YB:CMP| 00000750: 20 59 31 3A 42 43 43 20 4C 32 39 34 3A 52 54 53 | Y1:BCC L294:RTS| 00000760: 00 87 0F 40 01 3B 20 AC AC AC 20 58 30 AD 59 30 |...@.; ... X0.Y0| 00000770: 20 55 4E 44 20 58 31 AD 59 31 20 54 41 55 53 43 | UND X1.Y1 TAUSC| 00000780: 48 45 4E 20 AC AC AC 00 BC 0F 42 01 54 41 55 53 |HEN ......B.TAUS| 00000790: 43 48 45 4E 20 4C 44 41 20 58 4C 31 3A 50 48 41 |CHEN LDA XL1:PHA| 000007A0: 3A 4C 44 41 20 58 4C 30 3A 53 54 41 20 58 4C 31 |:LDA XL0:STA XL1| 000007B0: 3A 50 4C 41 3A 53 54 41 20 58 4C 30 00 E8 0F 43 |:PLA:STA XL0...C| 000007C0: 01 4C 44 41 20 58 48 31 3A 50 48 41 3A 4C 44 41 |.LDA XH1:PHA:LDA| 000007D0: 20 58 48 30 3A 53 54 41 20 58 48 31 3A 50 4C 41 | XH0:STA XH1:PLA| 000007E0: 3A 53 54 41 20 58 48 30 00 15 10 44 01 4C 44 41 |:STA XH0...D.LDA| 000007F0: 20 59 30 3A 50 48 41 3A 4C 44 41 20 59 31 3A 53 | Y0:PHA:LDA Y1:S| 00000800: 54 41 20 59 30 3A 50 4C 41 3A 53 54 41 20 59 31 |TA Y0:PLA:STA Y1| 00000810: 3A 3A 52 54 53 00 32 10 5E 01 3B 20 50 4C 4F 54 |::RTS.2.^.; PLOT| 00000820: 52 4F 55 54 49 4E 45 20 41 4E 53 50 52 49 4E 47 |ROUTINE ANSPRING| 00000830: 45 4E 00 6E 10 60 01 50 4C 4F 54 20 4C 44 41 20 |EN.n.`.PLOT LDA | 00000840: 4D 4F 44 55 53 3A 50 48 41 3A 4C 44 41 20 58 4C |MODUS:PHA:LDA XL| 00000850: 3A 4C 44 58 20 58 48 3A 4C 44 59 20 59 42 3A 50 |:LDX XH:LDY YB:P| 00000860: 4C 4F 54 32 20 4A 4D 50 20 24 46 46 46 46 00 7F |LOT2 JMP $FFFF..| 00000870: 10 E0 01 41 42 4C 20 4C 44 41 20 41 42 4C 32 00 |...ABL LDA ABL2.| 00000880: 9C 10 F4 01 3B 20 AC AC AC 20 4C 4F 43 41 4C 20 |....; ... LOCAL | 00000890: 56 41 52 49 41 42 4C 45 20 AC AC AC 00 B7 10 F6 |VARIABLE .......| 000008A0: 01 41 42 4C 32 20 2E 42 59 54 45 20 24 46 46 2C |.ABL2 .BYTE $FF,| 000008B0: 30 2C 30 2C 30 2C 30 00 D5 10 F8 01 4C 4F 57 20 |0,0,0,0.....LOW | 000008C0: 2E 42 59 54 45 20 30 30 3A 4D 49 44 20 2E 42 59 |.BYTE 00:MID .BY| 000008D0: 54 45 20 30 30 00 F1 10 FA 01 58 4C 20 2E 42 59 |TE 00.....XL .BY| 000008E0: 54 45 20 30 30 3A 58 48 20 2E 42 59 54 45 20 30 |TE 00:XH .BYTE 0| 000008F0: 30 00 0F 11 FC 01 58 4C 30 20 2E 42 59 54 45 20 |0.....XL0 .BYTE | 00000900: 30 30 3A 58 4C 31 20 2E 42 59 54 45 20 30 30 00 |00:XL1 .BYTE 00.| 00000910: 2D 11 FE 01 58 48 30 20 2E 42 59 54 45 20 30 30 |-...XH0 .BYTE 00| 00000920: 3A 58 48 31 20 2E 42 59 54 45 20 30 30 00 55 11 |:XH1 .BYTE 00.U.| 00000930: 00 02 59 30 20 2E 42 59 54 45 20 30 30 3A 59 31 |..Y0 .BYTE 00:Y1| 00000940: 20 2E 42 59 54 45 20 30 30 3A 59 42 20 2E 42 59 | .BYTE 00:YB .BY| 00000950: 54 45 20 30 30 00 73 11 02 02 44 59 4C 20 2E 42 |TE 00.s...DYL .B| 00000960: 59 54 45 20 30 30 3A 44 59 48 20 2E 42 59 54 45 |YTE 00:DYH .BYTE| 00000970: 20 30 30 00 91 11 04 02 44 58 4C 20 2E 42 59 54 | 00.....DXL .BYT| 00000980: 45 20 30 30 3A 44 58 48 20 2E 42 59 54 45 20 30 |E 00:DXH .BYTE 0| 00000990: 30 00 BE 11 06 02 B6 44 58 4C 20 2E 42 59 54 45 |0......DXL .BYTE| 000009A0: 20 30 30 3A B6 44 58 48 20 2E 42 59 54 45 20 30 | 00:.DXH .BYTE 0| 000009B0: 30 3A B6 44 59 20 2E 42 59 54 45 20 30 30 00 D1 |0:.DY .BYTE 00..| 000009C0: 11 08 02 4D 4F 44 55 53 20 2E 42 59 54 45 20 30 |...MODUS .BYTE 0| 000009D0: 30 00 DB 11 62 02 2E 80 3A A0 31 00 00 00 00 52 |0...b...:.1....R| 000009E0: 4E |N |
....P..1,8,2,"LINE.OBJ,P,W".7.U..9.4096: .OPT O1:..$C000.V.V..F "USING PLOT,3:PRO GRAM:".W.Z.CKCOM . $AEFD:FRMNUM . $AD8A. A.D.JSR FRMNUM:JSR $BC9B:LDA $65:STA XL0 :LDA $64:STA XH0:JSR $E200:STX Y0...N.JS R CKCOM:JSR FRMNUM:JSR $BC9B:LDA $65:STA XL1:LDA $64:STA XH1.-.R.JSR $E200:STX Y 1:JSR $E200:STX MODUS.J...LDA XL1:CMP XL 0:BNE L200.G...LDA XH1:CMP XH0:BNE L200. ....LDA Y1:CMP Y0:BNE L200.....; X1.Y1 . X0.Y0.I. .LDA MODUS:PHA:LDA XL0:LDX XH0 :LDY Y0:JMP PLOT2.....; ... LINIE .... . H.L200 LDA #0:STA DYH:LDA Y1:SEC:SBC Y0: STA DYL:STA .DY:BCS L210._.L.E. #255:STA .DY:INC .DY:LDA #255:STA DYH; ZWEIERKOM PLEMENT...R.L210 LDA XL1:SEC:SBC XL0:STA DXL:STA .DXL...S.LDA XH1:SBC XH0:STA DX H:STA .DXH:BCS L220...T.LDA DXL:E. #255: CLC:ADC #1:STA .DXL...V.LDA DXH:E. #255: ADC #0:STA .DXH.#.Z.; ... MAX (.DX,.DY) ....L...L220 LDA #$80:STA MID:LDA #0:STA LOW.....LDA .DXH:BNE XGROESSER:LDA .DXL :CMP .DY:BCS XGROESSER.....JMP YGROESSER .....; ... DX . DY ........XGROESSER LDA DYH:LDY DYL:JSR $B395:LDX ABL.1:LDY ABL .2:JSR $BBD4.....LDA DXH:LDY DXL:JSR $B3 95.4...LDA ABL.1:LDY ABL.2:JSR $BB0F.^.. .LDA $61:CLC:ADC #16:STA $61:JSR $BC9B.. ...LDA DXH:BPL LINX:JSR TAUSCHEN.....; . .. LINIE ZIEHEN ....P...LINX LDA XL0:STA XL:LDA XH0:STA XH:LDA Y0:STA YB.....L25 4 JSR PLOT:INC XL:BNE L256:INC XH.6...L2 56 LDA LOW:CLC:ADC $65:STA LOW:LDA MID:A DC $64:STA MID.P...LDA YB:ADC $63:STA YB .....SEC:LDA XL1:SBC XL:LDA XH1:SBC XH:B CS L254:RTS.....; ... DY . DX ........YG ROESSER LDA DXH:LDY DXL:JSR $B395:LDX AB L.1:LDY ABL.2:JSR $BBD4.....LDA DYH:LDY DYL:JSR $B395.....LDA ABL.1:LDY ABL.2:JS R $BB0F.I...LDA $61:CLC:ADC #16:STA $61: JSR $BC9B.K...LDA DYH:BPL LINY:JSR TAUSC HEN...".; ... LINIE ZIEHEN ......$.LINY LDA XL0:STA XL:LDA XH0:STA XH:LDA Y0:STA YB.M.&.L294 JSR PLOT...(.LDA LOW:CLC:AD C $65:STA LOW:LDA MID:ADC $64:STA MID.5. ).LDA XL:ADC $63:STA XL:LDA XH:ADC $62:S TA XH.`.*.L298 INC YB:LDA YB:CMP Y1:BCC L294:RTS...@.; ... X0.Y0 UND X1.Y1 TAUSC HEN ......B.TAUSCHEN LDA XL1:PHA:LDA XL0 :STA XL1:PLA:STA XL0...C.LDA XH1:PHA:LDA XH0:STA XH1:PLA:STA XH0...D.LDA Y0:PHA: LDA Y1:STA Y0:PLA:STA Y1::RTS.2.^.; PLOT ROUTINE ANSPRINGEN.N.`.PLOT LDA MODUS:PH A:LDA XL:LDX XH:LDY YB:PLOT2 JMP $FFFF. ...ABL LDA ABL2.....; ... LOCAL VARIABLE ........ABL2 .BYTE $FF,0,0,0,0.U...LOW .BYTE 00:MID .BYTE 00.....XL .BYTE 00:XH .BYTE 00.....XL0 .BYTE 00:XL1 .BYTE 00. -...XH0 .BYTE 00:XH1 .BYTE 00.U...Y0 .BY TE 00:Y1 .BYTE 00:YB .BYTE 00.S...DYL .B YTE 00:DYH .BYTE 00.....DXL .BYTE 00:DXH .BYTE 00......DXL .BYTE 00:.DXH .BYTE 0 0:.DY .BYTE 00.Q...MODUS .BYTE 00...B... : 1....RN
> CLICK IMAGE PREVIEW FOR FULL MODAL