ALI 2.0/SRC

FILE INFORMATION

FILENAME(S): ALI 2.0/SRC

FILE TYPE(S): PRG

FILE SIZE: 10.6K

FIRST SEEN: 2025-10-20 14:31:12

APPEARS ON: 1 disk(s)

FILE HASH

ab64509c5790533c46c7d8ba422a73e3d47ec3718b777771bca74f1f78dbb92f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GRUNDWERKSDISK 2	ALI 2.0/SRC	PRG	Treasure Chest - Klaus Der Suhler	20	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 74 2A 3B 3B 3B 20 D1 55  45 4C 4C 44 41 54 45 49  |t*;;; .UELLDATEI|
00000010: 20 41 4C 49 20 32 2E 30  2F 53 52 43 00 20 00 2E  | ALI 2.0/SRC. ..|
00000020: 42 41 24 43 30 30 30 00  2E 57 41 00 2E 4F 55 22  |BA$C000..WA..OU"|
00000030: 41 4C 49 20 32 2E 30 22  00 20 00 43 4B 43 4F 4D  |ALI 2.0". .CKCOM|
00000040: 3A 2E 45 51 24 41 45 46  44 3B CB 4F 4D 4D 41 20  |:.EQ$AEFD;.OMMA |
00000050: 49 4E 20 D3 D9 D3 2D C1  55 46 52 55 46 20 56 4F  |IN ...-.UFRUF VO|
00000060: 52 48 41 4E 44 45 4E 20  3F 00 47 45 54 42 59 54  |RHANDEN ?.GETBYT|
00000070: 3A 2E 45 51 24 42 37 39  45 3B D0 41 52 41 4D 45  |:.EQ$B79E;.ARAME|
00000080: 54 45 52 20 48 4F 4C 45  4E 00 53 50 41 4C 54 45  |TER HOLEN.SPALTE|
00000090: 4E 3A 2E 45 51 24 33 46  42 00 5A 45 49 4C 45 4E  |N:.EQ$3FB.ZEILEN|
000000A0: 3A 2E 45 51 24 33 46 41  00 53 4C 3A 2E 45 51 24  |:.EQ$3FA.SL:.EQ$|
000000B0: 46 41 3B D3 50 41 4C 54  45 20 4C 4F 57 00 53 48  |FA;.PALTE LOW.SH|
000000C0: 3A 2E 45 51 24 46 42 3B  D3 50 41 4C 54 45 20 48  |:.EQ$FB;.PALTE H|
000000D0: 49 47 48 00 46 41 52 42  45 4C 3A 2E 45 51 24 46  |IGH.FARBEL:.EQ$F|
000000E0: 43 00 46 41 52 42 45 48  3A 2E 45 51 24 46 44 00  |C.FARBEH:.EQ$FD.|
000000F0: 56 4F 4E 5A 3A 2E 45 51  24 33 41 30 00 42 49 53  |VONZ:.EQ$3A0.BIS|
00000100: 5A 3A 2E 45 51 24 33 41  31 00 41 4E 53 50 3A 2E  |Z:.EQ$3A1.ANSP:.|
00000110: 45 51 24 33 41 32 3B C1  4E 5A 41 48 4C 20 D3 50  |EQ$3A2;.NZAHL .P|
00000120: 41 4C 54 45 4E 00 56 4F  4E 53 50 3A 2E 45 51 24  |ALTEN.VONSP:.EQ$|
00000130: 33 41 33 00 42 49 53 53  50 3A 2E 45 51 24 33 41  |3A3.BISSP:.EQ$3A|
00000140: 34 00 20 00 3B 2A 2A 2A  20 D3 43 52 4F 4C 4C 45  |4. .;*** .CROLLE|
00000150: 4E 20 4E 41 43 48 20 CC  49 4E 4B 53 20 2A 2A 2A  |N NACH .INKS ***|
00000160: 00 4C 44 41 23 32 31 36  00 53 54 41 24 30 33 33  |.LDA#216.STA$033|
00000170: 43 00 53 54 41 24 30 33  33 44 00 53 54 41 24 30  |C.STA$033D.STA$0|
00000180: 33 33 45 00 53 54 41 24  30 33 33 46 00 53 54 41  |33E.STA$033F.STA|
00000190: 24 30 33 34 30 00 53 54  41 24 30 33 34 31 00 53  |$0340.STA$0341.S|
000001A0: 54 41 24 30 33 34 32 00  4C 44 41 23 32 31 37 00  |TA$0342.LDA#217.|
000001B0: 53 54 41 24 30 33 34 33  00 53 54 41 24 30 33 34  |STA$0343.STA$034|
000001C0: 34 00 53 54 41 24 30 33  34 35 00 53 54 41 24 30  |4.STA$0345.STA$0|
000001D0: 33 34 36 00 53 54 41 24  30 33 34 37 00 53 54 41  |346.STA$0347.STA|
000001E0: 24 30 33 34 38 00 4C 44  41 23 32 31 38 00 53 54  |$0348.LDA#218.ST|
000001F0: 41 24 30 33 34 39 00 53  54 41 24 30 33 34 41 00  |A$0349.STA$034A.|
00000200: 53 54 41 24 30 33 34 42  00 53 54 41 24 30 33 34  |STA$034B.STA$034|
00000210: 43 00 53 54 41 24 30 33  34 44 00 53 54 41 24 30  |C.STA$034D.STA$0|
00000220: 33 34 45 00 53 54 41 24  30 33 34 46 00 4C 44 41  |34E.STA$034F.LDA|
00000230: 23 32 31 39 00 53 54 41  24 30 33 35 30 00 53 54  |#219.STA$0350.ST|
00000240: 41 24 30 33 35 31 00 53  54 41 24 30 33 35 32 00  |A$0351.STA$0352.|
00000250: 53 54 41 24 30 33 35 33  00 53 54 41 24 30 33 35  |STA$0353.STA$035|
00000260: 34 00 4A 53 52 43 4B 43  4F 4D 3B D0 41 52 41 4D  |4.JSRCKCOM;.ARAM|
00000270: 45 54 45 52 20 D5 45 42  45 52 47 41 42 45 00 4A  |ETER .EBERGABE.J|
00000280: 53 52 47 45 54 42 59 54  00 53 54 58 56 4F 4E 5A  |SRGETBYT.STXVONZ|
00000290: 00 4A 53 52 43 4B 43 4F  4D 00 4A 53 52 47 45 54  |.JSRCKCOM.JSRGET|
000002A0: 42 59 54 00 53 54 58 42  49 53 5A 00 4A 53 52 43  |BYT.STXBISZ.JSRC|
000002B0: 4B 43 4F 4D 00 4A 53 52  47 45 54 42 59 54 00 53  |KCOM.JSRGETBYT.S|
000002C0: 54 58 41 4E 53 50 00 4A  53 52 43 4B 43 4F 4D 00  |TXANSP.JSRCKCOM.|
000002D0: 4A 53 52 47 45 54 42 59  54 00 53 54 58 56 4F 4E  |JSRGETBYT.STXVON|
000002E0: 53 50 00 49 4E 43 56 4F  4E 53 50 00 4A 53 52 43  |SP.INCVONSP.JSRC|
000002F0: 4B 43 4F 4D 00 4A 53 52  47 45 54 42 59 54 00 53  |KCOM.JSRGETBYT.S|
00000300: 54 58 42 49 53 53 50 00  4C 44 41 23 31 00 41 44  |TXBISSP.LDA#1.AD|
00000310: 43 42 49 53 53 50 00 53  54 41 42 49 53 53 50 00  |CBISSP.STABISSP.|
00000320: 4C 44 58 23 30 00 53 54  58 53 50 41 4C 54 45 4E  |LDX#0.STXSPALTEN|
00000330: 00 53 54 58 5A 45 49 4C  45 4E 00 4A 4D 50 4C 4F  |.STXZEILEN.JMPLO|
00000340: 4F 50 35 00 4C 4F 4F 50  33 3A 4C 44 59 56 4F 4E  |OP5.LOOP3:LDYVON|
00000350: 53 50 3B 31 2E 20 D3 50  41 4C 54 45 00 4C 44 41  |SP;1. .PALTE.LDA|
00000360: 41 4E 53 50 3B C1 4E 5A  41 48 4C 20 D3 50 41 4C  |ANSP;.NZAHL .PAL|
00000370: 54 45 4E 20 45 52 52 45  49 43 48 54 20 3F 00 43  |TEN ERREICHT ?.C|
00000380: 4D 50 53 50 41 4C 54 45  4E 00 42 43 43 45 4E 44  |MPSPALTEN.BCCEND|
00000390: 45 00 4C 4F 4F 50 31 3A  4C 44 41 28 53 4C 29 2C  |E.LOOP1:LDA(SL),|
000003A0: 59 3B DA 45 49 43 48 45  4E 20 56 45 52 53 43 48  |Y;.EICHEN VERSCH|
000003B0: 49 45 42 45 4E 00 44 45  59 00 53 54 41 28 53 4C  |IEBEN.DEY.STA(SL|
000003C0: 29 2C 59 00 4C 44 41 24  30 32 38 36 3B C6 41 52  |),Y.LDA$0286;.AR|
000003D0: 42 45 20 53 45 54 5A 45  4E 00 53 54 41 28 46 41  |BE SETZEN.STA(FA|
000003E0: 52 42 45 4C 29 2C 59 00  49 4E 59 00 49 4E 59 00  |RBEL),Y.INY.INY.|
000003F0: 43 50 59 42 49 53 53 50  3B 4C 45 54 5A 54 45 20  |CPYBISSP;LETZTE |
00000400: D3 50 41 4C 54 45 20 3F  00 42 45 51 4C 4F 4F 50  |.PALTE ?.BEQLOOP|
00000410: 32 00 4A 4D 50 4C 4F 4F  50 31 00 4C 4F 4F 50 32  |2.JMPLOOP1.LOOP2|
00000420: 3A 4C 44 41 23 33 32 3B  4A 41 2C 20 42 4C 41 4E  |:LDA#32;JA, BLAN|
00000430: 4B 00 44 45 59 00 44 45  59 00 53 54 41 28 53 4C  |K.DEY.DEY.STA(SL|
00000440: 29 2C 59 00 4C 4F 4F 50  36 3A 49 4E 43 5A 45 49  |),Y.LOOP6:INCZEI|
00000450: 4C 45 4E 00 4C 4F 4F 50  35 3A 4C 44 58 5A 45 49  |LEN.LOOP5:LDXZEI|
00000460: 4C 45 4E 3B 4C 45 54 5A  54 45 20 C2 49 4C 44 53  |LEN;LETZTE .ILDS|
00000470: 43 48 49 52 4D 5A 45 49  4C 45 20 3F 00 43 50 58  |CHIRMZEILE ?.CPX|
00000480: 23 32 35 00 42 45 51 4C  4F 4F 50 34 00 43 50 58  |#25.BEQLOOP4.CPX|
00000490: 56 4F 4E 5A 3B 4E 45 49  4E 2C 20 DA 45 49 4C 45  |VONZ;NEIN, .EILE|
000004A0: 4E 42 45 52 45 49 43 48  20 55 45 42 45 52 50 52  |NBEREICH UEBERPR|
000004B0: 55 45 46 45 4E 00 42 45  51 4A 41 00 43 50 58 42  |UEFEN.BEQJA.CPXB|
000004C0: 49 53 5A 00 42 45 51 4A  41 00 43 50 58 56 4F 4E  |ISZ.BEQJA.CPXVON|
000004D0: 5A 00 42 43 43 4C 4F 4F  50 36 00 43 50 58 42 49  |Z.BCCLOOP6.CPXBI|
000004E0: 53 5A 00 42 43 53 4C 4F  4F 50 36 00 4A 41 3A 4C  |SZ.BCSLOOP6.JA:L|
000004F0: 44 41 24 45 43 46 30 2C  58 00 53 54 41 53 4C 00  |DA$ECF0,X.STASL.|
00000500: 53 54 41 46 41 52 42 45  4C 00 4C 44 41 24 44 39  |STAFARBEL.LDA$D9|
00000510: 2C 58 00 41 4E 44 23 24  30 33 00 4F 52 41 24 30  |,X.AND#$03.ORA$0|
00000520: 32 38 38 00 53 54 41 53  48 00 4C 44 41 24 30 33  |288.STASH.LDA$03|
00000530: 33 43 2C 58 00 53 54 41  46 41 52 42 45 48 00 4C  |3C,X.STAFARBEH.L|
00000540: 44 41 23 24 31 39 3B 4C  45 54 5A 54 45 20 C2 49  |DA#$19;LETZTE .I|
00000550: 4C 44 53 43 48 49 52 4D  5A 45 49 4C 45 20 3F 00  |LDSCHIRMZEILE ?.|
00000560: 43 4D 50 5A 45 49 4C 45  4E 00 42 45 51 4C 4F 4F  |CMPZEILEN.BEQLOO|
00000570: 50 34 00 4A 4D 50 4C 4F  4F 50 33 00 4C 4F 4F 50  |P4.JMPLOOP3.LOOP|
00000580: 34 3A 4C 44 41 23 30 00  53 54 41 5A 45 49 4C 45  |4:LDA#0.STAZEILE|
00000590: 4E 00 49 4E 43 53 50 41  4C 54 45 4E 00 53 54 41  |N.INCSPALTEN.STA|
000005A0: 53 4C 00 53 54 41 46 41  52 42 45 4C 00 4C 44 41  |SL.STAFARBEL.LDA|
000005B0: 23 24 30 34 00 53 54 41  53 48 00 4C 44 41 23 32  |#$04.STASH.LDA#2|
000005C0: 31 36 00 53 54 41 46 41  52 42 45 48 00 4A 4D 50  |16.STAFARBEH.JMP|
000005D0: 4C 4F 4F 50 35 00 45 4E  44 45 3A 52 54 53 00 20  |LOOP5.ENDE:RTS. |
000005E0: 00 3B 2A 2A 2A 20 D3 43  52 4F 4C 4C 45 4E 20 4E  |.;*** .CROLLEN N|
000005F0: 41 43 48 20 52 45 43 48  54 53 20 2A 2A 2A 00 4C  |ACH RECHTS ***.L|
00000600: 44 41 23 32 31 36 3B C6  41 52 42 54 41 42 45 4C  |DA#216;.ARBTABEL|
00000610: 4C 45 20 2D 20 C8 49 47  48 20 C2 59 54 45 53 00  |LE - .IGH .YTES.|
00000620: 53 54 41 24 30 33 33 43  00 53 54 41 24 30 33 33  |STA$033C.STA$033|
00000630: 44 00 53 54 41 24 30 33  33 45 00 53 54 41 24 30  |D.STA$033E.STA$0|
00000640: 33 33 46 00 53 54 41 24  30 33 34 30 00 53 54 41  |33F.STA$0340.STA|
00000650: 24 30 33 34 31 00 53 54  41 24 30 33 34 32 00 4C  |$0341.STA$0342.L|
00000660: 44 41 23 32 31 37 00 53  54 41 24 30 33 34 33 00  |DA#217.STA$0343.|
00000670: 53 54 41 24 30 33 34 34  00 53 54 41 24 30 33 34  |STA$0344.STA$034|
00000680: 35 00 53 54 41 24 30 33  34 36 00 53 54 41 24 30  |5.STA$0346.STA$0|
00000690: 33 34 37 00 53 54 41 24  30 33 34 38 00 4C 44 41  |347.STA$0348.LDA|
000006A0: 23 32 31 38 00 53 54 41  24 30 33 34 39 00 53 54  |#218.STA$0349.ST|
000006B0: 41 24 30 33 34 41 00 53  54 41 24 30 33 34 42 00  |A$034A.STA$034B.|
000006C0: 53 54 41 24 30 33 34 43  00 53 54 41 24 30 33 34  |STA$034C.STA$034|
000006D0: 44 00 53 54 41 24 30 33  34 45 00 53 54 41 24 30  |D.STA$034E.STA$0|
000006E0: 33 34 46 00 4C 44 41 23  32 31 39 00 53 54 41 24  |34F.LDA#219.STA$|
000006F0: 30 33 35 30 00 53 54 41  24 30 33 35 31 00 53 54  |0350.STA$0351.ST|
00000700: 41 24 30 33 35 32 00 53  54 41 24 30 33 35 33 00  |A$0352.STA$0353.|
00000710: 53 54 41 24 30 33 35 34  00 4A 53 52 43 4B 43 4F  |STA$0354.JSRCKCO|
00000720: 4D 3B D0 41 52 41 4D 45  54 45 52 2D D5 45 42 45  |M;.ARAMETER-.EBE|
00000730: 52 47 41 42 45 00 4A 53  52 47 45 54 42 59 54 00  |RGABE.JSRGETBYT.|
00000740: 53 54 58 56 4F 4E 5A 00  4A 53 52 43 4B 43 4F 4D  |STXVONZ.JSRCKCOM|
00000750: 00 4A 53 52 47 45 54 42  59 54 00 53 54 58 42 49  |.JSRGETBYT.STXBI|
00000760: 53 5A 00 4A 53 52 43 4B  43 4F 4D 00 4A 53 52 47  |SZ.JSRCKCOM.JSRG|
00000770: 45 54 42 59 54 00 53 54  58 41 4E 53 50 00 4A 53  |ETBYT.STXANSP.JS|
00000780: 52 43 4B 43 4F 4D 00 4A  53 52 47 45 54 42 59 54  |RCKCOM.JSRGETBYT|
00000790: 00 53 54 58 56 4F 4E 53  50 00 44 45 43 56 4F 4E  |.STXVONSP.DECVON|
000007A0: 53 50 00 4A 53 52 43 4B  43 4F 4D 00 4A 53 52 47  |SP.JSRCKCOM.JSRG|
000007B0: 45 54 42 59 54 00 53 54  58 42 49 53 53 50 00 44  |ETBYT.STXBISSP.D|
000007C0: 45 43 42 49 53 53 50 00  4C 44 58 23 30 00 53 54  |ECBISSP.LDX#0.ST|
000007D0: 58 53 50 41 4C 54 45 4E  00 53 54 58 5A 45 49 4C  |XSPALTEN.STXZEIL|
000007E0: 45 4E 00 4A 4D 50 4C 50  35 00 4C 50 33 3A 4C 44  |EN.JMPLP5.LP3:LD|
000007F0: 59 42 49 53 53 50 3B 4C  45 54 5A 54 45 20 D3 50  |YBISSP;LETZTE .P|
00000800: 41 4C 54 45 00 4C 44 41  41 4E 53 50 3B C5 4E 44  |ALTE.LDAANSP;.ND|
00000810: 45 20 3F 00 43 4D 50 53  50 41 4C 54 45 4E 00 42  |E ?.CMPSPALTEN.B|
00000820: 43 43 45 4E 44 00 4C 50  31 3A 4C 44 41 28 53 4C  |CCEND.LP1:LDA(SL|
00000830: 29 2C 59 3B DA 45 49 43  48 45 4E 20 56 45 52 53  |),Y;.EICHEN VERS|
00000840: 43 48 49 45 42 45 4E 00  49 4E 59 00 53 54 41 28  |CHIEBEN.INY.STA(|
00000850: 53 4C 29 2C 59 00 4C 44  41 24 30 32 38 36 3B C6  |SL),Y.LDA$0286;.|
00000860: 41 52 42 45 20 53 45 54  5A 45 4E 00 53 54 41 28  |ARBE SETZEN.STA(|
00000870: 46 41 52 42 45 4C 29 2C  59 00 44 45 59 00 44 45  |FARBEL),Y.DEY.DE|
00000880: 59 00 43 50 59 56 4F 4E  53 50 3B 31 2E 20 D3 50  |Y.CPYVONSP;1. .P|
00000890: 41 4C 54 45 00 42 45 51  4C 50 32 00 4A 4D 50 4C  |ALTE.BEQLP2.JMPL|
000008A0: 50 31 00 4C 50 32 3A 4C  44 41 23 33 32 3B 4A 41  |P1.LP2:LDA#32;JA|
000008B0: 2C 20 42 4C 41 4E 4B 00  49 4E 59 00 53 54 41 28  |, BLANK.INY.STA(|
000008C0: 53 4C 29 2C 59 00 4C 50  36 3A 49 4E 43 5A 45 49  |SL),Y.LP6:INCZEI|
000008D0: 4C 45 4E 00 4C 50 35 3A  4C 44 58 5A 45 49 4C 45  |LEN.LP5:LDXZEILE|
000008E0: 4E 3B 4C 45 54 5A 54 45  20 C2 49 4C 44 53 43 48  |N;LETZTE .ILDSCH|
000008F0: 49 52 4D 53 45 49 54 45  00 43 50 58 23 32 35 00  |IRMSEITE.CPX#25.|
00000900: 42 45 51 4C 50 34 00 43  50 58 56 4F 4E 5A 3B 4E  |BEQLP4.CPXVONZ;N|
00000910: 45 49 4E 2C DA 45 49 4C  45 4E 42 45 52 45 49 43  |EIN,.EILENBEREIC|
00000920: 48 20 55 45 42 45 52 50  52 55 45 46 45 4E 00 42  |H UEBERPRUEFEN.B|
00000930: 45 51 4A 41 31 00 43 50  58 42 49 53 5A 00 42 45  |EQJA1.CPXBISZ.BE|
00000940: 51 4A 41 31 00 43 50 58  56 4F 4E 5A 00 42 43 43  |QJA1.CPXVONZ.BCC|
00000950: 4C 50 36 00 43 50 58 42  49 53 5A 00 42 43 53 4C  |LP6.CPXBISZ.BCSL|
00000960: 50 36 00 4A 41 31 3A 4C  44 41 24 45 43 46 30 2C  |P6.JA1:LDA$ECF0,|
00000970: 58 00 53 54 41 53 4C 00  53 54 41 46 41 52 42 45  |X.STASL.STAFARBE|
00000980: 4C 00 4C 44 41 24 44 39  2C 58 00 41 4E 44 23 24  |L.LDA$D9,X.AND#$|
00000990: 30 33 00 4F 52 41 24 30  32 38 38 00 53 54 41 53  |03.ORA$0288.STAS|
000009A0: 48 00 4C 44 41 24 30 33  33 43 2C 58 00 53 54 41  |H.LDA$033C,X.STA|
000009B0: 46 41 52 42 45 48 00 4C  44 41 23 24 31 39 3B 4C  |FARBEH.LDA#$19;L|
000009C0: 45 54 5A 54 45 20 C2 49  4C 44 53 43 48 49 52 4D  |ETZTE .ILDSCHIRM|
000009D0: 5A 45 49 4C 45 20 3F 00  43 4D 50 5A 45 49 4C 45  |ZEILE ?.CMPZEILE|
000009E0: 4E 00 42 45 51 4C 50 34  00 4A 4D 50 4C 50 33 00  |N.BEQLP4.JMPLP3.|
000009F0: 4C 50 34 3A 4C 44 41 23  30 00 53 54 41 5A 45 49  |LP4:LDA#0.STAZEI|
00000A00: 4C 45 4E 00 49 4E 43 53  50 41 4C 54 45 4E 00 53  |LEN.INCSPALTEN.S|
00000A10: 54 41 53 4C 00 53 54 41  46 41 52 42 45 4C 00 4C  |TASL.STAFARBEL.L|
00000A20: 44 41 23 24 30 34 00 53  54 41 53 48 00 4C 44 41  |DA#$04.STASH.LDA|
00000A30: 23 32 31 36 00 53 54 41  46 41 52 42 45 48 00 4A  |#216.STAFARBEH.J|
00000A40: 4D 50 4C 50 35 00 45 4E  44 3A 52 54 53 00 20 00  |MPLP5.END:RTS. .|
00000A50: 3B 2A 2A 2A 20 D0 52 49  4E 54 20 2A 2A 2A 00 43  |;*** .RINT ***.C|
00000A60: 55 52 53 4F 52 3A 2E 45  51 24 46 46 46 30 3B C3  |URSOR:.EQ$FFF0;.|
00000A70: 55 52 53 4F 52 20 53 45  54 5A 45 4E 00 50 52 49  |URSOR SETZEN.PRI|
00000A80: 4E 54 3A 2E 45 51 24 41  41 41 34 3B DA 45 49 43  |NT:.EQ$AAA4;.EIC|
00000A90: 48 45 4E 20 41 55 46 20  C2 49 4C 44 53 43 48 49  |HEN AUF .ILDSCHI|
00000AA0: 52 4D 20 41 55 53 47 45  42 45 4E 00 20 00 4A 53  |RM AUSGEBEN. .JS|
00000AB0: 52 43 4B 43 4F 4D 3B CB  4F 4D 4D 41 2D DA 45 49  |RCKCOM;.OMMA-.EI|
00000AC0: 43 48 45 4E 20 41 42 46  52 41 47 45 4E 00 4A 53  |CHEN ABFRAGEN.JS|
00000AD0: 52 47 45 54 42 59 54 3B  D0 41 52 41 4D 45 54 45  |RGETBYT;.ARAMETE|
00000AE0: 52 20 44 45 53 20 D3 D9  D3 2D C1 55 46 52 55 46  |R DES ...-.UFRUF|
00000AF0: 53 20 55 45 42 45 52 4E  45 48 4D 45 4E 00 54 58  |S UEBERNEHMEN.TX|
00000B00: 41 00 50 48 41 00 4A 53  52 43 4B 43 4F 4D 00 4A  |A.PHA.JSRCKCOM.J|
00000B10: 53 52 47 45 54 42 59 54  00 50 4C 41 00 54 41 59  |SRGETBYT.PLA.TAY|
00000B20: 00 43 4C 43 00 4A 53 52  43 55 52 53 4F 52 00 4A  |.CLC.JSRCURSOR.J|
00000B30: 53 52 43 4B 43 4F 4D 00  4A 4D 50 50 52 49 4E 54  |SRCKCOM.JMPPRINT|
00000B40: 00 20 00 3B 2A 2A 2A 20  D3 43 52 4F 4C 4C 45 4E  |. .;*** .CROLLEN|
00000B50: 20 4E 41 43 48 20 4F 42  45 4E 20 2A 2A 2A 00 4C  | NACH OBEN ***.L|
00000B60: 44 41 23 32 31 36 3B C6  41 52 42 54 41 42 45 4C  |DA#216;.ARBTABEL|
00000B70: 4C 45 20 2D 20 C8 49 47  48 20 C2 59 54 45 53 00  |LE - .IGH .YTES.|
00000B80: 53 54 41 24 30 33 33 43  00 53 54 41 24 30 33 33  |STA$033C.STA$033|
00000B90: 44 00 53 54 41 24 30 33  33 45 00 53 54 41 24 30  |D.STA$033E.STA$0|
00000BA0: 33 33 46 00 53 54 41 24  30 33 34 30 00 53 54 41  |33F.STA$0340.STA|
00000BB0: 24 30 33 34 31 00 53 54  41 24 30 33 34 32 00 4C  |$0341.STA$0342.L|
00000BC0: 44 41 23 32 31 37 00 53  54 41 24 30 33 34 33 00  |DA#217.STA$0343.|
00000BD0: 53 54 41 24 30 33 34 34  00 53 54 41 24 30 33 34  |STA$0344.STA$034|
00000BE0: 35 00 53 54 41 24 30 33  34 36 00 53 54 41 24 30  |5.STA$0346.STA$0|
00000BF0: 33 34 37 00 53 54 41 24  30 33 34 38 00 4C 44 41  |347.STA$0348.LDA|
00000C00: 23 32 31 38 00 53 54 41  24 30 33 34 39 00 53 54  |#218.STA$0349.ST|
00000C10: 41 24 30 33 34 41 00 53  54 41 24 30 33 34 42 00  |A$034A.STA$034B.|
00000C20: 53 54 41 24 30 33 34 43  00 53 54 41 24 30 33 34  |STA$034C.STA$034|
00000C30: 44 00 53 54 41 24 30 33  34 45 00 53 54 41 24 30  |D.STA$034E.STA$0|
00000C40: 33 34 46 00 4C 44 41 23  32 31 39 00 53 54 41 24  |34F.LDA#219.STA$|
00000C50: 30 33 35 30 00 53 54 41  24 30 33 35 31 00 53 54  |0350.STA$0351.ST|
00000C60: 41 24 30 33 35 32 00 53  54 41 24 30 33 35 33 00  |A$0352.STA$0353.|
00000C70: 53 54 41 24 30 33 35 34  00 4A 53 52 43 4B 43 4F  |STA$0354.JSRCKCO|
00000C80: 4D 3B D0 41 52 41 4D 45  54 45 52 2D D5 45 42 45  |M;.ARAMETER-.EBE|
00000C90: 52 47 41 42 45 00 4A 53  52 47 45 54 42 59 54 00  |RGABE.JSRGETBYT.|
00000CA0: 53 54 58 56 4F 4E 5A 00  4A 53 52 43 4B 43 4F 4D  |STXVONZ.JSRCKCOM|
00000CB0: 00 4A 53 52 47 45 54 42  59 54 00 53 54 58 42 49  |.JSRGETBYT.STXBI|
00000CC0: 53 5A 00 49 4E 43 42 49  53 5A 00 4A 53 52 43 4B  |SZ.INCBISZ.JSRCK|
00000CD0: 43 4F 4D 00 4A 53 52 47  45 54 42 59 54 00 53 54  |COM.JSRGETBYT.ST|
00000CE0: 58 56 4F 4E 53 50 00 44  45 43 56 4F 4E 53 50 00  |XVONSP.DECVONSP.|
00000CF0: 4A 53 52 43 4B 43 4F 4D  00 4A 53 52 47 45 54 42  |JSRCKCOM.JSRGETB|
00000D00: 59 54 00 53 54 58 42 49  53 53 50 00 49 4E 43 42  |YT.STXBISSP.INCB|
00000D10: 49 53 53 50 00 4C 44 58  56 4F 4E 5A 00 4C 44 59  |ISSP.LDXVONZ.LDY|
00000D20: 56 4F 4E 53 50 00 4A 4D  50 4F 32 00 4F 31 3A 49  |VONSP.JMPO2.O1:I|
00000D30: 4E 59 3B 4C 45 54 5A 54  45 20 D3 50 41 4C 54 45  |NY;LETZTE .PALTE|
00000D40: 20 3F 00 43 50 59 42 49  53 53 50 00 42 45 51 4F  | ?.CPYBISSP.BEQO|
00000D50: 33 00 4C 44 41 28 53 4C  29 2C 59 3B 4E 45 49 4E  |3.LDA(SL),Y;NEIN|
00000D60: 2C 20 41 4C 54 45 20 D0  4F 53 49 54 49 4F 4E 20  |, ALTE .OSITION |
00000D70: 42 4C 41 4E 4B 00 44 45  58 00 50 48 41 00 4C 44  |BLANK.DEX.PHA.LD|
00000D80: 41 23 33 32 00 53 54 41  28 53 4C 29 2C 59 00 4C  |A#32.STA(SL),Y.L|
00000D90: 44 41 24 45 43 46 30 2C  58 3B C6 41 52 42 45 20  |DA$ECF0,X;.ARBE |
00000DA0: 48 4F 4C 45 4E 00 53 54  41 53 4C 00 53 54 41 46  |HOLEN.STASL.STAF|
00000DB0: 41 52 42 45 4C 00 4C 44  41 24 30 33 33 43 2C 58  |ARBEL.LDA$033C,X|
00000DC0: 00 53 54 41 46 41 52 42  45 48 00 4C 44 41 24 44  |.STAFARBEH.LDA$D|
00000DD0: 39 2C 58 3B D3 50 41 4C  54 45 20 C8 49 47 48 2D  |9,X;.PALTE .IGH-|
00000DE0: C2 59 54 45 00 41 4E 44  23 24 30 33 00 4F 52 41  |.YTE.AND#$03.ORA|
00000DF0: 24 30 32 38 38 00 53 54  41 53 48 00 50 4C 41 3B  |$0288.STASH.PLA;|
00000E00: DA 45 49 43 48 45 4E 20  4E 45 55 45 20 D0 4F 53  |.EICHEN NEUE .OS|
00000E10: 49 54 4F 4E 00 53 54 41  28 53 4C 29 2C 59 00 4C  |ITON.STA(SL),Y.L|
00000E20: 44 41 24 30 32 38 36 00  53 54 41 28 46 41 52 42  |DA$0286.STA(FARB|
00000E30: 45 4C 29 2C 59 00 49 4E  58 00 4A 4D 50 4F 32 00  |EL),Y.INX.JMPO2.|
00000E40: 4F 33 3A 4C 44 59 56 4F  4E 53 50 00 49 4E 58 00  |O3:LDYVONSP.INX.|
00000E50: 4F 32 3A 43 50 58 42 49  53 5A 3B C5 4E 44 45 20  |O2:CPXBISZ;.NDE |
00000E60: 3F 00 42 45 51 4F 42 45  4E 45 4E 44 45 00 4C 44  |?.BEQOBENENDE.LD|
00000E70: 41 24 45 43 46 30 2C 58  00 53 54 41 53 4C 00 53  |A$ECF0,X.STASL.S|
00000E80: 54 41 46 41 52 42 45 4C  00 4C 44 41 24 30 33 33  |TAFARBEL.LDA$033|
00000E90: 43 2C 58 00 53 54 41 46  41 52 42 45 48 00 4C 44  |C,X.STAFARBEH.LD|
00000EA0: 41 24 44 39 2C 58 3B D3  50 41 4C 54 45 20 C8 49  |A$D9,X;.PALTE .I|
00000EB0: 47 48 2D C2 59 54 45 00  41 4E 44 23 24 30 33 00  |GH-.YTE.AND#$03.|
00000EC0: 4F 52 41 24 30 32 38 38  00 53 54 41 53 48 00 4A  |ORA$0288.STASH.J|
00000ED0: 4D 50 4F 31 00 4F 42 45  4E 45 4E 44 45 3A 52 54  |MPO1.OBENENDE:RT|
00000EE0: 53 00 20 00 3B 2A 2A 2A  20 D3 43 52 4F 4C 4C 45  |S. .;*** .CROLLE|
00000EF0: 4E 20 4E 41 43 48 20 55  4E 54 45 4E 20 2A 2A 2A  |N NACH UNTEN ***|
00000F00: 00 4C 44 41 23 32 31 36  3B C6 41 52 42 54 41 42  |.LDA#216;.ARBTAB|
00000F10: 45 4C 4C 45 20 C8 49 47  48 2D C2 59 54 45 53 00  |ELLE .IGH-.YTES.|
00000F20: 53 54 41 24 30 33 33 43  00 53 54 41 24 30 33 33  |STA$033C.STA$033|
00000F30: 44 00 53 54 41 24 30 33  33 45 00 53 54 41 24 30  |D.STA$033E.STA$0|
00000F40: 33 33 46 00 53 54 41 24  30 33 34 30 00 53 54 41  |33F.STA$0340.STA|
00000F50: 24 30 33 34 31 00 53 54  41 24 30 33 34 32 00 4C  |$0341.STA$0342.L|
00000F60: 44 41 23 32 31 37 00 53  54 41 24 30 33 34 33 00  |DA#217.STA$0343.|
00000F70: 53 54 41 24 30 33 34 34  00 53 54 41 24 30 33 34  |STA$0344.STA$034|
00000F80: 35 00 53 54 41 24 30 33  34 36 00 53 54 41 24 30  |5.STA$0346.STA$0|
00000F90: 33 34 37 00 53 54 41 24  30 33 34 38 00 4C 44 41  |347.STA$0348.LDA|
00000FA0: 23 32 31 38 00 53 54 41  24 30 33 34 39 00 53 54  |#218.STA$0349.ST|
00000FB0: 41 24 30 33 34 41 00 53  54 41 24 30 33 34 42 00  |A$034A.STA$034B.|
00000FC0: 53 54 41 24 30 33 34 43  00 53 54 41 24 30 33 34  |STA$034C.STA$034|
00000FD0: 44 00 53 54 41 24 30 33  34 45 00 53 54 41 24 30  |D.STA$034E.STA$0|
00000FE0: 33 34 46 00 4C 44 41 23  32 31 39 00 53 54 41 24  |34F.LDA#219.STA$|
00000FF0: 30 33 35 30 00 53 54 41  24 30 33 35 31 00 53 54  |0350.STA$0351.ST|
00001000: 41 24 30 33 35 32 00 53  54 41 24 30 33 35 33 00  |A$0352.STA$0353.|
00001010: 53 54 41 24 30 33 35 34  00 4A 53 52 43 4B 43 4F  |STA$0354.JSRCKCO|
00001020: 4D 3B D0 41 52 41 4D 45  54 45 52 2D D5 45 42 45  |M;.ARAMETER-.EBE|
00001030: 52 47 41 42 45 00 4A 53  52 47 45 54 42 59 54 00  |RGABE.JSRGETBYT.|
00001040: 53 54 58 56 4F 4E 5A 00  44 45 43 56 4F 4E 5A 00  |STXVONZ.DECVONZ.|
00001050: 4A 53 52 43 4B 43 4F 4D  00 4A 53 52 47 45 54 42  |JSRCKCOM.JSRGETB|
00001060: 59 54 00 53 54 58 42 49  53 5A 00 44 45 43 42 49  |YT.STXBISZ.DECBI|
00001070: 53 5A 00 4A 53 52 43 4B  43 4F 4D 00 4A 53 52 47  |SZ.JSRCKCOM.JSRG|
00001080: 45 54 42 59 54 00 53 54  58 56 4F 4E 53 50 00 44  |ETBYT.STXVONSP.D|
00001090: 45 43 56 4F 4E 53 50 00  4A 53 52 43 4B 43 4F 4D  |ECVONSP.JSRCKCOM|
000010A0: 00 4A 53 52 47 45 54 42  59 54 00 53 54 58 42 49  |.JSRGETBYT.STXBI|
000010B0: 53 53 50 00 49 4E 43 42  49 53 53 50 00 4C 44 58  |SSP.INCBISSP.LDX|
000010C0: 42 49 53 5A 00 4C 44 59  56 4F 4E 53 50 00 4A 4D  |BISZ.LDYVONSP.JM|
000010D0: 50 55 32 00 55 31 3A 49  4E 59 3B 4C 45 54 5A 54  |PU2.U1:INY;LETZT|
000010E0: 45 20 D3 50 41 4C 54 45  20 3F 00 43 50 59 42 49  |E .PALTE ?.CPYBI|
000010F0: 53 53 50 00 42 45 51 55  33 00 4C 44 41 28 53 4C  |SSP.BEQU3.LDA(SL|
00001100: 29 2C 59 3B 4E 45 49 4E  2C 20 41 4C 54 45 20 D0  |),Y;NEIN, ALTE .|
00001110: 4F 53 49 54 49 4F 4E 20  42 4C 41 4E 4B 00 49 4E  |OSITION BLANK.IN|
00001120: 58 00 50 48 41 00 4C 44  41 23 33 32 00 53 54 41  |X.PHA.LDA#32.STA|
00001130: 28 53 4C 29 2C 59 00 4C  44 41 24 45 43 46 30 2C  |(SL),Y.LDA$ECF0,|
00001140: 58 3B C6 41 52 42 45 20  48 4F 4C 45 4E 00 53 54  |X;.ARBE HOLEN.ST|
00001150: 41 53 4C 00 53 54 41 46  41 52 42 45 4C 00 4C 44  |ASL.STAFARBEL.LD|
00001160: 41 24 30 33 33 43 2C 58  00 53 54 41 46 41 52 42  |A$033C,X.STAFARB|
00001170: 45 48 00 4C 44 41 24 44  39 2C 58 3B D3 50 41 4C  |EH.LDA$D9,X;.PAL|
00001180: 54 45 20 C8 49 47 48 2D  C2 59 54 45 00 41 4E 44  |TE .IGH-.YTE.AND|
00001190: 23 24 30 33 00 4F 52 41  24 30 32 38 38 00 53 54  |#$03.ORA$0288.ST|
000011A0: 41 53 48 00 50 4C 41 3B  DA 45 49 43 48 45 4E 20  |ASH.PLA;.EICHEN |
000011B0: 4E 45 55 45 20 D0 4F 53  49 54 49 4F 4E 00 53 54  |NEUE .OSITION.ST|
000011C0: 41 28 53 4C 29 2C 59 00  4C 44 41 24 30 32 38 36  |A(SL),Y.LDA$0286|
000011D0: 00 53 54 41 28 46 41 52  42 45 4C 29 2C 59 00 44  |.STA(FARBEL),Y.D|
000011E0: 45 58 00 4A 4D 50 55 32  00 55 33 3A 4C 44 59 56  |EX.JMPU2.U3:LDYV|
000011F0: 4F 4E 53 50 00 44 45 58  00 55 32 3A 43 50 58 56  |ONSP.DEX.U2:CPXV|
00001200: 4F 4E 5A 3B C5 4E 44 45  20 3F 00 42 45 51 55 4E  |ONZ;.NDE ?.BEQUN|
00001210: 54 45 4E 45 4E 44 45 00  4C 44 41 24 45 43 46 30  |TENENDE.LDA$ECF0|
00001220: 2C 58 00 53 54 41 53 4C  00 53 54 41 46 41 52 42  |,X.STASL.STAFARB|
00001230: 45 4C 00 4C 44 41 24 30  33 33 43 2C 58 00 53 54  |EL.LDA$033C,X.ST|
00001240: 41 46 41 52 42 45 48 00  4C 44 41 24 44 39 2C 58  |AFARBEH.LDA$D9,X|
00001250: 3B D3 50 41 4C 54 45 20  C8 49 47 48 2D C2 59 54  |;.PALTE .IGH-.YT|
00001260: 45 00 41 4E 44 23 24 30  33 00 4F 52 41 24 30 32  |E.AND#$03.ORA$02|
00001270: 38 38 00 53 54 41 53 48  00 4A 4D 50 55 31 00 55  |88.STASH.JMPU1.U|
00001280: 4E 54 45 4E 45 4E 44 45  3A 52 54 53 00 20 00 3B  |NTENENDE:RTS. .;|
00001290: 2A 2A 2A 20 D0 52 49 4E  54 2D D5 53 49 4E 47 20  |*** .RINT-.SING |
000012A0: 2A 2A 2A 00 46 52 4D 4E  55 4D 3A 2E 45 51 24 41  |***.FRMNUM:.EQ$A|
000012B0: 44 38 41 3B C1 55 53 44  52 55 43 4B 20 41 55 53  |D8A;.USDRUCK AUS|
000012C0: 57 45 52 54 45 4E 00 41  53 43 49 49 3A 2E 45 51  |WERTEN.ASCII:.EQ|
000012D0: 24 42 44 44 44 3B 49 4E  20 C1 D3 C3 C9 C9 20 55  |$BDDD;IN ..... U|
000012E0: 4D 57 41 4E 44 45 4C 4E  00 4F 55 54 3A 2E 45 51  |MWANDELN.OUT:.EQ|
000012F0: 24 41 42 31 45 3B DA 45  49 43 48 45 4E 20 41 55  |$AB1E;.EICHEN AU|
00001300: 53 47 45 42 45 4E 00 20  00 4A 53 52 43 4B 43 4F  |SGEBEN. .JSRCKCO|
00001310: 4D 3B D0 41 52 41 4D 45  54 45 52 2D D5 45 42 45  |M;.ARAMETER-.EBE|
00001320: 52 47 41 42 45 00 4A 53  52 47 45 54 42 59 54 00  |RGABE.JSRGETBYT.|
00001330: 53 54 58 42 49 53 5A 00  4A 53 52 43 4B 43 4F 4D  |STXBISZ.JSRCKCOM|
00001340: 00 4A 53 52 47 45 54 42  59 54 00 53 54 58 56 4F  |.JSRGETBYT.STXVO|
00001350: 4E 5A 00 4A 53 52 43 4B  43 4F 4D 00 4A 53 52 46  |NZ.JSRCKCOM.JSRF|
00001360: 52 4D 4E 55 4D 00 4A 53  52 41 53 43 49 49 00 4A  |RMNUM.JSRASCII.J|
00001370: 53 52 55 53 49 4E 47 00  50 48 41 00 54 59 41 00  |SRUSING.PHA.TYA.|
00001380: 50 48 41 00 4C 44 59 42  49 53 5A 00 4C 44 58 56  |PHA.LDYBISZ.LDXV|
00001390: 4F 4E 5A 00 43 4C 43 00  4A 53 52 43 55 52 53 4F  |ONZ.CLC.JSRCURSO|
000013A0: 52 00 50 4C 41 00 54 41  59 00 50 4C 41 00 4A 53  |R.PLA.TAY.PLA.JS|
000013B0: 52 4F 55 54 00 52 54 53  00 55 53 49 4E 47 3A 4C  |ROUT.RTS.USING:L|
000013C0: 44 41 23 27 45 00 4A 53  52 43 48 45 43 4B 3B 45  |DA#'E.JSRCHECK;E|
000013D0: 52 53 54 45 53 20 DA 45  49 43 48 45 4E 20 49 4D  |RSTES .EICHEN IM|
000013E0: 20 C5 49 4E 47 41 42 45  2D 00 42 43 53 53 45 54  | .INGABE-.BCSSET|
000013F0: 50 54 52 3B 50 55 46 46  45 52 20 53 55 43 48 45  |PTR;PUFFER SUCHE|
00001400: 4E 00 4C 44 41 44 45 43  49 4E 54 00 42 45 51 49  |N.LDADECINT.BEQI|
00001410: 4E 54 45 47 45 52 00 4C  44 41 24 31 30 32 00 42  |NTEGER.LDA$102.B|
00001420: 4E 45 50 55 31 00 4C 44  59 4C 45 4E 47 48 54 00  |NEPU1.LDYLENGHT.|
00001430: 4C 44 41 23 27 30 00 50  55 32 3A 53 54 41 24 31  |LDA#'0.PU2:STA$1|
00001440: 30 32 2C 59 00 44 45 59  3B DA 45 49 43 48 45 4E  |02,Y.DEY;.EICHEN|
00001450: 20 49 4D 20 D0 55 46 46  45 52 20 55 4D 53 54 45  | IM .UFFER UMSTE|
00001460: 4C 4C 45 4E 00 42 4E 45  50 55 32 00 50 55 31 3A  |LLEN.BNEPU2.PU1:|
00001470: 4C 44 41 23 27 2E 00 4A  53 52 43 48 45 43 4B 00  |LDA#'..JSRCHECK.|
00001480: 54 41 59 00 42 43 43 2A  2B 34 00 4C 44 59 23 27  |TAY.BCC*+4.LDY#'|
00001490: 30 00 4C 44 41 23 30 00  4A 53 52 43 48 45 43 4B  |0.LDA#0.JSRCHECK|
000014A0: 00 54 59 41 00 53 54 41  24 31 30 30 2C 58 00 4C  |.TYA.STA$100,X.L|
000014B0: 44 41 23 27 2E 00 4A 53  52 43 48 45 43 4B 00 4C  |DA#'..JSRCHECK.L|
000014C0: 44 59 44 45 43 4C 45 4E  00 50 55 33 3A 49 4E 58  |DYDECLEN.PU3:INX|
000014D0: 00 44 45 59 00 42 4E 45  50 55 33 00 50 55 38 3A  |.DEY.BNEPU3.PU8:|
000014E0: 43 50 58 4C 45 4E 47 48  54 00 42 43 53 53 45 54  |CPXLENGHT.BCSSET|
000014F0: 50 54 52 00 4C 44 59 4C  45 4E 47 48 54 00 4C 44  |PTR.LDYLENGHT.LD|
00001500: 41 23 30 00 53 54 41 24  31 30 31 2C 59 00 50 55  |A#0.STA$101,Y.PU|
00001510: 36 3A 4C 44 41 24 31 30  30 2C 58 00 43 4D 50 23  |6:LDA$100,X.CMP#|
00001520: 33 32 00 42 4E 45 50 55  35 00 4C 44 41 23 33 32  |32.BNEPU5.LDA#32|
00001530: 00 50 55 35 3A 53 54 41  24 31 30 30 2C 59 00 44  |.PU5:STA$100,Y.D|
00001540: 45 58 00 42 50 4C 50 55  34 00 4C 44 41 46 49 4C  |EX.BPLPU4.LDAFIL|
00001550: 4C 45 52 00 44 45 59 00  42 50 4C 50 55 35 00 50  |LER.DEY.BPLPU5.P|
00001560: 55 34 3A 44 45 59 00 42  50 4C 50 55 36 00 53 45  |U4:DEY.BPLPU6.SE|
00001570: 54 50 54 52 3A 4C 44 59  4C 45 4E 47 48 54 00 4C  |TPTR:LDYLENGHT.L|
00001580: 44 41 23 30 00 53 54 41  24 31 30 31 2C 59 00 4C  |DA#0.STA$101,Y.L|
00001590: 44 41 23 30 00 4C 44 59  23 31 00 52 54 53 00 49  |DA#0.LDY#1.RTS.I|
000015A0: 4E 54 45 47 45 52 3A 4C  44 41 23 30 00 4A 53 52  |NTEGER:LDA#0.JSR|
000015B0: 43 48 45 43 4B 00 42 43  43 53 45 54 50 54 52 00  |CHECK.BCCSETPTR.|
000015C0: 54 58 41 00 54 41 59 00  4C 44 41 24 31 30 32 00  |TXA.TAY.LDA$102.|
000015D0: 42 45 51 50 55 37 00 4C  44 41 23 27 2E 00 4A 53  |BEQPU7.LDA#'..JS|
000015E0: 52 43 48 45 43 4B 00 42  43 43 50 55 37 00 54 58  |RCHECK.BCCPU7.TX|
000015F0: 41 00 54 41 59 00 50 55  37 3A 54 59 41 00 54 41  |A.TAY.PU7:TYA.TA|
00001600: 58 00 44 45 58 00 42 50  4C 50 55 38 00 43 48 45  |X.DEX.BPLPU8.CHE|
00001610: 43 4B 3A 4C 44 58 23 30  3B 45 52 53 54 45 53 20  |CK:LDX#0;ERSTES |
00001620: DA 45 49 43 48 45 4E 20  49 4D 20 C5 49 4E 47 41  |.EICHEN IM .INGA|
00001630: 42 45 2D D0 55 46 46 45  52 00 50 55 39 3A 43 4D  |BE-.UFFER.PU9:CM|
00001640: 50 24 31 30 30 2C 58 00  42 45 51 50 55 31 30 00  |P$100,X.BEQPU10.|
00001650: 49 4E 58 00 43 50 58 23  31 32 00 42 4E 45 50 55  |INX.CPX#12.BNEPU|
00001660: 39 00 43 4C 43 00 50 55  31 30 3A 52 54 53 00 44  |9.CLC.PU10:RTS.D|
00001670: 45 43 49 4E 54 3A 2E 42  59 31 00 4C 45 4E 47 48  |ECINT:.BY1.LENGH|
00001680: 54 3A 2E 42 59 39 00 44  45 43 4C 45 4E 3A 2E 42  |T:.BY9.DECLEN:.B|
00001690: 59 32 00 46 49 4C 4C 45  52 3A 2E 42 59 22 20 22  |Y2.FILLER:.BY" "|
000016A0: 00 4C 45 41 44 49 4E 47  3A 2E 45 51 50 55 35 2D  |.LEADING:.EQPU5-|
000016B0: 31 00 20 00 3B 2A 2A 2A  20 C8 41 52 44 43 4F 50  |1. .;*** .ARDCOP|
000016C0: 59 20 2A 2A 2A 00 54 45  4D 50 3A 2E 45 51 24 41  |Y ***.TEMP:.EQ$A|
000016D0: 37 00 4F 50 45 4E 3A 2E  45 51 24 46 46 43 30 3B  |7.OPEN:.EQ$FFC0;|
000016E0: C4 52 55 43 4B 45 52 2D  CB 41 4E 41 4C 20 4F 45  |.RUCKER-.ANAL OE|
000016F0: 46 46 4E 45 4E 00 43 4C  4F 53 45 3A 2E 45 51 24  |FFNEN.CLOSE:.EQ$|
00001700: 46 46 43 33 3B 20 20 20  20 20 20 20 20 20 20 20  |FFC3;           |
00001710: 20 20 20 53 43 48 4C 49  45 53 53 45 4E 00 43 4B  |   SCHLIESSEN.CK|
00001720: 4F 55 54 3A 2E 45 51 24  46 46 43 39 00 42 53 4F  |OUT:.EQ$FFC9.BSO|
00001730: 55 54 3A 2E 45 51 24 46  46 44 32 3B 45 49 4E 20  |UT:.EQ$FFD2;EIN |
00001740: DA 45 49 43 48 45 4E 20  41 55 53 47 45 42 45 4E  |.EICHEN AUSGEBEN|
00001750: 00 46 49 4C 45 50 3A 2E  45 51 24 46 46 42 41 3B  |.FILEP:.EQ$FFBA;|
00001760: C6 49 4C 45 50 41 52 41  4D 45 54 45 52 20 53 45  |.ILEPARAMETER SE|
00001770: 54 5A 45 4E 00 53 45 54  4E 41 4D 3A 2E 45 51 24  |TZEN.SETNAM:.EQ$|
00001780: 46 46 42 44 00 43 4C 52  43 48 3A 2E 45 51 24 46  |FFBD.CLRCH:.EQ$F|
00001790: 46 43 43 3B C1 55 53 47  41 42 45 2D CB 41 4E 41  |FCC;.USGABE-.ANA|
000017A0: 4C 20 4C 4F 45 53 43 48  45 4E 00 53 54 4F 52 45  |L LOESCHEN.STORE|
000017B0: 3A 2E 45 51 24 42 30 00  20 00 4C 44 41 23 31 3B  |:.EQ$B0. .LDA#1;|
000017C0: C6 49 4C 45 50 41 52 41  4D 45 54 45 52 20 46 55  |.ILEPARAMETER FU|
000017D0: 45 52 20 C4 52 55 43 4B  41 55 53 47 41 42 45 00  |ER .RUCKAUSGABE.|
000017E0: 4C 44 58 23 34 00 4C 44  59 23 37 00 4A 53 52 46  |LDX#4.LDY#7.JSRF|
000017F0: 49 4C 45 50 00 4C 44 41  23 30 00 4A 53 52 53 45  |ILEP.LDA#0.JSRSE|
00001800: 54 4E 41 4D 00 4A 53 52  4F 50 45 4E 00 4C 44 58  |TNAM.JSROPEN.LDX|
00001810: 23 31 00 4A 53 52 43 4B  4F 55 54 00 4C 44 41 23  |#1.JSRCKOUT.LDA#|
00001820: 30 00 4C 44 59 23 34 00  53 54 41 54 45 4D 50 00  |0.LDY#4.STATEMP.|
00001830: 53 54 59 54 45 4D 50 2B  31 00 4C 44 58 23 32 35  |STYTEMP+1.LDX#25|
00001840: 00 48 31 3A 4C 44 41 23  31 33 3B DA 45 49 4C 45  |.H1:LDA#13;.EILE|
00001850: 4E 56 4F 52 53 43 48 55  42 00 4A 53 52 42 53 4F  |NVORSCHUB.JSRBSO|
00001860: 55 54 00 4C 44 59 23 30  00 48 32 3A 4C 44 41 28  |UT.LDY#0.H2:LDA(|
00001870: 54 45 4D 50 29 2C 59 00  53 54 41 53 54 4F 52 45  |TEMP),Y.STASTORE|
00001880: 3B C2 49 4C 44 53 43 48  49 52 4D 43 4F 44 45 20  |;.ILDSCHIRMCODE |
00001890: 55 4D 57 41 4E 44 45 4C  4E 00 41 4E 44 23 24 33  |UMWANDELN.AND#$3|
000018A0: 46 00 41 53 4C 53 54 4F  52 45 00 42 49 54 53 54  |F.ASLSTORE.BITST|
000018B0: 4F 52 45 00 42 50 4C 2A  2B 34 00 4F 52 41 23 24  |ORE.BPL*+4.ORA#$|
000018C0: 38 30 00 42 56 53 2A 2B  34 00 4F 52 41 23 24 34  |80.BVS*+4.ORA#$4|
000018D0: 30 00 4A 53 52 42 53 4F  55 54 3B DA 45 49 43 48  |0.JSRBSOUT;.EICH|
000018E0: 45 4E 20 41 55 53 47 45  42 45 4E 00 49 4E 59 00  |EN AUSGEBEN.INY.|
000018F0: 43 50 59 23 34 30 00 42  4E 45 48 32 00 54 59 41  |CPY#40.BNEH2.TYA|
00001900: 00 43 4C 43 00 41 44 43  54 45 4D 50 00 53 54 41  |.CLC.ADCTEMP.STA|
00001910: 54 45 4D 50 00 42 43 43  2A 2B 34 00 49 4E 43 54  |TEMP.BCC*+4.INCT|
00001920: 45 4D 50 2B 31 00 44 45  58 00 42 4E 45 48 31 00  |EMP+1.DEX.BNEH1.|
00001930: 4C 44 41 23 31 33 00 4A  53 52 42 53 4F 55 54 00  |LDA#13.JSRBSOUT.|
00001940: 45 58 49 54 3A 4A 53 52  43 4C 52 43 48 00 4C 44  |EXIT:JSRCLRCH.LD|
00001950: 41 23 31 00 4A 4D 50 43  4C 4F 53 45 00 20 00 3B  |A#1.JMPCLOSE. .;|
00001960: 2A 2A 2A 20 C3 4C 45 41  52 20 2A 2A 2A 00 4C 44  |*** .LEAR ***.LD|
00001970: 41 23 24 30 34 3B C6 41  52 42 54 41 42 45 4C 4C  |A#$04;.ARBTABELL|
00001980: 45 20 2D 20 C8 49 47 48  20 C2 59 54 45 53 00 53  |E - .IGH .YTES.S|
00001990: 54 41 24 30 33 45 30 00  53 54 41 24 30 33 45 31  |TA$03E0.STA$03E1|
000019A0: 00 53 54 41 24 30 33 45  32 00 53 54 41 24 30 33  |.STA$03E2.STA$03|
000019B0: 45 33 00 53 54 41 24 30  33 45 34 00 53 54 41 24  |E3.STA$03E4.STA$|
000019C0: 30 33 45 35 00 53 54 41  24 30 33 45 36 00 4C 44  |03E5.STA$03E6.LD|
000019D0: 41 23 24 30 35 00 53 54  41 24 30 33 45 37 00 53  |A#$05.STA$03E7.S|
000019E0: 54 41 24 30 33 45 38 00  53 54 41 24 30 33 45 39  |TA$03E8.STA$03E9|
000019F0: 00 53 54 41 24 30 33 45  41 00 53 54 41 24 30 33  |.STA$03EA.STA$03|
00001A00: 45 42 00 53 54 41 24 30  33 45 43 00 4C 44 41 23  |EB.STA$03EC.LDA#|
00001A10: 24 30 36 00 53 54 41 24  30 33 45 44 00 53 54 41  |$06.STA$03ED.STA|
00001A20: 24 30 33 45 45 00 53 54  41 24 30 33 45 46 00 53  |$03EE.STA$03EF.S|
00001A30: 54 41 24 30 33 46 30 00  53 54 41 24 30 33 46 31  |TA$03F0.STA$03F1|
00001A40: 00 53 54 41 24 30 33 46  32 00 53 54 41 24 30 33  |.STA$03F2.STA$03|
00001A50: 46 33 00 4C 44 41 23 24  30 37 00 53 54 41 24 30  |F3.LDA#$07.STA$0|
00001A60: 33 46 34 00 53 54 41 24  30 33 46 35 00 53 54 41  |3F4.STA$03F5.STA|
00001A70: 24 30 33 46 36 00 53 54  41 24 30 33 46 37 00 53  |$03F6.STA$03F7.S|
00001A80: 54 41 24 30 33 46 38 00  4A 53 52 43 4B 43 4F 4D  |TA$03F8.JSRCKCOM|
00001A90: 3B D0 41 52 41 4D 45 54  45 52 2D D5 45 42 45 52  |;.ARAMETER-.EBER|
00001AA0: 47 41 42 45 00 4A 53 52  47 45 54 42 59 54 00 53  |GABE.JSRGETBYT.S|
00001AB0: 54 58 56 4F 4E 5A 00 4A  53 52 43 4B 43 4F 4D 00  |TXVONZ.JSRCKCOM.|
00001AC0: 4A 53 52 47 45 54 42 59  54 00 49 4E 58 00 53 54  |JSRGETBYT.INX.ST|
00001AD0: 58 42 49 53 5A 00 4A 53  52 43 4B 43 4F 4D 00 4A  |XBISZ.JSRCKCOM.J|
00001AE0: 53 52 47 45 54 42 59 54  00 53 54 58 56 4F 4E 53  |SRGETBYT.STXVONS|
00001AF0: 50 00 44 45 43 56 4F 4E  53 50 00 4A 53 52 43 4B  |P.DECVONSP.JSRCK|
00001B00: 43 4F 4D 00 4A 53 52 47  45 54 42 59 54 00 53 54  |COM.JSRGETBYT.ST|
00001B10: 58 42 49 53 53 50 00 49  4E 43 42 49 53 53 50 00  |XBISSP.INCBISSP.|
00001B20: 4C 44 58 56 4F 4E 5A 00  4C 44 59 56 4F 4E 53 50  |LDXVONZ.LDYVONSP|
00001B30: 00 4A 4D 50 43 32 00 43  31 3A 49 4E 59 3B 4C 45  |.JMPC2.C1:INY;LE|
00001B40: 54 5A 54 45 20 D3 50 41  4C 54 45 3F 00 43 50 59  |TZTE .PALTE?.CPY|
00001B50: 42 49 53 53 50 00 42 45  51 43 33 00 4C 44 41 23  |BISSP.BEQC3.LDA#|
00001B60: 33 32 3B 4E 45 49 4E 2C  20 4C 4F 45 53 43 48 45  |32;NEIN, LOESCHE|
00001B70: 4E 00 53 54 41 28 53 4C  29 2C 59 00 4A 4D 50 43  |N.STA(SL),Y.JMPC|
00001B80: 31 00 43 33 3A 4C 44 59  56 4F 4E 53 50 00 49 4E  |1.C3:LDYVONSP.IN|
00001B90: 58 00 43 32 3A 43 50 58  42 49 53 5A 3B 4C 45 54  |X.C2:CPXBISZ;LET|
00001BA0: 5A 54 45 20 DA 45 49 4C  45 20 3F 00 42 45 51 43  |ZTE .EILE ?.BEQC|
00001BB0: 4C 45 41 52 45 4E 44 45  3B 4A 41 2C 20 45 4E 44  |LEARENDE;JA, END|
00001BC0: 45 00 4C 44 41 24 45 43  46 30 2C 58 3B 4E 45 49  |E.LDA$ECF0,X;NEI|
00001BD0: 4E 2C 20 C6 41 52 42 45  20 53 45 54 5A 45 4E 00  |N, .ARBE SETZEN.|
00001BE0: 53 54 41 53 4C 00 4C 44  41 24 30 33 45 30 2C 58  |STASL.LDA$03E0,X|
00001BF0: 00 53 54 41 53 48 00 4A  4D 50 43 31 00 43 4C 45  |.STASH.JMPC1.CLE|
00001C00: 41 52 45 4E 44 45 3A 52  54 53 00 20 00 3B 2A 2A  |ARENDE:RTS. .;**|
00001C10: 2A 20 C9 4E 50 55 54 20  2A 2A 2A 00 53 50 3A 2E  |* .NPUT ***.SP:.|
00001C20: 45 51 24 33 46 42 3B D3  50 41 4C 54 45 00 5A 45  |EQ$3FB;.PALTE.ZE|
00001C30: 3A 2E 45 51 24 33 46 41  3B DA 45 49 4C 45 00 41  |:.EQ$3FA;.EILE.A|
00001C40: 4E 5A 3A 2E 45 51 24 33  46 39 3B C1 4E 5A 41 48  |NZ:.EQ$3F9;.NZAH|
00001C50: 4C 20 DA 45 49 43 48 45  4E 00 56 41 52 48 4F 4C  |L .EICHEN.VARHOL|
00001C60: 3A 2E 45 51 24 42 30 38  42 3B D6 41 52 49 41 42  |:.EQ$B08B;.ARIAB|
00001C70: 4C 45 20 48 4F 4C 45 4E  00 52 45 56 3A 2E 45 51  |LE HOLEN.REV:.EQ|
00001C80: 24 33 46 38 3B D2 45 56  45 52 53 20 C4 41 52 53  |$3F8;.EVERS .ARS|
00001C90: 54 45 4C 4C 55 4E 47 00  5A 5A 45 3A 2E 45 51 24  |TELLUNG.ZZE:.EQ$|
00001CA0: 33 46 36 00 53 53 50 3A  2E 45 51 24 33 46 37 00  |3F6.SSP:.EQ$3F7.|
00001CB0: 5A 5A 3A 2E 45 51 24 33  46 35 00 53 54 52 49 4E  |ZZ:.EQ$3F5.STRIN|
00001CC0: 47 3A 2E 45 51 24 42 37  42 44 3B D3 54 52 49 4E  |G:.EQ$B7BD;.TRIN|
00001CD0: 47 2D D0 41 52 41 4D 45  54 45 52 20 53 45 54 5A  |G-.ARAMETER SETZ|
00001CE0: 45 4E 00 46 41 43 54 4F  56 41 52 3A 2E 45 51 24  |EN.FACTOVAR:.EQ$|
00001CF0: 42 42 44 30 3B C6 C1 C3  20 41 4E 20 D6 41 52 49  |BBD0;... AN .ARI|
00001D00: 41 42 4C 45 20 55 45 42  45 52 47 45 42 45 4E 00  |ABLE UEBERGEBEN.|
00001D10: 56 49 44 45 4F 4C 4F 3A  2E 45 51 24 41 37 3B D6  |VIDEOLO:.EQ$A7;.|
00001D20: 49 44 45 4F 4D 41 54 52  49 58 00 56 49 44 45 4F  |IDEOMATRIX.VIDEO|
00001D30: 48 49 3A 2E 45 51 24 41  38 00 20 00 4A 53 52 43  |HI:.EQ$A8. .JSRC|
00001D40: 4B 43 4F 4D 3B D0 41 52  41 4D 45 54 45 52 20 55  |KCOM;.ARAMETER U|
00001D50: 45 42 45 52 47 45 42 45  4E 00 4A 53 52 47 45 54  |EBERGEBEN.JSRGET|
00001D60: 42 59 54 00 53 54 58 53  50 00 4A 53 52 43 4B 43  |BYT.STXSP.JSRCKC|
00001D70: 4F 4D 00 4A 53 52 47 45  54 42 59 54 00 53 54 58  |OM.JSRGETBYT.STX|
00001D80: 5A 45 00 4A 53 52 43 4B  43 4F 4D 00 4A 53 52 47  |ZE.JSRCKCOM.JSRG|
00001D90: 45 54 42 59 54 00 43 50  58 23 31 37 31 00 42 43  |ETBYT.CPX#171.BC|
00001DA0: 53 47 36 30 00 53 54 58  41 4E 5A 00 4A 53 52 43  |SG60.STXANZ.JSRC|
00001DB0: 4B 43 4F 4D 00 4A 53 52  47 45 54 42 59 54 00 53  |KCOM.JSRGETBYT.S|
00001DC0: 54 58 52 45 56 00 4A 53  52 43 4B 43 4F 4D 00 4A  |TXREV.JSRCKCOM.J|
00001DD0: 53 52 56 41 52 48 4F 4C  00 4C 44 41 24 37 41 3B  |SRVARHOL.LDA$7A;|
00001DE0: D0 52 4F 47 52 41 4D 4D  5A 45 49 47 45 52 20 52  |.ROGRAMMZEIGER R|
00001DF0: 45 54 54 45 4E 00 50 48  41 00 4C 44 41 24 37 42  |ETTEN.PHA.LDA$7B|
00001E00: 00 50 48 41 00 47 30 3A  4A 53 52 4F 46 46 30 00  |.PHA.G0:JSROFF0.|
00001E10: 4A 53 52 47 31 30 00 4A  53 52 47 32 00 4A 53 52  |JSRG10.JSRG2.JSR|
00001E20: 47 34 00 50 4C 41 00 53  54 41 24 37 42 00 50 4C  |G4.PLA.STA$7B.PL|
00001E30: 41 00 53 54 41 24 37 41  00 52 54 53 00 47 36 30  |A.STA$7A.RTS.G60|
00001E40: 3A 4C 44 58 23 24 31 37  00 4A 4D 50 24 41 34 33  |:LDX#$17.JMP$A43|
00001E50: 37 00 3B C5 49 4E 47 41  42 45 46 45 4C 44 20 4E  |7.;.INGABEFELD N|
00001E60: 49 43 48 54 20 52 45 56  45 52 53 00 47 32 3A 4C  |ICHT REVERS.G2:L|
00001E70: 44 41 23 30 00 53 54 41  24 43 37 00 53 54 41 24  |DA#0.STA$C7.STA$|
00001E80: 43 36 00 4C 44 59 41 4E  5A 00 47 58 32 3A 4C 44  |C6.LDYANZ.GX2:LD|
00001E90: 41 28 56 49 44 45 4F 4C  4F 29 2C 59 00 41 4E 44  |A(VIDEOLO),Y.AND|
00001EA0: 23 31 32 37 00 53 54 41  28 56 49 44 45 4F 4C 4F  |#127.STA(VIDEOLO|
00001EB0: 29 2C 59 00 44 45 59 00  42 50 4C 47 58 32 00 52  |),Y.DEY.BPLGX2.R|
00001EC0: 54 53 00 3B CF 46 46 53  45 54 20 46 55 45 52 20  |TS.;.FFSET FUER |
00001ED0: D6 49 44 45 4F 00 4F 46  46 30 3A 4C 44 41 23 30  |.IDEO.OFF0:LDA#0|
00001EE0: 00 53 54 41 56 49 44 45  4F 4C 4F 00 4C 44 41 23  |.STAVIDEOLO.LDA#|
00001EF0: 24 34 00 53 54 41 56 49  44 45 4F 48 49 00 4C 44  |$4.STAVIDEOHI.LD|
00001F00: 58 5A 45 00 4F 46 46 31  3A 4C 44 41 56 49 44 45  |XZE.OFF1:LDAVIDE|
00001F10: 4F 4C 4F 00 44 45 58 00  42 4D 49 4F 46 46 32 00  |OLO.DEX.BMIOFF2.|
00001F20: 43 4C 43 00 41 44 43 23  34 30 00 53 54 41 56 49  |CLC.ADC#40.STAVI|
00001F30: 44 45 4F 4C 4F 00 42 43  43 4F 46 46 31 00 49 4E  |DEOLO.BCCOFF1.IN|
00001F40: 43 56 49 44 45 4F 48 49  00 4A 4D 50 4F 46 46 31  |CVIDEOHI.JMPOFF1|
00001F50: 00 4F 46 46 32 3A 4C 44  41 56 49 44 45 4F 4C 4F  |.OFF2:LDAVIDEOLO|
00001F60: 00 43 4C 43 00 41 44 43  53 50 00 53 54 41 56 49  |.CLC.ADCSP.STAVI|
00001F70: 44 45 4F 4C 4F 00 42 43  43 4F 46 46 33 00 49 4E  |DEOLO.BCCOFF3.IN|
00001F80: 43 56 49 44 45 4F 48 49  00 4F 46 46 33 3A 52 54  |CVIDEOHI.OFF3:RT|
00001F90: 53 00 3B C3 55 52 53 4F  52 20 4E 41 43 48 20 4C  |S.;.URSOR NACH L|
00001FA0: 49 4E 4B 53 00 43 55 52  53 4C 49 3A 44 45 43 5A  |INKS.CURSLI:DECZ|
00001FB0: 5A 00 4C 44 59 5A 5A 00  43 50 59 23 24 46 46 00  |Z.LDYZZ.CPY#$FF.|
00001FC0: 42 4E 45 52 45 31 00 49  4E 43 5A 5A 00 52 54 53  |BNERE1.INCZZ.RTS|
00001FD0: 00 52 45 31 3A 44 45 43  53 53 50 00 42 50 4C 52  |.RE1:DECSSP.BPLR|
00001FE0: 45 32 00 44 45 43 5A 5A  45 00 4C 44 41 23 33 39  |E2.DECZZE.LDA#39|
00001FF0: 00 53 54 41 53 53 50 00  52 45 32 3A 4C 44 59 5A  |.STASSP.RE2:LDYZ|
00002000: 5A 00 49 4E 59 00 4C 44  41 28 56 49 44 45 4F 4C  |Z.INY.LDA(VIDEOL|
00002010: 4F 29 2C 59 00 41 4E 44  23 31 32 37 00 53 54 41  |O),Y.AND#127.STA|
00002020: 28 56 49 44 45 4F 4C 4F  29 2C 59 00 52 54 53 00  |(VIDEOLO),Y.RTS.|
00002030: 3B C3 55 52 53 4F 52 20  4E 41 43 48 20 52 45 43  |;.URSOR NACH REC|
00002040: 48 54 53 00 43 55 52 53  52 45 3A 49 4E 43 5A 5A  |HTS.CURSRE:INCZZ|
00002050: 00 4C 44 59 5A 5A 00 43  50 59 41 4E 5A 00 42 45  |.LDYZZ.CPYANZ.BE|
00002060: 51 4C 49 31 00 42 43 43  4C 49 31 00 44 45 43 5A  |QLI1.BCCLI1.DECZ|
00002070: 5A 00 52 54 53 00 4C 49  31 3A 44 45 59 00 4C 44  |Z.RTS.LI1:DEY.LD|
00002080: 41 28 56 49 44 45 4F 4C  4F 29 2C 59 00 41 4E 44  |A(VIDEOLO),Y.AND|
00002090: 23 31 32 37 00 53 54 41  28 56 49 44 45 4F 4C 4F  |#127.STA(VIDEOLO|
000020A0: 29 2C 59 00 49 4E 43 53  53 50 00 4C 44 58 53 53  |),Y.INCSSP.LDXSS|
000020B0: 50 00 43 50 58 23 34 30  00 42 43 43 4C 49 33 00  |P.CPX#40.BCCLI3.|
000020C0: 49 4E 43 5A 5A 45 00 4C  44 41 23 30 00 53 54 41  |INCZZE.LDA#0.STA|
000020D0: 53 53 50 00 4C 49 33 3A  52 54 53 00 3B D3 54 52  |SSP.LI3:RTS.;.TR|
000020E0: 49 4E 47 20 4E 41 43 48  20 D6 41 52 49 41 42 4C  |ING NACH .ARIABL|
000020F0: 45 00 47 34 3A 4C 44 41  52 45 56 00 43 4D 50 23  |E.G4:LDAREV.CMP#|
00002100: 30 00 42 45 51 47 47 36  00 4C 44 58 23 24 30 30  |0.BEQGG6.LDX#$00|
00002110: 00 53 54 58 24 30 44 00  53 54 58 24 30 45 00 4A  |.STX$0D.STX$0E.J|
00002120: 4D 50 47 47 39 00 47 47  36 3A 4C 44 58 23 24 46  |MPGG9.GG6:LDX#$F|
00002130: 46 00 4C 44 41 41 4E 5A  00 53 54 58 24 30 44 00  |F.LDAANZ.STX$0D.|
00002140: 4A 53 52 24 42 34 46 34  00 4C 44 59 23 30 00 4C  |JSR$B4F4.LDY#0.L|
00002150: 44 41 41 4E 5A 00 53 54  41 28 24 34 37 29 2C 59  |DAANZ.STA($47),Y|
00002160: 00 49 4E 59 00 4C 44 41  24 33 33 00 53 54 41 28  |.INY.LDA$33.STA(|
00002170: 24 34 37 29 2C 59 00 49  4E 59 00 4C 44 41 24 33  |$47),Y.INY.LDA$3|
00002180: 34 00 53 54 41 28 24 34  37 29 2C 59 00 4C 44 59  |4.STA($47),Y.LDY|
00002190: 23 30 00 47 38 3A 4C 44  41 28 56 49 44 45 4F 4C  |#0.G8:LDA(VIDEOL|
000021A0: 4F 29 2C 59 00 4A 53 52  41 53 43 00 53 54 41 28  |O),Y.JSRASC.STA(|
000021B0: 24 33 33 29 2C 59 00 49  4E 59 00 43 50 59 41 4E  |$33),Y.INY.CPYAN|
000021C0: 5A 00 42 45 51 47 39 00  4A 4D 50 47 38 00 47 47  |Z.BEQG9.JMPG8.GG|
000021D0: 39 3A 4C 44 41 23 24 30  32 00 53 54 41 24 32 32  |9:LDA#$02.STA$22|
000021E0: 00 53 54 41 24 32 33 00  4C 44 59 23 30 00 47 47  |.STA$23.LDY#0.GG|
000021F0: 31 3A 4C 44 41 28 56 49  44 45 4F 4C 4F 29 2C 59  |1:LDA(VIDEOLO),Y|
00002200: 00 53 54 41 24 32 30 32  2C 59 00 49 4E 59 00 43  |.STA$202,Y.INY.C|
00002210: 50 59 41 4E 5A 00 42 43  43 47 47 31 00 4C 44 41  |PYANZ.BCCGG1.LDA|
00002220: 23 27 3A 00 53 54 41 24  32 30 32 2C 59 00 4C 44  |#':.STA$202,Y.LD|
00002230: 41 41 4E 5A 00 43 4C 43  00 4A 53 52 53 54 52 49  |AANZ.CLC.JSRSTRI|
00002240: 4E 47 00 4C 44 41 24 34  37 00 53 54 41 24 34 39  |NG.LDA$47.STA$49|
00002250: 00 4C 44 41 24 34 38 00  53 54 41 24 34 41 00 4A  |.LDA$48.STA$4A.J|
00002260: 53 52 46 41 43 54 4F 56  41 52 00 47 39 3A 52 54  |SRFACTOVAR.G9:RT|
00002270: 53 00 3B C5 49 4E 47 41  42 45 20 55 4E 44 20 C1  |S.;.INGABE UND .|
00002280: 4E 5A 45 49 47 45 00 47  31 30 3A 4C 44 58 23 30  |NZEIGE.G10:LDX#0|
00002290: 00 53 54 58 24 32 37 37  00 53 54 58 5A 5A 00 53  |.STX$277.STXZZ.S|
000022A0: 54 58 24 43 36 00 47 47  31 30 3A 4C 44 41 53 50  |TX$C6.GG10:LDASP|
000022B0: 00 53 54 41 53 53 50 00  4C 44 41 5A 45 00 53 54  |.STASSP.LDAZE.ST|
000022C0: 41 5A 5A 45 00 4C 44 58  23 30 00 53 54 58 24 30  |AZZE.LDX#0.STX$0|
000022D0: 32 37 37 00 53 54 58 5A  5A 00 47 31 34 3A 4C 44  |277.STXZZ.G14:LD|
000022E0: 59 53 53 50 00 4C 44 58  5A 5A 45 00 43 4C 43 00  |YSSP.LDXZZE.CLC.|
000022F0: 4A 53 52 43 55 52 53 4F  52 3B C3 55 52 53 4F 52  |JSRCURSOR;.URSOR|
00002300: 20 53 45 54 5A 45 4E 00  4C 44 41 23 31 00 53 54  | SETZEN.LDA#1.ST|
00002310: 41 24 43 37 00 4C 44 59  5A 5A 00 4C 44 41 28 56  |A$C7.LDYZZ.LDA(V|
00002320: 49 44 45 4F 4C 4F 29 2C  59 00 4A 53 52 41 53 43  |IDEOLO),Y.JSRASC|
00002330: 00 4A 53 52 42 53 4F 55  54 00 4C 44 59 53 53 50  |.JSRBSOUT.LDYSSP|
00002340: 00 4C 44 58 5A 5A 45 00  43 4C 43 00 4A 53 52 43  |.LDXZZE.CLC.JSRC|
00002350: 55 52 53 4F 52 00 47 31  31 3A 4C 44 41 24 43 36  |URSOR.G11:LDA$C6|
00002360: 00 42 45 51 47 31 31 00  4C 44 41 24 32 37 37 00  |.BEQG11.LDA$277.|
00002370: 43 4D 50 23 31 33 00 42  4E 45 47 34 31 00 52 54  |CMP#13.BNEG41.RT|
00002380: 53 00 47 34 31 3A 43 4D  50 23 31 37 00 42 4E 45  |S.G41:CMP#17.BNE|
00002390: 47 37 30 00 4A 4D 50 47  32 32 00 47 37 30 3A 43  |G70.JMPG22.G70:C|
000023A0: 4D 50 23 31 39 00 42 4E  45 57 30 00 4A 4D 50 47  |MP#19.BNEW0.JMPG|
000023B0: 32 32 00 57 30 3A 43 4D  50 23 32 39 00 42 4E 45  |22.W0:CMP#29.BNE|
000023C0: 57 31 00 4A 53 52 43 55  52 53 52 45 00 4A 4D 50  |W1.JSRCURSRE.JMP|
000023D0: 47 31 36 00 57 31 3A 43  4D 50 23 33 00 42 45 51  |G16.W1:CMP#3.BEQ|
000023E0: 47 32 32 00 43 4D 50 23  31 34 35 00 42 45 51 47  |G22.CMP#145.BEQG|
000023F0: 32 32 00 43 4D 50 23 31  35 37 00 42 4E 45 57 32  |22.CMP#157.BNEW2|
00002400: 00 4A 53 52 43 55 52 53  4C 49 00 4A 4D 50 47 31  |.JSRCURSLI.JMPG1|
00002410: 36 00 57 32 3A 43 4D 50  23 31 34 37 00 42 45 51  |6.W2:CMP#147.BEQ|
00002420: 47 32 32 00 43 4D 50 23  32 30 00 42 4E 45 47 35  |G22.CMP#20.BNEG5|
00002430: 30 3B C4 45 4C 45 54 45  00 4C 44 41 23 30 00 43  |0;.ELETE.LDA#0.C|
00002440: 4D 50 5A 5A 00 42 45 51  47 32 32 00 4C 44 41 23  |MPZZ.BEQG22.LDA#|
00002450: 30 00 53 54 41 24 43 37  00 44 45 43 5A 5A 00 4C  |0.STA$C7.DECZZ.L|
00002460: 44 58 5A 5A 00 4C 44 41  23 33 32 00 4A 53 52 42  |DXZZ.LDA#32.JSRB|
00002470: 53 4F 55 54 00 44 45 43  53 53 50 00 42 4D 49 47  |SOUT.DECSSP.BMIG|
00002480: 35 31 00 4A 4D 50 47 32  32 00 47 35 31 3A 44 45  |51.JMPG22.G51:DE|
00002490: 43 5A 5A 45 00 4A 4D 50  47 32 32 00 47 35 30 3A  |CZZE.JMPG22.G50:|
000024A0: 4C 44 58 23 30 00 53 54  58 24 43 37 00 4A 53 52  |LDX#0.STX$C7.JSR|
000024B0: 42 53 4F 55 54 00 4C 44  41 23 30 00 53 54 41 24  |BSOUT.LDA#0.STA$|
000024C0: 43 36 00 49 4E 43 5A 5A  00 49 4E 43 53 53 50 00  |C6.INCZZ.INCSSP.|
000024D0: 4C 44 58 53 53 50 00 43  50 58 23 33 39 00 42 45  |LDXSSP.CPX#39.BE|
000024E0: 51 47 31 36 00 42 43 43  47 31 36 00 49 4E 43 5A  |QG16.BCCG16.INCZ|
000024F0: 5A 45 00 4C 44 41 23 30  00 53 54 41 53 53 50 00  |ZE.LDA#0.STASSP.|
00002500: 47 31 36 3A 4C 44 58 5A  5A 00 49 4E 58 00 43 50  |G16:LDXZZ.INX.CP|
00002510: 58 41 4E 5A 00 42 43 43  47 32 32 00 42 45 51 47  |XANZ.BCCG22.BEQG|
00002520: 32 32 00 4A 53 52 47 32  30 00 4A 53 52 47 32 00  |22.JSRG20.JSRG2.|
00002530: 4C 44 41 24 32 37 37 00  43 4D 50 23 31 33 00 42  |LDA$277.CMP#13.B|
00002540: 4E 45 47 37 31 00 52 54  53 00 47 37 31 3A 4A 4D  |NEG71.RTS.G71:JM|
00002550: 50 47 31 30 00 47 32 32  3A 4C 44 41 23 30 00 53  |PG10.G22:LDA#0.S|
00002560: 54 41 24 43 36 00 4A 4D  50 47 31 34 00 47 31 33  |TA$C6.JMPG14.G13|
00002570: 3A 52 54 53 00 3B C1 4E  5A 45 49 47 45 20 49 4E  |:RTS.;.NZEIGE IN|
00002580: D2 45 56 45 52 53 20 42  45 49 20 45 52 52 45 49  |.EVERS BEI ERREI|
00002590: 43 48 45 4E 20 C1 4E 5A  41 48 4C 00 47 32 30 3A  |CHEN .NZAHL.G20:|
000025A0: 4C 44 59 53 50 00 4C 44  58 5A 45 00 43 4C 43 00  |LDYSP.LDXZE.CLC.|
000025B0: 4A 53 52 43 55 52 53 4F  52 00 4C 44 58 23 31 00  |JSRCURSOR.LDX#1.|
000025C0: 53 54 58 24 43 37 00 4C  44 59 23 30 00 47 32 35  |STX$C7.LDY#0.G25|
000025D0: 3A 4C 44 41 28 56 49 44  45 4F 4C 4F 29 2C 59 00  |:LDA(VIDEOLO),Y.|
000025E0: 4F 52 41 23 24 38 30 00  53 54 41 28 56 49 44 45  |ORA#$80.STA(VIDE|
000025F0: 4F 4C 4F 29 2C 59 00 49  4E 59 00 43 50 59 41 4E  |OLO),Y.INY.CPYAN|
00002600: 5A 00 42 45 51 47 32 34  00 4A 4D 50 47 32 35 00  |Z.BEQG24.JMPG25.|
00002610: 47 32 34 3A 4C 44 41 23  30 00 53 54 41 24 43 36  |G24:LDA#0.STA$C6|
00002620: 00 47 34 30 3A 4C 44 41  24 43 36 00 42 45 51 47  |.G40:LDA$C6.BEQG|
00002630: 34 30 00 52 54 53 00 41  53 43 3A 53 54 41 24 44  |40.RTS.ASC:STA$D|
00002640: 37 00 41 4E 44 23 24 33  46 00 41 53 4C 24 44 37  |7.AND#$3F.ASL$D7|
00002650: 00 42 49 54 24 44 37 00  42 50 4C 41 53 43 31 00  |.BIT$D7.BPLASC1.|
00002660: 4F 52 41 23 24 38 30 00  41 53 43 31 3A 42 56 53  |ORA#$80.ASC1:BVS|
00002670: 41 53 43 32 00 4F 52 41  23 24 34 30 00 41 53 43  |ASC2.ORA#$40.ASC|
00002680: 32 3A 52 54 53 00 20 00  3B 2A 2A 2A 20 C4 49 52  |2:RTS. .;*** .IR|
00002690: 45 43 54 4F 52 59 20 2A  2A 2A 00 4F 50 3A 2E 45  |ECTORY ***.OP:.E|
000026A0: 51 24 46 33 44 35 3B C6  49 4C 45 20 4F 45 46 46  |Q$F3D5;.ILE OEFF|
000026B0: 4E 45 4E 00 53 45 4B 55  4E 44 3A 2E 45 51 24 46  |NEN.SEKUND:.EQ$F|
000026C0: 46 39 36 3B D3 45 4B 55  4E 44 41 45 52 41 44 52  |F96;.EKUNDAERADR|
000026D0: 45 53 53 45 20 53 45 4E  44 45 4E 00 49 45 43 49  |ESSE SENDEN.IECI|
000026E0: 4E 3A 2E 45 51 24 46 46  41 35 3B C2 59 54 45 20  |N:.EQ$FFA5;.YTE |
000026F0: 56 4F 4E 20 C6 4C 4F 50  50 59 00 42 49 54 50 52  |VON .LOPPY.BITPR|
00002700: 49 4E 54 3A 2E 45 51 24  42 44 43 44 3B 31 36 2D  |INT:.EQ$BDCD;16-|
00002710: C2 49 54 DA 41 48 4C 20  41 55 53 47 45 42 45 4E  |.IT.AHL AUSGEBEN|
00002720: 00 43 4C 4F 3A 2E 45 51  24 46 36 34 32 3B C4 41  |.CLO:.EQ$F642;.A|
00002730: 54 45 49 20 53 43 48 4C  49 45 53 53 45 4E 00 54  |TEI SCHLIESSEN.T|
00002740: 41 4C 4B 3A 2E 45 51 24  46 46 42 34 00 46 4E 41  |ALK:.EQ$FFB4.FNA|
00002750: 4D 45 3A 2E 45 51 24 42  42 00 53 3A 2E 45 51 24  |ME:.EQ$BB.S:.EQ$|
00002760: 46 37 00 5A 3A 2E 45 51  24 46 38 00 43 55 52 53  |F7.Z:.EQ$F8.CURS|
00002770: 3A 2E 45 51 24 45 35 36  43 3B C3 55 52 53 4F 52  |:.EQ$E56C;.URSOR|
00002780: 20 53 45 54 5A 45 4E 00  20 00 4A 53 52 43 4B 43  | SETZEN. .JSRCKC|
00002790: 4F 4D 3B D0 41 52 41 4D  45 54 45 52 20 55 45 42  |OM;.ARAMETER UEB|
000027A0: 45 52 47 45 42 45 4E 00  4A 53 52 47 45 54 42 59  |ERGEBEN.JSRGETBY|
000027B0: 54 00 53 54 58 53 50 00  53 54 58 53 00 4A 53 52  |T.STXSP.STXS.JSR|
000027C0: 43 4B 43 4F 4D 00 4A 53  52 47 45 54 42 59 54 00  |CKCOM.JSRGETBYT.|
000027D0: 53 54 58 5A 45 00 53 54  58 5A 00 4C 44 41 23 27  |STXZE.STXZ.LDA#'|
000027E0: 24 00 53 54 41 24 46 42  00 4C 44 41 23 24 46 42  |$.STA$FB.LDA#$FB|
000027F0: 00 53 54 41 46 4E 41 4D  45 00 4C 44 41 23 30 00  |.STAFNAME.LDA#0.|
00002800: 53 54 41 46 4E 41 4D 45  2B 31 00 4C 44 41 23 31  |STAFNAME+1.LDA#1|
00002810: 3B CC 41 45 4E 47 45 20  C6 49 4C 45 4E 41 4D 45  |;.AENGE .ILENAME|
00002820: 00 53 54 41 24 42 37 00  4C 44 41 23 38 00 53 54  |.STA$B7.LDA#8.ST|
00002830: 41 24 42 41 00 4C 44 41  23 24 36 30 00 53 54 41  |A$BA.LDA#$60.STA|
00002840: 24 42 39 00 4A 53 52 4F  50 00 4C 44 41 24 42 41  |$B9.JSROP.LDA$BA|
00002850: 00 4A 53 52 54 41 4C 4B  00 4C 44 41 24 42 39 00  |.JSRTALK.LDA$B9.|
00002860: 4A 53 52 53 45 4B 55 4E  44 00 4C 44 41 23 30 3B  |JSRSEKUND.LDA#0;|
00002870: D3 54 41 54 55 53 20 41  55 46 20 CE 55 4C 4C 00  |.TATUS AUF .ULL.|
00002880: 53 54 41 24 39 30 00 4C  44 59 23 33 00 44 31 3A  |STA$90.LDY#3.D1:|
00002890: 53 54 59 24 46 42 00 4A  53 52 49 45 43 49 4E 00  |STY$FB.JSRIECIN.|
000028A0: 53 54 41 24 46 43 00 4C  44 59 24 39 30 00 42 4E  |STA$FC.LDY$90.BN|
000028B0: 45 44 34 00 4A 53 52 49  45 43 49 4E 00 4C 44 59  |ED4.JSRIECIN.LDY|
000028C0: 24 39 30 00 42 4E 45 44  34 00 4C 44 59 24 46 42  |$90.BNED4.LDY$FB|
000028D0: 00 44 45 59 00 42 4E 45  44 31 00 50 48 41 00 54  |.DEY.BNED1.PHA.T|
000028E0: 59 41 00 50 48 41 00 49  4E 43 5A 45 00 4C 44 58  |YA.PHA.INCZE.LDX|
000028F0: 5A 45 00 43 50 58 23 32  33 00 42 43 43 44 36 00  |ZE.CPX#23.BCCD6.|
00002900: 4C 44 58 23 30 00 53 54  58 24 43 36 00 44 37 3A  |LDX#0.STX$C6.D7:|
00002910: 4C 44 41 24 43 36 00 42  45 51 44 37 00 4C 44 58  |LDA$C6.BEQD7.LDX|
00002920: 53 3B C3 55 52 53 4F 52  20 53 45 54 5A 45 4E 00  |S;.URSOR SETZEN.|
00002930: 53 54 58 53 50 00 4C 44  58 5A 00 53 54 58 5A 45  |STXSP.LDXZ.STXZE|
00002940: 00 44 36 3A 53 54 58 24  44 36 00 4C 44 58 53 50  |.D6:STX$D6.LDXSP|
00002950: 00 53 54 58 24 44 33 00  43 4C 43 00 4A 53 52 43  |.STX$D3.CLC.JSRC|
00002960: 55 52 53 00 50 4C 41 00  54 41 59 00 50 4C 41 00  |URS.PLA.TAY.PLA.|
00002970: 4C 44 58 24 46 43 00 4A  53 52 42 49 54 50 52 49  |LDX$FC.JSRBITPRI|
00002980: 4E 54 00 4C 44 41 23 33  32 00 4A 53 52 42 53 4F  |NT.LDA#32.JSRBSO|
00002990: 55 54 3B DA 45 49 43 48  45 4E 20 41 55 53 47 45  |UT;.EICHEN AUSGE|
000029A0: 42 45 4E 00 44 33 3A 4A  53 52 49 45 43 49 4E 00  |BEN.D3:JSRIECIN.|
000029B0: 4C 44 58 24 39 30 00 42  4E 45 44 34 00 54 41 58  |LDX$90.BNED4.TAX|
000029C0: 00 42 45 51 44 32 00 4A  53 52 42 53 4F 55 54 00  |.BEQD2.JSRBSOUT.|
000029D0: 4A 4D 50 44 33 00 44 32  3A 4C 44 41 23 31 33 00  |JMPD3.D2:LDA#13.|
000029E0: 4A 53 52 42 53 4F 55 54  00 4C 44 59 23 32 00 42  |JSRBSOUT.LDY#2.B|
000029F0: 4E 45 44 31 00 44 34 3A  49 4E 43 5A 45 00 4C 44  |NED1.D4:INCZE.LD|
00002A00: 58 5A 45 00 43 50 58 23  32 34 00 42 45 51 44 38  |XZE.CPX#24.BEQD8|
00002A10: 00 53 54 58 24 44 36 00  4C 44 58 53 50 00 53 54  |.STX$D6.LDXSP.ST|
00002A20: 58 24 44 33 00 43 4C 43  00 4A 53 52 43 55 52 53  |X$D3.CLC.JSRCURS|
00002A30: 00 4C 44 41 23 33 32 00  4C 44 59 23 32 37 00 44  |.LDA#32.LDY#27.D|
00002A40: 39 3A 4A 53 52 42 53 4F  55 54 00 44 45 59 00 42  |9:JSRBSOUT.DEY.B|
00002A50: 4E 45 44 39 00 4A 4D 50  44 34 00 44 38 3A 4A 53  |NED9.JMPD4.D8:JS|
00002A60: 52 43 4C 4F 00 4C 44 41  23 30 00 53 54 41 24 43  |RCLO.LDA#0.STA$C|
00002A70: 36 00 52 54 53 00 00 2E  31                       |6.RTS...1       |

T*;;; QUELLDATEI ALI 2.0/SRC. ..BA$C000.
.WA..OU"ALI 2.0". .CKCOM:.EQ$AEFD;KOMMA 
IN SYS-AUFRUF VORHANDEN ?.GETBYT:.EQ$B79
E;PARAMETER HOLEN.SPALTEN:.EQ$3FB.ZEILEN
:.EQ$3FA.SL:.EQ$FA;SPALTE LOW.SH:.EQ$FB;
SPALTE HIGH.FARBEL:.EQ$FC.FARBEH:.EQ$FD.
VONZ:.EQ$3A0.BISZ:.EQ$3A1.ANSP:.EQ$3A2;A
NZAHL SPALTEN.VONSP:.EQ$3A3.BISSP:.EQ$3A
4. .;*** SCROLLEN NACH LINKS ***.LDA#216
.STA$033C.STA$033D.STA$033E.STA$033F.STA
$0340.STA$0341.STA$0342.LDA#217.STA$0343
.STA$0344.STA$0345.STA$0346.STA$0347.STA
$0348.LDA#218.STA$0349.STA$034A.STA$034B
.STA$034C.STA$034D.STA$034E.STA$034F.LDA
#219.STA$0350.STA$0351.STA$0352.STA$0353
.STA$0354.JSRCKCOM;PARAMETER UEBERGABE.J
SRGETBYT.STXVONZ.JSRCKCOM.JSRGETBYT.STXB
ISZ.JSRCKCOM.JSRGETBYT.STXANSP.JSRCKCOM.
JSRGETBYT.STXVONSP.INCVONSP.JSRCKCOM.JSR
GETBYT.STXBISSP.LDA#1.ADCBISSP.STABISSP.
LDX#0.STXSPALTEN.STXZEILEN.JMPLOOP5.LOOP
3:LDYVONSP;1. SPALTE.LDAANSP;ANZAHL SPAL
TEN ERREICHT ?.CMPSPALTEN.BCCENDE.LOOP1:
LDA(SL),Y;ZEICHEN VERSCHIEBEN.DEY.STA(SL
),Y.LDA$0286;FARBE SETZEN.STA(FARBEL),Y.
INY.INY.CPYBISSP;LETZTE SPALTE ?.BEQLOOP
2.JMPLOOP1.LOOP2:LDA#32;JA, BLANK.DEY.DE
Y.STA(SL),Y.LOOP6:INCZEILEN.LOOP5:LDXZEI
LEN;LETZTE BILDSCHIRMZEILE ?.CPX#25.BEQL
OOP4.CPXVONZ;NEIN, ZEILENBEREICH UEBERPR
UEFEN.BEQJA.CPXBISZ.BEQJA.CPXVONZ.BCCLOO
P6.CPXBISZ.BCSLOOP6.JA:LDA$ECF0,X.STASL.
STAFARBEL.LDA$D9,X.AND#$03.ORA$0288.STAS
H.LDA$033C,X.STAFARBEH.LDA#$19;LETZTE BI
LDSCHIRMZEILE ?.CMPZEILEN.BEQLOOP4.JMPLO
OP3.LOOP4:LDA#0.STAZEILEN.INCSPALTEN.STA
SL.STAFARBEL.LDA#$04.STASH.LDA#216.STAFA
RBEH.JMPLOOP5.ENDE:RTS. .;*** SCROLLEN N
ACH RECHTS ***.LDA#216;FARBTABELLE - HIG
H BYTES.STA$033C.STA$033D.STA$033E.STA$0
33F.STA$0340.STA$0341.STA$0342.LDA#217.S
TA$0343.STA$0344.STA$0345.STA$0346.STA$0
347.STA$0348.LDA#218.STA$0349.STA$034A.S
TA$034B.STA$034C.STA$034D.STA$034E.STA$0
34F.LDA#219.STA$0350.STA$0351.STA$0352.S
TA$0353.STA$0354.JSRCKCOM;PARAMETER-UEBE
RGABE.JSRGETBYT.STXVONZ.JSRCKCOM.JSRGETB
YT.STXBISZ.JSRCKCOM.JSRGETBYT.STXANSP.JS
RCKCOM.JSRGETBYT.STXVONSP.DECVONSP.JSRCK
COM.JSRGETBYT.STXBISSP.DECBISSP.LDX#0.ST
XSPALTEN.STXZEILEN.JMPLP5.LP3:LDYBISSP;L
ETZTE SPALTE.LDAANSP;ENDE ?.CMPSPALTEN.B
CCEND.LP1:LDA(SL),Y;ZEICHEN VERSCHIEBEN.
INY.STA(SL),Y.LDA$0286;FARBE SETZEN.STA(
FARBEL),Y.DEY.DEY.CPYVONSP;1. SPALTE.BEQ
LP2.JMPLP1.LP2:LDA#32;JA, BLANK.INY.STA(
SL),Y.LP6:INCZEILEN.LP5:LDXZEILEN;LETZTE
 BILDSCHIRMSEITE.CPX#25.BEQLP4.CPXVONZ;N
EIN,ZEILENBEREICH UEBERPRUEFEN.BEQJA1.CP
XBISZ.BEQJA1.CPXVONZ.BCCLP6.CPXBISZ.BCSL
P6.JA1:LDA$ECF0,X.STASL.STAFARBEL.LDA$D9
,X.AND#$03.ORA$0288.STASH.LDA$033C,X.STA
FARBEH.LDA#$19;LETZTE BILDSCHIRMZEILE ?.
CMPZEILEN.BEQLP4.JMPLP3.LP4:LDA#0.STAZEI
LEN.INCSPALTEN.STASL.STAFARBEL.LDA#$04.S
TASH.LDA#216.STAFARBEH.JMPLP5.END:RTS. .
;*** PRINT ***.CURSOR:.EQ$FFF0;CURSOR SE
TZEN.PRINT:.EQ$AAA4;ZEICHEN AUF BILDSCHI
RM AUSGEBEN. .JSRCKCOM;KOMMA-ZEICHEN ABF
RAGEN.JSRGETBYT;PARAMETER DES SYS-AUFRUF
S UEBERNEHMEN.TXA.PHA.JSRCKCOM.JSRGETBYT
.PLA.TAY.CLC.JSRCURSOR.JSRCKCOM.JMPPRINT
. .;*** SCROLLEN NACH OBEN ***.LDA#216;F
ARBTABELLE - HIGH BYTES.STA$033C.STA$033
D.STA$033E.STA$033F.STA$0340.STA$0341.ST
A$0342.LDA#217.STA$0343.STA$0344.STA$034
5.STA$0346.STA$0347.STA$0348.LDA#218.STA
$0349.STA$034A.STA$034B.STA$034C.STA$034
D.STA$034E.STA$034F.LDA#219.STA$0350.STA
$0351.STA$0352.STA$0353.STA$0354.JSRCKCO
M;PARAMETER-UEBERGABE.JSRGETBYT.STXVONZ.
JSRCKCOM.JSRGETBYT.STXBISZ.INCBISZ.JSRCK
COM.JSRGETBYT.STXVONSP.DECVONSP.JSRCKCOM
.JSRGETBYT.STXBISSP.INCBISSP.LDXVONZ.LDY
VONSP.JMPO2.O1:INY;LETZTE SPALTE ?.CPYBI
SSP.BEQO3.LDA(SL),Y;NEIN, ALTE POSITION 
BLANK.DEX.PHA.LDA#32.STA(SL),Y.LDA$ECF0,
X;FARBE HOLEN.STASL.STAFARBEL.LDA$033C,X
.STAFARBEH.LDA$D9,X;SPALTE HIGH-BYTE.AND
#$03.ORA$0288.STASH.PLA;ZEICHEN NEUE POS
ITON.STA(SL),Y.LDA$0286.STA(FARBEL),Y.IN
X.JMPO2.O3:LDYVONSP.INX.O2:CPXBISZ;ENDE 
?.BEQOBENENDE.LDA$ECF0,X.STASL.STAFARBEL
.LDA$033C,X.STAFARBEH.LDA$D9,X;SPALTE HI
GH-BYTE.AND#$03.ORA$0288.STASH.JMPO1.OBE
NENDE:RTS. .;*** SCROLLEN NACH UNTEN ***
.LDA#216;FARBTABELLE HIGH-BYTES.STA$033C
.STA$033D.STA$033E.STA$033F.STA$0340.STA
$0341.STA$0342.LDA#217.STA$0343.STA$0344
.STA$0345.STA$0346.STA$0347.STA$0348.LDA
#218.STA$0349.STA$034A.STA$034B.STA$034C
.STA$034D.STA$034E.STA$034F.LDA#219.STA$
0350.STA$0351.STA$0352.STA$0353.STA$0354
.JSRCKCOM;PARAMETER-UEBERGABE.JSRGETBYT.
STXVONZ.DECVONZ.JSRCKCOM.JSRGETBYT.STXBI
SZ.DECBISZ.JSRCKCOM.JSRGETBYT.STXVONSP.D
ECVONSP.JSRCKCOM.JSRGETBYT.STXBISSP.INCB
ISSP.LDXBISZ.LDYVONSP.JMPU2.U1:INY;LETZT
E SPALTE ?.CPYBISSP.BEQU3.LDA(SL),Y;NEIN
, ALTE POSITION BLANK.INX.PHA.LDA#32.STA
(SL),Y.LDA$ECF0,X;FARBE HOLEN.STASL.STAF
ARBEL.LDA$033C,X.STAFARBEH.LDA$D9,X;SPAL
TE HIGH-BYTE.AND#$03.ORA$0288.STASH.PLA;
ZEICHEN NEUE POSITION.STA(SL),Y.LDA$0286
.STA(FARBEL),Y.DEX.JMPU2.U3:LDYVONSP.DEX
.U2:CPXVONZ;ENDE ?.BEQUNTENENDE.LDA$ECF0
,X.STASL.STAFARBEL.LDA$033C,X.STAFARBEH.
LDA$D9,X;SPALTE HIGH-BYTE.AND#$03.ORA$02
88.STASH.JMPU1.UNTENENDE:RTS. .;*** PRIN
T-USING ***.FRMNUM:.EQ$AD8A;AUSDRUCK AUS
WERTEN.ASCII:.EQ$BDDD;IN ASCII UMWANDELN
.OUT:.EQ$AB1E;ZEICHEN AUSGEBEN. .JSRCKCO
M;PARAMETER-UEBERGABE.JSRGETBYT.STXBISZ.
JSRCKCOM.JSRGETBYT.STXVONZ.JSRCKCOM.JSRF
RMNUM.JSRASCII.JSRUSING.PHA.TYA.PHA.LDYB
ISZ.LDXVONZ.CLC.JSRCURSOR.PLA.TAY.PLA.JS
ROUT.RTS.USING:LDA#'E.JSRCHECK;ERSTES ZE
ICHEN IM EINGABE-.BCSSETPTR;PUFFER SUCHE
N.LDADECINT.BEQINTEGER.LDA$102.BNEPU1.LD
YLENGHT.LDA#'0.PU2:STA$102,Y.DEY;ZEICHEN
 IM PUFFER UMSTELLEN.BNEPU2.PU1:LDA#'..J
SRCHECK.TAY.BCC*+4.LDY#'0.LDA#0.JSRCHECK
.TYA.STA$100,X.LDA#'..JSRCHECK.LDYDECLEN
.PU3:INX.DEY.BNEPU3.PU8:CPXLENGHT.BCSSET
PTR.LDYLENGHT.LDA#0.STA$101,Y.PU6:LDA$10
0,X.CMP#32.BNEPU5.LDA#32.PU5:STA$100,Y.D
EX.BPLPU4.LDAFILLER.DEY.BPLPU5.PU4:DEY.B
PLPU6.SETPTR:LDYLENGHT.LDA#0.STA$101,Y.L
DA#0.LDY#1.RTS.INTEGER:LDA#0.JSRCHECK.BC
CSETPTR.TXA.TAY.LDA$102.BEQPU7.LDA#'..JS
RCHECK.BCCPU7.TXA.TAY.PU7:TYA.TAX.DEX.BP
LPU8.CHECK:LDX#0;ERSTES ZEICHEN IM EINGA
BE-PUFFER.PU9:CMP$100,X.BEQPU10.INX.CPX#
12.BNEPU9.CLC.PU10:RTS.DECINT:.BY1.LENGH
T:.BY9.DECLEN:.BY2.FILLER:.BY" ".LEADING
:.EQPU5-1. .;*** HARDCOPY ***.TEMP:.EQ$A
7.OPEN:.EQ$FFC0;DRUCKER-KANAL OEFFNEN.CL
OSE:.EQ$FFC3;              SCHLIESSEN.CK
OUT:.EQ$FFC9.BSOUT:.EQ$FFD2;EIN ZEICHEN 
AUSGEBEN.FILEP:.EQ$FFBA;FILEPARAMETER SE
TZEN.SETNAM:.EQ$FFBD.CLRCH:.EQ$FFCC;AUSG
ABE-KANAL LOESCHEN.STORE:.EQ$B0. .LDA#1;
FILEPARAMETER FUER DRUCKAUSGABE.LDX#4.LD
Y#7.JSRFILEP.LDA#0.JSRSETNAM.JSROPEN.LDX
#1.JSRCKOUT.LDA#0.LDY#4.STATEMP.STYTEMP+
1.LDX#25.H1:LDA#13;ZEILENVORSCHUB.JSRBSO
UT.LDY#0.H2:LDA(TEMP),Y.STASTORE;BILDSCH
IRMCODE UMWANDELN.AND#$3F.ASLSTORE.BITST
ORE.BPL*+4.ORA#$80.BVS*+4.ORA#$40.JSRBSO
UT;ZEICHEN AUSGEBEN.INY.CPY#40.BNEH2.TYA
.CLC.ADCTEMP.STATEMP.BCC*+4.INCTEMP+1.DE
X.BNEH1.LDA#13.JSRBSOUT.EXIT:JSRCLRCH.LD
A#1.JMPCLOSE. .;*** CLEAR ***.LDA#$04;FA
RBTABELLE - HIGH BYTES.STA$03E0.STA$03E1
.STA$03E2.STA$03E3.STA$03E4.STA$03E5.STA
$03E6.LDA#$05.STA$03E7.STA$03E8.STA$03E9
.STA$03EA.STA$03EB.STA$03EC.LDA#$06.STA$
03ED.STA$03EE.STA$03EF.STA$03F0.STA$03F1
.STA$03F2.STA$03F3.LDA#$07.STA$03F4.STA$
03F5.STA$03F6.STA$03F7.STA$03F8.JSRCKCOM
;PARAMETER-UEBERGABE.JSRGETBYT.STXVONZ.J
SRCKCOM.JSRGETBYT.INX.STXBISZ.JSRCKCOM.J
SRGETBYT.STXVONSP.DECVONSP.JSRCKCOM.JSRG
ETBYT.STXBISSP.INCBISSP.LDXVONZ.LDYVONSP
.JMPC2.C1:INY;LETZTE SPALTE?.CPYBISSP.BE
QC3.LDA#32;NEIN, LOESCHEN.STA(SL),Y.JMPC
1.C3:LDYVONSP.INX.C2:CPXBISZ;LETZTE ZEIL
E ?.BEQCLEARENDE;JA, ENDE.LDA$ECF0,X;NEI
N, FARBE SETZEN.STASL.LDA$03E0,X.STASH.J
MPC1.CLEARENDE:RTS. .;*** INPUT ***.SP:.
EQ$3FB;SPALTE.ZE:.EQ$3FA;ZEILE.ANZ:.EQ$3
F9;ANZAHL ZEICHEN.VARHOL:.EQ$B08B;VARIAB
LE HOLEN.REV:.EQ$3F8;REVERS DARSTELLUNG.
ZZE:.EQ$3F6.SSP:.EQ$3F7.ZZ:.EQ$3F5.STRIN
G:.EQ$B7BD;STRING-PARAMETER SETZEN.FACTO
VAR:.EQ$BBD0;FAC AN VARIABLE UEBERGEBEN.
VIDEOLO:.EQ$A7;VIDEOMATRIX.VIDEOHI:.EQ$A
8. .JSRCKCOM;PARAMETER UEBERGEBEN.JSRGET
BYT.STXSP.JSRCKCOM.JSRGETBYT.STXZE.JSRCK
COM.JSRGETBYT.CPX#171.BCSG60.STXANZ.JSRC
KCOM.JSRGETBYT.STXREV.JSRCKCOM.JSRVARHOL
.LDA$7A;PROGRAMMZEIGER RETTEN.PHA.LDA$7B
.PHA.G0:JSROFF0.JSRG10.JSRG2.JSRG4.PLA.S
TA$7B.PLA.STA$7A.RTS.G60:LDX#$17.JMP$A43
7.;EINGABEFELD NICHT REVERS.G2:LDA#0.STA
$C7.STA$C6.LDYANZ.GX2:LDA(VIDEOLO),Y.AND
#127.STA(VIDEOLO),Y.DEY.BPLGX2.RTS.;OFFS
ET FUER VIDEO.OFF0:LDA#0.STAVIDEOLO.LDA#
$4.STAVIDEOHI.LDXZE.OFF1:LDAVIDEOLO.DEX.
BMIOFF2.CLC.ADC#40.STAVIDEOLO.BCCOFF1.IN
CVIDEOHI.JMPOFF1.OFF2:LDAVIDEOLO.CLC.ADC
SP.STAVIDEOLO.BCCOFF3.INCVIDEOHI.OFF3:RT
S.;CURSOR NACH LINKS.CURSLI:DECZZ.LDYZZ.
CPY#$FF.BNERE1.INCZZ.RTS.RE1:DECSSP.BPLR
E2.DECZZE.LDA#39.STASSP.RE2:LDYZZ.INY.LD
A(VIDEOLO),Y.AND#127.STA(VIDEOLO),Y.RTS.
;CURSOR NACH RECHTS.CURSRE:INCZZ.LDYZZ.C
PYANZ.BEQLI1.BCCLI1.DECZZ.RTS.LI1:DEY.LD
A(VIDEOLO),Y.AND#127.STA(VIDEOLO),Y.INCS
SP.LDXSSP.CPX#40.BCCLI3.INCZZE.LDA#0.STA
SSP.LI3:RTS.;STRING NACH VARIABLE.G4:LDA
REV.CMP#0.BEQGG6.LDX#$00.STX$0D.STX$0E.J
MPGG9.GG6:LDX#$FF.LDAANZ.STX$0D.JSR$B4F4
.LDY#0.LDAANZ.STA($47),Y.INY.LDA$33.STA(
$47),Y.INY.LDA$34.STA($47),Y.LDY#0.G8:LD
A(VIDEOLO),Y.JSRASC.STA($33),Y.INY.CPYAN
Z.BEQG9.JMPG8.GG9:LDA#$02.STA$22.STA$23.
LDY#0.GG1:LDA(VIDEOLO),Y.STA$202,Y.INY.C
PYANZ.BCCGG1.LDA#':.STA$202,Y.LDAANZ.CLC
.JSRSTRING.LDA$47.STA$49.LDA$48.STA$4A.J
SRFACTOVAR.G9:RTS.;EINGABE UND ANZEIGE.G
10:LDX#0.STX$277.STXZZ.STX$C6.GG10:LDASP
.STASSP.LDAZE.STAZZE.LDX#0.STX$0277.STXZ
Z.G14:LDYSSP.LDXZZE.CLC.JSRCURSOR;CURSOR
 SETZEN.LDA#1.STA$C7.LDYZZ.LDA(VIDEOLO),
Y.JSRASC.JSRBSOUT.LDYSSP.LDXZZE.CLC.JSRC
URSOR.G11:LDA$C6.BEQG11.LDA$277.CMP#13.B
NEG41.RTS.G41:CMP#17.BNEG70.JMPG22.G70:C
MP#19.BNEW0.JMPG22.W0:CMP#29.BNEW1.JSRCU
RSRE.JMPG16.W1:CMP#3.BEQG22.CMP#145.BEQG
22.CMP#157.BNEW2.JSRCURSLI.JMPG16.W2:CMP
#147.BEQG22.CMP#20.BNEG50;DELETE.LDA#0.C
MPZZ.BEQG22.LDA#0.STA$C7.DECZZ.LDXZZ.LDA
#32.JSRBSOUT.DECSSP.BMIG51.JMPG22.G51:DE
CZZE.JMPG22.G50:LDX#0.STX$C7.JSRBSOUT.LD
A#0.STA$C6.INCZZ.INCSSP.LDXSSP.CPX#39.BE
QG16.BCCG16.INCZZE.LDA#0.STASSP.G16:LDXZ
Z.INX.CPXANZ.BCCG22.BEQG22.JSRG20.JSRG2.
LDA$277.CMP#13.BNEG71.RTS.G71:JMPG10.G22
:LDA#0.STA$C6.JMPG14.G13:RTS.;ANZEIGE IN
REVERS BEI ERREICHEN ANZAHL.G20:LDYSP.LD
XZE.CLC.JSRCURSOR.LDX#1.STX$C7.LDY#0.G25
:LDA(VIDEOLO),Y.ORA#$80.STA(VIDEOLO),Y.I
NY.CPYANZ.BEQG24.JMPG25.G24:LDA#0.STA$C6
.G40:LDA$C6.BEQG40.RTS.ASC:STA$D7.AND#$3
F.ASL$D7.BIT$D7.BPLASC1.ORA#$80.ASC1:BVS
ASC2.ORA#$40.ASC2:RTS. .;*** DIRECTORY *
**.OP:.EQ$F3D5;FILE OEFFNEN.SEKUND:.EQ$F
F96;SEKUNDAERADRESSE SENDEN.IECIN:.EQ$FF
A5;BYTE VON FLOPPY.BITPRINT:.EQ$BDCD;16-
BITZAHL AUSGEBEN.CLO:.EQ$F642;DATEI SCHL
IESSEN.TALK:.EQ$FFB4.FNAME:.EQ$BB.S:.EQ$
F7.Z:.EQ$F8.CURS:.EQ$E56C;CURSOR SETZEN.
 .JSRCKCOM;PARAMETER UEBERGEBEN.JSRGETBY
T.STXSP.STXS.JSRCKCOM.JSRGETBYT.STXZE.ST
XZ.LDA#'$.STA$FB.LDA#$FB.STAFNAME.LDA#0.
STAFNAME+1.LDA#1;LAENGE FILENAME.STA$B7.
LDA#8.STA$BA.LDA#$60.STA$B9.JSROP.LDA$BA
.JSRTALK.LDA$B9.JSRSEKUND.LDA#0;STATUS A
UF NULL.STA$90.LDY#3.D1:STY$FB.JSRIECIN.
STA$FC.LDY$90.BNED4.JSRIECIN.LDY$90.BNED
4.LDY$FB.DEY.BNED1.PHA.TYA.PHA.INCZE.LDX
ZE.CPX#23.BCCD6.LDX#0.STX$C6.D7:LDA$C6.B
EQD7.LDXS;CURSOR SETZEN.STXSP.LDXZ.STXZE
.D6:STX$D6.LDXSP.STX$D3.CLC.JSRCURS.PLA.
TAY.PLA.LDX$FC.JSRBITPRINT.LDA#32.JSRBSO
UT;ZEICHEN AUSGEBEN.D3:JSRIECIN.LDX$90.B
NED4.TAX.BEQD2.JSRBSOUT.JMPD3.D2:LDA#13.
JSRBSOUT.LDY#2.BNED1.D4:INCZE.LDXZE.CPX#
24.BEQD8.STX$D6.LDXSP.STX$D3.CLC.JSRCURS
.LDA#32.LDY#27.D9:JSRBSOUT.DEY.BNED9.JMP
D4.D8:JSRCLO.LDA#0.STA$C6.RTS...1

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL