INPUT.ASM
FILE INFORMATION
FILENAME(S): INPUT.ASM
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-10-20 00:37:12
APPEARS ON: 2 disk(s)
FILE HASH
f0751347a308a53d2aec02032ba56d7ac507e2f05ca63dcddb1ab9fc7bf3ce1b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUN SPEZIAL 1 T2 | INPUT.ASM | PRG | Treasure Chest - Holger | 5 | 2 | DOWNLOAD FILE |
| RUN SPEZIAL 1 T2 | INPUT.ASM | PRG | Treasure Chest - Plattfuss | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: FF 00 30 BE 49 FE 10 00 3B 20 20 20 65 69 6E 67 |..0.I...; eing| 00000010: 61 62 65 72 6F 75 74 69 6E E5 20 00 3B 20 20 20 |aberoutin. .; | 00000020: 73 74 61 72 74 20 6D 69 F4 30 00 3B 20 20 20 73 |start mi.0.; s| 00000030: 79 73 20 34 39 31 35 32 2C 78 2C 79 2C 62 65 6D |ys 49152,x,y,bem| 00000040: 65 72 6B 24 2C 6C 61 65 6E 67 65 2C 74 79 70 2C |erk$,laenge,typ,| 00000050: 76 61 72 69 61 62 6C E5 40 00 20 2E 6F F3 50 00 |variabl.@. .o.P.| 00000060: 20 2E 62 61 20 24 63 30 30 B0 60 00 65 6E 64 6C | .ba $c00.`.endl| 00000070: 61 65 6E 67 65 20 2E 64 65 20 24 33 33 E3 70 00 |aenge .de $33.p.| 00000080: 70 6F 73 69 74 69 6F 6E 20 2E 64 65 20 24 33 33 |position .de $33| 00000090: E4 80 00 61 6C 74 7A 65 69 63 68 20 2E 64 65 20 |...altzeich .de | 000000A0: 24 33 33 E5 90 00 61 6B 74 6C 61 65 6E 67 65 20 |$33...aktlaenge | 000000B0: 2E 64 65 20 24 33 33 E6 00 01 6E 65 75 7A 65 69 |.de $33...neuzei| 000000C0: 63 68 20 20 2E 64 65 20 24 33 34 B0 10 01 63 75 |ch .de $34...cu| 000000D0: 72 73 6F 72 78 20 2E 64 65 20 24 33 34 B1 20 01 |rsorx .de $34. .| 000000E0: 63 75 72 73 6F 72 79 20 2E 64 65 20 24 33 34 B2 |cursory .de $34.| 000000F0: 30 01 63 75 72 73 6F 72 78 31 20 2E 64 65 20 24 |0.cursorx1 .de $| 00000100: 33 34 B3 40 01 63 75 72 73 6F 72 79 31 20 2E 64 |34.@.cursory1 .d| 00000110: 65 20 24 33 34 B4 50 01 76 61 72 74 79 70 20 2E |e $34.P.vartyp .| 00000120: 64 65 20 24 33 34 B5 60 01 70 75 66 66 65 72 20 |de $34.`.puffer | 00000130: 2E 64 65 20 24 33 34 B6 70 01 63 68 6B 63 6F 6D |.de $34.p.chkcom| 00000140: 20 2E 64 65 20 24 61 65 66 E4 80 01 67 65 74 62 | .de $aef...getb| 00000150: 79 74 20 2E 64 65 20 24 62 37 39 E5 90 01 62 73 |yt .de $b79...bs| 00000160: 6F 75 74 20 20 2E 64 65 20 24 66 66 64 B2 00 02 |out .de $ffd...| 00000170: 63 75 72 73 6F 72 20 2E 64 65 20 24 66 66 66 B0 |cursor .de $fff.| 00000180: 10 02 66 72 6D 65 76 6C 20 2E 64 65 20 24 61 64 |..frmevl .de $ad| 00000190: 39 E5 20 02 73 69 64 20 2E 64 65 20 35 34 32 37 |9. .sid .de 5427| 000001A0: B2 30 02 3B 20 63 75 72 73 6F 72 20 70 6F 73 69 |.0.; cursor posi| 000001B0: 74 69 6F 6E 69 65 72 65 EE 40 02 20 6A 73 72 20 |tioniere.@. jsr | 000001C0: 63 68 6B 63 6F ED 50 02 20 6A 73 72 20 67 65 74 |chkco.P. jsr get| 000001D0: 62 79 F4 60 02 20 74 78 E1 70 02 20 70 68 E1 80 |by.`. tx.p. ph..| 000001E0: 02 20 6A 73 72 20 63 68 6B 63 6F ED 90 02 20 6A |. jsr chkco... j| 000001F0: 73 72 20 67 65 74 62 79 F4 00 03 20 70 6C E1 10 |sr getby... pl..| 00000200: 03 20 74 61 F9 20 03 20 6A 73 72 20 63 75 72 73 |. ta. . jsr curs| 00000210: 65 F4 30 03 20 6A 73 72 20 63 68 6B 63 6F ED 40 |e.0. jsr chkco.@| 00000220: 03 3B 20 62 65 6D 65 72 6B 74 65 78 74 20 75 65 |.; bemerktext ue| 00000230: 62 65 72 6E 65 68 6D 65 EE 50 03 20 6A 73 72 20 |bernehme.P. jsr | 00000240: 66 72 6D 65 76 EC 60 03 20 6C 64 61 20 31 B3 70 |frmev.`. lda 1.p| 00000250: 03 20 62 65 71 20 62 75 B2 80 03 20 6A 73 72 20 |. beq bu... jsr | 00000260: 24 62 36 61 B6 90 03 20 74 61 F8 00 04 20 6C 64 |$b6a... ta... ld| 00000270: 79 20 23 B0 10 04 20 69 6E F8 20 04 62 75 31 20 |y #... in. .bu1 | 00000280: 64 65 F8 30 04 20 62 65 71 20 62 75 B2 40 04 20 |de.0. beq bu.@. | 00000290: 6C 64 61 20 28 24 32 32 29 2C F9 50 04 20 6A 73 |lda ($22),.P. js| 000002A0: 72 20 62 73 6F 75 F4 60 04 20 69 6E F9 70 04 20 |r bsou.`. in.p. | 000002B0: 62 6E 65 20 62 75 B1 80 04 62 75 32 20 6C 64 61 |bne bu...bu2 lda| 000002C0: 20 23 27 5B A7 90 04 20 6A 73 72 20 62 73 6F 75 | #'[... jsr bsou| 000002D0: F4 00 05 20 6A 73 72 20 63 75 72 67 65 F4 10 05 |... jsr curge...| 000002E0: 20 73 74 78 20 63 75 72 73 6F 72 F9 20 05 20 73 | stx cursor. . s| 000002F0: 74 79 20 63 75 72 73 6F 72 F8 30 05 3B 20 6C 61 |ty cursor.0.; la| 00000300: 65 6E 67 E5 40 05 20 6C 64 61 20 31 B3 50 05 20 |eng.@. lda 1.P. | 00000310: 62 6E 65 20 62 75 B5 60 05 20 6A 73 72 20 24 61 |bne bu.`. jsr $a| 00000320: 64 38 E4 70 05 20 6A 73 72 20 24 62 31 62 B8 80 |d8.p. jsr $b1b..| 00000330: 05 20 6C 64 78 20 24 36 B4 90 05 20 62 6E 65 20 |. ldx $6... bne | 00000340: 62 75 B7 00 06 20 6C 64 78 20 24 36 B5 10 06 20 |bu... ldx $6... | 00000350: 62 6E 65 20 62 75 B6 20 06 62 75 37 20 6A 6D 70 |bne bu. .bu7 jmp| 00000360: 20 24 62 32 34 B8 30 06 62 75 35 20 6A 73 72 20 | $b24.0.bu5 jsr | 00000370: 63 68 6B 63 6F ED 40 06 20 6A 73 72 20 67 65 74 |chkco.@. jsr get| 00000380: 62 79 F4 50 06 20 63 70 78 20 23 B0 60 06 20 62 |by.P. cpx #.`. b| 00000390: 65 71 20 62 75 B7 70 06 62 75 36 20 73 74 78 20 |eq bu.p.bu6 stx | 000003A0: 65 6E 64 6C 61 65 6E 67 E5 80 06 20 6C 64 61 20 |endlaeng... lda | 000003B0: 63 75 72 73 6F 72 F8 90 06 20 63 6C E3 00 07 20 |cursor... cl... | 000003C0: 61 64 63 20 65 6E 64 6C 61 65 6E 67 E5 10 07 20 |adc endlaeng... | 000003D0: 63 6D 70 20 23 33 B9 20 07 20 62 63 73 20 62 75 |cmp #3. . bcs bu| 000003E0: B7 30 07 20 74 61 F9 40 07 20 6C 64 78 20 63 75 |.0. ta.@. ldx cu| 000003F0: 72 73 6F 72 F9 50 07 20 6A 73 72 20 63 75 72 73 |rsor.P. jsr curs| 00000400: 65 F4 60 07 20 6C 64 61 20 23 27 5D A7 70 07 20 |e.`. lda #'].p. | 00000410: 6A 73 72 20 62 73 6F 75 F4 80 07 20 6A 73 72 20 |jsr bsou... jsr | 00000420: 63 68 6B 63 6F ED 90 07 3B 20 76 61 72 69 61 62 |chkco...; variab| 00000430: 6C 65 6E 74 79 70 2E 20 30 3D 73 74 72 69 6E 67 |lentyp. 0=string| 00000440: 2C 20 3E 30 3D 6E 75 6D 65 72 69 73 63 E8 00 08 |, >0=numerisc...| 00000450: 20 6A 73 72 20 67 65 74 62 79 F4 10 08 20 73 74 | jsr getby... st| 00000460: 78 20 76 61 72 74 79 F0 20 08 3B 20 70 75 66 66 |x varty. .; puff| 00000470: 65 72 20 6C 6F 65 73 63 68 65 EE 30 08 73 74 61 |er loesche.0.sta| 00000480: 72 F4 40 08 20 6C 64 61 20 23 B0 50 08 20 6C 64 |r.@. lda #.P. ld| 00000490: 79 20 23 35 B0 60 08 63 6C 20 73 74 61 20 70 75 |y #5.`.cl sta pu| 000004A0: 66 66 65 72 2D 31 2C F9 70 08 20 64 65 F9 80 08 |ffer-1,.p. de...| 000004B0: 20 62 6E 65 20 63 EC 90 08 20 73 74 79 20 24 63 | bne c... sty $c| 000004C0: B6 00 09 20 69 6E F9 10 09 20 73 74 79 20 61 6B |... in... sty ak| 000004D0: 74 6C 61 65 6E 67 E5 20 09 20 73 74 79 20 70 6F |tlaeng. . sty po| 000004E0: 73 69 74 69 6F EE 30 09 20 6C 64 61 20 23 31 32 |sitio.0. lda #12| 000004F0: B8 40 09 20 73 74 61 20 36 35 B0 50 09 3B 20 61 |.@. sta 65.P.; a| 00000500: 6C 74 65 6E 20 74 65 78 74 20 75 65 62 65 72 6E |lten text uebern| 00000510: 65 68 6D 65 EE 60 09 20 6C 64 78 20 63 75 72 73 |ehme.`. ldx curs| 00000520: 6F 72 F9 70 09 20 6C 64 79 20 63 75 72 73 6F 72 |or.p. ldy cursor| 00000530: F8 80 09 20 6A 73 72 20 63 75 72 73 65 F4 90 09 |... jsr curse...| 00000540: 20 6C 64 61 20 23 B3 00 10 20 73 74 61 20 24 39 | lda #... sta $9| 00000550: B9 10 10 20 6C 64 79 20 23 B0 20 10 69 31 20 6A |... ldy #. .i1 j| 00000560: 73 72 20 24 66 31 33 E5 30 10 20 73 74 61 20 70 |sr $f13.0. sta p| 00000570: 75 66 66 65 72 2C F9 40 10 20 69 6E F9 50 10 20 |uffer,.@. in.P. | 00000580: 63 70 79 20 65 6E 64 6C 61 65 6E 67 E5 60 10 20 |cpy endlaeng.`. | 00000590: 62 6E 65 20 69 B1 70 10 20 6C 64 78 20 63 75 72 |bne i.p. ldx cur| 000005A0: 73 6F 72 F9 80 10 20 6C 64 79 20 63 75 72 73 6F |sor... ldy curso| 000005B0: 72 F8 90 10 20 6A 73 72 20 63 75 72 73 65 F4 00 |r... jsr curse..| 000005C0: 11 20 6C 64 78 20 23 B0 10 11 3B 20 62 6C 61 6E |. ldx #...; blan| 000005D0: 6B 73 20 61 6D 20 65 6E 64 65 20 73 74 72 65 69 |ks am ende strei| 000005E0: 63 68 65 EE 20 11 20 6C 64 79 20 65 6E 64 6C 61 |che. . ldy endla| 000005F0: 65 6E 67 E5 30 11 69 32 20 6C 64 61 20 70 75 66 |eng.0.i2 lda puf| 00000600: 66 65 72 2D 31 2C F9 40 11 20 63 6D 70 20 23 33 |fer-1,.@. cmp #3| 00000610: B2 50 11 20 62 6E 65 20 69 B3 60 11 20 74 78 E1 |.P. bne i.`. tx.| 00000620: 70 11 20 73 74 61 20 70 75 66 66 65 72 2D 31 2C |p. sta puffer-1,| 00000630: F9 80 11 20 64 65 F9 90 11 20 62 6E 65 20 69 B2 |... de... bne i.| 00000640: 00 12 69 33 20 69 6E F9 10 12 20 73 74 79 20 61 |..i3 in... sty a| 00000650: 6B 74 6C 61 65 6E 67 E5 20 12 20 6C 64 61 20 76 |ktlaeng. . lda v| 00000660: 61 72 74 79 F0 30 12 20 62 65 71 20 69 B4 40 12 |arty.0. beq i.@.| 00000670: 3B 20 61 75 66 20 6E 75 6D 65 72 69 73 63 68 20 |; auf numerisch | 00000680: 70 72 75 65 66 65 EE 50 12 20 6C 64 78 20 65 6E |pruefe.P. ldx en| 00000690: 64 6C 61 65 6E 67 E5 60 12 69 33 2E 33 20 6C 64 |dlaeng.`.i3.3 ld| 000006A0: 61 20 70 75 66 66 65 72 2D 31 2C F8 70 12 20 62 |a puffer-1,.p. b| 000006B0: 65 71 20 69 33 2E B2 80 12 20 63 6D 70 20 23 33 |eq i3.... cmp #3| 000006C0: B2 90 12 20 62 65 71 20 69 33 2E B2 00 13 20 63 |... beq i3.... c| 000006D0: 6D 70 20 23 27 2D A7 10 13 20 62 65 71 20 69 33 |mp #'-... beq i3| 000006E0: 2E B2 20 13 20 63 6D 70 20 23 27 2E A7 30 13 20 |.. . cmp #'..0. | 000006F0: 62 65 71 20 69 33 2E B2 40 13 20 63 6D 70 20 23 |beq i3..@. cmp #| 00000700: 27 45 A7 50 13 20 62 65 71 20 69 33 2E B2 60 13 |'E.P. beq i3..`.| 00000710: 20 63 6D 70 20 23 27 30 A7 70 13 20 62 63 63 20 | cmp #'0.p. bcc | 00000720: 69 33 2E B1 80 13 20 63 6D 70 20 23 27 39 A7 90 |i3.... cmp #'9..| 00000730: 13 20 62 65 71 20 69 33 2E B2 00 14 20 62 63 63 |. beq i3.... bcc| 00000740: 20 69 33 2E B2 10 14 69 33 2E 31 20 6A 6D 70 20 | i3....i3.1 jmp | 00000750: 24 61 64 39 39 20 3B 74 79 70 65 20 6D 69 73 6D |$ad99 ;type mism| 00000760: 61 74 63 68 20 65 72 72 6F F2 20 14 3B 20 6E 61 |atch erro. .; na| 00000770: 65 63 68 73 74 65 73 20 7A 65 69 63 68 65 6E 20 |echstes zeichen | 00000780: 65 69 6E 6C 65 73 65 6E 20 75 6E 64 20 63 75 72 |einlesen und cur| 00000790: 73 6F 72 20 73 65 74 7A 65 EE 30 14 69 33 2E 32 |sor setze.0.i3.2| 000007A0: 20 64 65 F8 40 14 20 62 6E 65 20 69 33 2E B3 50 | de.@. bne i3..P| 000007B0: 14 69 34 20 6C 64 61 20 23 B3 60 14 20 73 74 61 |.i4 lda #.`. sta| 000007C0: 20 24 39 B9 70 14 20 6A 73 72 20 24 66 31 33 E5 | $9.p. jsr $f13.| 000007D0: 80 14 20 6C 64 78 20 23 B0 90 14 20 73 74 78 20 |.. ldx #... stx | 000007E0: 24 39 B9 00 15 20 64 65 63 20 32 31 B1 10 15 20 |$9... dec 21... | 000007F0: 63 6D 70 20 23 33 B2 20 15 20 62 6E 65 20 69 B6 |cmp #3. . bne i.| 00000800: 30 15 20 6C 64 61 20 23 31 36 B4 40 15 69 36 20 |0. lda #16.@.i6 | 00000810: 63 6D 70 20 23 31 36 B4 50 15 20 62 65 71 20 69 |cmp #16.P. beq i| 00000820: B7 60 15 20 6A 73 72 20 63 75 72 67 65 F4 70 15 |.`. jsr curge.p.| 00000830: 20 6C 64 61 20 28 24 64 31 29 2C F9 80 15 20 6F | lda ($d1),... o| 00000840: 72 61 20 23 25 31 30 30 30 30 30 30 B0 90 15 20 |ra #%1000000... | 00000850: 73 74 61 20 28 24 64 31 29 2C F9 00 16 20 62 6E |sta ($d1),... bn| 00000860: 65 20 69 B8 10 16 69 37 20 6A 73 72 20 62 73 6F |e i...i7 jsr bso| 00000870: 75 F4 20 16 20 64 65 63 20 32 31 B1 30 16 69 38 |u. . dec 21.0.i8| 00000880: 20 6C 64 61 20 24 63 B6 40 16 20 62 65 71 20 69 | lda $c.@. beq i| 00000890: B8 50 16 20 64 65 63 20 24 63 B6 60 16 20 6C 64 |.P. dec $c.`. ld| 000008A0: 61 20 24 32 37 B7 70 16 20 63 6D 70 20 23 27 22 |a $27.p. cmp #'"| 000008B0: A7 80 16 20 62 6E 65 20 69 B9 90 16 20 6A 73 72 |... bne i... jsr| 000008C0: 20 62 65 65 F0 00 17 20 6A 6D 70 20 69 B4 10 17 | bee... jmp i...| 000008D0: 69 39 20 73 74 61 20 6E 65 75 7A 65 69 63 E8 20 |i9 sta neuzeic. | 000008E0: 17 20 63 6D 70 20 23 31 B3 30 17 20 62 6E 65 20 |. cmp #1.0. bne | 000008F0: 69 31 B0 40 17 20 6A 6D 70 20 69 33 B9 50 17 69 |i1.@. jmp i3.P.i| 00000900: 31 30 20 6C 64 79 20 70 6F 73 69 74 69 6F EE 60 |10 ldy positio.`| 00000910: 17 20 6C 64 61 20 70 75 66 66 65 72 2D 31 2C F9 |. lda puffer-1,.| 00000920: 70 17 20 73 74 61 20 61 6C 74 7A 65 69 63 E8 80 |p. sta altzeic..| 00000930: 17 20 6C 64 61 20 6E 65 75 7A 65 69 63 E8 90 17 |. lda neuzeic...| 00000940: 3B 20 69 6E 73 65 72 F4 00 18 20 63 6D 70 20 23 |; inser... cmp #| 00000950: 31 34 B8 10 18 20 62 6E 65 20 69 31 B5 20 18 20 |14... bne i1. . | 00000960: 6C 64 79 20 65 6E 64 6C 61 65 6E 67 E5 30 18 20 |ldy endlaeng.0. | 00000970: 69 6E F9 40 18 20 63 70 79 20 61 6B 74 6C 61 65 |in.@. cpy aktlae| 00000980: 6E 67 E5 50 18 20 62 6E 65 20 69 31 B2 60 18 20 |ng.P. bne i1.`. | 00000990: 6A 73 72 20 62 65 65 F0 70 18 20 6A 6D 70 20 69 |jsr bee.p. jmp i| 000009A0: B4 80 18 69 31 32 20 6A 73 72 20 63 75 72 67 65 |...i12 jsr curge| 000009B0: F4 90 18 20 73 74 78 20 63 75 72 73 6F 72 79 B1 |... stx cursory.| 000009C0: 00 19 20 73 74 79 20 63 75 72 73 6F 72 78 B1 10 |.. sty cursorx..| 000009D0: 19 20 6C 64 79 20 61 6B 74 6C 61 65 6E 67 E5 20 |. ldy aktlaeng. | 000009E0: 19 20 63 70 79 20 70 6F 73 69 74 69 6F EE 30 19 |. cpy positio.0.| 000009F0: 20 62 65 71 20 69 31 33 2E B1 40 19 69 31 33 20 | beq i13..@.i13 | 00000A00: 64 65 F9 50 19 20 6C 64 61 20 70 75 66 66 65 72 |de.P. lda puffer| 00000A10: 2D 31 2C F9 60 19 20 73 74 61 20 70 75 66 66 65 |-1,.`. sta puffe| 00000A20: 72 2C F9 70 19 20 63 70 79 20 70 6F 73 69 74 69 |r,.p. cpy positi| 00000A30: 6F EE 80 19 20 62 6E 65 20 69 31 B3 90 19 69 31 |o... bne i1...i1| 00000A40: 33 2E 31 20 6C 64 61 20 23 33 B2 00 20 20 73 74 |3.1 lda #3.. st| 00000A50: 61 20 70 75 66 66 65 72 2D 31 2C F9 10 20 20 6C |a puffer-1,.. l| 00000A60: 64 78 20 63 75 72 73 6F 72 F9 20 20 20 6C 64 79 |dx cursor. ldy| 00000A70: 20 63 75 72 73 6F 72 F8 30 20 20 6A 73 72 20 63 | cursor.0 jsr c| 00000A80: 75 72 73 65 F4 40 20 20 6C 64 79 20 23 B0 50 20 |urse.@ ldy #.P | 00000A90: 69 31 34 20 6C 64 61 20 70 75 66 66 65 72 2C F9 |i14 lda puffer,.| 00000AA0: 60 20 20 62 6E 65 20 69 31 34 2E B1 70 20 20 6C |` bne i14..p l| 00000AB0: 64 61 20 23 33 B2 80 20 69 31 34 2E 31 20 6A 73 |da #3.. i14.1 js| 00000AC0: 72 20 62 73 6F 75 F4 90 20 20 69 6E F9 00 21 20 |r bsou.. in..! | 00000AD0: 63 70 79 20 65 6E 64 6C 61 65 6E 67 E5 10 21 20 |cpy endlaeng..! | 00000AE0: 62 6E 65 20 69 31 B4 20 21 20 69 6E 63 20 61 6B |bne i1. ! inc ak| 00000AF0: 74 6C 61 65 6E 67 E5 30 21 20 6C 64 78 20 63 75 |tlaeng.0! ldx cu| 00000B00: 72 73 6F 72 79 B1 40 21 20 6C 64 79 20 63 75 72 |rsory.@! ldy cur| 00000B10: 73 6F 72 78 B1 50 21 20 6A 73 72 20 63 75 72 73 |sorx.P! jsr curs| 00000B20: 65 F4 60 21 20 6A 6D 70 20 69 B4 70 21 3B 20 64 |e.`! jmp i.p!; d| 00000B30: 65 6C 65 74 65 B1 80 21 69 31 35 20 6C 64 61 20 |elete..!i15 lda | 00000B40: 6E 65 75 7A 65 69 63 E8 90 21 20 63 6D 70 20 23 |neuzeic..! cmp #| 00000B50: 32 B0 00 22 20 62 6E 65 20 69 31 B9 10 22 20 6C |2.." bne i1.." l| 00000B60: 64 79 20 70 6F 73 69 74 69 6F EE 20 22 20 64 65 |dy positio. " de| 00000B70: F9 30 22 20 62 6E 65 20 69 31 B7 40 22 20 6A 73 |.0" bne i1.@" js| 00000B80: 72 20 62 65 65 F0 50 22 20 6A 6D 70 20 69 B4 60 |r bee.P" jmp i.`| 00000B90: 22 69 31 37 20 6A 73 72 20 63 75 72 67 65 F4 70 |"i17 jsr curge.p| 00000BA0: 22 20 64 65 F9 80 22 20 73 74 78 20 63 75 72 73 |" de.." stx curs| 00000BB0: 6F 72 79 B1 90 22 20 73 74 79 20 63 75 72 73 6F |ory.." sty curso| 00000BC0: 72 78 B1 00 23 20 6C 64 79 20 70 6F 73 69 74 69 |rx..# ldy positi| 00000BD0: 6F EE 10 23 20 64 65 F9 20 23 69 31 B8 30 23 20 |o..# de. #i1.0# | 00000BE0: 6C 64 61 20 70 75 66 66 65 72 2C F9 40 23 20 73 |lda puffer,.@# s| 00000BF0: 74 61 20 70 75 66 66 65 72 2D 31 2C F9 50 23 20 |ta puffer-1,.P# | 00000C00: 69 6E F9 60 23 20 63 70 79 20 61 6B 74 6C 61 65 |in.`# cpy aktlae| 00000C10: 6E 67 E5 70 23 20 62 6E 65 20 69 31 B8 80 23 20 |ng.p# bne i1..# | 00000C20: 6C 64 78 20 63 75 72 73 6F 72 F9 90 23 20 6C 64 |ldx cursor..# ld| 00000C30: 79 20 63 75 72 73 6F 72 F8 00 24 20 6A 73 72 20 |y cursor..$ jsr | 00000C40: 63 75 72 73 65 F4 10 24 20 6C 64 79 20 23 B0 20 |curse..$ ldy #. | 00000C50: 24 69 31 38 2E 31 20 6C 64 61 20 70 75 66 66 65 |$i18.1 lda puffe| 00000C60: 72 2C F9 30 24 20 62 6E 65 20 69 31 38 2E B2 40 |r,.0$ bne i18..@| 00000C70: 24 20 6C 64 61 20 23 33 B2 50 24 69 31 38 2E 32 |$ lda #3.P$i18.2| 00000C80: 20 6A 73 72 20 62 73 6F 75 F4 60 24 20 69 6E F9 | jsr bsou.`$ in.| 00000C90: 70 24 20 63 70 79 20 65 6E 64 6C 61 65 6E 67 E5 |p$ cpy endlaeng.| 00000CA0: 80 24 20 62 6E 65 20 69 31 38 2E B1 90 24 20 6C |.$ bne i18...$ l| 00000CB0: 64 78 20 63 75 72 73 6F 72 79 B1 00 25 20 6C 64 |dx cursory..% ld| 00000CC0: 79 20 63 75 72 73 6F 72 78 B1 10 25 20 6A 73 72 |y cursorx..% jsr| 00000CD0: 20 63 75 72 73 65 F4 20 25 20 64 65 63 20 61 6B | curse. % dec ak| 00000CE0: 74 6C 61 65 6E 67 E5 30 25 20 64 65 63 20 70 6F |tlaeng.0% dec po| 00000CF0: 73 69 74 69 6F EE 40 25 20 6A 6D 70 20 69 B4 50 |sitio.@% jmp i.P| 00000D00: 25 3B 20 63 6C 72 2F 68 6F 6D E5 60 25 69 31 39 |%; clr/hom.`%i19| 00000D10: 20 6C 64 61 20 6E 65 75 7A 65 69 63 E8 70 25 20 | lda neuzeic.p% | 00000D20: 63 6D 70 20 23 31 34 B7 80 25 20 62 6E 65 20 69 |cmp #14..% bne i| 00000D30: 32 B1 90 25 69 32 30 2E 31 20 6C 64 78 20 63 75 |2..%i20.1 ldx cu| 00000D40: 72 73 6F 72 F9 00 26 20 6C 64 79 20 63 75 72 73 |rsor..& ldy curs| 00000D50: 6F 72 F8 10 26 20 6A 73 72 20 63 75 72 73 65 F4 |or..& jsr curse.| 00000D60: 20 26 20 6C 64 79 20 65 6E 64 6C 61 65 6E 67 E5 | & ldy endlaeng.| 00000D70: 30 26 20 6C 64 61 20 23 33 B2 40 26 69 32 30 20 |0& lda #3.@&i20 | 00000D80: 6A 73 72 20 62 73 6F 75 F4 50 26 20 64 65 F9 60 |jsr bsou.P& de.`| 00000D90: 26 20 62 6E 65 20 69 32 B0 70 26 20 6A 6D 70 20 |& bne i2.p& jmp | 00000DA0: 73 74 61 72 F4 80 26 3B 20 64 65 6C 65 74 65 B2 |star..&; delete.| 00000DB0: 90 26 69 32 B1 00 27 20 6C 64 61 20 6E 65 75 7A |.&i2..' lda neuz| 00000DC0: 65 69 63 E8 10 27 20 63 6D 70 20 23 31 B9 20 27 |eic..' cmp #1. '| 00000DD0: 20 62 6E 65 20 69 32 B4 30 27 20 6C 64 61 20 70 | bne i2.0' lda p| 00000DE0: 6F 73 69 74 69 6F EE 40 27 20 63 6D 70 20 61 6B |ositio.@' cmp ak| 00000DF0: 74 6C 61 65 6E 67 E5 50 27 20 62 63 63 20 69 32 |tlaeng.P' bcc i2| 00000E00: B2 60 27 20 6A 73 72 20 62 65 65 F0 70 27 20 6A |.`' jsr bee.p' j| 00000E10: 6D 70 20 69 B4 80 27 69 32 32 20 64 65 63 20 61 |mp i..'i22 dec a| 00000E20: 6B 74 6C 61 65 6E 67 E5 90 27 20 6A 73 72 20 63 |ktlaeng..' jsr c| 00000E30: 75 72 67 65 F4 00 28 20 73 74 78 20 63 75 72 73 |urge..( stx curs| 00000E40: 6F 72 79 B1 10 28 20 73 74 79 20 63 75 72 73 6F |ory..( sty curso| 00000E50: 72 78 B1 20 28 20 6C 64 79 20 70 6F 73 69 74 69 |rx. ( ldy positi| 00000E60: 6F EE 30 28 20 64 65 F9 40 28 69 32 33 20 69 6E |o.0( de.@(i23 in| 00000E70: F9 50 28 20 6C 64 61 20 70 75 66 66 65 72 2C F9 |.P( lda puffer,.| 00000E80: 60 28 20 73 74 61 20 70 75 66 66 65 72 2D 31 2C |`( sta puffer-1,| 00000E90: F9 70 28 20 6A 73 72 20 62 73 6F 75 F4 80 28 20 |.p( jsr bsou..( | 00000EA0: 63 70 79 20 61 6B 74 6C 61 65 6E 67 E5 90 28 20 |cpy aktlaeng..( | 00000EB0: 62 6E 65 20 69 32 B3 00 29 20 6C 64 61 20 23 33 |bne i2..) lda #3| 00000EC0: B2 10 29 20 6A 73 72 20 62 73 6F 75 F4 20 29 20 |..) jsr bsou. ) | 00000ED0: 6C 64 78 20 63 75 72 73 6F 72 79 B1 30 29 20 6C |ldx cursory.0) l| 00000EE0: 64 79 20 63 75 72 73 6F 72 78 B1 40 29 20 6A 73 |dy cursorx.@) js| 00000EF0: 72 20 63 75 72 73 65 F4 50 29 20 6A 6D 70 20 69 |r curse.P) jmp i| 00000F00: B4 60 29 3B 20 6C 69 6E 6B F3 70 29 69 32 34 20 |.`); link.p)i24 | 00000F10: 6C 64 61 20 6E 65 75 7A 65 69 63 E8 80 29 20 63 |lda neuzeic..) c| 00000F20: 6D 70 20 23 31 35 B7 90 29 20 62 6E 65 20 69 32 |mp #15..) bne i2| 00000F30: B7 00 30 20 6C 64 79 20 70 6F 73 69 74 69 6F EE |..0 ldy positio.| 00000F40: 10 30 20 64 65 F9 20 30 20 62 6E 65 20 69 32 B5 |.0 de. 0 bne i2.| 00000F50: 30 30 20 6A 73 72 20 62 65 65 F0 40 30 20 6A 6D |00 jsr bee.@0 jm| 00000F60: 70 20 69 B4 50 30 69 32 35 20 6C 64 79 20 70 6F |p i.P0i25 ldy po| 00000F70: 73 69 74 69 6F EE 60 30 20 63 70 79 20 61 6B 74 |sitio.`0 cpy akt| 00000F80: 6C 61 65 6E 67 E5 70 30 20 62 6E 65 20 69 32 B6 |laeng.p0 bne i2.| 00000F90: 80 30 20 6C 64 61 20 23 33 B2 90 30 20 62 6E 65 |.0 lda #3..0 bne| 00000FA0: 20 69 32 36 2E B1 00 31 69 32 36 20 6C 64 61 20 | i26...1i26 lda | 00000FB0: 61 6C 74 7A 65 69 63 E8 10 31 69 32 36 2E 31 20 |altzeic..1i26.1 | 00000FC0: 6A 73 72 20 62 73 6F 75 F4 20 31 20 64 65 63 20 |jsr bsou. 1 dec | 00000FD0: 32 31 B1 30 31 20 64 65 63 20 32 31 B1 40 31 20 |21.01 dec 21.@1 | 00000FE0: 64 65 63 20 70 6F 73 69 74 69 6F EE 50 31 20 6A |dec positio.P1 j| 00000FF0: 6D 70 20 69 B4 60 31 3B 20 72 65 63 68 74 F3 70 |mp i.`1; recht.p| 00001000: 31 69 32 37 20 6C 64 61 20 6E 65 75 7A 65 69 63 |1i27 lda neuzeic| 00001010: E8 80 31 20 63 6D 70 20 23 32 B9 90 31 20 62 6E |..1 cmp #2..1 bn| 00001020: 65 20 69 33 B0 00 32 20 6C 64 79 20 65 6E 64 6C |e i3..2 ldy endl| 00001030: 61 65 6E 67 E5 10 32 20 63 70 79 20 70 6F 73 69 |aeng..2 cpy posi| 00001040: 74 69 6F EE 20 32 20 62 65 71 20 69 32 38 2E B1 |tio. 2 beq i28..| 00001050: 30 32 20 62 63 73 20 69 32 B8 40 32 69 32 38 2E |02 bcs i2.@2i28.| 00001060: 31 20 6A 73 72 20 62 65 65 F0 50 32 20 6A 6D 70 |1 jsr bee.P2 jmp| 00001070: 20 69 B4 60 32 69 32 38 20 6C 64 79 20 70 6F 73 | i.`2i28 ldy pos| 00001080: 69 74 69 6F EE 70 32 20 63 70 79 20 61 6B 74 6C |itio.p2 cpy aktl| 00001090: 61 65 6E 67 E5 80 32 20 62 65 71 20 69 32 B9 90 |aeng..2 beq i2..| 000010A0: 32 20 6C 64 61 20 61 6C 74 7A 65 69 63 E8 00 33 |2 lda altzeic..3| 000010B0: 20 6A 73 72 20 62 73 6F 75 F4 10 33 20 69 6E 63 | jsr bsou..3 inc| 000010C0: 20 70 6F 73 69 74 69 6F EE 20 33 20 6A 6D 70 20 | positio. 3 jmp | 000010D0: 69 B4 30 33 69 32 39 20 6C 64 61 20 23 33 B2 40 |i.03i29 lda #3.@| 000010E0: 33 20 73 74 61 20 6E 65 75 7A 65 69 63 E8 50 33 |3 sta neuzeic.P3| 000010F0: 20 6A 6D 70 20 69 33 B5 60 33 3B 20 61 6E 64 65 | jmp i3.`3; ande| 00001100: 72 65 20 74 61 73 74 E5 70 33 69 33 B0 80 33 20 |re tast.p3i3..3 | 00001110: 6C 64 61 20 6E 65 75 7A 65 69 63 E8 90 33 69 33 |lda neuzeic..3i3| 00001120: 32 20 63 6D 70 20 23 33 B2 00 34 20 62 63 73 20 |2 cmp #3..4 bcs | 00001130: 69 33 B4 10 34 69 33 33 20 6A 73 72 20 62 65 65 |i3..4i33 jsr bee| 00001140: F0 20 34 20 6A 6D 70 20 69 B4 30 34 69 33 34 20 |. 4 jmp i.04i34 | 00001150: 63 6D 70 20 23 39 B6 40 34 20 62 63 63 20 69 33 |cmp #9.@4 bcc i3| 00001160: B5 50 34 20 63 6D 70 20 23 31 32 B3 60 34 20 62 |.P4 cmp #12.`4 b| 00001170: 63 63 20 69 33 B3 70 34 20 63 6D 70 20 23 31 32 |cc i3.p4 cmp #12| 00001180: B7 80 34 20 62 63 63 20 69 33 B5 90 34 20 63 6D |..4 bcc i3..4 cm| 00001190: 70 20 23 31 39 B3 00 35 20 62 63 63 20 69 33 B3 |p #19..5 bcc i3.| 000011A0: 10 35 20 63 6D 70 20 23 32 31 B9 20 35 20 62 63 |.5 cmp #21. 5 bc| 000011B0: 63 20 69 33 B5 30 35 20 6A 73 72 20 62 65 65 F0 |c i3.05 jsr bee.| 000011C0: 40 35 20 6A 6D 70 20 69 B4 50 35 69 33 35 20 6C |@5 jmp i.P5i35 l| 000011D0: 64 79 20 76 61 72 74 79 F0 60 35 20 62 65 71 20 |dy varty.`5 beq | 000011E0: 69 33 35 2E B1 70 35 20 63 6D 70 20 23 27 2D A7 |i35..p5 cmp #'-.| 000011F0: 80 35 20 62 65 71 20 69 33 35 2E B1 90 35 20 63 |.5 beq i35...5 c| 00001200: 6D 70 20 23 27 2E A7 00 36 20 62 65 71 20 69 33 |mp #'...6 beq i3| 00001210: 35 2E B1 10 36 20 63 6D 70 20 23 27 45 A7 20 36 |5...6 cmp #'E. 6| 00001220: 20 62 65 71 20 69 33 35 2E B1 30 36 20 63 6D 70 | beq i35..06 cmp| 00001230: 20 23 33 B2 40 36 20 62 65 71 20 69 33 35 2E B1 | #3.@6 beq i35..| 00001240: 50 36 20 63 6D 70 20 23 27 30 A7 60 36 20 62 63 |P6 cmp #'0.`6 bc| 00001250: 63 20 69 33 35 2E B2 70 36 20 63 6D 70 20 23 27 |c i35..p6 cmp #'| 00001260: 39 A7 80 36 20 62 63 63 20 69 33 35 2E B1 90 36 |9..6 bcc i35...6| 00001270: 20 62 65 71 20 69 33 35 2E B1 00 37 20 6A 73 72 | beq i35...7 jsr| 00001280: 20 62 65 65 F0 10 37 69 33 35 2E 32 20 6A 6D 70 | bee..7i35.2 jmp| 00001290: 20 69 B4 20 37 69 33 35 2E B1 30 37 20 6C 64 79 | i. 7i35..07 ldy| 000012A0: 20 65 6E 64 6C 61 65 6E 67 E5 40 37 20 69 6E F9 | endlaeng.@7 in.| 000012B0: 50 37 20 63 70 79 20 61 6B 74 6C 61 65 6E 67 E5 |P7 cpy aktlaeng.| 000012C0: 60 37 20 62 6E 65 20 69 33 B6 70 37 20 6C 64 79 |`7 bne i3.p7 ldy| 000012D0: 20 61 6B 74 6C 61 65 6E 67 E5 80 37 20 63 70 79 | aktlaeng..7 cpy| 000012E0: 20 70 6F 73 69 74 69 6F EE 90 37 20 62 6E 65 20 | positio..7 bne | 000012F0: 69 33 B6 00 38 20 6A 73 72 20 62 65 65 F0 10 38 |i3..8 jsr bee..8| 00001300: 20 6A 6D 70 20 69 B4 20 38 69 33 36 20 6C 64 61 | jmp i. 8i36 lda| 00001310: 20 70 6F 73 69 74 69 6F EE 30 38 20 63 6D 70 20 | positio.08 cmp | 00001320: 61 6B 74 6C 61 65 6E 67 E5 40 38 20 62 63 73 20 |aktlaeng.@8 bcs | 00001330: 69 33 B7 50 38 20 6C 64 79 20 70 6F 73 69 74 69 |i3.P8 ldy positi| 00001340: 6F EE 60 38 20 6C 64 61 20 6E 65 75 7A 65 69 63 |o.`8 lda neuzeic| 00001350: E8 70 38 20 73 74 61 20 70 75 66 66 65 72 2D 31 |.p8 sta puffer-1| 00001360: 2C F9 80 38 20 69 6E 63 20 70 6F 73 69 74 69 6F |,..8 inc positio| 00001370: EE 90 38 20 6A 73 72 20 62 65 65 F0 00 39 20 6A |..8 jsr bee..9 j| 00001380: 6D 70 20 69 33 B8 10 39 69 33 37 20 6C 64 79 20 |mp i3..9i37 ldy | 00001390: 70 6F 73 69 74 69 6F EE 20 39 20 6C 64 61 20 6E |positio. 9 lda n| 000013A0: 65 75 7A 65 69 63 E8 30 39 20 73 74 61 20 70 75 |euzeic.09 sta pu| 000013B0: 66 66 65 72 2D 31 2C F9 40 39 20 69 6E 63 20 61 |ffer-1,.@9 inc a| 000013C0: 6B 74 6C 61 65 6E 67 E5 50 39 20 69 6E 63 20 70 |ktlaeng.P9 inc p| 000013D0: 6F 73 69 74 69 6F EE 60 39 69 33 38 20 6C 64 61 |ositio.`9i38 lda| 000013E0: 20 6E 65 75 7A 65 69 63 E8 70 39 20 6A 73 72 20 | neuzeic.p9 jsr | 000013F0: 62 73 6F 75 F4 80 39 20 6C 64 61 20 70 6F 73 69 |bsou..9 lda posi| 00001400: 74 69 6F EE 90 39 20 63 6D 70 20 65 6E 64 6C 61 |tio..9 cmp endla| 00001410: 65 6E 67 E5 00 40 20 62 65 71 20 69 33 38 2E B1 |eng..@ beq i38..| 00001420: 10 40 20 62 63 63 20 69 33 38 2E B1 20 40 20 64 |.@ bcc i38.. @ d| 00001430: 65 63 20 70 6F 73 69 74 69 6F EE 30 40 20 64 65 |ec positio.0@ de| 00001440: 63 20 32 31 B1 40 40 69 33 38 2E 31 20 6A 6D 70 |c 21.@@i38.1 jmp| 00001450: 20 69 B4 50 40 69 33 39 20 6C 64 79 20 70 6F 73 | i.P@i39 ldy pos| 00001460: 69 74 69 6F EE 60 40 20 6C 64 61 20 70 75 66 66 |itio.`@ lda puff| 00001470: 65 72 2D 31 2C F9 70 40 20 62 6E 65 20 69 34 B1 |er-1,.p@ bne i4.| 00001480: 80 40 69 34 30 20 6C 64 61 20 23 33 B2 90 40 69 |.@i40 lda #3..@i| 00001490: 34 31 20 6A 73 72 20 62 73 6F 75 F4 00 41 20 6C |41 jsr bsou..A l| 000014A0: 64 61 20 23 31 B3 10 41 20 6A 73 72 20 62 73 6F |da #1..A jsr bso| 000014B0: 75 F4 20 41 20 64 65 63 20 61 6B 74 6C 61 65 6E |u. A dec aktlaen| 000014C0: 67 E5 30 41 20 6A 73 72 20 63 68 6B 63 6F ED 40 |g.0A jsr chkco.@| 000014D0: 41 20 6C 64 61 20 76 61 72 74 79 F0 50 41 20 62 |A lda varty.PA b| 000014E0: 6E 65 20 69 34 B5 60 41 3B 20 73 74 72 69 6E 67 |ne i4.`A; string| 000014F0: 2D 76 61 72 69 61 62 6C E5 70 41 20 6A 73 72 20 |-variabl.pA jsr | 00001500: 24 62 30 38 E2 80 41 20 73 74 61 20 24 34 B9 90 |$b08..A sta $4..| 00001510: 41 20 73 74 79 20 24 34 E1 00 42 20 6A 73 72 20 |A sty $4..B jsr | 00001520: 24 62 36 61 B3 10 42 20 6C 64 61 20 61 6B 74 6C |$b6a..B lda aktl| 00001530: 61 65 6E 67 E5 20 42 20 62 65 71 20 69 34 B4 30 |aeng. B beq i4.0| 00001540: 42 20 6A 73 72 20 24 62 34 37 B5 40 42 20 6C 64 |B jsr $b47.@B ld| 00001550: 79 20 23 B2 50 42 69 34 32 20 6C 64 61 20 24 36 |y #.PBi42 lda $6| 00001560: 31 2C F9 60 42 20 73 74 61 20 28 24 34 39 29 2C |1,.`B sta ($49),| 00001570: F9 70 42 20 64 65 F9 80 42 20 62 70 6C 20 69 34 |.pB de..B bpl i4| 00001580: B2 90 42 20 69 6E F9 00 43 69 34 33 20 6C 64 61 |..B in..Ci43 lda| 00001590: 20 70 75 66 66 65 72 2C F9 10 43 20 73 74 61 20 | puffer,..C sta | 000015A0: 28 24 36 32 29 2C F9 20 43 20 69 6E F9 30 43 20 |($62),. C in.0C | 000015B0: 63 70 79 20 24 36 B1 40 43 20 62 6E 65 20 69 34 |cpy $6.@C bne i4| 000015C0: B3 50 43 69 34 34 20 6C 64 61 20 23 B0 60 43 20 |.PCi44 lda #.`C | 000015D0: 73 74 61 20 36 35 B0 70 43 20 72 74 F3 80 43 3B |sta 65.pC rt..C;| 000015E0: 20 72 65 61 6C 2D 76 61 72 69 61 62 6C E5 90 43 | real-variabl..C| 000015F0: 69 34 35 20 6C 64 61 20 23 6C 2C 70 75 66 66 65 |i45 lda #l,puffe| 00001600: F2 00 44 20 73 74 61 20 24 32 B2 10 44 20 6C 64 |..D sta $2..D ld| 00001610: 61 20 23 68 2C 70 75 66 66 65 F2 20 44 20 73 74 |a #h,puffe. D st| 00001620: 61 20 24 32 B3 30 44 20 6C 64 61 20 61 6B 74 6C |a $2.0D lda aktl| 00001630: 61 65 6E 67 E5 40 44 20 74 61 F9 50 44 20 6C 64 |aeng.@D ta.PD ld| 00001640: 78 20 23 B0 60 44 20 73 74 78 20 31 B3 70 44 20 |x #.`D stx 1.pD | 00001650: 6A 73 72 20 24 62 37 62 B5 80 44 20 6A 73 72 20 |jsr $b7b..D jsr | 00001660: 24 62 30 38 E2 90 44 20 73 74 61 20 24 34 B9 00 |$b08..D sta $4..| 00001670: 45 20 73 74 79 20 24 34 E1 10 45 20 6C 64 61 20 |E sty $4..E lda | 00001680: 31 B3 20 45 20 62 6E 65 20 69 34 B6 30 45 20 6C |1. E bne i4.0E l| 00001690: 64 61 20 24 34 B9 40 45 20 6A 73 72 20 24 62 62 |da $4.@E jsr $bb| 000016A0: 64 B0 50 45 20 6A 6D 70 20 69 34 B4 60 45 69 34 |d.PE jmp i4.`Ei4| 000016B0: 36 20 6A 6D 70 20 24 61 64 39 39 20 3B 74 79 70 |6 jmp $ad99 ;typ| 000016C0: 65 20 6D 69 73 6D 61 74 63 68 20 65 72 72 6F F2 |e mismatch erro.| 000016D0: 70 45 62 65 65 F0 80 45 20 6C 64 79 20 23 35 B0 |pEbee..E ldy #5.| 000016E0: 90 45 20 6C 64 78 20 23 B0 00 46 62 65 31 20 64 |.E ldx #..Fbe1 d| 000016F0: 65 F8 10 46 20 62 6E 65 20 62 65 B1 20 46 20 64 |e..F bne be. F d| 00001700: 65 F9 30 46 20 62 6E 65 20 62 65 B1 40 46 20 6C |e.0F bne be.@F l| 00001710: 64 61 20 23 B5 50 46 20 73 74 61 20 73 69 64 2B |da #.PF sta sid+| 00001720: 32 B4 60 46 20 6C 64 61 20 23 32 B1 70 46 20 73 |2.`F lda #2.pF s| 00001730: 74 61 20 73 69 64 2B B5 80 46 20 6C 64 61 20 23 |ta sid+..F lda #| 00001740: 31 36 B0 90 46 20 73 74 61 20 73 69 64 2B B6 00 |16..F sta sid+..| 00001750: 47 20 6C 64 61 20 23 37 B0 10 47 20 73 74 61 20 |G lda #7..G sta | 00001760: 73 69 64 2B B1 20 47 20 6C 64 61 20 23 31 B7 30 |sid+. G lda #1.0| 00001770: 47 20 73 74 61 20 73 69 64 2B B4 40 47 20 6C 64 |G sta sid+.@G ld| 00001780: 79 20 23 33 B0 50 47 20 6C 64 78 20 23 B0 60 47 |y #3.PG ldx #.`G| 00001790: 62 65 32 20 64 65 F8 70 47 20 62 6E 65 20 62 65 |be2 de.pG bne be| 000017A0: B2 80 47 20 64 65 F9 90 47 20 62 6E 65 20 62 65 |..G de..G bne be| 000017B0: B2 00 48 20 73 74 79 20 73 69 64 2B B4 10 48 20 |..H sty sid+..H | 000017C0: 73 74 79 20 73 69 64 2B 32 B4 20 48 20 72 74 F3 |sty sid+2. H rt.| 000017D0: 30 48 3B 20 63 75 72 73 6F 72 20 73 65 74 7A 65 |0H; cursor setze| 000017E0: EE 40 48 63 75 72 73 65 F4 50 48 20 63 6C E3 60 |.@Hcurse.PH cl.`| 000017F0: 48 20 6A 6D 70 20 63 75 72 73 6F F2 70 48 3B 20 |H jmp curso.pH; | 00001800: 63 75 72 73 6F 72 20 68 6F 6C 65 EE 80 48 63 75 |cursor hole..Hcu| 00001810: 72 67 65 F4 90 48 20 73 65 E3 00 49 20 6A 6D 70 |rge..H se..I jmp| 00001820: 20 63 75 72 73 6F F2 10 49 3B 20 61 6C 73 20 62 | curso..I; als b| 00001830: 61 73 69 63 2D 62 65 66 65 68 6C 20 6D 69 74 20 |asic-befehl mit | 00001840: 27 5F 69 27 20 61 75 66 72 75 66 65 EE 20 49 6E |'_i' aufrufe. In| 00001850: 65 77 69 6E 69 F4 30 49 20 6C 64 61 20 23 6C 2C |ewini.0I lda #l,| 00001860: 6E 65 75 72 6F 75 F4 40 49 20 73 74 61 20 24 33 |neurou.@I sta $3| 00001870: 30 B8 50 49 20 6C 64 61 20 23 68 2C 6E 65 75 72 |0.PI lda #h,neur| 00001880: 6F 75 F4 60 49 20 73 74 61 20 24 33 30 B9 70 49 |ou.`I sta $30.pI| 00001890: 20 72 74 F3 80 49 3B 20 6E 69 63 68 74 20 6D 65 | rt..I; nicht me| 000018A0: 68 72 20 61 6C 73 20 62 65 66 65 68 6C 20 62 65 |hr als befehl be| 000018B0: 6E 75 74 7A 65 EE 90 49 6E 65 77 72 65 73 65 F4 |nutze..Inewrese.| 000018C0: 00 50 20 6C 64 61 20 23 24 65 B4 10 50 20 73 74 |.P lda #$e..P st| 000018D0: 61 20 24 33 30 B8 20 50 20 6C 64 61 20 23 24 61 |a $30. P lda #$a| 000018E0: B7 30 50 20 73 74 61 20 24 33 30 B9 40 50 20 72 |.0P sta $30.@P r| 000018F0: 74 F3 50 50 68 76 31 20 2E 62 79 20 B0 60 50 68 |t.PPhv1 .by .`Ph| 00001900: 76 32 20 2E 62 79 20 B0 70 50 3B 20 75 65 62 65 |v2 .by .pP; uebe| 00001910: 72 70 72 75 65 66 75 6E 67 20 61 75 66 20 6E 65 |rpruefung auf ne| 00001920: 75 65 6E 20 62 65 66 65 68 EC 80 50 6E 65 75 72 |uen befeh..Pneur| 00001930: 6F 75 F4 90 50 20 6A 73 72 20 24 37 B3 00 51 20 |ou..P jsr $7..Q | 00001940: 62 65 71 20 6E 72 B1 10 51 20 63 6D 70 20 23 27 |beq nr..Q cmp #'| 00001950: 5F A7 20 51 20 62 65 71 20 6E 72 B2 30 51 6E 72 |_. Q beq nr.0Qnr| 00001960: 31 20 6A 6D 70 20 24 61 37 65 B7 40 51 6E 72 32 |1 jmp $a7e.@Qnr2| 00001970: 20 6A 73 72 20 24 37 B3 50 51 20 63 6D 70 20 23 | jsr $7.PQ cmp #| 00001980: 27 49 A7 60 51 20 62 65 71 20 6E 72 B3 70 51 20 |'I.`Q beq nr.pQ | 00001990: 6A 6D 70 20 24 61 66 30 B8 80 51 6E 72 33 20 6A |jmp $af0..Qnr3 j| 000019A0: 73 72 20 24 37 B3 90 51 20 6A 73 72 20 24 63 30 |sr $7..Q jsr $c0| 000019B0: 30 B3 00 52 20 6A 6D 70 20 24 61 37 61 E5 10 52 |0..R jmp $a7a..R| 000019C0: 20 2E 65 EE 2E 14 | .e... |
..0.I...; EINGABEROUTIN. .; START MI .0.; SYS 49152,X,Y,BEMERK$,LAENGE,TYP, VARIABL.@. .O.P. .BA $C00.`.ENDLAENGE .D E $33.P.POSITION .DE $33...ALTZEICH .DE $33...AKTLAENGE .DE $33...NEUZEICH .DE $34...CURSORX .DE $34. .CURSORY .DE $34. 0.CURSORX1 .DE $34.@.CURSORY1 .DE $34.P. VARTYP .DE $34.`.PUFFER .DE $34.P.CHKCOM .DE $AEF...GETBYT .DE $B79...BSOUT .DE $FFD...CURSOR .DE $FFF...FRMEVL .DE $AD 9. .SID .DE 5427.0.; CURSOR POSITIONIERE .@. JSR CHKCO.P. JSR GETBY.`. TX.P. PH.. . JSR CHKCO... JSR GETBY... PL... TA. . JSR CURSE.0. JSR CHKCO.@.; BEMERKTEXT UE BERNEHME.P. JSR FRMEV.`. LDA 1.P. BEQ BU ... JSR $B6A... TA... LDY #... IN. .BU1 DE.0. BEQ BU.@. LDA ($22),.P. JSR BSOU.` . IN.P. BNE BU...BU2 LDA #'[... JSR BSOU ... JSR CURGE... STX CURSOR. . STY CURSO R.0.; LAENG.@. LDA 1.P. BNE BU.`. JSR $A D8.P. JSR $B1B... LDX $6... BNE BU... LD X $6... BNE BU. .BU7 JMP $B24.0.BU5 JSR CHKCO.@. JSR GETBY.P. CPX #.`. BEQ BU.P. BU6 STX ENDLAENG... LDA CURSOR... CL... ADC ENDLAENG... CMP #3. . BCS BU.0. TA.@ . LDX CURSOR.P. JSR CURSE.`. LDA #'].P. JSR BSOU... JSR CHKCO...; VARIABLENTYP. 0=STRING, >0=NUMERISC... JSR GETBY... ST X VARTY. .; PUFFER LOESCHE.0.STAR.@. LDA #.P. LDY #5.`.CL STA PUFFER-1,.P. DE... BNE C... STY $C... IN... STY AKTLAENG. . STY POSITIO.0. LDA #12.@. STA 65.P.; A LTEN TEXT UEBERNEHME.`. LDX CURSOR.P. LD Y CURSOR... JSR CURSE... LDA #... STA $9 ... LDY #. .I1 JSR $F13.0. STA PUFFER,.@ . IN.P. CPY ENDLAENG.`. BNE I.P. LDX CUR SOR... LDY CURSOR... JSR CURSE... LDX #. ..; BLANKS AM ENDE STREICHE. . LDY ENDLA ENG.0.I2 LDA PUFFER-1,.@. CMP #3.P. BNE I.`. TX.P. STA PUFFER-1,... DE... BNE I. ..I3 IN... STY AKTLAENG. . LDA VARTY.0. BEQ I.@.; AUF NUMERISCH PRUEFE.P. LDX EN DLAENG.`.I3.3 LDA PUFFER-1,.P. BEQ I3... . CMP #3... BEQ I3.... CMP #'-... BEQ I3 .. . CMP #'..0. BEQ I3..@. CMP #'E.P. BE Q I3..`. CMP #'0.P. BCC I3.... CMP #'9.. . BEQ I3.... BCC I3....I3.1 JMP $AD99 ;T YPE MISMATCH ERRO. .; NAECHSTES ZEICHEN EINLESEN UND CURSOR SETZE.0.I3.2 DE.@. B NE I3..P.I4 LDA #.`. STA $9.P. JSR $F13. .. LDX #... STX $9... DEC 21... CMP #3. . BNE I.0. LDA #16.@.I6 CMP #16.P. BEQ I .`. JSR CURGE.P. LDA ($D1),... ORA #%100 0000... STA ($D1),... BNE I...I7 JSR BSO U. . DEC 21.0.I8 LDA $C.@. BEQ I.P. DEC $C.`. LDA $27.P. CMP #'"... BNE I... JSR BEE... JMP I...I9 STA NEUZEIC. . CMP #1 .0. BNE I1.@. JMP I3.P.I10 LDY POSITIO.` . LDA PUFFER-1,.P. STA ALTZEIC... LDA NE UZEIC...; INSER... CMP #14... BNE I1. . LDY ENDLAENG.0. IN.@. CPY AKTLAENG.P. BN E I1.`. JSR BEE.P. JMP I...I12 JSR CURGE ... STX CURSORY... STY CURSORX... LDY AK TLAENG. . CPY POSITIO.0. BEQ I13..@.I13 DE.P. LDA PUFFER-1,.`. STA PUFFER,.P. CP Y POSITIO... BNE I1...I13.1 LDA #3.. ST A PUFFER-1,.. LDX CURSOR. LDY CURSOR. 0 JSR CURSE.@ LDY #.P I14 LDA PUFFER,. ` BNE I14..P LDA #3.. I14.1 JSR BSOU.. IN..! CPY ENDLAENG..! BNE I1. ! INC AK TLAENG.0! LDX CURSORY.@! LDY CURSORX.P! JSR CURSE.`! JMP I.P!; DELETE..!I15 LDA NEUZEIC..! CMP #2.." BNE I1.." LDY POSIT IO. " DE.0" BNE I1.@" JSR BEE.P" JMP I.` "I17 JSR CURGE.P" DE.." STX CURSORY.." S TY CURSORX..# LDY POSITIO..# DE. #I1.0# LDA PUFFER,.@# STA PUFFER-1,.P# IN.`# CP Y AKTLAENG.P# BNE I1..# LDX CURSOR..# LD Y CURSOR..$ JSR CURSE..$ LDY #. $I18.1 L DA PUFFER,.0$ BNE I18..@$ LDA #3.P$I18.2 JSR BSOU.`$ IN.P$ CPY ENDLAENG..$ BNE I 18...$ LDX CURSORY..% LDY CURSORX..% JSR CURSE. % DEC AKTLAENG.0% DEC POSITIO.@% JMP I.P%; CLR/HOM.`%I19 LDA NEUZEIC.P% CMP #14..% BNE I2..%I20.1 LDX CURSOR..& LDY CURSOR..& JSR CURSE. & LDY ENDLAENG. 0& LDA #3.@&I20 JSR BSOU.P& DE.`& BNE I2 .P& JMP STAR..&; DELETE..&I2..' LDA NEUZ EIC..' CMP #1. ' BNE I2.0' LDA POSITIO.@ ' CMP AKTLAENG.P' BCC I2.`' JSR BEE.P' J MP I..'I22 DEC AKTLAENG..' JSR CURGE..( STX CURSORY..( STY CURSORX. ( LDY POSITI O.0( DE.@(I23 IN.P( LDA PUFFER,.`( STA P UFFER-1,.P( JSR BSOU..( CPY AKTLAENG..( BNE I2..) LDA #3..) JSR BSOU. ) LDX CURS ORY.0) LDY CURSORX.@) JSR CURSE.P) JMP I .`); LINK.P)I24 LDA NEUZEIC..) CMP #15.. ) BNE I2..0 LDY POSITIO..0 DE. 0 BNE I2. 00 JSR BEE.@0 JMP I.P0I25 LDY POSITIO.`0 CPY AKTLAENG.P0 BNE I2..0 LDA #3..0 BNE I26...1I26 LDA ALTZEIC..1I26.1 JSR BSOU . 1 DEC 21.01 DEC 21.@1 DEC POSITIO.P1 J MP I.`1; RECHT.P1I27 LDA NEUZEIC..1 CMP #2..1 BNE I3..2 LDY ENDLAENG..2 CPY POSI TIO. 2 BEQ I28..02 BCS I2.@2I28.1 JSR BE E.P2 JMP I.`2I28 LDY POSITIO.P2 CPY AKTL AENG..2 BEQ I2..2 LDA ALTZEIC..3 JSR BSO U..3 INC POSITIO. 3 JMP I.03I29 LDA #3.@ 3 STA NEUZEIC.P3 JMP I3.`3; ANDERE TAST. P3I3..3 LDA NEUZEIC..3I32 CMP #3..4 BCS I3..4I33 JSR BEE. 4 JMP I.04I34 CMP #9.@ 4 BCC I3.P4 CMP #12.`4 BCC I3.P4 CMP #12 ..4 BCC I3..4 CMP #19..5 BCC I3..5 CMP # 21. 5 BCC I3.05 JSR BEE.@5 JMP I.P5I35 L DY VARTY.`5 BEQ I35..P5 CMP #'-..5 BEQ I 35...5 CMP #'...6 BEQ I35...6 CMP #'E. 6 BEQ I35..06 CMP #3.@6 BEQ I35..P6 CMP # '0.`6 BCC I35..P6 CMP #'9..6 BCC I35...6 BEQ I35...7 JSR BEE..7I35.2 JMP I. 7I35 ..07 LDY ENDLAENG.@7 IN.P7 CPY AKTLAENG. `7 BNE I3.P7 LDY AKTLAENG..7 CPY POSITIO ..7 BNE I3..8 JSR BEE..8 JMP I. 8I36 LDA POSITIO.08 CMP AKTLAENG.@8 BCS I3.P8 LD Y POSITIO.`8 LDA NEUZEIC.P8 STA PUFFER-1 ,..8 INC POSITIO..8 JSR BEE..9 JMP I3..9 I37 LDY POSITIO. 9 LDA NEUZEIC.09 STA PU FFER-1,.@9 INC AKTLAENG.P9 INC POSITIO.` 9I38 LDA NEUZEIC.P9 JSR BSOU..9 LDA POSI TIO..9 CMP ENDLAENG..@ BEQ I38...@ BCC I 38.. @ DEC POSITIO.0@ DEC 21.@@I38.1 JMP I.P@I39 LDY POSITIO.`@ LDA PUFFER-1,.P@ BNE I4..@I40 LDA #3..@I41 JSR BSOU..A L DA #1..A JSR BSOU. A DEC AKTLAENG.0A JSR CHKCO.@A LDA VARTY.PA BNE I4.`A; STRING -VARIABL.PA JSR $B08..A STA $4..A STY $4 ..B JSR $B6A..B LDA AKTLAENG. B BEQ I4.0 B JSR $B47.@B LDY #.PBI42 LDA $61,.`B ST A ($49),.PB DE..B BPL I4..B IN..CI43 LDA PUFFER,..C STA ($62),. C IN.0C CPY $6.@ C BNE I4.PCI44 LDA #.`C STA 65.PC RT..C; REAL-VARIABL..CI45 LDA #L,PUFFE..D STA $2..D LDA #H,PUFFE. D STA $2.0D LDA AKTL AENG.@D TA.PD LDX #.`D STX 1.PD JSR $B7B ..D JSR $B08..D STA $4..E STY $4..E LDA 1. E BNE I4.0E LDA $4.@E JSR $BBD.PE JMP I4.`EI46 JMP $AD99 ;TYPE MISMATCH ERRO. PEBEE..E LDY #5..E LDX #..FBE1 DE..F BNE BE. F DE.0F BNE BE.@F LDA #.PF STA SID+ 2.`F LDA #2.PF STA SID+..F LDA #16..F ST A SID+..G LDA #7..G STA SID+. G LDA #1.0 G STA SID+.@G LDY #3.PG LDX #.`GBE2 DE.P G BNE BE..G DE..G BNE BE..H STY SID+..H STY SID+2. H RT.0H; CURSOR SETZE.@HCURSE .PH CL.`H JMP CURSO.PH; CURSOR HOLE..HCU RGE..H SE..I JMP CURSO..I; ALS BASIC-BEF EHL MIT '_I' AUFRUFE. INEWINI.0I LDA #L, NEUROU.@I STA $30.PI LDA #H,NEUROU.`I ST A $30.PI RT..I; NICHT MEHR ALS BEFEHL BE NUTZE..INEWRESE..P LDA #$E..P STA $30. P LDA #$A.0P STA $30.@P RT.PPHV1 .BY .`PH V2 .BY .PP; UEBERPRUEFUNG AUF NEUEN BEFE H..PNEUROU..P JSR $7..Q BEQ NR..Q CMP #' _. Q BEQ NR.0QNR1 JMP $A7E.@QNR2 JSR $7. PQ CMP #'I.`Q BEQ NR.PQ JMP $AF0..QNR3 J SR $7..Q JSR $C00..R JMP $A7A..R .E...
> CLICK IMAGE PREVIEW FOR FULL MODAL