Multiple names: ICE2, ICI 2
FILE INFORMATION
FILENAME(S):
• ICE2<br>• ICI 2
FILE TYPE(S): SEQ
FILE SIZE: 4.6K
FIRST SEEN: 2025-10-20 14:31:01
APPEARS ON: 2 disk(s)
FILE HASH
ff628c06137b3c46e06da30695f7d4b3f7e3027cd0a726d6c86badee2b5d68d1
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| IN | ICE2 | SEQ | Treasure Chest - Klaus Der Suhler | 28 | 9 | DOWNLOAD FILE |
| INPUT 64 0987 | ICI 2 | SEQ | Treasure Chest - Sammlung | 24 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 4F 52 47 20 24 39 30 30 30 0D 0D 3B 20 45 52 57 |ORG $9000..; ERW| 00000010: 45 49 54 45 52 55 4E 47 20 46 55 45 52 20 49 43 |EITERUNG FUER IC| 00000020: 49 20 2D 20 4D 4F 56 45 20 4B 4F 4D 4D 41 4E 44 |I - MOVE KOMMAND| 00000030: 4F 0D 3B 20 28 57 29 20 46 52 41 4E 4B 20 42 4F |O.; (W) FRANK BO| 00000040: 45 52 4E 43 4B 45 20 20 20 28 43 29 20 49 4E 50 |ERNCKE (C) INP| 00000050: 55 54 36 34 0D 0D 3B 20 41 52 42 45 49 54 53 56 |UT64..; ARBEITSV| 00000060: 41 52 49 41 42 4C 45 4E 20 46 55 45 52 20 4D 4F |ARIABLEN FUER MO| 00000070: 56 45 2D 52 4F 55 54 49 4E 45 0D 0D 3A 57 31 3D |VE-ROUTINE..:W1=| 00000080: 24 35 37 0D 3A 57 32 3D 24 35 38 0D 3A 57 33 3D |$57.:W2=$58.:W3=| 00000090: 24 35 39 0D 3A 57 34 3D 24 35 41 0D 0D 3B 20 52 |$59.:W4=$5A..; R| 000000A0: 55 45 43 4B 53 50 52 55 4E 47 41 44 52 45 53 53 |UECKSPRUNGADRESS| 000000B0: 45 0D 0D 3A 42 41 43 4B 49 43 49 20 3D 20 24 43 |E..:BACKICI = $C| 000000C0: 31 37 46 0D 0D 3B 20 53 59 53 54 45 4D 50 55 46 |17F..; SYSTEMPUF| 000000D0: 46 45 52 0D 0D 3A 49 4E 4B 42 55 46 20 3D 20 36 |FER..:INKBUF = 6| 000000E0: 37 39 20 20 20 20 20 20 20 3B 49 4E 50 55 54 2D |79 ;INPUT-| 000000F0: 53 54 52 49 4E 47 0D 3A 54 4D 50 42 55 46 20 3D |STRING.:TMPBUF =| 00000100: 20 49 4E 4B 42 55 46 2B 33 39 20 3B 42 45 46 45 | INKBUF+39 ;BEFE| 00000110: 48 4C 53 53 54 52 49 4E 47 53 0D 0D 3B 20 4B 4F |HLSSTRINGS..; KO| 00000120: 4E 53 54 41 4E 54 45 4E 20 56 4F 4E 20 49 43 49 |NSTANTEN VON ICI| 00000130: 0D 0D 3A 44 4E 55 4D 20 20 20 3D 20 24 43 44 41 |..:DNUM = $CDA| 00000140: 39 20 20 3B 20 20 41 4B 54 55 45 4C 4C 45 20 47 |9 ; AKTUELLE G| 00000150: 45 52 41 45 54 45 41 44 52 45 53 53 45 0D 3A 45 |ERAETEADRESSE.:E| 00000160: 43 48 4F 20 20 20 3D 20 24 43 44 41 41 20 20 3B |CHO = $CDAA ;| 00000170: 20 20 45 43 48 4F 4D 4F 44 55 53 20 41 4E 2F 41 | ECHOMODUS AN/A| 00000180: 55 53 0D 3A 46 53 54 41 54 20 20 3D 20 24 43 44 |US.:FSTAT = $CD| 00000190: 41 42 20 20 3B 20 20 46 49 4C 45 20 47 45 52 41 |AB ; FILE GERA| 000001A0: 44 45 20 4F 46 46 45 4E 3F 0D 3A 43 4F 50 59 4E |DE OFFEN?.:COPYN| 000001B0: 20 20 3D 20 24 43 44 41 43 20 20 3B 20 20 41 4E | = $CDAC ; AN| 000001C0: 5A 41 48 4C 20 4C 41 55 46 57 45 52 4B 45 20 42 |ZAHL LAUFWERKE B| 000001D0: 45 49 20 50 49 50 0D 3A 53 45 4B 20 20 20 20 3D |EI PIP.:SEK =| 000001E0: 20 24 43 44 41 44 20 20 3B 20 20 4C 41 44 45 4D | $CDAD ; LADEM| 000001F0: 4F 44 55 53 0D 3A 4D 43 4F 4D 20 20 20 3D 20 24 |ODUS.:MCOM = $| 00000200: 43 44 41 45 20 20 3B 20 20 4E 4F 43 48 20 45 49 |CDAE ; NOCH EI| 00000210: 4E 20 4B 4F 4D 4D 41 4E 44 4F 20 49 4E 20 44 45 |N KOMMANDO IN DE| 00000220: 52 20 5A 45 49 4C 45 3F 0D 3A 42 41 54 43 48 4D |R ZEILE?.:BATCHM| 00000230: 20 3D 20 24 43 44 41 46 20 20 3B 20 20 42 41 54 | = $CDAF ; BAT| 00000240: 43 48 4D 4F 44 55 53 20 41 4E 2F 41 55 53 0D 3A |CHMODUS AN/AUS.:| 00000250: 43 42 41 54 4C 20 20 3D 20 24 43 44 42 30 20 20 |CBATL = $CDB0 | 00000260: 3B 20 20 5A 45 49 47 45 52 20 41 55 46 20 41 4B |; ZEIGER AUF AK| 00000270: 54 55 45 4C 4C 45 53 20 2E 2E 2E 0D 3A 43 42 41 |TUELLES ....:CBA| 00000280: 54 48 20 20 3D 20 24 43 44 42 31 20 20 3B 20 20 |TH = $CDB1 ; | 00000290: 2E 2E 2E 20 4B 4F 4D 4D 41 4E 44 4F 20 49 4D 20 |... KOMMANDO IM | 000002A0: 42 41 54 43 48 50 55 46 46 45 52 0D 3A 42 41 54 |BATCHPUFFER.:BAT| 000002B0: 48 4C 20 20 3D 20 24 43 44 42 32 20 20 3B 20 20 |HL = $CDB2 ; | 000002C0: 42 41 54 43 48 50 55 46 46 45 52 20 20 45 4E 44 |BATCHPUFFER END| 000002D0: 45 2D 4C 4F 57 0D 3A 42 41 54 48 48 20 20 3D 20 |E-LOW.:BATHH = | 000002E0: 24 43 44 42 33 20 20 3B 20 20 45 4E 44 45 2D 48 |$CDB3 ; ENDE-H| 000002F0: 49 47 48 0D 3A 42 41 54 4C 4C 20 20 3D 20 24 43 |IGH.:BATLL = $C| 00000300: 44 42 34 20 20 3B 20 20 41 4E 46 41 4E 47 2D 4C |DB4 ; ANFANG-L| 00000310: 4F 57 0D 3A 42 41 54 4C 48 20 20 3D 20 24 43 44 |OW.:BATLH = $CD| 00000320: 42 35 20 20 3B 20 20 41 4E 46 41 4E 47 2D 48 49 |B5 ; ANFANG-HI| 00000330: 47 48 0D 3A 49 43 49 48 4C 20 20 3D 20 24 43 44 |GH.:ICIHL = $CD| 00000340: 42 36 20 20 3B 20 20 49 43 49 50 55 46 46 45 52 |B6 ; ICIPUFFER| 00000350: 20 20 45 4E 44 45 2D 4C 4F 57 0D 3A 49 43 49 48 | ENDE-LOW.:ICIH| 00000360: 48 20 20 3D 20 24 43 44 42 37 20 20 3B 20 20 45 |H = $CDB7 ; E| 00000370: 4E 44 45 2D 48 49 47 48 0D 3A 49 43 49 4C 4C 20 |NDE-HIGH.:ICILL | 00000380: 20 3D 20 24 43 44 42 38 20 20 3B 20 20 41 4E 46 | = $CDB8 ; ANF| 00000390: 41 4E 47 2D 4C 4F 57 0D 3A 49 43 49 4C 48 20 20 |ANG-LOW.:ICILH | 000003A0: 3D 20 24 43 44 42 39 20 20 3B 20 20 41 4E 46 41 |= $CDB9 ; ANFA| 000003B0: 4E 47 2D 48 49 47 48 0D 3A 41 44 52 4C 20 20 20 |NG-HIGH.:ADRL | 000003C0: 3D 20 24 43 44 42 41 20 20 3B 20 20 31 36 2D 42 |= $CDBA ; 16-B| 000003D0: 49 54 2D 57 45 52 54 20 4C 4F 57 2D 42 59 54 45 |IT-WERT LOW-BYTE| 000003E0: 0D 3A 41 44 52 48 20 20 20 3D 20 24 43 44 42 42 |.:ADRH = $CDBB| 000003F0: 20 20 3B 20 20 48 49 47 48 2D 42 59 54 45 0D 0D | ; HIGH-BYTE..| 00000400: 3B 20 52 4F 55 54 49 4E 45 4E 20 44 45 52 20 49 |; ROUTINEN DER I| 00000410: 43 49 2D 53 50 52 55 4E 47 4C 45 49 53 54 45 0D |CI-SPRUNGLEISTE.| 00000420: 0D 3A 49 4E 4B 45 59 20 20 3D 20 24 43 44 43 31 |.:INKEY = $CDC1| 00000430: 20 20 3B 20 53 54 52 49 4E 47 20 48 4F 4C 45 4E | ; STRING HOLEN| 00000440: 0D 3A 53 54 52 4F 55 54 20 3D 20 24 43 44 43 34 |.:STROUT = $CDC4| 00000450: 20 20 3B 20 53 54 52 49 4E 47 20 41 55 53 47 45 | ; STRING AUSGE| 00000460: 42 45 4E 0D 3A 50 52 49 4E 54 20 20 3D 20 24 43 |BEN.:PRINT = $C| 00000470: 44 43 37 20 20 3B 20 5A 45 49 43 48 45 4E 20 41 |DC7 ; ZEICHEN A| 00000480: 55 53 47 45 42 45 4E 0D 3A 44 45 43 4F 44 45 20 |USGEBEN.:DECODE | 00000490: 3D 20 24 43 44 43 41 20 20 3B 20 56 45 4B 54 4F |= $CDCA ; VEKTO| 000004A0: 52 20 49 4E 20 49 4E 54 45 52 50 52 45 54 45 52 |R IN INTERPRETER| 000004B0: 53 43 48 4C 45 49 46 45 0D 3A 46 4F 50 45 4E 20 |SCHLEIFE.:FOPEN | 000004C0: 20 3D 20 24 43 44 43 44 20 20 3B 20 44 41 54 45 | = $CDCD ; DATE| 000004D0: 49 20 41 55 46 20 44 49 53 4B 45 54 54 45 20 4F |I AUF DISKETTE O| 000004E0: 45 46 46 4E 45 4E 0D 3A 46 43 4C 4F 53 45 20 3D |EFFNEN.:FCLOSE =| 000004F0: 20 24 43 44 44 30 20 20 3B 20 44 41 54 45 49 20 | $CDD0 ; DATEI | 00000500: 53 43 48 4C 49 45 53 53 45 4E 0D 3A 53 54 41 54 |SCHLIESSEN.:STAT| 00000510: 55 53 20 3D 20 24 43 44 44 33 20 20 3B 20 46 45 |US = $CDD3 ; FE| 00000520: 48 4C 45 52 4B 41 4E 41 4C 20 41 55 53 47 45 42 |HLERKANAL AUSGEB| 00000530: 45 4E 0D 3A 44 45 56 49 43 45 20 3D 20 24 43 44 |EN.:DEVICE = $CD| 00000540: 44 36 20 20 3B 20 4C 41 55 46 57 45 52 4B 20 41 |D6 ; LAUFWERK A| 00000550: 4E 47 45 53 43 48 4C 4F 53 53 45 4E 3F 0D 3A 45 |NGESCHLOSSEN?.:E| 00000560: 43 48 4F 4E 20 20 3D 20 24 43 44 44 39 20 20 3B |CHON = $CDD9 ;| 00000570: 20 45 43 48 4F 4D 4F 44 55 53 20 41 4E 53 43 48 | ECHOMODUS ANSCH| 00000580: 41 4C 54 45 4E 0D 3A 45 43 48 4F 46 20 20 3D 20 |ALTEN.:ECHOF = | 00000590: 24 43 44 44 43 20 20 3B 20 45 43 48 4F 4D 4F 44 |$CDDC ; ECHOMOD| 000005A0: 55 53 20 41 42 53 43 48 41 4C 54 45 4E 0D 3A 44 |US ABSCHALTEN.:D| 000005B0: 4F 53 20 20 20 20 3D 20 24 43 44 44 46 20 20 3B |OS = $CDDF ;| 000005C0: 20 42 45 46 45 48 4C 53 53 54 52 49 4E 47 53 20 | BEFEHLSSTRINGS | 000005D0: 53 45 4E 44 45 4E 0D 3A 42 41 53 43 20 20 20 3D |SENDEN.:BASC =| 000005E0: 20 24 43 44 45 32 20 20 3B 20 42 49 4C 44 53 43 | $CDE2 ; BILDSC| 000005F0: 48 49 52 4D 43 4F 44 45 20 49 4E 20 41 53 43 49 |HIRMCODE IN ASCI| 00000600: 49 20 57 41 4E 44 45 4C 4E 0D 3A 48 45 58 4F 55 |I WANDELN.:HEXOU| 00000610: 54 20 3D 20 24 43 44 45 35 20 20 3B 20 48 45 58 |T = $CDE5 ; HEX| 00000620: 41 44 45 5A 49 4D 41 4C 5A 41 48 4C 20 41 55 53 |ADEZIMALZAHL AUS| 00000630: 47 45 42 45 4E 0D 3A 47 48 45 58 4E 20 20 3D 20 |GEBEN.:GHEXN = | 00000640: 24 43 44 45 38 20 20 3B 20 34 2D 42 49 54 20 48 |$CDE8 ; 4-BIT H| 00000650: 45 58 57 45 52 54 20 48 4F 4C 45 4E 0D 3A 47 48 |EXWERT HOLEN.:GH| 00000660: 45 58 57 20 20 3D 20 24 43 44 45 42 20 20 3B 20 |EXW = $CDEB ; | 00000670: 31 36 2D 42 49 54 20 48 45 58 57 45 52 54 20 48 |16-BIT HEXWERT H| 00000680: 4F 4C 45 4E 0D 3A 47 48 45 58 42 20 20 3D 20 24 |OLEN.:GHEXB = $| 00000690: 43 44 45 45 20 20 3B 20 38 2D 42 49 54 20 48 45 |CDEE ; 8-BIT HE| 000006A0: 58 57 45 52 54 20 48 4F 4C 45 4E 0D 3A 46 49 4C |XWERT HOLEN.:FIL| 000006B0: 54 20 20 20 3D 20 24 43 44 46 31 20 20 3B 20 53 |T = $CDF1 ; S| 000006C0: 54 45 55 45 52 5A 45 49 43 48 45 4E 20 41 55 53 |TEUERZEICHEN AUS| 000006D0: 46 49 4C 54 45 52 4E 0D 3A 45 52 52 4F 52 20 20 |FILTERN.:ERROR | 000006E0: 3D 20 24 43 44 46 34 20 20 3B 20 46 45 48 4C 45 |= $CDF4 ; FEHLE| 000006F0: 52 4D 45 4C 44 55 4E 47 20 41 55 53 47 45 42 45 |RMELDUNG AUSGEBE| 00000700: 4E 0D 3A 4E 58 54 43 4F 4D 20 3D 20 24 43 44 46 |N.:NXTCOM = $CDF| 00000710: 37 20 20 3B 20 4C 45 45 52 5A 45 49 43 48 45 4E |7 ; LEERZEICHEN| 00000720: 20 55 45 42 45 52 4C 45 53 45 4E 0D 0D 0D 3B 20 | UEBERLESEN...; | 00000730: 52 4F 55 54 49 4E 45 20 44 55 52 43 48 20 56 45 |ROUTINE DURCH VE| 00000740: 4B 54 4F 52 20 4E 45 57 43 4F 4D 20 49 4E 20 49 |KTOR NEWCOM IN I| 00000750: 43 49 20 45 49 4E 42 49 4E 44 45 4E 0D 3B 20 49 |CI EINBINDEN.; I| 00000760: 4E 49 54 20 44 41 52 46 20 4E 55 52 20 45 49 4E |NIT DARF NUR EIN| 00000770: 4D 41 4C 20 41 55 46 47 45 52 55 46 45 4E 20 57 |MAL AUFGERUFEN W| 00000780: 45 52 44 45 4E 0D 0D 3A 49 4E 49 54 20 20 20 20 |ERDEN..:INIT | 00000790: 4C 44 41 20 44 45 43 4F 44 45 2B 31 20 3B 20 44 |LDA DECODE+1 ; D| 000007A0: 41 53 20 41 4C 54 45 20 5A 49 45 4C 20 56 4F 4E |AS ALTE ZIEL VON| 000007B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 44 45 |. LDY DE| 000007C0: 43 4F 44 45 2B 32 20 3B 20 44 45 43 4F 44 45 20 |CODE+2 ; DECODE | 000007D0: 44 49 45 4E 54 20 4A 45 54 5A 54 0D 20 20 20 20 |DIENT JETZT. | 000007E0: 20 20 20 20 20 53 54 41 20 45 4E 44 2B 31 20 20 | STA END+1 | 000007F0: 20 20 3B 20 41 4C 53 20 52 55 43 4B 53 50 52 55 | ; ALS RUCKSPRU| 00000800: 4E 47 41 44 52 45 53 53 45 0D 20 20 20 20 20 20 |NGADRESSE. | 00000810: 20 20 20 53 54 59 20 45 4E 44 2B 32 20 20 20 20 | STY END+2 | 00000820: 3B 20 46 55 45 52 20 44 49 45 20 45 49 47 45 4E |; FUER DIE EIGEN| 00000830: 45 20 52 4F 55 54 49 4E 45 0D 20 20 20 20 20 20 |E ROUTINE. | 00000840: 20 20 20 4C 44 41 20 23 3C 4E 45 57 43 4F 4D 20 | LDA #<NEWCOM | 00000850: 3B 20 44 45 52 20 56 45 4B 54 4F 52 20 44 45 43 |; DER VEKTOR DEC| 00000860: 4F 44 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 |ODE. STA| 00000870: 20 44 45 43 4F 44 45 2B 31 20 3B 20 5A 45 49 47 | DECODE+1 ; ZEIG| 00000880: 54 20 41 42 20 4A 45 54 5A 54 0D 20 20 20 20 20 |T AB JETZT. | 00000890: 20 20 20 20 4C 44 41 20 23 3E 4E 45 57 43 4F 4D | LDA #>NEWCOM| 000008A0: 20 3B 20 41 55 46 20 44 49 45 20 45 49 47 45 4E | ; AUF DIE EIGEN| 000008B0: 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |E. STA D| 000008C0: 45 43 4F 44 45 2B 32 20 3B 20 44 45 43 4F 44 49 |ECODE+2 ; DECODI| 000008D0: 45 52 52 4F 55 54 49 4E 45 4E 0D 20 20 20 20 20 |ERROUTINEN. | 000008E0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 000008F0: 20 3B 20 5A 55 52 55 45 43 4B 20 5A 55 20 42 41 | ; ZURUECK ZU BA| 00000900: 53 49 43 0D 0D 3B 20 54 45 53 54 2C 20 4F 42 20 |SIC..; TEST, OB | 00000910: 44 49 45 20 4E 41 45 43 48 53 54 45 20 5A 45 49 |DIE NAECHSTE ZEI| 00000920: 43 48 45 4E 46 4F 4C 47 45 20 3D 20 4D 4F 56 45 |CHENFOLGE = MOVE| 00000930: 20 49 53 54 0D 0D 3A 4E 45 57 43 4F 4D 20 20 4C | IST..:NEWCOM L| 00000940: 44 59 20 23 24 46 46 20 20 20 20 20 3B 20 5A 41 |DY #$FF ; ZA| 00000950: 45 48 4C 45 52 20 49 4E 49 54 49 41 4C 49 53 49 |EHLER INITIALISI| 00000960: 45 52 45 4E 0D 3A 53 45 41 52 43 48 20 20 49 4E |EREN.:SEARCH IN| 00000970: 59 20 20 20 20 20 20 20 20 20 20 3B 20 5A 41 45 |Y ; ZAE| 00000980: 48 4C 45 52 20 45 52 48 4F 45 48 45 4E 0D 20 20 |HLER ERHOEHEN. | 00000990: 20 20 20 20 20 20 20 4C 44 41 20 28 57 31 29 2C | LDA (W1),| 000009A0: 59 20 20 20 3B 20 4E 41 45 43 48 53 54 45 53 20 |Y ; NAECHSTES | 000009B0: 5A 45 49 43 48 45 4E 20 48 4F 4C 45 4E 0D 20 20 |ZEICHEN HOLEN. | 000009C0: 20 20 20 20 20 20 20 42 45 51 20 45 58 45 43 55 | BEQ EXECU| 000009D0: 54 45 20 20 3B 20 42 45 49 20 53 54 52 49 4E 47 |TE ; BEI STRING| 000009E0: 45 4E 44 45 20 57 49 52 44 20 49 4E 20 44 49 45 |ENDE WIRD IN DIE| 000009F0: 20 45 49 47 45 4E 45 0D 20 20 20 20 20 20 20 20 | EIGENE. | 00000A00: 20 43 4D 50 20 23 33 32 20 20 20 20 20 20 3B 20 | CMP #32 ; | 00000A10: 52 4F 55 54 49 4E 45 20 56 45 52 5A 57 45 49 47 |ROUTINE VERZWEIG| 00000A20: 54 2E 20 44 49 45 53 45 52 20 46 41 4C 4C 20 57 |T. DIESER FALL W| 00000A30: 49 52 44 0D 20 20 20 20 20 20 20 20 20 42 45 51 |IRD. BEQ| 00000A40: 20 45 58 45 43 55 54 45 20 20 3B 20 44 55 52 43 | EXECUTE ; DURC| 00000A50: 48 20 53 50 41 43 45 20 4F 44 45 52 20 30 20 41 |H SPACE ODER 0 A| 00000A60: 4E 47 45 5A 45 49 47 54 0D 20 20 20 20 20 20 20 |NGEZEIGT. | 00000A70: 20 20 43 4D 50 20 43 4F 4D 54 41 42 2C 59 20 3B | CMP COMTAB,Y ;| 00000A80: 20 4D 49 54 20 5A 45 49 43 48 45 4E 20 41 55 53 | MIT ZEICHEN AUS| 00000A90: 20 54 41 42 45 4C 4C 45 20 56 45 52 47 4C 45 49 | TABELLE VERGLEI| 00000AA0: 43 48 45 4E 0D 20 20 20 20 20 20 20 20 20 42 45 |CHEN. BE| 00000AB0: 51 20 53 45 41 52 43 48 20 20 20 3B 20 57 45 4E |Q SEARCH ; WEN| 00000AC0: 4E 20 47 4C 45 49 43 48 20 44 41 4E 4E 20 57 45 |N GLEICH DANN WE| 00000AD0: 49 54 45 52 56 45 52 47 4C 45 49 43 48 45 4E 0D |ITERVERGLEICHEN.| 00000AE0: 3A 45 4E 44 20 20 20 20 20 4A 4D 50 20 24 46 46 |:END JMP $FF| 00000AF0: 46 46 20 20 20 20 3B 20 4B 4F 4D 4D 41 4E 44 4F |FF ; KOMMANDO| 00000B00: 20 57 55 52 44 45 20 4E 49 43 48 54 20 45 52 4B | WURDE NICHT ERK| 00000B10: 41 4E 4E 54 2E 0D 20 20 20 20 20 20 20 20 20 20 |ANNT.. | 00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 5A 55 | ; ZU| 00000B30: 52 55 45 43 4B 20 5A 55 52 20 4E 4F 52 4D 41 4C |RUECK ZUR NORMAL| 00000B40: 45 4E 20 44 45 43 4F 44 49 45 52 55 4E 47 0D 20 |EN DECODIERUNG. | 00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B60: 20 20 20 20 20 3B 20 24 46 46 46 46 20 57 49 52 | ; $FFFF WIR| 00000B70: 44 20 44 55 52 43 48 20 49 4E 49 54 20 47 45 53 |D DURCH INIT GES| 00000B80: 45 54 5A 54 0D 3A 43 4F 4D 54 41 42 20 42 22 4D |ETZT.:COMTAB B"M| 00000B90: 4F 56 45 22 2C 30 20 20 20 20 20 3B 20 4E 45 55 |OVE",0 ; NEU| 00000BA0: 45 52 20 4B 4F 4D 4D 41 4E 44 4F 4E 41 4D 45 0D |ER KOMMANDONAME.| 00000BB0: 0D 3B 20 5A 45 49 47 45 52 20 55 4E 44 20 41 44 |.; ZEIGER UND AD| 00000BC0: 52 45 53 53 45 4E 20 53 45 54 5A 45 4E 0D 0D 3A |RESSEN SETZEN..:| 00000BD0: 45 58 45 43 55 54 45 20 54 59 41 20 20 20 20 20 |EXECUTE TYA | 00000BE0: 20 20 20 20 20 3B 20 56 45 4B 54 4F 52 20 57 31 | ; VEKTOR W1| 00000BF0: 2F 57 32 20 53 4F 20 48 4F 43 48 53 45 54 5A 45 |/W2 SO HOCHSETZE| 00000C00: 4E 2C 0D 20 20 20 20 20 20 20 20 20 43 4C 43 20 |N,. CLC | 00000C10: 20 20 20 20 20 20 20 20 20 3B 20 44 41 53 53 20 | ; DASS | 00000C20: 45 52 20 41 55 46 20 44 41 53 20 5A 45 49 43 48 |ER AUF DAS ZEICH| 00000C30: 45 4E 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |EN. ADC | 00000C40: 57 31 20 20 20 20 20 20 20 3B 20 48 49 4E 54 45 |W1 ; HINTE| 00000C50: 52 20 44 45 4D 20 4B 4F 4D 4D 41 4E 44 4F 20 27 |R DEM KOMMANDO '| 00000C60: 4D 4F 56 45 27 0D 20 20 20 20 20 20 20 20 20 53 |MOVE'. S| 00000C70: 54 41 20 57 31 20 20 20 20 20 20 20 3B 20 49 4E |TA W1 ; IN| 00000C80: 20 44 45 4D 20 45 49 4E 47 41 42 45 50 55 46 46 | DEM EINGABEPUFF| 00000C90: 45 52 20 5A 45 49 47 54 2E 0D 20 20 20 20 20 20 |ER ZEIGT.. | 00000CA0: 20 20 20 4C 44 41 20 23 30 20 20 20 20 20 20 20 | LDA #0 | 00000CB0: 3B 20 44 41 5A 55 20 57 49 52 44 20 44 49 45 20 |; DAZU WIRD DIE | 00000CC0: 4B 4F 4D 4D 41 4E 44 4F 4C 41 45 4E 47 45 0D 20 |KOMMANDOLAENGE. | 00000CD0: 20 20 20 20 20 20 20 20 41 44 43 20 57 32 20 20 | ADC W2 | 00000CE0: 20 20 20 20 20 3B 20 45 49 4E 46 41 43 48 20 5A | ; EINFACH Z| 00000CF0: 55 4D 20 56 45 4B 54 4F 52 20 41 44 44 49 45 52 |UM VEKTOR ADDIER| 00000D00: 54 2E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |T.. STA | 00000D10: 57 32 20 20 20 20 20 20 20 3B 20 28 20 31 36 2D |W2 ; ( 16-| 00000D20: 42 49 54 20 41 44 44 49 54 49 4F 4E 20 29 0D 20 |BIT ADDITION ). | 00000D30: 20 20 20 20 20 20 20 20 4C 44 41 20 57 31 20 20 | LDA W1 | 00000D40: 20 20 20 20 20 3B 20 44 45 52 20 5A 45 49 47 45 | ; DER ZEIGE| 00000D50: 52 20 28 57 31 2F 57 32 29 20 57 49 52 44 20 41 |R (W1/W2) WIRD A| 00000D60: 55 46 0D 20 20 20 20 20 20 20 20 20 50 48 41 20 |UF. PHA | 00000D70: 20 20 20 20 20 20 20 20 20 3B 20 44 45 4D 20 53 | ; DEM S| 00000D80: 54 41 43 4B 20 47 45 53 49 43 48 45 52 54 2C 20 |TACK GESICHERT, | 00000D90: 57 45 49 4C 20 45 52 0D 20 20 20 20 20 20 20 20 |WEIL ER. | 00000DA0: 20 4C 44 41 20 57 32 20 20 20 20 20 20 20 3B 20 | LDA W2 ; | 00000DB0: 46 55 45 52 20 44 49 45 20 57 45 49 54 45 52 45 |FUER DIE WEITERE| 00000DC0: 20 41 42 41 52 42 45 49 54 55 4E 47 0D 20 20 20 | ABARBEITUNG. | 00000DD0: 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 | PHA | 00000DE0: 20 20 20 3B 20 44 45 52 20 41 4B 54 55 45 4C 4C | ; DER AKTUELL| 00000DF0: 45 4E 20 5A 45 49 4C 45 20 57 49 43 48 54 49 47 |EN ZEILE WICHTIG| 00000E00: 20 49 53 54 0D 20 20 20 20 20 20 20 20 20 4C 44 | IST. LD| 00000E10: 41 20 23 31 33 20 20 20 20 20 20 3B 20 45 52 5A |A #13 ; ERZ| 00000E20: 45 55 47 54 20 45 49 4E 45 4E 20 5A 45 49 4C 45 |EUGT EINEN ZEILE| 00000E30: 4E 56 4F 52 53 43 48 55 42 20 41 55 46 0D 20 20 |NVORSCHUB AUF. | 00000E40: 20 20 20 20 20 20 20 4A 53 52 20 50 52 49 4E 54 | JSR PRINT| 00000E50: 20 20 20 20 3B 20 44 45 4D 20 42 49 4C 44 53 43 | ; DEM BILDSC| 00000E60: 48 49 52 4D 2E 0D 20 20 20 20 20 20 20 20 20 4C |HIRM.. L| 00000E70: 44 41 20 23 30 20 20 20 20 20 20 20 3B 20 4D 43 |DA #0 ; MC| 00000E80: 4F 4D 20 3D 20 30 20 5A 45 49 47 54 20 41 4E 2C |OM = 0 ZEIGT AN,| 00000E90: 20 44 41 53 53 20 4E 55 52 20 4E 4F 43 48 0D 20 | DASS NUR NOCH. | 00000EA0: 20 20 20 20 20 20 20 20 53 54 41 20 4D 43 4F 4D | STA MCOM| 00000EB0: 20 20 20 20 20 3B 20 50 41 52 41 4D 45 54 45 52 | ; PARAMETER| 00000EC0: 20 46 4F 4C 47 45 4E 20 41 42 45 52 20 4B 45 49 | FOLGEN ABER KEI| 00000ED0: 4E 20 4B 4F 4D 4D 41 4E 44 4F 0D 0D 3B 20 41 42 |N KOMMANDO..; AB| 00000EE0: 20 48 49 45 52 20 44 49 45 20 45 49 47 45 4E 54 | HIER DIE EIGENT| 00000EF0: 4C 49 43 48 45 20 52 4F 55 54 49 4E 45 0D 0D 3A |LICHE ROUTINE..:| 00000F00: 4D 4F 56 45 20 20 20 20 4A 53 52 20 4E 58 54 43 |MOVE JSR NXTC| 00000F10: 4F 4D 20 20 20 3B 20 4C 45 45 52 5A 45 49 43 48 |OM ; LEERZEICH| 00000F20: 45 4E 20 55 45 42 45 52 4C 45 53 45 4E 0D 20 20 |EN UEBERLESEN. | 00000F30: 20 20 20 20 20 20 20 4A 53 52 20 47 48 45 58 57 | JSR GHEXW| 00000F40: 20 20 20 20 3B 20 32 2D 42 59 54 45 20 48 45 58 | ; 2-BYTE HEX| 00000F50: 5A 41 48 4C 20 4E 41 43 48 20 57 33 2F 57 34 20 |ZAHL NACH W3/W4 | 00000F60: 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 20 |SCHREIBEN. | 00000F70: 20 20 20 4C 44 59 20 23 30 20 20 20 20 20 20 20 | LDY #0 | 00000F80: 3B 20 44 45 4E 20 57 45 52 54 20 41 55 53 4C 45 |; DEN WERT AUSLE| 00000F90: 53 45 4E 2C 20 41 55 46 20 44 45 4E 20 44 45 52 |SEN, AUF DEN DER| 00000FA0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 57 |. LDA (W| 00000FB0: 33 29 2C 59 20 20 20 3B 20 56 45 4B 54 4F 52 20 |3),Y ; VEKTOR | 00000FC0: 28 57 33 2F 57 34 29 20 5A 45 49 47 54 20 55 4E |(W3/W4) ZEIGT UN| 00000FD0: 44 20 49 48 4E 20 44 41 4E 4E 0D 20 20 20 20 20 |D IHN DANN. | 00000FE0: 20 20 20 20 50 48 41 20 20 20 20 20 20 20 20 20 | PHA | 00000FF0: 20 3B 20 41 55 46 20 44 45 4D 20 53 54 41 43 4B | ; AUF DEM STACK| 00001000: 20 5A 57 49 53 43 48 45 4E 4C 41 47 45 52 4E 2E | ZWISCHENLAGERN.| 00001010: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4E 58 |. JSR NX| 00001020: 54 43 4F 4D 20 20 20 3B 20 4C 45 45 52 5A 45 49 |TCOM ; LEERZEI| 00001030: 43 48 45 4E 20 55 45 42 45 52 4C 45 53 45 4E 0D |CHEN UEBERLESEN.| 00001040: 20 20 20 20 20 20 20 20 20 4A 53 52 20 47 48 45 | JSR GHE| 00001050: 58 57 20 20 20 20 3B 20 32 2D 42 59 54 45 20 48 |XW ; 2-BYTE H| 00001060: 45 58 5A 41 48 4C 20 4E 41 43 48 20 57 33 2F 57 |EXZAHL NACH W3/W| 00001070: 34 20 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 |4 SCHREIBEN. | 00001080: 20 20 20 20 20 4C 44 59 20 23 30 20 20 20 20 20 | LDY #0 | 00001090: 20 20 3B 20 44 45 4E 20 57 45 52 54 20 41 55 53 | ; DEN WERT AUS| 000010A0: 4C 45 53 45 4E 2C 20 41 55 46 20 44 45 4E 20 44 |LESEN, AUF DEN D| 000010B0: 45 52 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |ER. LDA | 000010C0: 28 57 33 29 2C 59 20 20 20 3B 20 56 45 4B 54 4F |(W3),Y ; VEKTO| 000010D0: 52 20 28 57 33 2F 57 34 29 20 5A 45 49 47 54 20 |R (W3/W4) ZEIGT | 000010E0: 55 4E 44 20 49 48 4E 20 44 41 4E 4E 0D 20 20 20 |UND IHN DANN. | 000010F0: 20 20 20 20 20 20 54 41 58 20 20 20 20 20 20 20 | TAX | 00001100: 20 20 20 3B 20 41 44 52 45 53 53 45 20 4C 4F 57 | ; ADRESSE LOW| 00001110: 2D 42 59 54 45 20 4E 41 43 48 20 58 2D 52 45 47 |-BYTE NACH X-REG| 00001120: 49 53 54 45 52 0D 20 20 20 20 20 20 20 20 20 49 |ISTER. I| 00001130: 4E 59 20 20 20 20 20 20 20 20 20 20 3B 20 41 44 |NY ; AD| 00001140: 52 45 53 53 45 2B 31 0D 20 20 20 20 20 20 20 20 |RESSE+1. | 00001150: 20 4C 44 41 20 28 57 33 29 2C 59 20 20 20 3B 20 | LDA (W3),Y ; | 00001160: 41 44 52 45 53 53 45 20 48 49 47 48 2D 42 59 54 |ADRESSE HIGH-BYT| 00001170: 45 20 41 55 53 4C 45 53 45 4E 0D 20 20 20 20 20 |E AUSLESEN. | 00001180: 20 20 20 20 53 54 58 20 57 33 20 20 20 20 20 20 | STX W3 | 00001190: 20 3B 20 41 44 52 45 53 53 45 20 4E 41 43 48 20 | ; ADRESSE NACH | 000011A0: 57 33 2F 57 34 0D 20 20 20 20 20 20 20 20 20 53 |W3/W4. S| 000011B0: 54 41 20 57 34 20 20 20 20 20 20 20 3B 0D 20 20 |TA W4 ;. | 000011C0: 20 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 | PLA | 000011D0: 20 20 20 20 3B 20 5A 57 49 53 43 48 45 4E 47 45 | ; ZWISCHENGE| 000011E0: 4C 41 47 45 52 54 45 4E 20 57 45 52 54 20 48 4F |LAGERTEN WERT HO| 000011F0: 4C 45 4E 2E 2E 2E 0D 20 20 20 20 20 20 20 20 20 |LEN.... | 00001200: 44 45 59 20 20 20 20 20 20 20 20 20 20 3B 20 2E |DEY ; .| 00001210: 2E 2E 20 55 4E 44 20 49 4E 20 44 49 45 20 41 4E |.. UND IN DIE AN| 00001220: 47 45 47 45 42 45 4E 45 0D 20 20 20 20 20 20 20 |GEGEBENE. | 00001230: 20 20 53 54 41 20 28 57 33 29 2C 59 20 20 20 3B | STA (W3),Y ;| 00001240: 20 41 44 52 45 53 53 45 20 48 49 4E 45 49 4E 53 | ADRESSE HINEINS| 00001250: 43 48 52 45 49 42 45 4E 2E 0D 20 20 20 20 20 20 |CHREIBEN.. | 00001260: 20 20 20 4A 4D 50 20 42 41 43 4B 49 43 49 20 20 | JMP BACKICI | 00001270: 3B 20 52 55 45 43 4B 53 50 52 55 4E 47 20 5A 55 |; RUECKSPRUNG ZU| 00001280: 20 49 43 49 0D 00 00 | ICI... |
ORG $9000..; ERWEITERUNG FUER ICI - MOVE
KOMMANDO.; (W) FRANK BOERNCKE (C) INP
UT64..; ARBEITSVARIABLEN FUER MOVE-ROUTI
NE..:W1=$57.:W2=$58.:W3=$59.:W4=$5A..; R
UECKSPRUNGADRESSE..:BACKICI = $C17F..; S
YSTEMPUFFER..:INKBUF = 679 ;INPUT-
STRING.:TMPBUF = INKBUF+39 ;BEFEHLSSTRIN
GS..; KONSTANTEN VON ICI..:DNUM = $CDA
9 ; AKTUELLE GERAETEADRESSE.:ECHO =
$CDAA ; ECHOMODUS AN/AUS.:FSTAT = $CD
AB ; FILE GERADE OFFEN?.:COPYN = $CDA
C ; ANZAHL LAUFWERKE BEI PIP.:SEK =
$CDAD ; LADEMODUS.:MCOM = $CDAE ;
NOCH EIN KOMMANDO IN DER ZEILE?.:BATCHM
= $CDAF ; BATCHMODUS AN/AUS.:CBATL =
$CDB0 ; ZEIGER AUF AKTUELLES ....:CBA
TH = $CDB1 ; ... KOMMANDO IM BATCHPUF
FER.:BATHL = $CDB2 ; BATCHPUFFER END
E-LOW.:BATHH = $CDB3 ; ENDE-HIGH.:BAT
LL = $CDB4 ; ANFANG-LOW.:BATLH = $CD
B5 ; ANFANG-HIGH.:ICIHL = $CDB6 ; I
CIPUFFER ENDE-LOW.:ICIHH = $CDB7 ; E
NDE-HIGH.:ICILL = $CDB8 ; ANFANG-LOW.
:ICILH = $CDB9 ; ANFANG-HIGH.:ADRL
= $CDBA ; 16-BIT-WERT LOW-BYTE.:ADRH
= $CDBB ; HIGH-BYTE..; ROUTINEN DER I
CI-SPRUNGLEISTE..:INKEY = $CDC1 ; STRI
NG HOLEN.:STROUT = $CDC4 ; STRING AUSGE
BEN.:PRINT = $CDC7 ; ZEICHEN AUSGEBEN.
:DECODE = $CDCA ; VEKTOR IN INTERPRETER
SCHLEIFE.:FOPEN = $CDCD ; DATEI AUF DI
SKETTE OEFFNEN.:FCLOSE = $CDD0 ; DATEI
SCHLIESSEN.:STATUS = $CDD3 ; FEHLERKANA
L AUSGEBEN.:DEVICE = $CDD6 ; LAUFWERK A
NGESCHLOSSEN?.:ECHON = $CDD9 ; ECHOMOD
US ANSCHALTEN.:ECHOF = $CDDC ; ECHOMOD
US ABSCHALTEN.:DOS = $CDDF ; BEFEHLS
STRINGS SENDEN.:BASC = $CDE2 ; BILDSC
HIRMCODE IN ASCII WANDELN.:HEXOUT = $CDE
5 ; HEXADEZIMALZAHL AUSGEBEN.:GHEXN =
$CDE8 ; 4-BIT HEXWERT HOLEN.:GHEXW = $
CDEB ; 16-BIT HEXWERT HOLEN.:GHEXB = $
CDEE ; 8-BIT HEXWERT HOLEN.:FILT = $C
DF1 ; STEUERZEICHEN AUSFILTERN.:ERROR
= $CDF4 ; FEHLERMELDUNG AUSGEBEN.:NXTCO
M = $CDF7 ; LEERZEICHEN UEBERLESEN...;
ROUTINE DURCH VEKTOR NEWCOM IN ICI EINBI
NDEN.; INIT DARF NUR EINMAL AUFGERUFEN W
ERDEN..:INIT LDA DECODE+1 ; DAS ALTE
ZIEL VON. LDY DECODE+2 ; DECODE
DIENT JETZT. STA END+1 ; ALS
RUCKSPRUNGADRESSE. STY END+2
; FUER DIE EIGENE ROUTINE. LDA #
<NEWCOM ; DER VEKTOR DECODE. STA
DECODE+1 ; ZEIGT AB JETZT. LDA
#>NEWCOM ; AUF DIE EIGENE. STA D
ECODE+2 ; DECODIERROUTINEN. RTS
; ZURUECK ZU BASIC..; TEST, OB
DIE NAECHSTE ZEICHENFOLGE = MOVE IST..:N
EWCOM LDY #$FF ; ZAEHLER INITIALISI
EREN.:SEARCH INY ; ZAEHLER ERH
OEHEN. LDA (W1),Y ; NAECHSTES
ZEICHEN HOLEN. BEQ EXECUTE ; BE
I STRINGENDE WIRD IN DIE EIGENE.
CMP #32 ; ROUTINE VERZWEIGT. DIESE
R FALL WIRD. BEQ EXECUTE ; DURC
H SPACE ODER 0 ANGEZEIGT. CMP CO
MTAB,Y ; MIT ZEICHEN AUS TABELLE VERGLEI
CHEN. BEQ SEARCH ; WENN GLEICH
DANN WEITERVERGLEICHEN.:END JMP $FF
FF ; KOMMANDO WURDE NICHT ERKANNT..
; ZURUECK ZUR NORMAL
EN DECODIERUNG. ; $
FFFF WIRD DURCH INIT GESETZT.:COMTAB B"M
OVE",0 ; NEUER KOMMANDONAME..; ZEIGE
R UND ADRESSEN SETZEN..:EXECUTE TYA
; VEKTOR W1/W2 SO HOCHSETZEN,.
CLC ; DASS ER AUF DAS ZEICH
EN. ADC W1 ; HINTER DEM KO
MMANDO 'MOVE'. STA W1 ; IN
DEM EINGABEPUFFER ZEIGT.. LDA #
0 ; DAZU WIRD DIE KOMMANDOLAENGE.
ADC W2 ; EINFACH ZUM VEKTO
R ADDIERT.. STA W2 ; ( 16-
BIT ADDITION ). LDA W1 ; D
ER ZEIGER (W1/W2) WIRD AUF. PHA
; DEM STACK GESICHERT, WEIL ER.
LDA W2 ; FUER DIE WEITERE
ABARBEITUNG. PHA ; DER
AKTUELLEN ZEILE WICHTIG IST. LD
A #13 ; ERZEUGT EINEN ZEILENVORSCHU
B AUF. JSR PRINT ; DEM BILDSC
HIRM.. LDA #0 ; MCOM = 0 Z
EIGT AN, DASS NUR NOCH. STA MCOM
; PARAMETER FOLGEN ABER KEIN KOMMAN
DO..; AB HIER DIE EIGENTLICHE ROUTINE..:
MOVE JSR NXTCOM ; LEERZEICHEN UEBER
LESEN. JSR GHEXW ; 2-BYTE HEX
ZAHL NACH W3/W4 SCHREIBEN. LDY #
0 ; DEN WERT AUSLESEN, AUF DEN DER
. LDA (W3),Y ; VEKTOR (W3/W4)
ZEIGT UND IHN DANN. PHA
; AUF DEM STACK ZWISCHENLAGERN..
JSR NXTCOM ; LEERZEICHEN UEBERLESEN.
JSR GHEXW ; 2-BYTE HEXZAHL N
ACH W3/W4 SCHREIBEN. LDY #0
; DEN WERT AUSLESEN, AUF DEN DER.
LDA (W3),Y ; VEKTOR (W3/W4) ZEIGT
UND IHN DANN. TAX ; ADR
ESSE LOW-BYTE NACH X-REGISTER. I
NY ; ADRESSE+1. LDA (W3
),Y ; ADRESSE HIGH-BYTE AUSLESEN.
STX W3 ; ADRESSE NACH W3/W4.
STA W4 ;. PLA
; ZWISCHENGELAGERTEN WERT HOLEN....
DEY ; ... UND IN DIE AN
GEGEBENE. STA (W3),Y ; ADRESSE
HINEINSCHREIBEN.. JMP BACKICI
; RUECKSPRUNG ZU ICI...
> CLICK IMAGE PREVIEW FOR FULL MODAL