AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 1 - 4/7/2014 17:44:09 1/ 0 : ;CE31 ASM 2/ 0 : cpu z80 3/ 0 : ; AS-Funktionen 4/ 0 : hi function x,(x>>8)&255 5/ 0 : lo function x, x&255 6/ 0 : ;********************************* 7/ 0 : ;** ** 8/ 0 : ;** CAOS 3.1 reassembliert ** 9/ 0 : ;** von ML-Soft ** 10/ 0 : ;** ** 11/ 0 : ;** 14.05.95 bis 21.05.95 ** 12/ 0 : ;** ** 13/ 0 : ;********************************* 14/ 0 : 15/ 0 : ; Speicher}bersicht ** 16/ 0 : ; _________________ 17/ 0 : 18/ 0 : 19/ 0 : ;C000 BASIC-ROM 20/ 0 : 21/ 0 : ;------------------------------------ 22/ 0 : 23/ 0 : ;E000 RESET und BASIC-Verteiler 24/ 0 : ;E024 DABR 25/ 0 : ;E055 Zeichenausgabe WPIX 26/ 0 : ;E0BF PADR 27/ 0 : ;E13A Punktroutinen PUDE, PUSE 28/ 0 : ;E189 KBD-Treiber 29/ 0 : ;E213 Tastaturtabelle KTAB 30/ 0 : ;E293 Interrupttabelle ISRTAB 31/ 0 : ;E29F KBDZ, KBDS, INIEA, INIME, ERAM 32/ 0 : ;E2CF SWITCH und MODUL 33/ 0 : ;E347 JUMP 34/ 0 : ;E36A Tape-Treiber 35/ 0 : ;E527 TON-Ausgabe 36/ 0 : ;E581 BASIC-Token 37/ 0 : ;E62B Sprungtabelle f. BASIC-Token 38/ 0 : ;E669 BASIC-Extension 39/ 0 : ;EE00 Zeichenbildtab. Gro~buchst. *) 40/ 0 : 41/ 0 : ;------------------------------------ 42/ 0 : 43/ 0 : ;F000 PWRON und Programm-Verteiler 44/ 0 : ;F109 Kommandointerpreter (MENU) 45/ 0 : ;F1C6 Ein-/Ausgabe OSTR, INTB, OCHR 46/ 0 : ;F210 KBD, IRM-Default, INLIN 47/ 0 : ;F2C0 Hexzahlenverarbeitung 48/ 0 : ;F357 Systeminit, SIXD, Portinittab. 49/ 0 : ;F3D5 SAVE 50/ 0 : ;F43E BRKT, LARG 51/ 0 : ;F45B VERIFY, LOAD, COLOR 52/ 0 : ;F5D4 Unterprogrammtabelle SUTAB 53/ 0 : ;F662 LDMA, LDAM, MODIFY 54/ 0 : ;F6E3 Sprungtabelle f}r CRT-Routinen 55/ 0 : ;F707 CCTL-Belegungstabelle CCTAB 56/ 0 : ;F725 CRT-Treiber 57/ 0 : ;F8BE Bildschirm-Steuercodes CRTTAB 58/ 0 : ;F8D0 FADR, 59/ 0 : ;F8E7 BASIC-I/O-Verteiler 60/ 0 : ;F956 MBOUT, MBIN AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 2 - 4/7/2014 17:44:09 61/ 0 : ;FAFB DISPLAY 62/ 0 : ;FB69 CSTBT, KEYLIST, KEY 63/ 0 : ;FC1A WININ, WINAK 64/ 0 : ;FC82 LINE, CIRCLE, SQR, MULT 65/ 0 : ;FE00 Zeichenbildtab. Kleinbuchst. *) 66/ 0 : ;------------------------------------ 67/ 0 : 68/ 0 : ;*) nicht in diesem Listing aufgef}hrt 69/ 0 : 70/ 0 : ;** EQU-Liste ** 71/ 0 : 72/ 0 : =AH LF EQU 00Ah 73/ 0 : =DH CR EQU 00DH 74/ 0 : 75/ 0 : =B200H VRAM EQU 0B200H ;VIDEO-RAM 76/ 0 : =B700H CASS EQU 0B700H ;Kass.-Puffer 77/ 0 : =B780H ARGC EQU 0B780H ;UP-Nr. (PV2) 78/ 0 : =B781H ARGN EQU 0B781H ;Anz. Argumente 79/ 0 : =B782H ARG1 EQU 0B782H ;1. Argument 80/ 0 : =B784H ARG2 EQU 0B784H ;2. Argument 81/ 0 : =B786H ARG3 EQU 0B786H ;3. Argument 82/ 0 : =B788H ARG4 EQU 0B788H ;4. Argument 83/ 0 : 84/ 0 : =B796H NUMNX EQU 0B796H ;Zeichenanzahl 85/ 0 : =B797H NUMVX EQU 0B797H ;Wert der Zahl 86/ 0 : =B799H HCADR EQU 0B799H ;Hardcopy-Adr. 87/ 0 : =B79BH WINNR EQU 0B79BH ;Fensternummer 88/ 0 : =B79CH WINON EQU 0B79CH ;Fensteranfang 89/ 0 : =B79EH WINLG EQU 0B79EH ;Fensterl{nge 90/ 0 : =B7A0H CURSO EQU 0B7A0H ;Cursorposition 91/ 0 : =B7A2H STBT EQU 0B7A2H ;BS-Steuerbyte 92/ 0 : =B7A3H COLOR EQU 0B7A3H ;Zeichenfarbe 93/ 0 : =B7A4H WEND EQU 0B7A4H ;PAGE/SCROLL 94/ 0 : =B7A6H CCTL0 EQU 0B7A6H ;Zeichentab. 0 95/ 0 : =B7A8H CCTL1 EQU 0B7A8H ;Zeichentab. 1 96/ 0 : =B7AAH CCTL2 EQU 0B7AAH ;Zeichentab. 2 97/ 0 : =B7ACH CCTL3 EQU 0B7ACH ;Zeichentab. 3 98/ 0 : =B7AEH SYSP EQU 0B7AEH ;System-Stack 99/ 0 : =B7B0H SUTAB EQU 0B7B0H ;UP-Tabelle 100/ 0 : =B7B2H CTAB EQU 0B7B2H ;Adresse CRTTAB 101/ 0 : =B7B4H BJUMP EQU 0B7B4H ;JUMP-Adresse 102/ 0 : =B7B9H OUTAB EQU 0B7B9H ;Ausgabe-UP 103/ 0 : =B7BBH INTAB EQU 0B7BBH ;Eingabe-UP 104/ 0 : =B7BDH UOUT1 EQU 0B7BDH ;USER-out #1 105/ 0 : =B7C0H UIN1 EQU 0B7C0H ;USER-in #1 106/ 0 : =B7C3H UOUT2 EQU 0B7C3H ;USER-out #2 107/ 0 : =B7C6H UIN2 EQU 0B7C6H ;USER-in #2 108/ 0 : =B7C9H IOERR EQU 0B7C9H ;-> ?IO ERROR 109/ 0 : 110/ 0 : =B7CFH ZWEND EQU 0B7CFH ;WEND-Merker 111/ 0 : =B7D1H FTAST EQU 0B7D1H ;F-Tastenzeiger 112/ 0 : =B7D3H HOR EQU 0B7D3H ;hor. Koordin. 113/ 0 : =B7D5H VERT EQU 0B7D5H ;vert. Koordin. 114/ 0 : =B7D6H FARB EQU 0B7D6H ;Grafikfarbe 115/ 0 : =B7D7H MIXIT EQU 0B7D7H ;IX-Bereich 116/ 0 : =B7D8H ZEITB EQU 0B7D8H ;Zeichentabelle 117/ 0 : =B7DAH VORTN EQU 0B7DAH ;Vortonl{nge 118/ 0 : =B7DCH DTADR EQU 0B7DCH ;Datenzeiger 119/ 0 : =B7DEH DTNR EQU 0B7DEH ;Datennummer 120/ 0 : =B7DFH XSTEP EQU 0B7DFH ;X-Schrittma~ AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 3 - 4/7/2014 17:44:09 121/ 0 : =B7E1H YSTEP EQU 0B7E1H ;Y-Schrittma~ 122/ 0 : =B7E3H XCNT EQU 0B7E3H ;X-Z{hler 123/ 0 : =B7E5H YCNT EQU 0B7E5H ;Y-Z{hler 124/ 0 : =B7E7H XDIR EQU 0B7E7H ;X-Richtung 125/ 0 : =B7E9H YDIR EQU 0B7E9H ;Y-Richtung 126/ 0 : 127/ 0 : =B99CH WNDFN EQU 0B99CH ;Fenstervektoren 128/ 0 : 129/ 0 : 130/ 0 : 131/ 0 : 132/ 0 : 133/ 0 : 134/ 0 : ;** CAOS 3.1 ROM E ** 135/ 0 : 136/ E000 : ORG 0E000H 137/ E000 : ; 138/ E000 : BYE 139/ E000 : C3 11 E0 JP RESET ;Tasten-RESET 140/ E003 : C3 69 E6 JP BEXP1 ;BASIC- 141/ E006 : C3 7D E6 JP BEXP2 ;Expansionen 142/ E009 : C3 F5 E6 JP BEXP3 143/ E00C : 81 E5 DW TOKTAB 144/ E00E : 145/ E00E : BASIO 146/ E00E : C3 ED F8 JP BASPV 147/ E011 : 148/ E011 : RESET ;Tasten-RESET 149/ E011 : DD 7E 07 LD A, (IX+7) 150/ E014 : E6 C0 AND 0C0H ;RESET-Schutz? 151/ E016 : 28 06 JR Z, BYE1 152/ E018 : CD C3 E2 CALL ERAM4 ;RAM4 l|schen! 153/ E01B : C3 00 F0 JP POWER 154/ E01E : 155/ E01E : BYE1 156/ E01E : 31 C4 01 LD SP, 01C4H 157/ E021 : C3 DD F0 JP PWR2 158/ E024 : 159/ E024 : DABR 160/ E024 : D5 PUSH DE ;**32** 161/ E025 : F5 PUSH AF 162/ E026 : CD 1F F7 CALL TCIF 163/ E029 : 38 23 JR C, IAD2 164/ E02B : 3A 9D B7 LD A, (WINON+1) 165/ E02E : 82 ADD A, D ;Cursor-Zeile 166/ E02F : 26 00 LD H, 0 167/ E031 : 6F LD L, A 168/ E032 : 29 ADD HL, HL 169/ E033 : 29 ADD HL, HL 170/ E034 : 29 ADD HL, HL 171/ E035 : C5 PUSH BC 172/ E036 : E5 PUSH HL 173/ E037 : C1 POP BC 174/ E038 : 29 ADD HL, HL 175/ E039 : 29 ADD HL, HL 176/ E03A : 09 ADD HL, BC 177/ E03B : 3A 9C B7 LD A, (WINON) 178/ E03E : 83 ADD A, E ;Cursor-Spalte 179/ E03F : 85 ADD A, L 180/ E040 : 6F LD L, A AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 4 - 4/7/2014 17:44:09 181/ E041 : 3E 00 LD A, 0 182/ E043 : 8C ADC A, H 183/ E044 : 67 LD H, A 184/ E045 : 01 00 B2 LD BC, VRAM 185/ E048 : 09 ADD HL, BC 186/ E049 : C1 POP BC 187/ E04A : F1 POP AF 188/ E04B : A7 AND A 189/ E04C : D1 POP DE 190/ E04D : C9 RET 191/ E04E : 192/ E04E : IAD2 193/ E04E : F1 POP AF 194/ E04F : 37 SCF 195/ E050 : D1 POP DE 196/ E051 : 21 00 B2 LD HL, VRAM 197/ E054 : C9 RET 198/ E055 : 199/ E055 : WPIX ;Zeichen auf Grafikbildschirm 200/ E055 : ;sichtbar machen, PE: DE,A 201/ E055 : E5 PUSH HL 202/ E056 : D5 PUSH DE 203/ E057 : C5 PUSH BC 204/ E058 : F5 PUSH AF 205/ E059 : F5 PUSH AF 206/ E05A : CD D6 F8 CALL FADR ;Farbadresse 207/ E05D : F1 POP AF 208/ E05E : E5 PUSH HL ;wof}r? 209/ E05F : CD BF E0 CALL PADR 210/ E062 : 38 48 JR C, POP4 ;au~erhalb! 211/ E064 : E5 PUSH HL ;Pixeladresse 212/ E065 : 21 07 F7 LD HL, CCTAB 213/ E068 : 0E B7 LD C, 0B7H ;High(CCTLx) 214/ E06A : WPIX1 215/ E06A : BE CP A, (HL) 216/ E06B : 23 INC HL 217/ E06C : 30 04 JR NC,WPIX2 218/ E06E : 23 INC HL 219/ E06F : 23 INC HL 220/ E070 : 18 F8 JR WPIX1 221/ E072 : WPIX2 222/ E072 : 96 SUB A, (HL) ;Offset 223/ E073 : 23 INC HL 224/ E074 : 6E LD L,(HL) 225/ E075 : 61 LD H,C ;HL=CCTLx 226/ E076 : 4E LD C,(HL) 227/ E077 : 23 INC HL 228/ E078 : 66 LD H,(HL) 229/ E079 : 69 LD L,C ;Zeichentabelle 230/ E07A : 22 D8 B7 LD (ZEITB),HL 231/ E07D : 4F LD C,A 232/ E07E : 3A A2 B7 LD A,(STBT) 233/ E081 : 47 LD B,A 234/ E082 : CB 48 BIT 1,B 235/ E084 : 20 07 JR NZ,WPIX3;Farbe aus 236/ E086 : 3A A3 B7 LD A,(COLOR) 237/ E089 : 12 LD (DE),A ;oberes Byte 238/ E08A : CB EB SET 5,E 239/ E08C : 12 LD (DE),A ;unteres Byte 240/ E08D : D1 WPIX3 POP DE ;Pixeladr. AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 5 - 4/7/2014 17:44:09 241/ E08E : E1 POP HL ;Farbadr. 242/ E08F : CB 40 BIT 0,B 243/ E091 : 20 19 JR NZ,POP4 ;Pixel aus 244/ E093 : 06 00 LD B,0 245/ E095 : 3E 03 LD A,3 246/ E097 : CB 21 WPIX4 SLA C 247/ E099 : CB 10 RL B ;*8 248/ E09B : 3D DEC A 249/ E09C : 20 F9 JR NZ,WPIX4 250/ E09E : 2A D8 B7 LD HL,(ZEITB) 251/ E0A1 : 09 ADD HL,BC ;Zeichenadr. 252/ E0A2 : D5 PUSH DE 253/ E0A3 : CD B0 E0 CALL WPIX5 ;4 Byte schreib. 254/ E0A6 : D1 POP DE 255/ E0A7 : CB EB SET 5,E 256/ E0A9 : CD B0 E0 CALL WPIX5 ;4 Byte schreib. 257/ E0AC : F1 POP4 POP AF 258/ E0AD : C3 FE F1 JP POP3 259/ E0B0 : ; 260/ E0B0 : 01 80 00 WPIX5 LD BC,80H ;Offset f}r 261/ E0B3 : 3E 04 LD A,4 ;n{chstes Byte 262/ E0B5 : ED A0 WPIX6 LDI 263/ E0B7 : EB EX DE,HL 264/ E0B8 : 09 ADD HL,BC 265/ E0B9 : EB EX DE,HL 266/ E0BA : 03 INC BC ;BC korrigieren 267/ E0BB : 3D DEC A 268/ E0BC : 20 F7 JR NZ,WPIX6 269/ E0BE : C9 RET 270/ E0BF : 271/ E0BF : PADR ;Pixel- und Farbadr berechnen 272/ E0BF : F5 PUSH AF ;**34** 273/ E0C0 : 7D LD A,L ;Spalte 274/ E0C1 : FE 28 CP 40 275/ E0C3 : 30 39 JR NC,PADR5;zu gro~ 276/ E0C5 : C5 PUSH BC 277/ E0C6 : FE 20 CP 32 278/ E0C8 : 30 37 JR NC,PADR6;rechte Seite 279/ E0CA : 7C LD A,H 280/ E0CB : 07 RLCA 281/ E0CC : 07 RLCA 282/ E0CD : 07 RLCA 283/ E0CE : E6 60 AND 60H 284/ E0D0 : B5 OR L 285/ E0D1 : CB 44 BIT 0,H 286/ E0D3 : 28 02 JR Z,PADR1 287/ E0D5 : CB FF SET 7,A 288/ E0D7 : 4F PADR1 LD C,A 289/ E0D8 : 7C LD A,H 290/ E0D9 : 1F RRA 291/ E0DA : 1F RRA 292/ E0DB : 1F RRA 293/ E0DC : E6 1E AND 1EH 294/ E0DE : CB 4C BIT 1, H 295/ E0E0 : 28 02 JR Z,PADR2 296/ E0E2 : CB C7 SET 0,A 297/ E0E4 : F6 80 PADR2 OR 80H ;Pixel-RAM I 298/ E0E6 : 47 LD B,A 299/ E0E7 : 1F RRA 300/ E0E8 : 1F RRA AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 6 - 4/7/2014 17:44:09 301/ E0E9 : E6 07 AND 7 302/ E0EB : F6 A8 OR 0A8H ;Color-RAM I 303/ E0ED : 57 LD D,A 304/ E0EE : 79 LD A,C 305/ E0EF : E6 7F AND 7FH 306/ E0F1 : CB 64 BIT 4,H 307/ E0F3 : 28 02 JR Z,PADR3 308/ E0F5 : CB FF SET 7,A 309/ E0F7 : 5F PADR3 LD E,A 310/ E0F8 : 69 PADR4 LD L,C 311/ E0F9 : 60 LD H,B 312/ E0FA : C1 POP BC 313/ E0FB : F1 POP AF 314/ E0FC : B7 OR A ;CY=0 315/ E0FD : C9 RET 316/ E0FE : ; 317/ E0FE : F1 PADR5 POP AF 318/ E0FF : 37 SCF ;au~erhalb 319/ E100 : C9 RET 320/ E101 : ; 321/ E101 : E6 07 PADR6 AND 7 322/ E103 : 6F LD L,A 323/ E104 : 7C LD A,H 324/ E105 : 07 RLCA 325/ E106 : 07 RLCA 326/ E107 : 07 RLCA 327/ E108 : E6 60 AND 60H 328/ E10A : B5 OR L 329/ E10B : 6F LD L,A 330/ E10C : 7C LD A,H 331/ E10D : 1F RRA 332/ E10E : E6 18 AND 18H 333/ E110 : CB 44 BIT 0,H 334/ E112 : 28 02 JR Z,PADR7 335/ E114 : CB FF SET 7,A 336/ E116 : B5 PADR7 OR L 337/ E117 : 4F LD C,A 338/ E118 : 7C LD A,H 339/ E119 : 07 RLCA 340/ E11A : 07 RLCA 341/ E11B : 07 RLCA 342/ E11C : E6 06 AND 6 343/ E11E : F6 A0 OR 0A0H ;Pixel-RAM II 344/ E120 : CB 4C BIT 1,H 345/ E122 : 28 02 JR Z,PADR8 346/ E124 : CB C7 SET 0,A 347/ E126 : 47 PADR8 LD B,A 348/ E127 : 16 B0 LD D,0B0H ;Color-RAM II 349/ E129 : CB 57 BIT 2,A 350/ E12B : 28 01 JR Z,PADR9 351/ E12D : 14 INC D 352/ E12E : 79 PADR9 LD A,C 353/ E12F : E6 7F AND 7FH 354/ E131 : CB 48 BIT 1,B 355/ E133 : 28 02 JR Z,PADR10 356/ E135 : CB FF SET 7,A 357/ E137 : 5F PADR10 LD E,A 358/ E138 : 18 BE JR PADR4 359/ E13A : 360/ E13A : PUDE ;Punkt l|schen ;**2F** AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 7 - 4/7/2014 17:44:09 361/ E13A : 37 SCF 362/ E13B : 18 01 JR PU1 363/ E13D : PUSE ;Punkt setzen ;**30** 364/ E13D : A7 AND A 365/ E13E : E5 PU1 PUSH HL 366/ E13F : D5 PUSH DE 367/ E140 : C5 PUSH BC 368/ E141 : 2A D3 B7 LD HL,(HOR) 369/ E144 : ED 4B D5 B7 LD BC,(VERT) 370/ E148 : F5 PUSH AF 371/ E149 : AF XOR A 372/ E14A : 06 03 LD B,3 373/ E14C : CB 3C PU2 SRL H 374/ E14E : CB 1D RR L 375/ E150 : 1F RRA 376/ E151 : 10 F9 DJNZ PU2 377/ E153 : 5F LD E,A 378/ E154 : 79 LD A,C 379/ E155 : 2F CPL 380/ E156 : 67 LD H,A 381/ E157 : 4B LD C,E 382/ E158 : CD BF E0 CALL PADR 383/ E15B : 38 1E JR C,PU5 384/ E15D : 37 SCF 385/ E15E : 79 LD A,C 386/ E15F : 0E 00 LD C,0 387/ E161 : CB 19 PU3 RR C 388/ E163 : D6 20 SUB 20H 389/ E165 : 30 FA JR NC,PU3 390/ E167 : F1 POP AF 391/ E168 : 79 LD A,C 392/ E169 : 38 14 JR C,PU6 393/ E16B : B6 OR (HL) 394/ E16C : 77 LD (HL), A 395/ E16D : 3A D6 B7 LD A,(FARB) 396/ E170 : E6 F8 AND 0F8H 397/ E172 : 47 LD B,A 398/ E173 : 1A LD A,(DE) 399/ E174 : E6 07 AND 7 400/ E176 : B0 OR B 401/ E177 : 12 LD (DE),A 402/ E178 : C3 FE F1 PU4 JP POP3 403/ E17B : F1 PU5 POP AF 404/ E17C : 37 SCF 405/ E17D : 18 F9 JR PU4 406/ E17F : F5 PU6 PUSH AF 407/ E180 : 46 LD B,(HL) 408/ E181 : 2F CPL 409/ E182 : A6 AND (HL) 410/ E183 : 77 LD (HL),A 411/ E184 : F1 POP AF 412/ E185 : A0 AND B 413/ E186 : 1A LD A,(DE) 414/ E187 : 18 EF JR PU4 415/ E189 : 416/ E189 : ;KBD-Treiber 417/ E189 : 418/ E189 : ISRC3 ;ISR CTC Kanal 3 (Tastatur) 419/ E189 : FB EI 420/ E18A : F5 PUSH AF AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 8 - 4/7/2014 17:44:09 421/ E18B : 3E 23 LD A, 23H ;DI,ZG256,Res 422/ E18D : D3 8F OUT 8FH, A ;CTC K3 423/ E18F : DD CB 08 DE SET 3,(IX+8);Timeout 424/ E193 : DD 36 0D 00 LD (IX+13),0 ;Zeichen tot 425/ E197 : 18 6D JR TST4 426/ E199 : 427/ E199 : ISRPB ;ISR PIO Kanal B (Tastatur) 428/ E199 : FB EI 429/ E19A : F5 PUSH AF 430/ E19B : DB 8F IN A,8FH ;gemessene 431/ E19D : F5 PUSH AF ;Zeit retten 432/ E19E : 3E A7 LD A,0A7H ;EI,ZG256,Res 433/ E1A0 : D3 8F OUT 8FH, A 434/ E1A2 : 3E 8F LD A,8FH ;ZK 435/ E1A4 : D3 8F OUT 8FH, A 436/ E1A6 : F1 POP AF 437/ E1A7 : DD CB 08 5E BIT 3,(IX+8);Timeout? 438/ E1AB : DD CB 08 9E RES 3,(IX+8);r}cksetzen 439/ E1AF : 20 55 JR NZ,TST4 440/ E1B1 : FE 65 CP 101 441/ E1B3 : 30 54 JR NC,TST5 ;0-Bit 442/ E1B5 : FE 44 CP 68 443/ E1B7 : 30 53 JR NC,TST6 ;1-Bit 444/ E1B9 : E5 PUSH HL 445/ E1BA : D5 PUSH DE 446/ E1BB : DD CB 0C 3E SRL (IX+12) 447/ E1BF : DD 7E 08 LD A,(IX+8) 448/ E1C2 : E6 80 AND 80H ;CAPS? 449/ E1C4 : 07 RLCA 450/ E1C5 : DD AE 0C XOR (IX+12) ;7bit-Scancode 451/ E1C8 : 26 00 LD H,0 452/ E1CA : DD 5E 0E LD E,(IX+14) 453/ E1CD : DD 56 0F LD D,(IX+15) 454/ E1D0 : 6F LD L,A 455/ E1D1 : 19 ADD HL,DE ;Pos. in KTAB 456/ E1D2 : 7E LD A,(HL) ;ASCII holen 457/ E1D3 : D1 POP DE 458/ E1D4 : E1 POP HL 459/ E1D5 : DD BE 0D CP (IX+13) ;=letzter Code? 460/ E1D8 : 28 11 JR Z,TST2 461/ E1DA : DD 77 0D LD (IX+13),A ;eintragen 462/ E1DD : DD CB 08 A6 RES 4,(IX+8);Repeat r}cks. 463/ E1E1 : DD CB 08 C6 TST1 SET 0,(IX+8);g}ltig machen 464/ E1E5 : DD 36 0A 00 LD (IX+10),0 ;neuer Code 465/ E1E9 : 18 1B JR TST4 466/ E1EB : ; 467/ E1EB : DD 34 0A TST2 INC (IX+10) ;Zeit abwarten 468/ E1EE : DD CB 08 66 BIT 4,(IX+8);Fast Repeat? 469/ E1F2 : 20 0C JR NZ,TST3 470/ E1F4 : DD CB 0A 66 BIT 4,(IX+10) ;16 erreicht? 471/ E1F8 : 28 0C JR Z,TST4 472/ E1FA : DD CB 08 E6 SET 4,(IX+8);Repeat aktiv 473/ E1FE : 18 E1 JR TST1 474/ E200 : ; 475/ E200 : DD CB 0A 4E TST3 BIT 1,(IX+10) ;nur jeder 2. 476/ E204 : 20 DB JR NZ,TST1 ;Interrupt! 477/ E206 : F1 TST4 POP AF 478/ E207 : ED 4D RETI 479/ E209 : ; 480/ E209 : B7 TST5 OR A ;0-Bit AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 9 - 4/7/2014 17:44:09 481/ E20A : 18 01 JR TST7 482/ E20C : 37 TST6 SCF ;1-Bit 483/ E20D : DD CB 0C 1E TST7 RR (IX+12) ;einschieben 484/ E211 : 18 F3 JR TST4 485/ E213 : 486/ E213 : 487/ E213 : 57 77 KTAB DB "W", "w" 488/ E215 : 41 61 DB "A", "a" 489/ E217 : 32 22 DB "2", 022H ; 22? --> " 490/ E219 : 08 19 DB 008H, 019H ;CUL 491/ E21B : 10 0C DB 010H, 00CH ;HOME 492/ E21D : 2D 3D DB "-", "=" 493/ E21F : F2 F8 DB 0F2H, 0F8H ;F2 494/ E221 : 59 79 DB "Y", "y" 495/ E223 : 45 65 DB "E", "e" 496/ E225 : 53 73 DB "S", "s" 497/ E227 : 33 23 DB "3", "#" 498/ E229 : 5E 5D DB "^", "]" 499/ E22B : 01 0F DB 1, 0FH ;CLR 500/ E22D : 3A 2A DB ":", "*" 501/ E22F : F3 F9 DB 0F3H, 0F9H ;F3 502/ E231 : 58 78 DB "X", "x" 503/ E233 : 54 74 DB "T", "t" 504/ E235 : 46 66 DB "F", "f" 505/ E237 : 35 25 DB "5", "%" 506/ E239 : 50 70 DB "P", "p" 507/ E23B : 1F 02 DB 1FH, 002H ;DEL 508/ E23D : 30 40 DB "0", 040H 509/ E23F : F5 FB DB 0F5H, 0FBH ;F5 510/ E241 : 56 76 DB "V", "v" 511/ E243 : 55 75 DB "U", "u" 512/ E245 : 48 68 DB "H", "h" 513/ E247 : 37 27 DB "7", 027H 514/ E249 : 4F 6F DB "O", "o" 515/ E24B : 1A 14 DB 01AH, 014H ;INS 516/ E24D : 39 29 DB "9", ")" 517/ E24F : 03 03 DB 003H, 003H ;BRK 518/ E251 : 4E 6E DB "N", "n" 519/ E253 : 49 69 DB "I", "i" 520/ E255 : 4A 6A DB "J", "j" 521/ E257 : 38 28 DB "8", "(" 522/ E259 : 20 5B DB " ", "[" ;SPC 523/ E25B : 4B 6B DB "K", "k" 524/ E25D : 2C 3C DB ",", "<" 525/ E25F : 13 13 DB 013H, 013H ;STOP 526/ E261 : 4D 6D DB "M", "m" 527/ E263 : 5A 7A DB "Z", "z" 528/ E265 : 47 67 DB "G", "g" 529/ E267 : 36 26 DB "6", "&" 530/ E269 : 20 20 DB " ", " " ;freie Taste 531/ E26B : 4C 6C DB "L", "l" 532/ E26D : 2E 3E DB ".", ">" 533/ E26F : F6 FC DB 0F6H, 0FCH ;F6 534/ E271 : 42 62 DB "B", "b" 535/ E273 : 52 72 DB "R", "r" 536/ E275 : 44 64 DB "D", "d" 537/ E277 : 34 24 DB "4", "$" 538/ E279 : 5F 5C DB "_", "\\" 539/ E27B : 540/ E27B : 2B 3B DB "+", ";" AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 10 - 4/7/2014 17:44:09 541/ E27D : 2F 3F DB "/", "?" 542/ E27F : F4 FA DB 0F4H, 0FAH ;F4 543/ E281 : 43 63 DB "C", "c" 544/ E283 : 51 71 DB "Q", "q" 545/ E285 : 16 16 DB 016H, 016H ;CAPS 546/ E287 : 31 21 DB "1", "!" 547/ E289 : 0A 12 DB LF, 012H ;CUD 548/ E28B : 0B 11 DB 00BH, 011H ;CUU 549/ E28D : 09 18 DB 009H, 018H ;CUR 550/ E28F : F1 F7 DB 0F1H, 0F7H ;F1 551/ E291 : 0D 0D DB CR, CR ;ENTER 552/ E293 : 553/ E293 : ISRTAB 554/ E293 : CD E4 DW ISRPA ;PIO A:Kassette 555/ E295 : 99 E1 DW ISRPB ;PIO B:Tastatur 556/ E297 : 00 00 DW 000H ;CTC 0:frei 557/ E299 : B9 E4 DW ISRC1 ;CTC 1:Kassette 558/ E29B : DF E4 DW ISRC2 ;CTC 2:Tondauer 559/ E29D : 89 E1 DW ISRC3 ;CTC 3:Tastatur 560/ E29F : 561/ E29F : KBDZ ;Abfrage mit Quittung ;**0E** 562/ E29F : CD A8 E2 CALL KBDS 563/ E2A2 : D0 RET NC 564/ E2A3 : DD CB 08 86 RES 0,(IX+8) 565/ E2A7 : C9 RET 566/ E2A8 : 567/ E2A8 : KBDS ;Abfrage ohne Quittung ;**0C** 568/ E2A8 : B7 OR A 569/ E2A9 : DD CB 08 46 BIT 0,(IX+8);Code g}ltig? 570/ E2AD : C8 RET Z 571/ E2AE : DD 7E 0D LD A,(IX+13) 572/ E2B1 : 37 SCF ;wenn ja 573/ E2B2 : C9 RET 574/ E2B3 : 575/ E2B3 : C5 INIEA PUSH BC ;**43** 576/ E2B4 : 4E LD C,(HL) ;1.Byte=Adr. 577/ E2B5 : 23 INC HL 578/ E2B6 : 46 LD B,(HL) ;2.Byte=Anz. 579/ E2B7 : 23 INC HL 580/ E2B8 : ED B3 OTIR 581/ E2BA : C1 POP BC 582/ E2BB : C9 RET 583/ E2BC : 584/ E2BC : CD B3 E2 INIME CALL INIEA ;**44** 585/ E2BF : 15 DEC D ;D Kan{le 586/ E2C0 : 20 FA JR NZ,INIME 587/ E2C2 : C9 RET 588/ E2C3 : 589/ E2C3 : ERAM4 ;RAM l|schen 590/ E2C3 : 21 00 40 LD HL,4000H;RAM4 591/ E2C6 : 44 LD B,H 592/ E2C7 : 4D LD C,L 593/ E2C8 : 7D ERAM LD A,L 594/ E2C9 : 77 ERA4 LD (HL),A ;l|schen 595/ E2CA : ED A1 CPI ;INC HL, DEC BC 596/ E2CC : E0 RET PO ;fertig 597/ E2CD : 18 FA JR ERA4 598/ E2CF : 599/ E2CF : 600/ E2CF : 7F 7F DW 7F7FH AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 11 - 4/7/2014 17:44:09 601/ E2D1 : 53 57 49 54 43 48 DB "SWITCH", 001H 01 602/ E2D8 : 3A 81 B7 LD A,(ARGN) 603/ E2DB : 53 LD D,E 604/ E2DC : CD F4 E2 CALL MODU 605/ E2DF : 7D LD A,L ;Platz 606/ E2E0 : CD E2 F2 CALL AHEX 607/ E2E3 : CD C8 F2 CALL SPACE 608/ E2E6 : 7C LD A,H ;Kennbyte 609/ E2E7 : CD E2 F2 CALL AHEX 610/ E2EA : CD C8 F2 CALL SPACE 611/ E2ED : 7B LD A,E ;Steuerbyte 612/ E2EE : CD E2 F2 CALL AHEX 613/ E2F1 : C3 D7 F2 JP CRLF 614/ E2F4 : 615/ E2F4 : MODU ;Lesen und Schalten ;**26** 616/ E2F4 : FE 02 CP 2 617/ E2F6 : 38 31 JR C,MODU5 ;nur lesen 618/ E2F8 : 7D LD A,L 619/ E2F9 : FE 03 CP 3 620/ E2FB : 30 26 JR NC,MODU4 621/ E2FD : 0E 88 LD C,88H ;interne Module 622/ E2FF : ED 60 IN H,(C) 623/ E301 : A7 AND A 624/ E302 : 20 12 JR NZ,MODU2 625/ E304 : CB 42 BIT 0,D ;f}r RAM0 626/ E306 : CB 8C RES 1,H 627/ E308 : 28 02 JR Z,MODU1 628/ E30A : CB CC SET 1,H 629/ E30C : CB 4A MODU1 BIT 1,D 630/ E30E : CB 9C RES 3,H 631/ E310 : 28 0F JR Z,MODU3 632/ E312 : CB DC SET 3,H 633/ E314 : 18 0B JR MODU3 634/ E316 : 635/ E316 : 3D MODU2 DEC A 636/ E317 : 20 24 JR NZ,MODU7 637/ E319 : CB 42 BIT 0,D ;f}r IRM 638/ E31B : CB 94 RES 2,H 639/ E31D : 28 02 JR Z,MODU3 640/ E31F : CB D4 SET 2,H 641/ E321 : ED 61 MODU3 OUT (C),H ;int. schalten 642/ E323 : 7A MODU4 LD A,D 643/ E324 : 0E 80 LD C,80H 644/ E326 : 45 LD B,L 645/ E327 : ED 79 OUT (C),A ;Senden Steuerb. 646/ E329 : 26 00 MODU5 LD H,0 647/ E32B : E5 PUSH HL 648/ E32C : F5 PUSH AF 649/ E32D : 01 00 B8 LD BC,0B800H 650/ E330 : 09 ADD HL,BC 651/ E331 : F1 POP AF 652/ E332 : 38 01 JR C,MODU6 ;nur lesen 653/ E334 : 77 LD (HL),A ;eintragen 654/ E335 : 5E MODU6 LD E,(HL) ;R}ckgabe STB 655/ E336 : E1 POP HL ;(f}r Kommando) 656/ E337 : 0E 80 LD C,80H 657/ E339 : 45 LD B,L 658/ E33A : ED 60 IN H,(C) ;Modultyp lesen 659/ E33C : C9 RET AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 12 - 4/7/2014 17:44:09 660/ E33D : 661/ E33D : CB 42 MODU7 BIT 0,D ;f}r BASIC-ROM 662/ E33F : CB BC RES 7,H 663/ E341 : 28 DE JR Z,MODU3 664/ E343 : CB FC SET 7,H 665/ E345 : 18 DA JR MODU3 666/ E347 : 667/ E347 : 7F 7F DW 7F7FH 668/ E349 : 4A 55 4D 50 01 DB "JUMP", 001H 669/ E34E : 7D LD A,L 670/ E34F : 47 JUMP LD B,A ;**27** 671/ E350 : 0E 80 LD C,80H 672/ E352 : ED 78 IN A,(C) 673/ E354 : 3C INC A ;Kennbyte FF? 674/ E355 : CA 7C F1 JP Z,LOOP2 ;ja-Fehler 675/ E358 : 3E FF LD A,0FFH 676/ E35A : ED 79 OUT (C),A ;Ausgabe FF 677/ E35C : 26 00 LD H,0 678/ E35E : 11 00 B8 LD DE,0B800H 679/ E361 : 19 ADD HL,DE 680/ E362 : 77 LD (HL),A ;Eintrag 681/ E363 : DB 88 IN A,88H 682/ E365 : E6 7E AND 7EH 683/ E367 : C3 B4 B7 JP BJUMP ;in IRM 684/ E36A : 685/ E36A : 686/ E36A : ;TAPE-Treiber 687/ E36A : 688/ E36A : ISRO ;Init Bandausgabe ;**08** 689/ E36A : 2E 60 LD L,60H ;Motor, LED ein 690/ E36C : CD E6 E3 CALL ISRI1 691/ E36F : DD 36 02 00 LD (IX+2),0 ;1. Block 692/ E373 : 01 00 20 LD BC,2000H ;Vortonl{nge 693/ E376 : ; 694/ E376 : MBO ;Ausgabe 1 Block ;**01** 695/ E376 : DD 34 02 INC (IX+2) 696/ E379 : F3 DI 697/ E37A : AF XOR A 698/ E37B : DD 77 01 LD (IX+1),A;Pr}fsumme 699/ E37E : 3E 87 LD A,87H ;EI,ZG16,Res 700/ E380 : D3 8D OUT 8DH, A 701/ E382 : 3E 2F LD A,2FH ;Vorton 702/ E384 : D3 8D OUT 8DH,A 703/ E386 : FB EI 704/ E387 : 57 LD D,A ;D=2Fh 705/ E388 : CD D4 E3 MBO1 CALL HBITOT 706/ E38B : ED A1 CPI 707/ E38D : EA 88 E3 JP PE,MBO1 ;BC mal 708/ E390 : CD CC E3 CALL ZTON ;Trennzeichen 709/ E393 : DD 7E 02 LD A,(IX+2) 710/ E396 : CD BB E3 CALL BYTOT ;Blocknummer 711/ E399 : DD 6E 05 LD L,(IX+5) 712/ E39C : DD 66 06 LD H,(IX+6) 713/ E39F : 06 80 LD B,80H 714/ E3A1 : 7E BLKOT LD A,(HL) 715/ E3A2 : CD BB E3 CALL BYTOT ;Datenbyte 716/ E3A5 : DD 7E 01 LD A,(IX+1) 717/ E3A8 : 86 ADD A, (HL) ;Pr}fsumme 718/ E3A9 : DD 77 01 LD (IX+1),A;berechnen 719/ E3AC : 23 INC HL AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 13 - 4/7/2014 17:44:09 720/ E3AD : 10 F2 DJNZ BLKOT 721/ E3AF : CD BB E3 CALL BYTOT ;und ausgeben 722/ E3B2 : 7A LD A,D 723/ E3B3 : CD DB E3 CALL BITO1 ;noch ein Knacks 724/ E3B6 : 3E 03 LD A,3 725/ E3B8 : D3 8D OUT 08DH, A ;CTC stoppen 726/ E3BA : C9 RET 727/ E3BB : 728/ E3BB : BYTOT ;Ausgabe eines Bytes 729/ E3BB : C5 PUSH BC 730/ E3BC : 4F LD C,A 731/ E3BD : 06 08 LD B,8 732/ E3BF : CB 09 BYTOUT RRC C ;mit Bit0 733/ E3C1 : F5 PUSH AF ;beginnend 734/ E3C2 : DC D4 E3 CALL C,HBITOT 735/ E3C5 : F1 POP AF 736/ E3C6 : D4 D0 E3 CALL NC,LBITOT 737/ E3C9 : 10 F4 DJNZ BYTOUT ;8* 738/ E3CB : C1 POP BC 739/ E3CC : 1E 5D ZTON LD E,5DH ;ZK Trennz. 740/ E3CE : 18 06 JR BITOUT 741/ E3D0 : 742/ E3D0 : 1E 17 LBITOT LD E,17H ;ZK High-Bit 743/ E3D2 : 18 02 JR BITOUT 744/ E3D4 : 745/ E3D4 : 1E 2F HBITOT LD E,2FH ;ZK Low-Bit 746/ E3D6 : 7A BITOUT LD A,D 747/ E3D7 : CD DB E3 CALL BITO1 ;aufrufen und 748/ E3DA : 7A LD A,D ;reinlaufen 749/ E3DB : DD 77 00 BITO1 LD (IX),A 750/ E3DE : DD 7E 00 BITO2 LD A,(IX) ;Warten auf 751/ E3E1 : B7 OR A ;Interrupt 752/ E3E2 : 20 FA JR NZ,BITO2 753/ E3E4 : 53 LD D,E 754/ E3E5 : C9 RET 755/ E3E6 : 756/ E3E6 : F3 ISRI1 DI 757/ E3E7 : DB 88 IN A,88H 758/ E3E9 : B5 OR L ;schalten 759/ E3EA : D3 88 OUT 088H, A 760/ E3EC : FB EI 761/ E3ED : 2A A4 B7 LD HL,(WEND) 762/ E3F0 : 22 CF B7 LD (ZWEND),HL 763/ E3F3 : C3 4F F8 JP PAGE 764/ E3F6 : 765/ E3F6 : CSRO ;Abschlu~ Bandausgabe ;**09** 766/ E3F6 : DD 36 02 FE LD (IX+2),0FEH 767/ E3FA : CD 76 E3 CALL MBO 768/ E3FD : 21 00 B7 CSROI LD HL,CASS ;Kassettenpuffer 769/ E400 : 01 7E 00 LD BC,7EH 770/ E403 : CD C8 E2 CALL ERAM ;l|schen 771/ E406 : 2A CF B7 LD HL,(ZWEND) 772/ E409 : 22 A4 B7 LD (WEND),HL 773/ E40C : DB 88 IN A,88H 774/ E40E : E6 9F AND 9FH ;Motor, LED aus 775/ E410 : D3 88 OUT 088H, A 776/ E412 : C3 98 F3 JP INIT ;Ports init 777/ E415 : 778/ E415 : ISRI ;Init. Bandeingabe ;**0A** 779/ E415 : 2E 40 LD L,40H ;Motor ein AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 14 - 4/7/2014 17:44:09 780/ E417 : CD E6 E3 CALL ISRI1 781/ E41A : CD 3F E4 CALL MBI0 ;Block lesen 782/ E41D : D8 RET C ;Fehler 783/ E41E : 11 B5 E4 LD DE,COM 784/ E421 : DD 66 06 LD H,(IX+6) 785/ E424 : DD 7E 05 LD A,(IX+5) 786/ E427 : C6 08 ADD A, 008H 787/ E429 : 6F LD L,A 788/ E42A : 06 04 LD B,4 789/ E42C : 1A ISRI2 LD A,(DE) 790/ E42D : 96 SUB (HL) 791/ E42E : A7 AND A 792/ E42F : 23 INC HL 793/ E430 : 13 INC DE 794/ E431 : C0 RET NZ 795/ E432 : 10 F8 DJNZ ISRI2 796/ E434 : DD CB 07 FE SET 7,(IX+7);COM-File 797/ E438 : C9 RET 798/ E439 : 799/ E439 : MBI ;Einlesen 1 Block ;**05** 800/ E439 : DD CB 07 7E BIT 7,(IX+7) 801/ E43D : 37 SCF ;kein COM-File! 802/ E43E : C0 RET NZ 803/ E43F : 3E 05 MBI0 LD A,5 ;DI,ZG16 804/ E441 : D3 8E OUT 08EH, A ;CTC K2 805/ E443 : 3E 83 LD A,83H ;EI 806/ E445 : D3 8A OUT 08AH, A ;an PIO A 807/ E447 : E5 PUSH HL 808/ E448 : D5 PUSH DE 809/ E449 : 3E A3 LD A,0A3H ;ZK 810/ E44B : D3 8E OUT 08EH, A 811/ E44D : FB EI 812/ E44E : 06 16 MBI1 LD B,16H 813/ E450 : AF XOR A 814/ E451 : DD 77 01 LD (IX+1),A ;Pr}fsumme=0 815/ E454 : CD F8 E4 MBI2 CALL STOP1 816/ E457 : 38 F5 JR C,MBI1 817/ E459 : FE BA CP 0BAH 818/ E45B : CD A8 E4 CALL LEDOO 819/ E45E : 38 EE JR C,MBI1 ;10h korrekte 820/ E460 : 10 F2 DJNZ MBI2 ;Schwingungen 821/ E462 : 06 02 MBI3 LD B,2 ;erkennen 822/ E464 : AF MBI4 XOR A 823/ E465 : 4F LD C,A 824/ E466 : DD 77 00 LD (IX),A 825/ E469 : CD 07 E5 CALL STOP21 ;2 halbe Trenn- 826/ E46C : FE 5D CP 5DH ;zeichen er- 827/ E46E : 30 F2 JR NC,MBI3 ;kennen 828/ E470 : 10 F2 DJNZ MBI4 829/ E472 : CD 0F E5 CALL BYTIN ;Blocknummer 830/ E475 : DC A8 E4 CALL C,LEDOO 831/ E478 : DD 77 02 LD (IX+2),A 832/ E47B : 06 80 LD B,80H 833/ E47D : DD 6E 05 LD L,(IX+5) 834/ E480 : DD 66 06 LD H,(IX+6) 835/ E483 : CD 0F E5 BLKIN CALL BYTIN ;Datenbyte 836/ E486 : DC A8 E4 CALL C,LEDOO 837/ E489 : 77 LD (HL),A 838/ E48A : DD 7E 01 LD A,(IX+1) 839/ E48D : 86 ADD A,(HL) ;aufsummieren AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 15 - 4/7/2014 17:44:09 840/ E48E : DD 77 01 LD (IX+1),A 841/ E491 : 23 INC HL 842/ E492 : 10 EF DJNZ BLKIN 843/ E494 : CD 0F E5 CALL BYTIN ;Pr}fsumme 844/ E497 : DC A8 E4 CALL C,LEDOO 845/ E49A : 47 LD B,A 846/ E49B : DD 7E 01 LD A,(IX+1) 847/ E49E : B8 CP B ;gleich? 848/ E49F : D1 POP DE 849/ E4A0 : E1 POP HL 850/ E4A1 : 3E 03 LD A,3 ;DI an PIO-A 851/ E4A3 : D3 8A OUT 08AH, A 852/ E4A5 : 28 01 JR Z,LEDOO 853/ E4A7 : 37 SCF ;St|rung 854/ E4A8 : F5 LEDOO PUSH AF 855/ E4A9 : DB 88 IN A,88H 856/ E4AB : CB EF SET 5,A ;LED ein 857/ E4AD : 30 02 JR NC,MBI5 858/ E4AF : CB AF RES 5,A ;LED aus 859/ E4B1 : MBI5 860/ E4B1 : D3 88 OUT 088H, A 861/ E4B3 : F1 POP AF 862/ E4B4 : C9 RET 863/ E4B5 : 864/ E4B5 : COM 865/ E4B5 : 43 4F 4D 01 DB "COM", 1 866/ E4B9 : 867/ E4B9 : ISRC1 ;ISR CTC Kanal 1 (Kassette-Out) 868/ E4B9 : F5 PUSH AF 869/ E4BA : 3E 03 LD A,3 ;DI,ZG16,Res 870/ E4BC : D3 8D OUT 08DH, A 871/ E4BE : 3E 87 LD A,87H ;EI,ZG16,Res 872/ E4C0 : D3 8D OUT 08DH, A 873/ E4C2 : DD 7E 00 LD A,(IX) ;Uebergabezelle 874/ E4C5 : D3 8D OUT 08DH, A ;ZK 875/ E4C7 : AF XOR A 876/ E4C8 : DD 77 00 LD (IX),A ;Quittierung 877/ E4CB : 18 0E JR ISR2E 878/ E4CD : 879/ E4CD : ISRPA ;ISR PIO Kanal A (Kassette-In) 880/ E4CD : F5 PUSH AF 881/ E4CE : DB 8E IN A,8EH 882/ E4D0 : DD 77 00 LD (IX),A ;Uebergabezelle 883/ E4D3 : 3E 07 LD A,7 884/ E4D5 : D3 8E OUT 08EH, A 885/ E4D7 : 3E A3 LD A,0A3H 886/ E4D9 : ISR1E 887/ E4D9 : D3 8E OUT 08EH,A 888/ E4DB : ISR2E 889/ E4DB : F1 POP AF 890/ E4DC : FB EI 891/ E4DD : ED 4D RETI 892/ E4DF : 893/ E4DF : ISRC2 ;ISR CTC Kanal 2 (Tondauer) 894/ E4DF : F5 PUSH AF 895/ E4E0 : 3E 03 LD A,3 ;Ton aus 896/ E4E2 : D3 8C OUT 08CH, A ;CTC0 897/ E4E4 : D3 8D OUT 08DH, A ;CTC1 898/ E4E6 : DB 89 IN A,89H 899/ E4E8 : CB FF SET 7,A ;Blinken ein AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 16 - 4/7/2014 17:44:09 900/ E4EA : D3 89 OUT 089H, A 901/ E4EC : 3E 47 LD A,47H ;CTC2 auf 902/ E4EE : D3 8E OUT 08EH, A ;Blinken stellen 903/ E4F0 : 3E 20 LD A,20H ;ZK 904/ E4F2 : DD CB 08 8E RES 1,(IX+8);Ton ist aus 905/ E4F6 : 18 E1 JR ISR1E 906/ E4F8 : 907/ E4F8 : AF STOP1 XOR A ;1 Bit einlesen 908/ E4F9 : DD 77 00 LD (IX),A 909/ E4FC : DD 7E 00 STOP11 LD A,(IX) ;Warten auf 910/ E4FF : B7 OR A ;Interrupt 911/ E500 : 28 FA JR Z,STOP11 912/ E502 : 4F LD C,A 913/ E503 : AF XOR A 914/ E504 : DD 77 00 LD (IX),A 915/ E507 : DD 7E 00 STOP21 LD A,(IX) 916/ E50A : B7 OR A 917/ E50B : 28 FA JR Z,STOP21 918/ E50D : 81 ADD A, C ;beide 'Zeiten' 919/ E50E : C9 RET ;addieren 920/ E50F : 921/ E50F : BYTIN ;Einlesen eines Bytes 922/ E50F : 16 08 LD D,8 ;8 Bit 923/ E511 : AF XOR A 924/ E512 : 5F LD E,A 925/ E513 : CD F8 E4 TRN1 CALL STOP1 ;Bit einlesen 926/ E516 : 3F CCF 927/ E517 : 30 04 JR NC,TRN2 928/ E519 : FE BA CP 0BAH ;zu intolerant 929/ E51B : D8 RET C 930/ E51C : 37 SCF 931/ E51D : CB 1B TRN2 RR E ;Bit einschieben 932/ E51F : 15 DEC D 933/ E520 : 20 F1 JR NZ,TRN1 ;8* 934/ E522 : CD F8 E4 CALL STOP1 ;Trennzeichen 935/ E525 : 7B LD A,E ;mit CY- 936/ E526 : C9 RET ;R}ckmeldung 937/ E527 : 938/ E527 : CD 4C F4 TON CALL LARG ;**35** 939/ E52A : DD CB 08 4E TON1 BIT 1,(IX+8);alten Ton 940/ E52E : 20 FA JR NZ,TON1 ;abwarten 941/ E530 : 7D LD A,L 942/ E531 : A7 AND A 943/ E532 : 3E 03 LD A,3 944/ E534 : 28 0B JR Z,TON3 ;kein Ton1 945/ E536 : 3E 07 LD A,7 946/ E538 : CB 44 BIT 0,H 947/ E53A : 28 02 JR Z,TON2 ;VT16 948/ E53C : F6 20 OR 20H ;VT256 949/ E53E : TON2 950/ E53E : D3 8C OUT 08CH, A 951/ E540 : 7D LD A,L ;ZK1 952/ E541 : TON3 953/ E541 : D3 8C OUT 08CH, A 954/ E543 : 7B LD A,E 955/ E544 : A7 AND A 956/ E545 : 3E 03 LD A,3 957/ E547 : 28 0B JR Z,TON5 ;kein Ton2 958/ E549 : 3E 07 LD A,7 959/ E54B : CB 42 BIT 0,D AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 17 - 4/7/2014 17:44:09 960/ E54D : 28 02 JR Z,TON4 ;VT16 961/ E54F : F6 20 OR 20H ;VT256 962/ E551 : TON4 963/ E551 : D3 8D OUT 08DH, A 964/ E553 : 7B LD A,E ;ZK2 965/ E554 : TON5 966/ E554 : D3 8D OUT 08DH, A 967/ E556 : 79 LD A,C ;Lautst{rke 968/ E557 : EE 1F XOR 1FH ;da nullaktiv 969/ E559 : E6 1F AND 1FH ;maskieren 970/ E55B : CB FF SET 7,A ;Blinken ein 971/ E55D : 4F LD C,A 972/ E55E : 78 LD A,B 973/ E55F : A7 AND A 974/ E560 : 28 0D JR Z,TON6 ;Dauerton 975/ E562 : CB B9 RES 7,C ;Blinken aus 976/ E564 : DD CB 08 CE SET 1,(IX+8);neuer Ton 977/ E568 : 3E C7 LD A,0C7H ;EI, Z{hler 50Hz 978/ E56A : D3 8E OUT 08EH, A ;CTC2 979/ E56C : 78 LD A,B ;Dauer 980/ E56D : D3 8E OUT 08EH, A 981/ E56F : TON6 982/ E56F : 06 60 LD B,60H 983/ E571 : TONB 984/ E571 : DB 89 IN A,89H 985/ E573 : A0 AND B ;maskieren 986/ E574 : B1 OR C 987/ E575 : D3 89 OUT 089H, A ;Ltst. ausgeben 988/ E577 : C9 RET 989/ E578 : 990/ E578 : 7E ZKOUT LD A,(HL) ;**45** 991/ E579 : 23 INC HL 992/ E57A : A7 AND A 993/ E57B : C8 RET Z 994/ E57C : CD EF F1 CALL OCHR 995/ E57F : 18 F7 JR ZKOUT 996/ E581 : 997/ E581 : TOKTAB ;BASIC-Token 998/ E581 : ;(Bit 7 im 1. Byte gesetzt!) 999/ E581 : C9 4E 4B 45 59 24 DB 080H+'I', "NKEY$" 1000/ E587 : CA 4F 59 53 54 DB 080H+'J', "OYST" 1001/ E58C : D3 54 52 49 4E 47 DB 080H+'S', "TRING$" 24 1002/ E593 : C9 4E 53 54 52 DB 080H+'I', "NSTR" 1003/ E598 : D2 45 4E 55 4D 42 DB 080H+'R', "ENUMBER" 45 52 1004/ E5A0 : C4 45 4C 45 54 45 DB 080H+'D', "ELETE" 1005/ E5A6 : D0 41 55 53 45 DB 080H+'P', "AUSE" 1006/ E5AB : C2 45 45 50 DB 080H+'B', "EEP" 1007/ E5AF : D7 49 4E 44 4F 57 DB 080H+'W', "INDOW" 1008/ E5B5 : C2 4F 52 44 45 52 DB 080H+'B', "ORDER" 1009/ E5BB : C9 4E 4B DB 080H+'I', "NK" 1010/ E5BE : D0 41 50 45 52 DB 080H+'P', "APER" 1011/ E5C3 : C1 54 DB 080H+'A', "T" 1012/ E5C5 : C3 4F 4C 4F 52 DB 080H+'C', "OLOR" 1013/ E5CA : D3 4F 55 4E 44 DB 080H+'S', "OUND" 1014/ E5CF : D0 53 45 54 DB 080H+'P', "SET" 1015/ E5D3 : D0 52 45 53 45 54 DB 080H+'P', "RESET" 1016/ E5D9 : C3 4C 4F 41 44 DB 080H+'C', "LOAD" 1017/ E5DE : D6 50 45 45 4B DB 080H+'V', "PEEK" AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 18 - 4/7/2014 17:44:09 1018/ E5E3 : D6 50 4F 4B 45 DB 080H+'V', "POKE" 1019/ E5E8 : CC 4F 43 41 54 45 DB 080H+'L', "OCATE" 1020/ E5EE : CB 45 59 4C 49 53 DB 080H+'K', "EYLIST" 54 1021/ E5F5 : CB 45 59 DB 080H+'K', "EY" 1022/ E5F8 : D3 57 49 54 43 48 DB 080H+'S', "WITCH" 1023/ E5FE : D0 54 45 53 54 DB 080H+'P', "TEST" 1024/ E603 : C3 4C 4F 53 45 DB 080H+'C', "LOSE" 1025/ E608 : CC 50 45 4E DB 080H+'L', "PEN" 1026/ E60C : D0 41 4E 44 4F 4D DB 080H+'P', "ANDOMIZE" 49 5A 45 1027/ E615 : D0 47 45 54 24 DB 080H+'P', "GET$" 1028/ E61A : CC 49 4E 45 DB 080H+'L', "INE" 1029/ E61E : C3 49 52 43 4C 45 DB 080H+'C', "IRCLE" 1030/ E624 : C3 53 52 4C 49 4E DB 080H+'C', "SRLIN" 1031/ E62A : 80 DB 080H 1032/ E62B : 1033/ E62B : TOKJP ;Sprungtabelle f}r BASIC-Token 1034/ E62B : 97 EB DW INKEY 1035/ E62D : FD 02 DW 02FDH ;JOYST 1036/ E62F : 20 E7 DW STRING 1037/ E631 : 3E EC DW INSTR 1038/ E633 : 7F E7 DW RENUM 1039/ E635 : 5F E9 DW DELETE 1040/ E637 : 84 E9 DW PAUSE 1041/ E639 : B8 E9 DW BBEEP 1042/ E63B : CD E9 DW WINDOW 1043/ E63D : A3 EA DW BORDER 1044/ E63F : 14 EB DW INK 1045/ E641 : 2E EB DW PAPER 1046/ E643 : 48 C3 DW 0C348H ;AT 1047/ E645 : 4A EB DW BCOLOR 1048/ E647 : B2 EB DW SOUND 1049/ E649 : F5 EB DW PSET 1050/ E64B : 26 EC DW PRESET 1051/ E64D : 57 EA DW BLOAD 1052/ E64F : 48 C3 DW 0C348H ;VPEEK 1053/ E651 : 86 EA DW VPOKE 1054/ E653 : 63 EB DW LOCATE 1055/ E655 : C3 EC DW KEYLIST 1056/ E657 : B4 EC DW BKEY 1057/ E659 : C7 EC DW SWITCH 1058/ E65B : 48 C3 DW 0C348H ;PTEST 1059/ E65D : 13 ED DW CLOSE 1060/ E65F : 55 ED DW OPEN 1061/ E661 : 4F ED DW RANDOM 1062/ E663 : 48 C3 DW 0C348H ;VGET 1063/ E665 : 8A ED DW BLINE 1064/ E667 : 8F ED DW CIRCLE 1065/ E669 : 1066/ E669 : BEXP1 ;BASIC-Exp 1 1067/ E669 : 78 LD A,B 1068/ E66A : D6 09 SUB 9 1069/ E66C : 38 4F JR C,SNERR1 1070/ E66E : FE 1B CP 27 1071/ E670 : 30 4B JR NC,SNERR1 ;>26 1072/ E672 : 07 RLCA ;*2 1073/ E673 : 4F LD C,A 1074/ E674 : 06 00 LD B,0 1075/ E676 : EB EX DE,HL AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 19 - 4/7/2014 17:44:09 1076/ E677 : 21 33 E6 LD HL,TOKJP+8 1077/ E67A : C3 B7 C8 JP 0C8B7H ;R}cksprung 1078/ E67D : 1079/ E67D : BEXP2 ;BASIC-Exp 2 1080/ E67D : 7E LD A,(HL) 1081/ E67E : FE DF CP 0DFH 1082/ E680 : D8 RET C ;E2H 1085/ E684 : FE E1 CP 0E1H ;AT? 1086/ E686 : CA B1 EA JP Z,PRAT 1087/ E689 : 3A FD 03 LD A,(3FDH) 1088/ E68C : A7 AND A ;PRINT-Erw.? 1089/ E68D : 20 2E JR NZ,SNERR1 1090/ E68F : 3C INC A 1091/ E690 : 32 FD 03 LD (3FDH),A 1092/ E693 : E5 PREX1 PUSH HL 1093/ E694 : 21 A3 B7 LD HL,COLOR 1094/ E697 : CD B0 EC CALL IRMRD 1095/ E69A : E1 POP HL 1096/ E69B : 32 7E 03 LD (37EH),A;Farbe merken 1097/ E69E : 7E LD A,(HL) 1098/ E69F : FE DF CP 0DFH ;INK? 1099/ E6A1 : 28 1D JR Z,PRINK 1100/ E6A3 : FE E2 CP 0E2H ;COLOR? 1101/ E6A5 : CA B5 E6 JP Z,PRCOL 1102/ E6A8 : CD BD C8 CALL 0C8BDH 1103/ E6AB : CD 2E EB CALL PAPER 1104/ E6AE : 7E PREX2 LD A,(HL) 1105/ E6AF : FE 3B CP ";" 1106/ E6B1 : 28 3D JR Z,PREX5 1107/ E6B3 : 18 08 JR SNERR1 1108/ E6B5 : 1109/ E6B5 : CD BD C8 PRCOL CALL 0C8BDH 1110/ E6B8 : CD 4A EB CALL BCOLOR 1111/ E6BB : 18 F1 JR PREX2 1112/ E6BD : 1113/ E6BD : C3 48 C3 SNERR1 JP 0C348H ;SN-ERROR 1114/ E6C0 : 1115/ E6C0 : CD BD C8 PRINK CALL 0C8BDH 1116/ E6C3 : CD 14 EB CALL INK 1117/ E6C6 : 7E LD A,(HL) 1118/ E6C7 : FE 3B CP ";" 1119/ E6C9 : 28 25 JR Z,PREX5 1120/ E6CB : CD CC C8 CALL 0C8CCH ;Komma? 1121/ E6CE : 2C DB "," 1122/ E6CF : FE E0 CP 0E0H ;PAPER? 1123/ E6D1 : 20 EA JR NZ,SNERR1 1124/ E6D3 : CD BD C8 CALL 0C8BDH 1125/ E6D6 : CD 2E EB CALL PAPER 1126/ E6D9 : CD CC C8 CALL 0C8CCH 1127/ E6DC : 3B DB ";" 1128/ E6DD : CD 03 CB PREX3 CALL 0CB03H 1129/ E6E0 : 3A 7E 03 LD A,(37EH);Farbe 1130/ E6E3 : E5 PUSH HL 1131/ E6E4 : 21 A3 B7 LD HL,COLOR 1132/ E6E7 : CD AC EC CALL IRMWR ;eintragen 1133/ E6EA : E1 POP HL 1134/ E6EB : C1 POP BC 1135/ E6EC : C9 RET AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 20 - 4/7/2014 17:44:09 1136/ E6ED : C5 PREX4 PUSH BC 1137/ E6EE : 18 A3 JR PREX1 1138/ E6F0 : CD BD C8 PREX5 CALL 0C8BDH 1139/ E6F3 : 18 E8 JR PREX3 1140/ E6F5 : 1141/ E6F5 : BEXP3 ;BASIC-Exp 3 1142/ E6F5 : 79 LD A,C 1143/ E6F6 : FE 62 CP 62H 1144/ E6F8 : CA 65 EA JP Z,VPEEK 1145/ E6FB : FE 6E CP 6EH 1146/ E6FD : CA DE EC JP Z,PTEST 1147/ E700 : FE 7C CP 7CH 1148/ E702 : CA BD ED JP Z,CSRLN 1149/ E705 : FE 76 CP 76H 1150/ E707 : CA E0 ED JP Z,VGET 1151/ E70A : D6 3E SUB 3EH 1152/ E70C : 38 AF JR C,SNERR1 1153/ E70E : FE 07 CP 7 1154/ E710 : 30 AB JR NC,SNERR1 1155/ E712 : EB EX DE,HL 1156/ E713 : 01 2B E6 LD BC,TOKJP ;Tokentab. 1157/ E716 : E1 POP HL 1158/ E717 : 6F LD L,A 1159/ E718 : 09 ADD HL,BC 1160/ E719 : 4E LD C,(HL) 1161/ E71A : 23 INC HL 1162/ E71B : 66 LD H,(HL) 1163/ E71C : 69 LD L,C 1164/ E71D : E5 PUSH HL ;Routine 1165/ E71E : EB EX DE,HL ;anspringen 1166/ E71F : C9 RET 1167/ E720 : 1168/ E720 : STRING ;String vervielf{ltigen 1169/ E720 : CD CC C8 CALL 0C8CCH 1170/ E723 : 28 DB "(" ;Klammer auf? 1171/ E724 : CD 21 D4 CALL 0D421H 1172/ E727 : F5 PUSH AF 1173/ E728 : CD D6 C8 CALL 0C8D6H ;Komma? 1174/ E72B : CD 3A CD CALL 0CD3AH 1175/ E72E : CD DB C8 CALL 0C8DBH ;Klammer zu? 1176/ E731 : F1 POP AF 1177/ E732 : E5 PUSH HL 1178/ E733 : F5 PUSH AF 1179/ E734 : CD 30 D3 CALL 0D330H 1180/ E737 : 23 INC HL 1181/ E738 : 23 INC HL 1182/ E739 : 5E LD E,(HL) 1183/ E73A : 23 INC HL 1184/ E73B : 56 LD D,(HL) 1185/ E73C : C1 POP BC 1186/ E73D : C5 PUSH BC 1187/ E73E : F5 PUSH AF 1188/ E73F : D5 PUSH DE 1189/ E740 : 4F LD C,A 1190/ E741 : AF XOR A 1191/ E742 : B9 CP C 1192/ E743 : 28 0C JR Z,STR2 1193/ E745 : B8 CP B 1194/ E746 : 28 09 JR Z,STR2 1195/ E748 : 79 LD A,C AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 21 - 4/7/2014 17:44:09 1196/ E749 : 05 DEC B 1197/ E74A : 28 05 JR Z,STR2 1198/ E74C : STR1 1199/ E74C : 81 ADD A, C 1200/ E74D : 38 2B JR C,STR5 1201/ E74F : 10 FB DJNZ STR1 1202/ E751 : 47 STR2 LD B,A 1203/ E752 : 0E 00 LD C,0 1204/ E754 : C5 PUSH BC 1205/ E755 : CD E1 D1 CALL 0D1E1H ;Str.-Arithm. 1206/ E758 : C1 POP BC 1207/ E759 : C1 POP BC 1208/ E75A : C5 PUSH BC 1209/ E75B : CD 7E D1 CALL 0D17EH 1210/ E75E : E1 POP HL 1211/ E75F : E3 EX (SP),HL 1212/ E760 : 7C LD A,H 1213/ E761 : E1 POP HL 1214/ E762 : E3 EX (SP),HL 1215/ E763 : 6F LD L,A 1216/ E764 : 24 INC H 1217/ E765 : 25 STR3 DEC H 1218/ E766 : E5 PUSH HL 1219/ E767 : C5 PUSH BC 1220/ E768 : 28 07 JR Z,STR4 1221/ E76A : CD F2 D2 CALL 0D2F2H 1222/ E76D : C1 POP BC 1223/ E76E : E1 POP HL 1224/ E76F : 18 F4 JR STR3 1225/ E771 : C1 STR4 POP BC 1226/ E772 : E1 POP HL 1227/ E773 : D1 POP DE 1228/ E774 : CD 02 D3 CALL 0D302H 1229/ E777 : C3 A9 D1 JP 0D1A9H 1230/ E77A : 1E 1C STR5 LD E,1CH ;ST- 1231/ E77C : C3 56 C3 JP 0C356H ;ERROR 1232/ E77F : 1233/ E77F : RENUM ;neu nummerieren 1234/ E77F : E5 PUSH HL 1235/ E780 : 21 0A 00 LD HL,10 1236/ E783 : 22 54 03 LD (354H),HL ;DISTAN 1237/ E786 : 2A 5F 03 LD HL,(35FH) ;Start 1238/ E789 : F5 PUSH AF 1239/ E78A : E5 PUSH HL 1240/ E78B : 23 INC HL 1241/ E78C : 23 INC HL 1242/ E78D : 7E LD A,(HL) 1243/ E78E : 23 INC HL 1244/ E78F : 66 LD H,(HL) 1245/ E790 : 6F LD L,A 1246/ E791 : 22 4E 03 LD (34EH),HL ;ZL-Nr 1247/ E794 : 22 52 03 LD (352H),HL ;NANF 1248/ E797 : ED 5B D7 03 LD DE,(3D7H) ;Ende 1249/ E79B : 1B DEC DE 1250/ E79C : 1B DEC DE 1251/ E79D : E1 REN1 POP HL 1252/ E79E : E5 PUSH HL 1253/ E79F : 7E LD A,(HL) 1254/ E7A0 : 23 INC HL 1255/ E7A1 : 66 LD H,(HL) AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 22 - 4/7/2014 17:44:09 1256/ E7A2 : 6F LD L,A 1257/ E7A3 : CD 89 C6 CALL 0C689H 1258/ E7A6 : E3 EX (SP),HL 1259/ E7A7 : 20 F4 JR NZ,REN1 1260/ E7A9 : D1 POP DE 1261/ E7AA : 23 INC HL 1262/ E7AB : 23 INC HL 1263/ E7AC : 7E LD A,(HL) 1264/ E7AD : 23 INC HL 1265/ E7AE : 66 LD H,(HL) 1266/ E7AF : 6F LD L,A 1267/ E7B0 : 22 50 03 LD (350H),HL ;ZL-Abst 1268/ E7B3 : 06 04 LD B,4 1269/ E7B5 : F1 POP AF 1270/ E7B6 : 21 4E 03 LD HL,34EH 1271/ E7B9 : E3 EX (SP),HL 1272/ E7BA : 28 20 REN2 JR Z,REN5 1273/ E7BC : CD 86 C9 CALL 0C986H 1274/ E7BF : F5 PUSH AF 1275/ E7C0 : 7A LD A,D 1276/ E7C1 : B3 OR E 1277/ E7C2 : CA 67 C9 REN3 JP Z,0C967H ;FC-ERROR 1278/ E7C5 : F1 POP AF 1279/ E7C6 : E3 EX (SP),HL 1280/ E7C7 : 73 LD (HL),E 1281/ E7C8 : 23 INC HL 1282/ E7C9 : 72 LD (HL),D 1283/ E7CA : 23 INC HL 1284/ E7CB : 28 0F JR Z,REN5 1285/ E7CD : F5 PUSH AF 1286/ E7CE : 05 DEC B 1287/ E7CF : 28 07 JR Z,REN4 1288/ E7D1 : F1 POP AF 1289/ E7D2 : E3 EX (SP),HL 1290/ E7D3 : CD D6 C8 CALL 0C8D6H ;Komma? 1291/ E7D6 : 18 E2 JR REN2 1292/ E7D8 : F1 REN4 POP AF 1293/ E7D9 : C2 83 EA JP NZ,SNERR2 1294/ E7DC : 2A 50 03 REN5 LD HL,(350H) 1295/ E7DF : ED 5B 4E 03 LD DE,(34EH) 1296/ E7E3 : CD 89 C6 CALL 0C689H 1297/ E7E6 : DA 67 C9 REN6 JP C,0C967H 1298/ E7E9 : 2A 5F 03 LD HL,(35FH) 1299/ E7EC : CD BE C4 REN7 CALL 0C4BEH 1300/ E7EF : 38 04 JR C,REN8 1301/ E7F1 : 28 CF JR Z,REN3 1302/ E7F3 : 18 F7 JR REN7 1303/ E7F5 : E1 REN8 POP HL 1304/ E7F6 : C5 PUSH BC 1305/ E7F7 : ED 5B 50 03 LD DE,(350H) 1306/ E7FB : 21 00 00 LD HL,0 1307/ E7FE : 22 50 03 LD (350H),HL 1308/ E801 : 60 REN9 LD H,B 1309/ E802 : 69 LD L,C 1310/ E803 : 4E LD C,(HL) 1311/ E804 : 23 INC HL 1312/ E805 : 46 LD B,(HL) 1313/ E806 : 78 LD A,B 1314/ E807 : B1 OR C 1315/ E808 : 28 B8 JR Z,REN3 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 23 - 4/7/2014 17:44:09 1316/ E80A : 23 INC HL 1317/ E80B : 7E LD A,(HL) 1318/ E80C : 23 INC HL 1319/ E80D : 66 LD H,(HL) 1320/ E80E : 6F LD L,A 1321/ E80F : CD 89 C6 CALL 0C689H 1322/ E812 : 2A 50 03 LD HL,(350H) 1323/ E815 : 23 INC HL 1324/ E816 : 22 50 03 LD (350H),HL 1325/ E819 : 20 E6 JR NZ,REN9 1326/ E81B : 23 INC HL 1327/ E81C : 23 INC HL 1328/ E81D : 29 ADD HL,HL 1329/ E81E : 23 INC HL 1330/ E81F : ED 5B D7 03 LD DE,(3D7H) 1331/ E823 : 19 ADD HL,DE 1332/ E824 : 38 C0 JR C,REN6 1333/ E826 : CD 27 C3 CALL 0C327H ;genug RAM? 1334/ E829 : 22 D7 03 LD (3D7H),HL 1335/ E82C : AF XOR A 1336/ E82D : 2B DEC HL 1337/ E82E : 77 LD (HL),A 1338/ E82F : 2B DEC HL 1339/ E830 : 77 LD (HL),A 1340/ E831 : 1B DEC DE 1341/ E832 : 1B DEC DE 1342/ E833 : EB EX DE,HL 1343/ E834 : 73 LD (HL),E 1344/ E835 : 23 INC HL 1345/ E836 : 72 LD (HL),D 1346/ E837 : 23 INC HL 1347/ E838 : 3D DEC A 1348/ E839 : 77 LD (HL),A 1349/ E83A : 23 INC HL 1350/ E83B : 77 LD (HL),A 1351/ E83C : 23 INC HL 1352/ E83D : EB EX DE,HL 1353/ E83E : 2A 52 03 LD HL,(352H) 1354/ E841 : 22 4E 03 LD (34EH),HL 1355/ E844 : E1 REN10 POP HL 1356/ E845 : 4E LD C,(HL) 1357/ E846 : 23 INC HL 1358/ E847 : 46 LD B,(HL) 1359/ E848 : 23 INC HL 1360/ E849 : C5 PUSH BC 1361/ E84A : 01 4E 03 LD BC,34EH 1362/ E84D : 7E LD A,(HL) 1363/ E84E : 12 LD (DE),A 1364/ E84F : 0A LD A,(BC) 1365/ E850 : 77 LD (HL),A 1366/ E851 : 23 INC HL 1367/ E852 : 13 INC DE 1368/ E853 : 03 INC BC 1369/ E854 : 7E LD A,(HL) 1370/ E855 : 12 LD (DE),A 1371/ E856 : 0A LD A,(BC) 1372/ E857 : 77 LD (HL),A 1373/ E858 : 13 INC DE 1374/ E859 : 2A 4E 03 LD HL,(34EH) 1375/ E85C : ED 4B 54 03 LD BC,(354H) AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 24 - 4/7/2014 17:44:09 1376/ E860 : 09 ADD HL,BC 1377/ E861 : 22 4E 03 LD (34EH),HL 1378/ E864 : 2A 50 03 LD HL,(350H) 1379/ E867 : 2B DEC HL 1380/ E868 : 7C LD A,H 1381/ E869 : B5 OR L 1382/ E86A : 22 50 03 LD (350H),HL 1383/ E86D : 20 D5 JR NZ,REN10 1384/ E86F : 12 LD (DE),A 1385/ E870 : E1 POP HL 1386/ E871 : 2A 5F 03 LD HL,(35FH) 1387/ E874 : E5 PUSH HL 1388/ E875 : E1 REN11 POP HL 1389/ E876 : 4E LD C,(HL) 1390/ E877 : 23 INC HL 1391/ E878 : 46 LD B,(HL) 1392/ E879 : 23 INC HL 1393/ E87A : C5 PUSH BC 1394/ E87B : 7E LD A,(HL) 1395/ E87C : 23 INC HL 1396/ E87D : A6 AND (HL) 1397/ E87E : 3C INC A 1398/ E87F : 28 26 JR Z,REN15 1399/ E881 : 23 REN12 INC HL 1400/ E882 : 7E REN13 LD A,(HL) 1401/ E883 : B7 OR A 1402/ E884 : 28 EF JR Z,REN11 1403/ E886 : FE 88 CP 88H ;GOTO 1404/ E888 : 28 2A JR Z,REN16 1405/ E88A : FE 8C CP 8CH ;GOSUB 1406/ E88C : 28 26 JR Z,REN16 1407/ E88E : FE 8B CP 8BH ;RESTORE 1408/ E890 : 28 08 JR Z,REN14 1409/ E892 : FE D4 CP 0D4H ;ELSE 1410/ E894 : 28 04 JR Z,REN14 1411/ E896 : FE A9 CP 0A9H ;THEN 1412/ E898 : 20 E7 JR NZ,REN12 1413/ E89A : CD 87 C9 REN14 CALL 0C987H 1414/ E89D : 7B LD A,E 1415/ E89E : B2 OR D 1416/ E89F : C4 C8 E8 CALL NZ,RENUP1 1417/ E8A2 : C4 FA E8 CALL NZ,RENUP2 1418/ E8A5 : 18 DB JR REN13 1419/ E8A7 : 2B REN15 DEC HL 1420/ E8A8 : 22 D7 03 LD (3D7H),HL 1421/ E8AB : 2B DEC HL 1422/ E8AC : 77 LD (HL),A 1423/ E8AD : 2B DEC HL 1424/ E8AE : 77 LD (HL),A 1425/ E8AF : E1 POP HL 1426/ E8B0 : E1 POP HL 1427/ E8B1 : C3 8A C4 JP 0C48AH 1428/ E8B4 : CD 87 C9 REN16 CALL 0C987H 1429/ E8B7 : 7B LD A,E 1430/ E8B8 : B2 OR D 1431/ E8B9 : 28 C7 JR Z,REN13 1432/ E8BB : CD C8 E8 CALL RENUP1 1433/ E8BE : C4 FA E8 CALL NZ,RENUP2 1434/ E8C1 : 7E LD A,(HL) 1435/ E8C2 : FE 2C CP "," AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 25 - 4/7/2014 17:44:09 1436/ E8C4 : 20 BC JR NZ,REN13 1437/ E8C6 : 18 EC JR REN16 1438/ E8C8 : 1439/ E8C8 : E5 RENUP1 PUSH HL 1440/ E8C9 : D5 PUSH DE 1441/ E8CA : 11 FF FF LD DE,-1 1442/ E8CD : CD BB C4 CALL 0C4BBH ;n{chste Zeile 1443/ E8D0 : D1 POP DE 1444/ E8D1 : 03 INC BC 1445/ E8D2 : 03 INC BC 1446/ E8D3 : 03 INC BC 1447/ E8D4 : 03 INC BC 1448/ E8D5 : 60 LD H,B 1449/ E8D6 : 69 LD L,C 1450/ E8D7 : ED 4B 52 03 LD BC,(352H) 1451/ E8DB : 7E RUP11 LD A,(HL) 1452/ E8DC : 23 INC HL 1453/ E8DD : E5 PUSH HL 1454/ E8DE : B6 OR (HL) 1455/ E8DF : 28 16 JR Z,RUP13 1456/ E8E1 : 7E LD A,(HL) 1457/ E8E2 : 2B DEC HL 1458/ E8E3 : 6E LD L,(HL) 1459/ E8E4 : 67 LD H,A 1460/ E8E5 : CD 89 C6 CALL 0C689H 1461/ E8E8 : 28 0A JR Z,RUP12 1462/ E8EA : 2A 54 03 LD HL,(354H) 1463/ E8ED : 09 ADD HL,BC 1464/ E8EE : 44 LD B,H 1465/ E8EF : 4D LD C,L 1466/ E8F0 : E1 POP HL 1467/ E8F1 : 23 INC HL 1468/ E8F2 : 18 E7 JR RUP11 1469/ E8F4 : 3E FF RUP12 LD A,0FFH 1470/ E8F6 : B7 OR A 1471/ E8F7 : E1 RUP13 POP HL 1472/ E8F8 : E1 POP HL 1473/ E8F9 : C9 RET 1474/ E8FA : 1475/ E8FA : C5 RENUP2 PUSH BC 1476/ E8FB : EB EX DE,HL 1477/ E8FC : 2A D7 03 LD HL,(3D7H) 1478/ E8FF : ED 52 SBC HL,DE 1479/ E901 : E5 PUSH HL 1480/ E902 : C1 RUP21 POP BC 1481/ E903 : 62 LD H,D 1482/ E904 : 6B LD L,E 1483/ E905 : 1B DEC DE 1484/ E906 : 1A LD A,(DE) 1485/ E907 : FE 2C CP "," 1486/ E909 : 28 0B JR Z,RUP22 1487/ E90B : FE 3A CP ":" 1488/ E90D : 30 07 JR NC,RUP22 1489/ E90F : C5 PUSH BC 1490/ E910 : D5 PUSH DE 1491/ E911 : ED B0 LDIR 1492/ E913 : D1 POP DE 1493/ E914 : 18 EC JR RUP21 1494/ E916 : EB RUP22 EX DE,HL 1495/ E917 : D1 POP DE AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 26 - 4/7/2014 17:44:09 1496/ E918 : E5 PUSH HL 1497/ E919 : C5 PUSH BC 1498/ E91A : AF XOR A 1499/ E91B : 06 98 LD B,98H 1500/ E91D : CD AE D6 CALL 0D6AEH 1501/ E920 : CD 34 D8 CALL 0D834H 1502/ E923 : C1 POP BC 1503/ E924 : D1 POP DE 1504/ E925 : 23 INC HL 1505/ E926 : 13 INC DE 1506/ E927 : 7E RUP23 LD A,(HL) 1507/ E928 : B7 OR A 1508/ E929 : 28 0F JR Z,RUP24 1509/ E92B : C5 PUSH BC 1510/ E92C : E5 PUSH HL 1511/ E92D : EB EX DE,HL 1512/ E92E : 09 ADD HL,BC 1513/ E92F : 54 LD D,H 1514/ E930 : 5D LD E,L 1515/ E931 : 2B DEC HL 1516/ E932 : ED B8 LDDR 1517/ E934 : E1 POP HL 1518/ E935 : ED A0 LDI 1519/ E937 : C1 POP BC 1520/ E938 : 18 ED JR RUP23 1521/ E93A : D5 RUP24 PUSH DE 1522/ E93B : ED 5B 5F 03 LD DE,(35FH) 1523/ E93F : CD 93 C4 CALL 0C493H 1524/ E942 : 23 RUP25 INC HL 1525/ E943 : 7E LD A,(HL) 1526/ E944 : 23 INC HL 1527/ E945 : B6 OR (HL) 1528/ E946 : 20 FA JR NZ,RUP25 1529/ E948 : EB EX DE,HL 1530/ E949 : 73 LD (HL),E 1531/ E94A : 23 INC HL 1532/ E94B : 72 LD (HL),D 1533/ E94C : 13 INC DE 1534/ E94D : 13 INC DE 1535/ E94E : ED 53 D7 03 LD (3D7H),DE 1536/ E952 : E1 POP HL 1537/ E953 : 54 LD D,H 1538/ E954 : 5D LD E,L 1539/ E955 : 7E RUP26 LD A,(HL) 1540/ E956 : B7 OR A 1541/ E957 : 23 INC HL 1542/ E958 : 20 FB JR NZ,RUP26 1543/ E95A : C1 POP BC 1544/ E95B : E3 EX (SP),HL 1545/ E95C : C5 PUSH BC 1546/ E95D : EB EX DE,HL 1547/ E95E : C9 RET 1548/ E95F : 1549/ E95F : DELETE ;Zeile(n) l|schen 1550/ E95F : C8 RET Z 1551/ E960 : CD 86 C9 CALL 0C986H 1552/ E963 : CA 42 C4 JP Z,0C442H 1553/ E966 : CD D6 C8 CALL 0C8D6H 1554/ E969 : D5 PUSH DE 1555/ E96A : CD 86 C9 CALL 0C986H AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 27 - 4/7/2014 17:44:09 1556/ E96D : E1 POP HL 1557/ E96E : C0 RET NZ 1558/ E96F : EB EX DE,HL 1559/ E970 : E5 PUSH HL 1560/ E971 : CD BB C4 CALL 0C4BBH ;n{chste Zeile 1561/ E974 : D2 4D C4 JP NC,0C44DH ;UL-ERROR 1562/ E977 : D1 POP DE 1563/ E978 : F5 PUSH AF 1564/ E979 : C5 PUSH BC 1565/ E97A : CD BE C4 CALL 0C4BEH 1566/ E97D : D2 4D C4 JP NC,0C44DH ;UL-ERROR 1567/ E980 : C1 POP BC 1568/ E981 : C3 50 C4 JP 0C450H ;einsortieren 1569/ E984 : 1570/ E984 : PAUSE ;Programm unterbrechen 1571/ E984 : CD BE C8 CALL 0C8BEH 1572/ E987 : 20 0F JR NZ,PAUS2 1573/ E989 : CD A8 E2 PAUS1 CALL KBDS 1574/ E98C : 30 FB JR NC,PAUS1 1575/ E98E : FE 03 CP 3 ;BRK? 1576/ E990 : C8 RET Z 1577/ E991 : FE 0A CP 0AH ;CUU? 1578/ E993 : 20 F4 JR NZ,PAUS1 1579/ E995 : C3 E4 DD JP 0DDE4H ;Eingabe ASCII 1580/ E998 : CD 21 D4 PAUS2 CALL 0D421H 1581/ E99B : 4F LD C,A 1582/ E99C : 3E 10 PAUS3 LD A,10H ;96 sek. 1583/ E99E : 1E 14 LD E,14H ;WAIT 1584/ E9A0 : CD 15 F0 CALL 0F015H ;PV5 1585/ E9A3 : C5 PUSH BC 1586/ E9A4 : CD A8 E2 CALL KBDS 1587/ E9A7 : C1 POP BC 1588/ E9A8 : 30 0A JR NC,PAUS4 1589/ E9AA : FE 03 CP 3 ;BRK? 1590/ E9AC : C8 RET Z 1591/ E9AD : FE 0A CP 0AH ;CUU? 1592/ E9AF : 20 03 JR NZ,PAUS4 1593/ E9B1 : C3 E4 DD JP 0DDE4H ;Eingabe ASCII 1594/ E9B4 : 0D PAUS4 DEC C 1595/ E9B5 : 20 E5 JR NZ,PAUS3 1596/ E9B7 : C9 RET 1597/ E9B8 : 1598/ E9B8 : BBEEP ;Signalton 1599/ E9B8 : 06 01 LD B,1 ;ohne Angabe 1x 1600/ E9BA : CD BE C8 CALL 0C8BEH 1601/ E9BD : 28 04 JR Z,BBP1 1602/ E9BF : CD 21 D4 CALL 0D421H 1603/ E9C2 : 47 LD B,A ;Anzahl 1604/ E9C3 : 3E 07 BBP1 LD A,7 ;Beep 1605/ E9C5 : 1E 00 LD E,0 ;CRT 1606/ E9C7 : CD 15 F0 CALL 0F015H ;PV5 1607/ E9CA : 10 F7 DJNZ BBP1 1608/ E9CC : C9 RET 1609/ E9CD : 1610/ E9CD : WINDOW ;Fenster einstellen 1611/ E9CD : CD BE C8 CALL 0C8BEH 1612/ E9D0 : 28 65 JR Z,WINDOW1 1613/ E9D2 : E5 PUSH HL 1614/ E9D3 : CD 21 D4 CALL 0D421H 1615/ E9D6 : E3 EX (SP),HL ;in AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 28 - 4/7/2014 17:44:09 1616/ E9D7 : 21 F6 B9 LD HL,WNDFN+90 ;Fenster 9 1617/ E9DA : CD AC EC CALL IRMWR ;erstellen 1618/ E9DD : 23 INC HL 1619/ E9DE : E3 EX (SP),HL 1620/ E9DF : CD D6 C8 CALL 0C8D6H 1621/ E9E2 : CD 21 D4 CALL 0D421H 1622/ E9E5 : E3 EX (SP),HL 1623/ E9E6 : CD AC EC CALL IRMWR 1624/ E9E9 : 23 INC HL 1625/ E9EA : E3 EX (SP),HL 1626/ E9EB : CD D6 C8 CALL 0C8D6H 1627/ E9EE : CD 21 D4 CALL 0D421H 1628/ E9F1 : E3 EX (SP),HL 1629/ E9F2 : CD AC EC CALL IRMWR 1630/ E9F5 : E3 EX (SP),HL 1631/ E9F6 : CD D6 C8 CALL 0C8D6H 1632/ E9F9 : CD 21 D4 CALL 0D421H 1633/ E9FC : E3 EX (SP),HL 1634/ E9FD : 57 LD D,A 1635/ E9FE : CD 18 F0 CALL 0F018H ;IRMON 1636/ EA01 : FE 28 CP 28H 1637/ EA03 : 30 4D JR NC,WINERR 1638/ EA05 : 3A F8 B9 LD A,(WNDFN+92) 1639/ EA08 : 5F LD E,A 1640/ EA09 : FE 28 CP 28H 1641/ EA0B : 30 45 JR NC,WINERR 1642/ EA0D : 7A LD A,D 1643/ EA0E : 93 SUB E 1644/ EA0F : 38 41 JR C,WINERR 1645/ EA11 : 3C INC A 1646/ EA12 : 32 9E B7 LD (WINLG),A 1647/ EA15 : 7B LD A,E 1648/ EA16 : 32 9C B7 LD (WINON),A 1649/ EA19 : 3A F7 B9 LD A,(WNDFN+91) 1650/ EA1C : FE 20 CP 20H 1651/ EA1E : 30 32 JR NC,WINERR 1652/ EA20 : 57 LD D,A 1653/ EA21 : 3A F6 B9 LD A,(WNDFN+90) 1654/ EA24 : FE 20 CP 20H 1655/ EA26 : 30 2A JR NC,WINERR 1656/ EA28 : 5F LD E,A 1657/ EA29 : 7A LD A,D 1658/ EA2A : 93 SUB E 1659/ EA2B : 38 25 JR C,WINERR 1660/ EA2D : 3C INC A 1661/ EA2E : 32 9F B7 LD (WINLG+1),A 1662/ EA31 : 7B LD A,E 1663/ EA32 : 32 9D B7 LD (WINON+1),A 1664/ EA35 : 18 10 JR WINDOW2 1665/ EA37 : E5 WINDOW1 PUSH HL 1666/ EA38 : CD 18 F0 CALL 0F018H ;IRMON 1667/ EA3B : 21 00 01 LD HL,100H 1668/ EA3E : 22 9C B7 LD (WINON),HL 1669/ EA41 : 21 28 1E LD HL,1E28H 1670/ EA44 : 22 9E B7 LD (WINLG),HL 1671/ EA47 : 21 00 00 WINDOW2 LD HL,0 1672/ EA4A : 22 A0 B7 LD (CURSO),HL 1673/ EA4D : CD 1B F0 CALL 0F01BH ;IRMOF 1674/ EA50 : E1 POP HL 1675/ EA51 : C9 RET AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 29 - 4/7/2014 17:44:09 1676/ EA52 : CD 1B F0 WINERR CALL 0F01BH ;IRMOF 1677/ EA55 : 18 2C JR SNERR2 1678/ EA57 : 1679/ EA57 : BLOAD ;MC-Programm laden 1680/ EA57 : E5 PUSH HL 1681/ EA58 : 21 81 B7 LD HL,ARGN 1682/ EA5B : AF XOR A 1683/ EA5C : CD AC EC CALL IRMWR ;ARGN=0 1684/ EA5F : E1 POP HL 1685/ EA60 : 1E 10 LD E,10H ;LOAD 1686/ EA62 : C3 15 F0 JP 0F015H ;PV5 1687/ EA65 : 1688/ EA65 : VPEEK ;Zeichen aus IRM lesen 1689/ EA65 : CD E1 CD CALL 0CDE1H 1690/ EA68 : E3 EX (SP),HL 1691/ EA69 : 11 F3 CD LD DE,0CDF3H ;RET-Adr. 1692/ EA6C : D5 PUSH DE 1693/ EA6D : CD 6F C9 CALL 0C96FH 1694/ EA70 : E5 PUSH HL 1695/ EA71 : 21 00 80 LD HL,8000H;IRM-Offset 1696/ EA74 : 19 ADD HL,DE 1697/ EA75 : 38 03 JR C,VPK ;Error 1698/ EA77 : 3E BF LD A,0BFH 1699/ EA79 : BC CP H 1700/ EA7A : 38 07 VPK JR C,SNERR2 1701/ EA7C : CD B0 EC CALL IRMRD ;lesen 1702/ EA7F : E1 POP HL 1703/ EA80 : C3 E9 D3 JP 0D3E9H 1704/ EA83 : 1705/ EA83 : C3 48 C3 SNERR2 JP 0C348H ;SN-ERROR 1706/ EA86 : 1707/ EA86 : VPOKE ;Zeichen in IRM schreiben 1708/ EA86 : CD 6C C9 CALL 0C96CH 1709/ EA89 : D5 PUSH DE 1710/ EA8A : CD D6 C8 CALL 0C8D6H 1711/ EA8D : CD 21 D4 CALL 0D421H 1712/ EA90 : E3 EX (SP),HL 1713/ EA91 : 11 00 80 LD DE,8000H;IRM-Offset 1714/ EA94 : 19 ADD HL,DE 1715/ EA95 : 38 E3 JR C,VPK ;Error 1716/ EA97 : 57 LD D,A 1717/ EA98 : 3E BF LD A,0BFH 1718/ EA9A : BC CP H 1719/ EA9B : 38 DD JR C,VPK ;nur bis BFFFH 1720/ EA9D : 7A LD A,D 1721/ EA9E : CD AC EC CALL IRMWR ;schreiben 1722/ EAA1 : E1 POP HL 1723/ EAA2 : C9 RET 1724/ EAA3 : 1725/ EAA3 : BORDER ;schaltet Bit 5,6 von PIO-B 1726/ EAA3 : ;(beim KC85/4 RAM8!) 1727/ EAA3 : CD 21 D4 CALL 0D421H 1728/ EAA6 : 0F RRCA 1729/ EAA7 : 0F RRCA 1730/ EAA8 : 0F RRCA 1731/ EAA9 : E6 60 AND 60H ;Auswahl 1732/ EAAB : 4F LD C,A 1733/ EAAC : 06 9F LD B,9FH ;Maske 1734/ EAAE : C3 71 E5 JP TONB 1735/ EAB1 : AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 30 - 4/7/2014 17:44:09 1736/ EAB1 : PRAT ;PRINT AT 1737/ EAB1 : 3A FD 03 LD A,(3FDH) 1738/ EAB4 : CB 4F BIT 1,A 1739/ EAB6 : CB CF SET 1,A 1740/ EAB8 : 32 FD 03 LD (3FDH),A 1741/ EABB : 20 C6 JR NZ,SNERR2 1742/ EABD : D5 PUSH DE 1743/ EABE : E5 PUSH HL 1744/ EABF : CD 18 F0 CALL 0F018H ;IRMON 1745/ EAC2 : 21 9C B7 LD HL,WINON 1746/ EAC5 : 22 F6 B9 LD (WNDFN+90),HL 1747/ EAC8 : 11 EC B9 LD DE,WNDFN+80 1748/ EACB : 01 06 00 LD BC,6 ;Fenster 1749/ EACE : ED B0 LDIR ;retten 1750/ EAD0 : 21 00 00 LD HL,0 ;Fenster gro~ 1751/ EAD3 : 22 9C B7 LD (WINON),HL 1752/ EAD6 : 21 28 20 LD HL,2028H 1753/ EAD9 : 22 9E B7 LD (WINLG),HL 1754/ EADC : CD 1B F0 CALL 0F01BH ;IRMOF 1755/ EADF : E1 POP HL 1756/ EAE0 : CD 5C EB CALL LOCAT 1757/ EAE3 : CD DB C8 CALL 0C8DBH 1758/ EAE6 : CD CC C8 CALL 0C8CCH 1759/ EAE9 : 3B DB ";" 1760/ EAEA : 7E LD A,(HL) 1761/ EAEB : FE DF CP 0DFH 1762/ EAED : 38 1D JR C,PRAT2 ;E2H 1765/ EAF3 : CD ED E6 CALL PREX4 ;INK,PAPER,COLOR 1766/ EAF6 : E5 PRAT1 PUSH HL 1767/ EAF7 : CD 18 F0 CALL 0F018H ;IRMON 1768/ EAFA : 21 EC B9 LD HL,WNDFN+80 1769/ EAFD : 11 9C B7 LD DE,WINON 1770/ EB00 : 01 06 00 LD BC,6 ;Fenster 1771/ EB03 : ED B0 LDIR ;regenerieren 1772/ EB05 : CD 1B F0 CALL 0F01BH ;IRMOF 1773/ EB08 : E1 POP HL 1774/ EB09 : D1 POP DE 1775/ EB0A : C1 POP BC 1776/ EB0B : C9 RET 1777/ EB0C : CD 03 CB PRAT2 CALL 0CB03H 1778/ EB0F : 18 E5 JR PRAT1 1779/ EB11 : 1780/ EB11 : C3 48 C3 SNERR3 JP 0C348H ;SN-ERROR 1781/ EB14 : 1782/ EB14 : INK ;Vordergrundfarbe 1783/ EB14 : CD 21 D4 CALL 0D421H 1784/ EB17 : FE 20 CP 32 1785/ EB19 : 30 F6 JR NC,SNERR3 1786/ EB1B : CB 27 SLA A 1787/ EB1D : CB 27 SLA A 1788/ EB1F : CB 27 SLA A 1789/ EB21 : 57 LD D,A 1790/ EB22 : E5 PUSH HL 1791/ EB23 : 21 A3 B7 LD HL,COLOR 1792/ EB26 : CD B0 EC CALL IRMRD 1793/ EB29 : E1 POP HL 1794/ EB2A : E6 07 AND 7 1795/ EB2C : 18 12 JR COL2 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 31 - 4/7/2014 17:44:09 1796/ EB2E : 1797/ EB2E : PAPER ;Hintergrundfarbe 1798/ EB2E : CD 21 D4 CALL 0D421H 1799/ EB31 : FE 08 CP 8 1800/ EB33 : 30 DC JR NC,SNERR3 1801/ EB35 : 57 LD D,A 1802/ EB36 : E5 PUSH HL 1803/ EB37 : 21 A3 B7 LD HL,COLOR 1804/ EB3A : CD B0 EC CALL IRMRD 1805/ EB3D : E1 POP HL 1806/ EB3E : E6 F8 AND 0F8H 1807/ EB40 : B2 COL2 OR D 1808/ EB41 : E5 PUSH HL 1809/ EB42 : 21 A3 B7 LD HL,COLOR 1810/ EB45 : CD AC EC CALL IRMWR ;neuer Farbwert 1811/ EB48 : E1 POP HL 1812/ EB49 : C9 RET 1813/ EB4A : 1814/ EB4A : BCOLOR ;Farbe einstellen 1815/ EB4A : CD BE C8 CALL 0C8BEH 1816/ EB4D : 28 C2 JR Z,SNERR3 1817/ EB4F : CD 14 EB CALL INK ;Vordergrund 1818/ EB52 : CD BE C8 CALL 0C8BEH 1819/ EB55 : C8 RET Z 1820/ EB56 : CD D6 C8 CALL 0C8D6H 1821/ EB59 : 18 D3 JR PAPER ;Hintergrund 1822/ EB5B : C9 RET ;??? 1823/ EB5C : 1824/ EB5C : LOCAT ;Cursor positionieren 1825/ EB5C : CD BD C8 CALL 0C8BDH 1826/ EB5F : CD CC C8 CALL 0C8CCH 1827/ EB62 : 28 DB "(" 1828/ EB63 : CD 21 D4 LOCATE CALL 0D421H 1829/ EB66 : 57 LD D,A 1830/ EB67 : E5 PUSH HL 1831/ EB68 : 21 9F B7 LD HL,WINLG+1 1832/ EB6B : CD B0 EC CALL IRMRD 1833/ EB6E : E1 POP HL 1834/ EB6F : 3D DEC A 1835/ EB70 : BA CP D 1836/ EB71 : 38 9E JR C,SNERR3 1837/ EB73 : CD D6 C8 CALL 0C8D6H 1838/ EB76 : D5 PUSH DE 1839/ EB77 : CD 21 D4 CALL 0D421H 1840/ EB7A : D1 POP DE 1841/ EB7B : 4F LD C,A 1842/ EB7C : E5 PUSH HL 1843/ EB7D : 21 9E B7 LD HL,WINLG 1844/ EB80 : CD B0 EC CALL IRMRD 1845/ EB83 : E1 POP HL 1846/ EB84 : 3D DEC A 1847/ EB85 : B9 CP C 1848/ EB86 : 38 89 JR C,SNERR3 1849/ EB88 : 79 LD A,C 1850/ EB89 : E5 PUSH HL 1851/ EB8A : 21 A0 B7 LD HL,CURSO 1852/ EB8D : CD AC EC CALL IRMWR 1853/ EB90 : 7A LD A,D 1854/ EB91 : 23 INC HL 1855/ EB92 : CD AC EC LOC1 CALL IRMWR AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 32 - 4/7/2014 17:44:09 1856/ EB95 : E1 POP HL 1857/ EB96 : C9 RET 1858/ EB97 : 1859/ EB97 : INKEY ;Eingabe ein Zeichen 1860/ EB97 : E5 PUSH HL 1861/ EB98 : CD A8 E2 CALL KBDS 1862/ EB9B : 30 0F JR NC,INKEY3 1863/ EB9D : 3E 01 LD A,1 1864/ EB9F : CD 7B D1 CALL 0D17BH 1865/ EBA2 : CD E4 DD CALL 0DDE4H ;Eingabe ASCII 1866/ EBA5 : 2A C2 03 INKEY1 LD HL,(3C2H) 1867/ EBA8 : 77 LD (HL),A 1868/ EBA9 : C3 A9 D1 INKEY2 JP 0D1A9H 1869/ EBAC : AF INKEY3 XOR A 1870/ EBAD : CD 7B D1 CALL 0D17BH 1871/ EBB0 : 18 F7 JR INKEY2 1872/ EBB2 : 1873/ EBB2 : SOUND ;Tonausgabe 1874/ EBB2 : CD 21 D4 CALL 0D421H 1875/ EBB5 : E5 PUSH HL 1876/ EBB6 : 21 82 B7 LD HL,ARG1 1877/ EBB9 : 06 04 LD B,4 ;4 Argumente 1878/ EBBB : CD AC EC SOUND1 CALL IRMWR 1879/ EBBE : 23 INC HL 1880/ EBBF : E3 EX (SP),HL 1881/ EBC0 : 05 DEC B 1882/ EBC1 : 28 0B JR Z,SOUND2 1883/ EBC3 : C5 PUSH BC 1884/ EBC4 : CD D6 C8 CALL 0C8D6H 1885/ EBC7 : CD 21 D4 CALL 0D421H 1886/ EBCA : C1 POP BC 1887/ EBCB : E3 EX (SP),HL 1888/ EBCC : 18 ED JR SOUND1 1889/ EBCE : CD BE C8 SOUND2 CALL 0C8BEH 1890/ EBD1 : 28 1C JR Z,SOUND3 1891/ EBD3 : CD D6 C8 CALL 0C8D6H 1892/ EBD6 : CD 21 D4 CALL 0D421H 1893/ EBD9 : E3 EX (SP),HL 1894/ EBDA : CD AC EC CALL IRMWR 1895/ EBDD : 23 INC HL 1896/ EBDE : E3 EX (SP),HL 1897/ EBDF : CD BE C8 CALL 0C8BEH 1898/ EBE2 : 28 0B JR Z,SOUND3 1899/ EBE4 : CD D6 C8 CALL 0C8D6H 1900/ EBE7 : CD 21 D4 CALL 0D421H 1901/ EBEA : E3 EX (SP),HL 1902/ EBEB : CD AC EC CALL IRMWR 1903/ EBEE : E3 EX (SP),HL 1904/ EBEF : 1E 35 SOUND3 LD E,35H ;TON 1905/ EBF1 : C1 POP BC 1906/ EBF2 : C3 15 F0 JP 0F015H ;PV5 1907/ EBF5 : 1908/ EBF5 : PSET ;Punkt setzen 1909/ EBF5 : 06 01 LD B,1 ;setzen 1910/ EBF7 : C5 POINT PUSH BC 1911/ EBF8 : CD 6C C9 CALL 0C96CH 1912/ EBFB : E5 PUSH HL 1913/ EBFC : 7B LD A,E 1914/ EBFD : 21 D3 B7 LD HL,HOR 1915/ EC00 : CD AC EC CALL IRMWR AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 33 - 4/7/2014 17:44:09 1916/ EC03 : 7A LD A,D 1917/ EC04 : 23 INC HL 1918/ EC05 : CD AC EC CALL IRMWR 1919/ EC08 : E3 EX (SP),HL 1920/ EC09 : CD D6 C8 CALL 0C8D6H 1921/ EC0C : CD 21 D4 CALL 0D421H 1922/ EC0F : E3 EX (SP),HL 1923/ EC10 : 23 INC HL 1924/ EC11 : CD AC EC CALL IRMWR 1925/ EC14 : E1 POP HL 1926/ EC15 : CD 2A EC CALL GFARB 1927/ EC18 : 1E 30 LD E,30H ;PUSE 1928/ EC1A : C1 POP BC 1929/ EC1B : 05 DEC B 1930/ EC1C : 28 01 JR Z,POINT2 1931/ EC1E : 1D DEC E ;PUDE 1932/ EC1F : CD 15 F0 POINT2 CALL 0F015H ;PV5 1933/ EC22 : DA 83 EA JP C,SNERR2 1934/ EC25 : C9 RET 1935/ EC26 : 1936/ EC26 : PRESET ;Punkt l|schen 1937/ EC26 : 06 00 LD B,0 ;l|schen 1938/ EC28 : 18 CD JR POINT 1939/ EC2A : 1940/ EC2A : GFARB ;Grafikfarbe setzen 1941/ EC2A : CD BE C8 CALL 0C8BEH 1942/ EC2D : C8 RET Z 1943/ EC2E : CD D6 C8 CALL 0C8D6H 1944/ EC31 : CD 21 D4 CALL 0D421H 1945/ EC34 : E5 PUSH HL 1946/ EC35 : 21 D6 B7 LD HL,FARB ;Grafik-Farbe 1947/ EC38 : 17 RLA 1948/ EC39 : 17 RLA 1949/ EC3A : 17 RLA 1950/ EC3B : C3 92 EB JP LOC1 ;in IRM schreib. 1951/ EC3E : 1952/ EC3E : INSTR ;String1 in String2 suchen 1953/ EC3E : CD 36 CD CALL 0CD36H ;Klammer auf? 1954/ EC41 : CD D6 C8 CALL 0C8D6H 1955/ EC44 : E5 PUSH HL 1956/ EC45 : CD 30 D3 CALL 0D330H 1957/ EC48 : 28 38 JR Z,INSTR4 1958/ EC4A : 47 LD B,A 1959/ EC4B : 23 INC HL 1960/ EC4C : 23 INC HL 1961/ EC4D : 5E LD E,(HL) 1962/ EC4E : 23 INC HL 1963/ EC4F : 56 LD D,(HL) 1964/ EC50 : E1 POP HL 1965/ EC51 : D5 PUSH DE 1966/ EC52 : C5 PUSH BC 1967/ EC53 : CD 3A CD CALL 0CD3AH 1968/ EC56 : CD DB C8 CALL 0C8DBH ;Klammer zu? 1969/ EC59 : C1 POP BC 1970/ EC5A : D1 POP DE 1971/ EC5B : E5 PUSH HL 1972/ EC5C : D5 PUSH DE 1973/ EC5D : C5 PUSH BC 1974/ EC5E : CD 30 D3 CALL 0D330H 1975/ EC61 : 28 1F JR Z,INSTR4 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 34 - 4/7/2014 17:44:09 1976/ EC63 : 23 INC HL 1977/ EC64 : 23 INC HL 1978/ EC65 : 4E LD C,(HL) 1979/ EC66 : 23 INC HL 1980/ EC67 : 66 LD H,(HL) 1981/ EC68 : 69 LD L,C 1982/ EC69 : C1 POP BC 1983/ EC6A : 4F LD C,A 1984/ EC6B : D1 POP DE 1985/ EC6C : E5 PUSH HL 1986/ EC6D : C5 INSTR0 PUSH BC 1987/ EC6E : D5 PUSH DE 1988/ EC6F : 1A LD A,(DE) 1989/ EC70 : BE INSTR1 CP (HL) 1990/ EC71 : 28 12 JR Z,INSTR5 1991/ EC73 : 23 INC HL 1992/ EC74 : 0D DEC C 1993/ EC75 : 20 F9 JR NZ,INSTR1 1994/ EC77 : AF INSTR2 XOR A 1995/ EC78 : E1 POP HL 1996/ EC79 : E1 POP HL 1997/ EC7A : E1 POP HL 1998/ EC7B : 11 F3 CD INSTR3 LD DE,0CDF3H ;RET-Adr. 1999/ EC7E : D5 PUSH DE 2000/ EC7F : C3 C0 D0 JP 0D0C0H 2001/ EC82 : C3 67 C9 INSTR4 JP 0C967H ;FC-ERROR 2002/ EC85 : 23 INSTR5 INC HL 2003/ EC86 : E5 PUSH HL 2004/ EC87 : 2B DEC HL 2005/ EC88 : 23 INSTR6 INC HL 2006/ EC89 : 0D DEC C 2007/ EC8A : 28 0F JR Z,INSTR7 2008/ EC8C : 13 INC DE 2009/ EC8D : 05 DEC B 2010/ EC8E : 28 12 JR Z,INSTR8 2011/ EC90 : 1A LD A,(DE) 2012/ EC91 : BE CP (HL) 2013/ EC92 : 28 F4 JR Z,INSTR6 2014/ EC94 : E1 POP HL 2015/ EC95 : D1 POP DE 2016/ EC96 : 79 LD A,C 2017/ EC97 : C1 POP BC 2018/ EC98 : 4F LD C,A 2019/ EC99 : 18 D2 JR INSTR0 2020/ EC9B : 13 INSTR7 INC DE 2021/ EC9C : 05 DEC B 2022/ EC9D : E1 POP HL 2023/ EC9E : 20 D7 JR NZ,INSTR2 2024/ ECA0 : 18 01 JR INSTR9 2025/ ECA2 : E1 INSTR8 POP HL 2026/ ECA3 : D1 INSTR9 POP DE 2027/ ECA4 : D1 POP DE 2028/ ECA5 : D1 POP DE 2029/ ECA6 : A7 AND A 2030/ ECA7 : ED 52 SBC HL,DE 2031/ ECA9 : 7D LD A,L 2032/ ECAA : 18 CF JR INSTR3 2033/ ECAC : 2034/ ECAC : 1E 28 IRMWR LD E,28H ;LDMA 2035/ ECAE : 18 10 JR JPV5 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 35 - 4/7/2014 17:44:09 2036/ ECB0 : 2037/ ECB0 : 1E 29 IRMRD LD E,29H ;LDAM 2038/ ECB2 : 18 0C JR JPV5 2039/ ECB4 : 2040/ ECB4 : BKEY ;F-Taste belegen 2041/ ECB4 : CD 21 D4 CALL 0D421H 2042/ ECB7 : A7 AND A 2043/ ECB8 : 28 56 JR Z,SNERR4 2044/ ECBA : FE 0D CP 0DH ;F1...F12 2045/ ECBC : 30 52 JR NC,SNERR4 2046/ ECBE : 1E 39 LD E,39H ;KEY 2047/ ECC0 : C3 15 F0 JPV5 JP 0F015H ;PV5 2048/ ECC3 : 2049/ ECC3 : KEYLIST ;F-Tasten auflisten 2050/ ECC3 : 1E 3A LD E,3AH ;KEYLI 2051/ ECC5 : 18 F9 JR JPV5 2052/ ECC7 : 2053/ ECC7 : SWITCH ;Module schalten 2054/ ECC7 : CD 21 D4 CALL 0D421H 2055/ ECCA : F5 PUSH AF 2056/ ECCB : CD D6 C8 CALL 0C8D6H 2057/ ECCE : CD 21 D4 CALL 0D421H 2058/ ECD1 : 57 LD D,A ;Steuerbyte 2059/ ECD2 : F1 POP AF 2060/ ECD3 : E5 PUSH HL 2061/ ECD4 : 6F LD L,A ;Steckplatz 2062/ ECD5 : 3E 02 LD A,2 ;schalten 2063/ ECD7 : 1E 26 LD E,26H ;MODU 2064/ ECD9 : CD 15 F0 CALL 0F015H ;PV5 2065/ ECDC : E1 POP HL 2066/ ECDD : C9 RET 2067/ ECDE : 2068/ ECDE : PTEST ;Punkt testen 2069/ ECDE : CD E1 CD CALL 0CDE1H 2070/ ECE1 : E3 EX (SP),HL 2071/ ECE2 : 11 F3 CD LD DE,0CDF3H ;RET-Adr. 2072/ ECE5 : D5 PUSH DE 2073/ ECE6 : CD 6F C9 CALL 0C96FH 2074/ ECE9 : E5 PUSH HL 2075/ ECEA : 7B LD A,E ;nur 2076/ ECEB : 21 D3 B7 LD HL,HOR ;X-Koordinate 2077/ ECEE : CD AC EC CALL IRMWR ;eintragen 2078/ ECF1 : 7A LD A,D 2079/ ECF2 : 23 INC HL 2080/ ECF3 : CD AC EC CALL IRMWR 2081/ ECF6 : 1E 2F LD E,2FH ;PUDE 2082/ ECF8 : CD 15 F0 CALL 0F015H ;PV5 2083/ ECFB : 06 00 LD B,0 2084/ ECFD : 28 0C JR Z,PTST1 ;war gel|scht 2085/ ECFF : 23 INC HL 2086/ ED00 : 23 INC HL 2087/ ED01 : CD AC EC CALL IRMWR 2088/ ED04 : 1E 30 LD E,30H ;PUSE 2089/ ED06 : CD 15 F0 CALL 0F015H ;PV5 2090/ ED09 : 06 01 LD B,1 2091/ ED0B : 78 PTST1 LD A,B ;R}ckgabewert 2092/ ED0C : E1 POP HL 2093/ ED0D : C3 E9 D3 JP 0D3E9H 2094/ ED10 : 2095/ ED10 : C3 48 C3 SNERR4 JP 0C348H ;SN-ERROR AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 36 - 4/7/2014 17:44:09 2096/ ED13 : 2097/ ED13 : CLOSE ;Kanal schlie~en 2098/ ED13 : 0E 00 LD C,0 2099/ ED15 : 7E LD A,(HL) 2100/ ED16 : FE 49 CP "I" ;Eingabe? 2101/ ED18 : 28 05 JR Z,CLOS1 2102/ ED1A : 0C INC C 2103/ ED1B : FE 4F CP "O" ;Ausgabe? 2104/ ED1D : 20 F1 JR NZ,SNERR4 2105/ ED1F : C5 CLOS1 PUSH BC 2106/ ED20 : 23 INC HL 2107/ ED21 : 7E LD A,(HL) 2108/ ED22 : FE 23 CP "#" 2109/ ED24 : 20 EA CLOS2 JR NZ,SNERR4 2110/ ED26 : 23 INC HL 2111/ ED27 : CD 21 D4 CALL 0D421H 2112/ ED2A : E6 03 AND 3 ;4 Ger{te 2113/ ED2C : C1 POP BC 2114/ ED2D : C8 RET Z ;Console 2115/ ED2E : E5 PUSH HL > > >CAOS_PROM_3_1.asm(2116): warning: short addressing possible 2116/ ED2F : CB 17 RL A ;*2 2117/ ED31 : 81 ADD A, C ;Ein/Ausgabe 2118/ ED32 : F5 PUSH AF 2119/ ED33 : 3D DEC A 2120/ ED34 : 06 00 LD B,0 2121/ ED36 : 37 SCF 2122/ ED37 : CB 10 CLOS3 RL B ;Bit platzieren 2123/ ED39 : 3D DEC A 2124/ ED3A : 20 FB JR NZ,CLOS3 2125/ ED3C : 21 07 03 LD HL,307H ;E/A-Flag 2126/ ED3F : 7E LD A,(HL) 2127/ ED40 : A8 XOR B ;negieren 2128/ ED41 : 77 LD (HL),A 2129/ ED42 : F1 POP AF 2130/ ED43 : E1 POP HL 2131/ ED44 : CB F7 SET 6,A ;close 2132/ ED46 : D5 PUSH DE 2133/ ED47 : 5F LD E,A 2134/ ED48 : 16 03 LD D,3 2135/ ED4A : CD 0E E0 CALL BASIO 2136/ ED4D : D1 POP DE 2137/ ED4E : C9 RET 2138/ ED4F : 2139/ ED4F : RANDOM ;Zufallsgenerator 2140/ ED4F : ED 5F LD A,R 2141/ ED51 : 32 1D 03 LD (31DH),A 2142/ ED54 : C9 RET 2143/ ED55 : 2144/ ED55 : OPEN ;Kanal |ffnen 2145/ ED55 : 7E LD A,(HL) 2146/ ED56 : 23 INC HL 2147/ ED57 : FE 49 CP "I" ;Eingabe? 2148/ ED59 : 28 19 JR Z,OPEN1 2149/ ED5B : FE 4F CP "O" ;Ausgabe? 2150/ ED5D : 20 C5 JR NZ,CLOS2 2151/ ED5F : CD 25 DE CALL 0DE25H 2152/ ED62 : CD C8 DD CALL 0DDC8H 2153/ ED65 : C8 RET Z 2154/ ED66 : 3E D5 LD A,0D5H AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 37 - 4/7/2014 17:44:09 2155/ ED68 : CD B2 DC CALL 0DCB2H 2156/ ED6B : 21 EA 03 LD HL,3EAH ;Druckpuffer 2157/ ED6E : AF XOR A 2158/ ED6F : CD D5 DD CALL 0DDD5H 2159/ ED72 : E1 POP HL 2160/ ED73 : C9 RET 2161/ ED74 : CD 5F DE OPEN1 CALL 0DE5FH ;Eingabe 2162/ ED77 : 3A 09 03 LD A,(309H);IN-Index 2163/ ED7A : E6 03 AND 3 2164/ ED7C : C8 RET Z 2165/ ED7D : 3E D5 LD A,0D5H 2166/ ED7F : CD B2 DC CALL 0DCB2H 2167/ ED82 : 21 EA 03 LD HL,3EAH ;Druckpuffer 2168/ ED85 : CD E4 DD CALL 0DDE4H ;Eingabe ASCII 2169/ ED88 : E1 POP HL 2170/ ED89 : C9 RET 2171/ ED8A : 2172/ ED8A : BLINE ;Linie zeichnen 2173/ ED8A : 01 3E 04 LD BC,43EH ;4 Par.,LINE 2174/ ED8D : 18 03 JR GRAPH 2175/ ED8F : 2176/ ED8F : CIRCLE ;Kreis zeichnen 2177/ ED8F : 01 3F 03 LD BC,33FH ;3 Par.,CIRCLE 2178/ ED92 : C5 GRAPH PUSH BC 2179/ ED93 : CD 6C C9 CALL 0C96CH 2180/ ED96 : C1 POP BC 2181/ ED97 : C5 PUSH BC 2182/ ED98 : E5 PUSH HL 2183/ ED99 : 21 82 B7 LD HL,ARG1 2184/ ED9C : 7B GRAPH1 LD A,E 2185/ ED9D : CD AC EC CALL IRMWR 2186/ EDA0 : 23 INC HL 2187/ EDA1 : 7A LD A,D 2188/ EDA2 : CD AC EC CALL IRMWR 2189/ EDA5 : 23 INC HL 2190/ EDA6 : 05 DEC B 2191/ EDA7 : 28 0C JR Z,GRAPH2 2192/ EDA9 : E3 EX (SP),HL 2193/ EDAA : C5 PUSH BC 2194/ EDAB : CD D6 C8 CALL 0C8D6H 2195/ EDAE : CD 6C C9 CALL 0C96CH 2196/ EDB1 : C1 POP BC 2197/ EDB2 : E3 EX (SP),HL 2198/ EDB3 : 18 E7 JR GRAPH1 2199/ EDB5 : E1 GRAPH2 POP HL 2200/ EDB6 : CD 2A EC CALL GFARB 2201/ EDB9 : D1 POP DE 2202/ EDBA : C3 15 F0 JP 0F015H ;PV5 2203/ EDBD : 2204/ EDBD : CSRLN ;akt. Zeile holen 2205/ EDBD : CD E1 CD CALL 0CDE1H 2206/ EDC0 : E3 EX (SP),HL 2207/ EDC1 : 11 F3 CD LD DE,0CDF3H ;RET-Adr. 2208/ EDC4 : D5 PUSH DE 2209/ EDC5 : CD 24 D4 CALL 0D424H 2210/ EDC8 : E5 PUSH HL 2211/ EDC9 : A7 AND A 2212/ EDCA : 3E 00 LD A,0 2213/ EDCC : 20 06 JR NZ,CSRLN1 2214/ EDCE : 21 9D B7 LD HL,WINON+1 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 38 - 4/7/2014 17:44:09 2215/ EDD1 : CD B0 EC CALL IRMRD 2216/ EDD4 : 47 CSRLN1 LD B,A 2217/ EDD5 : 21 A1 B7 LD HL,CURSO+1 2218/ EDD8 : CD B0 EC CALL IRMRD 2219/ EDDB : 80 ADD A, B ;akt. Zeile 2220/ EDDC : E1 POP HL 2221/ EDDD : C3 E9 D3 JP 0D3E9H 2222/ EDE0 : 2223/ EDE0 : VGET ;Zeichen von Bildschirm lesen 2224/ EDE0 : E3 EX (SP),HL 2225/ EDE1 : 3E 01 LD A,1 2226/ EDE3 : CD 7B D1 CALL 0D17BH 2227/ EDE6 : CD 18 F0 CALL 0F018H ;IRMON 2228/ EDE9 : ED 5B A0 B7 LD DE,(CURSO) 2229/ EDED : CD 24 E0 CALL DABR 2230/ EDF0 : 7E LD A,(HL) 2231/ EDF1 : CD 1B F0 CALL 0F01BH ;IRMOF 2232/ EDF4 : C3 A5 EB JP INKEY1 ;als Zeichen 2233/ EDF7 : ;zur}ckgeben 2234/ EDF7 : 2235/ EDF7 : FF FF FF FF FF FF DW 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH, 0FFFFH ;frei FF FF FF FF FF FF FF FF FF FF 2236/ EE07 : 2237/ EE07 : ;====================================================== END 2238/ EE07 : ; 2239/ EE07 : ; 2240/ EE07 : 2241/ EE07 : ;CF31 ASM 2242/ EE07 : ;** CAOS 3.1 ROM F ** 2243/ EE07 : 2244/ F000 : ORG 0F000H 2245/ F000 : 2246/ F000 : C3 B7 F0 POWER JP PWRON 2247/ F003 : C3 47 F0 JP PV1 ;m. DEFB nr 2248/ F006 : C3 63 F0 JP PV2 ;(ARGC)=nr 2249/ F009 : C3 77 F0 JP PV3 ;E=nr 2250/ F00C : C3 33 F0 JP PV4 ;E=nr, IRM e/a 2251/ F00F : C3 AC F0 JP RCALL ;m. DEFW offset 2252/ F012 : C3 E5 F0 JP PWR3 ;JUMP-Einsprung 2253/ F015 : C3 27 F0 JP PV5 ;E=nr 2254/ F018 : C3 7A F0 JP IRMON 2255/ F01B : C3 97 F0 JP IRMOF 2256/ F01E : C5 PUSH BC ;PV6, (ARGC)=nr 2257/ F01F : CD 7A F0 CALL IRMON 2258/ F022 : CD 63 F0 CALL PV2 2259/ F025 : 18 07 JR PV51 2260/ F027 : 2261/ F027 : C5 PV5 PUSH BC 2262/ F028 : CD 7A F0 CALL IRMON 2263/ F02B : CD 77 F0 CALL PV3 2264/ F02E : CD 97 F0 PV51 CALL IRMOF 2265/ F031 : C1 POP BC 2266/ F032 : C9 RET 2267/ F033 : 2268/ F033 : F5 PV4 PUSH AF 2269/ F034 : DB 88 IN A,88H 2270/ F036 : CB D7 SET 2,A 2271/ F038 : D3 88 OUT 088H, A ;IRM ein 2272/ F03A : F1 POP AF AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 39 - 4/7/2014 17:44:09 2273/ F03B : CD 77 F0 CALL PV3 2274/ F03E : F5 PUSH AF 2275/ F03F : DB 88 IN A,88H 2276/ F041 : CB 97 RES 2,A 2277/ F043 : D3 88 OUT 088H, A ;IRM aus 2278/ F045 : F1 POP AF 2279/ F046 : C9 RET 2280/ F047 : 2281/ F047 : F3 PV1 DI 2282/ F048 : E5 PUSH HL 2283/ F049 : E1 POP HL 2284/ F04A : E1 POP HL 2285/ F04B : 23 INC HL ;nr }bergehen 2286/ F04C : E5 PUSH HL 2287/ F04D : 2B DEC HL ;(HL)=nr 2288/ F04E : 3B DEC SP 2289/ F04F : 3B DEC SP 2290/ F050 : FB EI 2291/ F051 : F5 PUSH AF 2292/ F052 : D5 PUSH DE 2293/ F053 : 5E LD E,(HL) 2294/ F054 : 16 00 PV22 LD D,0 2295/ F056 : 2A B0 B7 LD HL,(SUTAB) 2296/ F059 : 19 ADD HL,DE 2297/ F05A : 19 ADD HL,DE ;HL=Pos. in Tab 2298/ F05B : 5E LD E,(HL) 2299/ F05C : 23 INC HL 2300/ F05D : 56 LD D,(HL) 2301/ F05E : EB EX DE,HL 2302/ F05F : D1 POP DE 2303/ F060 : F1 POP AF 2304/ F061 : E3 EX (SP),HL 2305/ F062 : C9 RET ;UP anspringen 2306/ F063 : 2307/ F063 : A7 PV2 AND A ;VR: F 2308/ F064 : E5 PV21 PUSH HL 2309/ F065 : D5 PUSH DE 2310/ F066 : C5 PUSH BC 2311/ F067 : E5 PUSH HL 2312/ F068 : 21 FE F1 LD HL,POP3 ;Returnadresse 2313/ F06B : E3 EX (SP),HL ;kellern 2314/ F06C : E5 PUSH HL 2315/ F06D : F5 PUSH AF 2316/ F06E : D5 PUSH DE 2317/ F06F : 38 E3 JR C,PV22 ;falls PV3 2318/ F071 : 3A 80 B7 LD A,(ARGC);sonst E 2319/ F074 : 5F LD E,A ;beschaffen 2320/ F075 : 18 DD JR PV22 2321/ F077 : 2322/ F077 : 37 PV3 SCF ;VR: F 2323/ F078 : 18 EA JR PV21 2324/ F07A : 2325/ F07A : C1 IRMON POP BC ;R}ckkehradr. 2326/ F07B : FD E5 PUSH IY 2327/ F07D : FD 21 00 00 LD IY,0 ;SP in IY merken 2328/ F081 : FD 39 ADD IY,SP ;(kein UP ver- 2329/ F083 : F3 DI ;{ndert IY!) 2330/ F084 : DD 77 0B LD (IX+11),A 2331/ F087 : DB 88 IN A,88H 2332/ F089 : CB D7 SET 2,A ;IRM ein AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 40 - 4/7/2014 17:44:09 2333/ F08B : D3 88 OUT 088H, A 2334/ F08D : ED 7B AE B7 LD SP,(SYSP) 2335/ F091 : FB EI 2336/ F092 : DD 7E 0B LD A,(IX+11) 2337/ F095 : C5 PUSH BC 2338/ F096 : C9 RET ;wie JP (BC) 2339/ F097 : 2340/ F097 : C1 IRMOF POP BC ;analog IRMON 2341/ F098 : DD 77 0B LD (IX+11),A 2342/ F09B : DB 88 IN A,88H 2343/ F09D : CB 97 RES 2,A ;IRM aus 2344/ F09F : F3 DI 2345/ F0A0 : D3 88 OUT 088H, A 2346/ F0A2 : FD F9 LD SP,IY 2347/ F0A4 : FB EI 2348/ F0A5 : DD 7E 0B LD A,(IX+11) 2349/ F0A8 : FD E1 POP IY 2350/ F0AA : C5 PUSH BC 2351/ F0AB : C9 RET 2352/ F0AC : 2353/ F0AC : E3 RCALL EX (SP),HL ;VR: DE 2354/ F0AD : 5E LD E,(HL) 2355/ F0AE : 23 INC HL 2356/ F0AF : 56 LD D,(HL) 2357/ F0B0 : 23 INC HL ;DE=offset 2358/ F0B1 : EB EX DE,HL 2359/ F0B2 : 19 ADD HL,DE ;zur Absolut- 2360/ F0B3 : EB EX DE,HL ;adr. addieren 2361/ F0B4 : E3 EX (SP),HL 2362/ F0B5 : D5 PUSH DE 2363/ F0B6 : C9 RET ;wie JP (DE) 2364/ F0B7 : 2365/ F0B7 : PWRON ;Einschalt-Init 2366/ F0B7 : 31 C4 01 LD SP,1C4H 2367/ F0BA : AF XOR A 2368/ F0BB : 6F LD L,A 2369/ F0BC : 67 LD H,A 2370/ F0BD : 47 LD B,A 2371/ F0BE : 4F LD C,A 2372/ F0BF : 77 PWR1 LD (HL),A ;Speicher 2373/ F0C0 : ED A1 CPI ;l|schen 2374/ F0C2 : EA BF F0 JP PE,PWR1 2375/ F0C5 : 01 80 FF LD BC,0FF80H 2376/ F0C8 : ED B3 OTIR ;Module aus 2377/ F0CA : 06 08 LD B,8 2378/ F0CC : ED 78 IN A,(C) 2379/ F0CE : FE F4 CP 0F4H ;M022 in 08? 2380/ F0D0 : 20 0B JR NZ,PWR2 2381/ F0D2 : 3E 02 LD A,2 2382/ F0D4 : 68 LD L,B 2383/ F0D5 : 16 43 LD D,43H ;als RAM4 2384/ F0D7 : CD F4 E2 CALL MODU ;zuschalten 2385/ F0DA : CD C3 E2 CALL ERAM4 ;RAM4 l|schen 2386/ F0DD : 16 03 PWR2 LD D,3 2387/ F0DF : 21 B8 F3 LD HL,IOTAB 2388/ F0E2 : CD BC E2 CALL INIME ;Ports init 2389/ F0E5 : F3 PWR3 DI 2390/ F0E6 : CD 57 F3 CALL SYSI ;IRM init 2391/ F0E9 : 3E 0C LD A,0CH 2392/ F0EB : CD 2B F7 CALL CRT ;CLS AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 41 - 4/7/2014 17:44:09 2393/ F0EE : 21 9D B7 LD HL,WINON+1 2394/ F0F1 : 34 INC (HL) ;ab Zeile 1 2395/ F0F2 : 23 INC HL 2396/ F0F3 : 23 INC HL 2397/ F0F4 : 35 DEC (HL) ;bis Zeile 30 2398/ F0F5 : 35 DEC (HL) 2399/ F0F6 : 01 80 08 LD BC,880H ;ROM-Modul mit 2400/ F0F9 : ED 78 IN A,(C) ;Strukturbyte 2401/ F0FB : 3D DEC A ;01? 2402/ F0FC : 20 12 JR NZ,MEN0 ;nein 2403/ F0FE : 68 LD L,B 2404/ F0FF : 16 43 LD D,43H ;auf 4000H 2405/ F101 : 3E 02 LD A,2 ;zuschalten 2406/ F103 : CD F4 E2 CALL MODU 2407/ F106 : C3 00 40 JP 4000H ;anspringen 2408/ F109 : 2409/ F109 : 7F 7F DW 7F7FH 2410/ F10B : 4D 45 4E 55 01 DB "MENU",1 2411/ F110 : CD C6 F1 MEN0 CALL OSTR 2412/ F113 : 0C DB 0CH 2413/ F114 : 2A 20 48 43 2D 43 DB "* HC-CAOS 3.1 *" 41 4F 53 20 33 2E 31 20 2A 2414/ F123 : 0A 0D 00 DB LF,CR,0 2415/ F126 : 21 00 00 MEN1 LD HL,0 2416/ F129 : 4D LD C,L 2417/ F12A : 44 LD B,H 2418/ F12B : CD C6 F1 MENU CALL OSTR ;**46** 2419/ F12E : 0D 02 25 00 DB CR,2,"%",0 2420/ F132 : CD 3E F4 CALL BRKT 2421/ F135 : 38 2A JR C,LOOP1 2422/ F137 : DD 7E 09 LD A,(IX+9) 2423/ F13A : ED B1 MEN2 CPIR 2424/ F13C : E2 61 F1 JP PO,LOOP1;ausgesucht 2425/ F13F : ED A1 CPI ;2. Mal? 2426/ F141 : 20 F7 JR NZ,MEN2 2427/ F143 : 7E MEN3 LD A,(HL) 2428/ F144 : FE 02 CP 2 ;Epilog? 2429/ F146 : 38 0F JR C,MEN4 2430/ F148 : FE 30 CP 30H ;<30h? 2431/ F14A : 38 DF JR C,MENU 2432/ F14C : FE 5F CP 5FH ;>5Fh, Kleinb.? 2433/ F14E : 30 DB JR NC,MENU 2434/ F150 : CD EF F1 CALL OCHR 2435/ F153 : 23 INC HL 2436/ F154 : 0B DEC BC 2437/ F155 : 18 EC JR MEN3 2438/ F157 : CD D7 F2 MEN4 CALL CRLF 2439/ F15A : 18 CF JR MENU 2440/ F15C : 2441/ F15C : CD C6 F1 LOOP CALL OSTR ;**12** 2442/ F15F : 25 00 DB "%",0 ;Prompt 2443/ F161 : CD A4 F2 LOOP1 CALL INLIN 2444/ F164 : 13 INC DE ;Zeichen danach 2445/ F165 : 1A LD A,(DE) 2446/ F166 : FE 20 CP " " 2447/ F168 : 28 F2 JR Z,LOOP 2448/ F16A : A7 AND A 2449/ F16B : 28 EF JR Z,LOOP 2450/ F16D : DD 7E 09 LD A,(IX+9) AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 42 - 4/7/2014 17:44:09 2451/ F170 : CD 97 F1 CALL MSUCH 2452/ F173 : 30 07 JR NC,LOOP2;nicht gef. 2453/ F175 : E5 PUSH HL 2454/ F176 : CD 38 F3 CALL GARG ;Argumente 2455/ F179 : 30 06 JR NC,LOOP3 2456/ F17B : E1 POP HL 2457/ F17C : CD CD F2 LOOP2 CALL ERRM 2458/ F17F : 18 DB JR LOOP 2459/ F181 : 21 5C F1 LOOP3 LD HL,LOOP ;R}ckkehradr. 2460/ F184 : E3 EX (SP),HL ;kellern 2461/ F185 : E5 PUSH HL 2462/ F186 : CD 4C F4 CALL LARG 2463/ F189 : E3 EX (SP),HL 2464/ F18A : 7E LD A,(HL) ;Epilog 2465/ F18B : A7 AND A 2466/ F18C : 20 06 JR NZ,LOOP4 2467/ F18E : DB 88 IN A,88H 2468/ F190 : CB 97 RES 2,A ;IRM off 2469/ F192 : D3 88 OUT 088H, A 2470/ F194 : 23 LOOP4 INC HL ;Epilog 2471/ F195 : E3 EX (SP),HL ;}bergehen 2472/ F196 : C9 RET 2473/ F197 : 2474/ F197 : 01 00 00 MSUCH LD BC,0 2475/ F19A : 21 00 00 LD HL,0 2476/ F19D : F5 ZSUCH PUSH AF ;**1D** 2477/ F19E : F1 ZS1 POP AF 2478/ F19F : F5 PUSH AF 2479/ F1A0 : ED B1 ZS2 CPIR 2480/ F1A2 : E2 C3 F1 JP PO,ZS6 ;ausgesucht 2481/ F1A5 : ED A1 CPI 2482/ F1A7 : 20 F7 JR NZ,ZS2 ;falsch 2483/ F1A9 : D5 PUSH DE 2484/ F1AA : 1A ZS3 LD A,(DE) 2485/ F1AB : 13 INC DE 2486/ F1AC : FE 21 CP "!" ;keine SPC und 2487/ F1AE : 38 07 JR C,ZS4 ;Steuerzeichen 2488/ F1B0 : ED A1 CPI 2489/ F1B2 : 28 F6 JR Z,ZS3 2490/ F1B4 : D1 POP DE 2491/ F1B5 : 18 E7 JR ZS1 2492/ F1B7 : 3E 01 ZS4 LD A,1 2493/ F1B9 : BE CP (HL) ;Epilog? 2494/ F1BA : 30 03 JR NC,ZS5 2495/ F1BC : D1 POP DE 2496/ F1BD : 18 DF JR ZS1 2497/ F1BF : F1 ZS5 POP AF 2498/ F1C0 : F1 POP AF 2499/ F1C1 : 37 SCF ;CY=1 2500/ F1C2 : C9 RET 2501/ F1C3 : F1 ZS6 POP AF 2502/ F1C4 : A7 AND A ;CY=0 2503/ F1C5 : C9 RET 2504/ F1C6 : 2505/ F1C6 : E3 OSTR EX (SP),HL ;**23** 2506/ F1C7 : CD 78 E5 CALL ZKOUT 2507/ F1CA : E3 EX (SP),HL 2508/ F1CB : C9 NOT RET 2509/ F1CC : 2510/ F1CC : CD DC F1 NORM CALL NIN ;**13** AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 43 - 4/7/2014 17:44:09 2511/ F1CF : 21 FE FD NOUT LD HL,ZEI0 ;**20** 2512/ F1D2 : E5 SOUT PUSH HL ;**1E** 2513/ F1D3 : 2A B9 B7 LD HL,(OUTAB) 2514/ F1D6 : E3 EX (SP),HL 2515/ F1D7 : 22 B9 B7 LD (OUTAB),HL 2516/ F1DA : E1 POP HL 2517/ F1DB : C9 RET 2518/ F1DC : 2519/ F1DC : 21 37 F9 NIN LD HL,BUPTAB ;**21** 2520/ F1DF : E5 SIN PUSH HL ;**1F** 2521/ F1E0 : 2A BB B7 LD HL,(INTAB) 2522/ F1E3 : E3 EX (SP),HL 2523/ F1E4 : 22 BB B7 LD (INTAB),HL 2524/ F1E7 : E1 POP HL 2525/ F1E8 : C9 RET 2526/ F1E9 : 2527/ F1E9 : E5 INTB PUSH HL ;**16** 2528/ F1EA : 2A BB B7 LD HL,(INTAB) 2529/ F1ED : 18 04 JR INTA1 2530/ F1EF : E5 OCHR PUSH HL ;**24** 2531/ F1F0 : 2A B9 B7 LD HL,(OUTAB) 2532/ F1F3 : D5 INTA1 PUSH DE ;s.a. PV1 2533/ F1F4 : C5 PUSH BC ;(sehr {hnlich) 2534/ F1F5 : F5 PUSH AF 2535/ F1F6 : 7E LD A,(HL) 2536/ F1F7 : 32 80 B7 LD (ARGC),A 2537/ F1FA : F1 POP AF 2538/ F1FB : CD 63 F0 CALL PV2 2539/ F1FE : C1 POP3 POP BC 2540/ F1FF : D1 POP DE 2541/ F200 : E1 POP HL 2542/ F201 : C9 RET 2543/ F202 : 2544/ F202 : 3D WTUP DEC A ;UP f}r WAIT 2545/ F203 : C8 RET Z 2546/ F204 : F5 PUSH AF 2547/ F205 : F1 POP AF 2548/ F206 : 18 FA JR WTUP 2549/ F208 : 2550/ F208 : 47 WAIT LD B,A ;**14** 2551/ F209 : AF XOR A 2552/ F20A : CD 02 F2 WAIT1 CALL WTUP 2553/ F20D : 10 FB DJNZ WAIT1 2554/ F20F : C9 RET 2555/ F210 : 2556/ F210 : CD BE FD KBD CALL CUCP ;**04** 2557/ F213 : E5 PUSH HL 2558/ F214 : C5 PUSH BC 2559/ F215 : DD CB 08 76 BIT 6,(IX+8);F-Taste aktiv? 2560/ F219 : 20 42 JR NZ,KBD6;ja 2561/ F21B : CD 9F E2 KBD1 CALL KBDZ 2562/ F21E : 30 FB JR NC,KBD1 2563/ F220 : FE F1 CP 0F1H ;F-Taste? 2564/ F222 : 38 19 JR C,KBD4 2565/ F224 : DD CB 08 F6 SET 6,(IX+8);ja - merken 2566/ F228 : D6 F0 SUB 0F0H 2567/ F22A : 47 LD B,A 2568/ F22B : 21 00 B9 LD HL,0B900H 2569/ F22E : 7E KBD2 LD A,(HL) ;Pos. in F- 2570/ F22F : A7 AND A ;Puffer best. AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 44 - 4/7/2014 17:44:09 2571/ F230 : 23 INC HL 2572/ F231 : 20 FB JR NZ,KBD2 2573/ F233 : 10 F9 DJNZ KBD2 2574/ F235 : 7E LD A,(HL) ;erstes CHR 2575/ F236 : A7 AND A 2576/ F237 : 28 29 JR Z,KBD7 ;F-Taste frei 2577/ F239 : 23 INC HL 2578/ F23A : 22 D1 B7 KBD3 LD (FTAST),HL;Zeiger 2579/ F23D : DD CB 08 6E KBD4 BIT 5,(IX+8);Click ein? 2580/ F241 : 28 15 JR Z,KBD5 2581/ F243 : 21 19 00 LD HL,19H 2582/ F246 : 01 0F 00 LD BC,0FH 2583/ F249 : 5C LD E,H 2584/ F24A : F5 PUSH AF 2585/ F24B : CD 2A E5 CALL TON1 ;Tastenclick 2586/ F24E : 3E 0F LD A,0FH 2587/ F250 : CD 08 F2 CALL WAIT 2588/ F253 : 3E 03 LD A,3 2589/ F255 : D3 8C OUT 08CH, A ;Ton aus 2590/ F257 : F1 POP AF 2591/ F258 : C1 KBD5 POP BC 2592/ F259 : E1 POP HL 2593/ F25A : C3 BE FD JP CUCP 2594/ F25D : ; 2595/ F25D : CD 3E F4 KBD6 CALL BRKT ;Abbruch? 2596/ F260 : 30 06 JR NC,KBD8 2597/ F262 : DD CB 08 B6 KBD7 RES 6,(IX+8);F-Taste inaktiv 2598/ F266 : 18 B3 JR KBD1 2599/ F268 : ; 2600/ F268 : 2A D1 B7 KBD8 LD HL,(FTAST);Zeiger auf 2601/ F26B : 7E LD A,(HL) ;n{chstes CHR 2602/ F26C : 23 INC HL 2603/ F26D : A7 AND A ;Ende? 2604/ F26E : 20 CA JR NZ,KBD3 2605/ F270 : 18 F0 JR KBD7 2606/ F272 : 2607/ F272 : KCTAB ;IRM-Defaulttabelle 2608/ F272 : CB F1 DW NOT ;Hardcopy 2609/ F274 : 00 DB 0 ;WINNR 2610/ F275 : 00 00 DW 0 ;WINON 2611/ F277 : 28 20 DW 2028H ;WINLG 2612/ F279 : 00 00 DW 0 ;CURSO 2613/ F27B : 00 DB 0 ;STBT 2614/ F27C : 39 DB 39H ;COLOR 2615/ F27D : 83 F7 DW SCRLPG ;WEND 2616/ F27F : 00 EE DW 0EE00H ;CCTL0 2617/ F281 : 00 FE DW 0FE00H ;1 2618/ F283 : 00 EE DW 0EE00H ;2 2619/ F285 : 00 FE DW 0FE00H ;3 2620/ F287 : C4 01 DW 01C4H ;SYSP 2621/ F289 : D4 F5 DW SUTB ;SUTAB 2622/ F28B : C4 F8 DW CRTTAB ;CTAB 2623/ F28D : D3 88 OUT 088H, A ;BJUMP 2624/ F28F : C3 12 F0 JP 0F012H 2625/ F292 : FE FD DW ZEI0 ;OUTAB 2626/ F294 : 02 FE DW ZEI4 ;INTAB 2627/ F296 : C3 CB F1 JP NOT ;UOUT1 2628/ F299 : C3 CB F1 JP NOT ;UIN1 2629/ F29C : C3 CB F1 JP NOT ;UOUT2 2630/ F29F : C3 CB F1 JP NOT ;UIN2 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 45 - 4/7/2014 17:44:09 2631/ F2A2 : 82 DC DW 0DC82H ;IOERR (BASIC) 2632/ F2A4 : 2633/ F2A4 : E5 INLIN PUSH HL ;**17** 2634/ F2A5 : CD E9 F1 INLI1 CALL INTB 2635/ F2A8 : CD EF F1 CALL OCHR 2636/ F2AB : FE 0D CP CR ;Enter? 2637/ F2AD : 20 F6 JR NZ,INLI1 2638/ F2AF : CD D7 F2 CALL CRLF 2639/ F2B2 : ED 5B A0 B7 LD DE,(CURSO) 2640/ F2B6 : CD 24 E0 CALL DABR 2641/ F2B9 : 11 D8 FF LD DE,-40 2642/ F2BC : 19 ADD HL,DE 2643/ F2BD : EB EX DE,HL 2644/ F2BE : E1 POP HL 2645/ F2BF : C9 RET 2646/ F2C0 : 2647/ F2C0 : 7C HLHX LD A,H ;**1A** 2648/ F2C1 : CD E2 F2 CALL AHEX 2649/ F2C4 : 7D LD A,L 2650/ F2C5 : CD E2 F2 CALL AHEX 2651/ F2C8 : 3E 20 SPACE LD A,20H ;**2B** 2652/ F2CA : C3 EF F1 SPAC0 JP OCHR 2653/ F2CD : 2654/ F2CD : CD C6 F1 ERRM CALL OSTR ;**19** 2655/ F2D0 : 45 52 52 4F 52 07 DB "ERROR",7,0 00 2656/ F2D7 : ; 2657/ F2D7 : CD C6 F1 CRLF CALL OSTR ;**2C** 2658/ F2DA : 0D 0A 00 DB CR,LF,0 2659/ F2DD : C9 RET 2660/ F2DE : 2661/ F2DE : 3E 10 HOME LD A,10H ;**2D** 2662/ F2E0 : 18 E8 JR SPAC0 2663/ F2E2 : 2664/ F2E2 : F5 AHEX PUSH AF ;**1C** 2665/ F2E3 : 1F RRA ;Tetradentausch 2666/ F2E4 : 1F RRA 2667/ F2E5 : 1F RRA 2668/ F2E6 : 1F RRA 2669/ F2E7 : CD EB F2 CALL AHEX0 ;erst rufen, 2670/ F2EA : F1 POP AF ;dann reinlaufen 2671/ F2EB : AHEX0 2672/ F2EB : E6 0F AND 0FH ;Maske 2673/ F2ED : C6 30 ADD A, 030H 2674/ F2EF : FE 3A CP 3AH 2675/ F2F1 : 38 D7 JR C, SPAC0 ;0..9 2676/ F2F3 : C6 07 ADD A, 007H 2677/ F2F5 : 18 D3 JR SPAC0 ;A..F 2678/ F2F7 : 2679/ F2F7 : CD FA F2 HLDE CALL HLDE1 ;**1B** 2680/ F2FA : CD C0 F2 HLDE1 CALL HLHX 2681/ F2FD : EB EX DE,HL 2682/ F2FE : C9 RET 2683/ F2FF : 2684/ F2FF : 1A RHEX LD A,(DE) ;**18** 2685/ F300 : FE 20 CP " " ;Trennzeichen 2686/ F302 : 13 INC DE ;}bergehen 2687/ F303 : 28 FA JR Z,RHEX 2688/ F305 : 1B DEC DE 2689/ F306 : 21 00 00 LD HL,0 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 46 - 4/7/2014 17:44:09 2690/ F309 : 22 97 B7 LD (NUMVX),HL 2691/ F30C : AF XOR A 2692/ F30D : 21 96 B7 LD HL,NUMNX 2693/ F310 : 77 LD (HL),A 2694/ F311 : 1A RH1 LD A,(DE) 2695/ F312 : B7 OR A ;Ende-Dummy? 2696/ F313 : C8 RET Z 2697/ F314 : FE 20 CP " " ;Ende-Space? 2698/ F316 : C8 RET Z 2699/ F317 : D6 30 SUB "0" 2700/ F319 : D8 RET C 2701/ F31A : FE 0A CP 10 2702/ F31C : 38 0B JR C,RH2 2703/ F31E : D6 07 SUB 7 2704/ F320 : FE 0A CP 10 2705/ F322 : D8 RET C 2706/ F323 : FE 10 CP 10H 2707/ F325 : 38 02 JR C,RH2 2708/ F327 : 37 SCF 2709/ F328 : C9 RET 2710/ F329 : 13 RH2 INC DE 2711/ F32A : 34 INC (HL) ;NUMNX erh|hen 2712/ F32B : 23 INC HL 2713/ F32C : ED 6F RLD ;Tetrade 2714/ F32E : 23 INC HL ;durchschieben 2715/ F32F : ED 6F RLD 2716/ F331 : 2B DEC HL 2717/ F332 : 2B DEC HL ;RLD setzt auch 2718/ F333 : 28 DC JR Z,RH1 ;Z-Flag! 2719/ F335 : 1B DEC DE 2720/ F336 : 37 SCF ;Zahl zu gro~ 2721/ F337 : C9 RET 2722/ F338 : 2723/ F338 : GARG ;bis 10 Arg. erfassen ;**22** 2724/ F338 : 01 81 B7 LD BC,ARGN 2725/ F33B : AF XOR A 2726/ F33C : 02 LD (BC),A ;(ARGN)=0 2727/ F33D : CD FF F2 GARG1 CALL RHEX 2728/ F340 : D8 RET C ;Fehler 2729/ F341 : 7E LD A,(HL) 2730/ F342 : B7 OR A 2731/ F343 : C8 RET Z ;Ende-Dummy 2732/ F344 : 23 INC HL 2733/ F345 : 03 INC BC 2734/ F346 : 7E LD A,(HL) ;L(NUMVX) 2735/ F347 : 02 LD (BC),A ;L(Argument) 2736/ F348 : 23 INC HL 2737/ F349 : 03 INC BC 2738/ F34A : 7E LD A,(HL) ;H(NUMVX) 2739/ F34B : 02 LD (BC),A ;H(Argument) 2740/ F34C : 21 81 B7 LD HL,ARGN 2741/ F34F : 34 INC (HL) 2742/ F350 : 7E LD A,(HL) 2743/ F351 : FE 0B CP 11 ;10 Argumente? 2744/ F353 : 38 E8 JR C,GARG1 2745/ F355 : 37 SCF ;zu viele 2746/ F356 : C9 RET 2747/ F357 : 2748/ F357 : 11 99 B7 SYSI LD DE,HCADR 2749/ F35A : 21 72 F2 LD HL,KCTAB AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 47 - 4/7/2014 17:44:09 2750/ F35D : 01 32 00 LD BC,32H 2751/ F360 : ED B0 LDIR ;IRM init 2752/ F362 : AF XOR A 2753/ F363 : CD 70 FC CALL WINAK ;Fenster 0 init. 2754/ F366 : 21 9C B9 LD HL,WNDFN 2755/ F369 : 11 A6 B9 LD DE,WNDFN+10 2756/ F36C : 01 5A 00 LD BC,90 2757/ F36F : ED B0 LDIR ;Fenster 1..9 2758/ F371 : 3E 01 LD A,1 2759/ F373 : ; 2760/ F373 : 21 93 E2 SIXD LD HL,ISRTAB ;**31** 2761/ F376 : 32 D7 B7 LD (MIXIT),A 2762/ F379 : 1E E4 LD E,0E4H 2763/ F37B : 57 LD D,A 2764/ F37C : 7B LD A,E 2765/ F37D : 01 0C 00 LD BC,12 ;Interrupttab. 2766/ F380 : ED B0 LDIR ;kopieren 2767/ F382 : C6 12 ADD A, 012H 2768/ F384 : 5F LD E, A 2769/ F385 : D5 PUSH DE ;IX-Arbeitsber. 2770/ F386 : DD E1 POP IX 2771/ F388 : DD 36 08 88 LD (IX+8),88H 2772/ F38C : DD 36 09 7F LD (IX+9),7FH 2773/ F390 : DD 36 0E 13 LD (IX+14),lo(KTAB) ;Low 2774/ F394 : DD 36 0F E2 LD (IX+15),hi(KTAB);High 2775/ F398 : F3 INIT DI 2776/ F399 : F5 PUSH AF 2777/ F39A : D5 PUSH DE 2778/ F39B : E5 PUSH HL 2779/ F39C : ED 5E IM 2 2780/ F39E : 3A D7 B7 LD A,(MIXIT) 2781/ F3A1 : ED 47 LD I,A 2782/ F3A3 : 16 05 LD D,5 2783/ F3A5 : 21 C3 F3 LD HL,IOTAB2 2784/ F3A8 : CD BC E2 CALL INIME ;Kan{le init. 2785/ F3AB : E1 POP HL 2786/ F3AC : D1 POP DE 2787/ F3AD : F1 POP AF 2788/ F3AE : FB EI 2789/ F3AF : DD 36 05 00 LD (IX+5),lo(CASS) ;Low 2790/ F3B3 : DD 36 06 B7 LD (IX+6),hi(CASS) ;High 2791/ F3B7 : C9 RET 2792/ F3B8 : 2793/ F3B8 : 8A IOTAB DB 8AH ;PIO-A-Steuerw. 2794/ F3B9 : 02 DB 2 2795/ F3BA : E4 DB 0E4H ;Int-Vektor 2796/ F3BB : 4F DB 4FH ;Byte-IN 2797/ F3BC : 88 DB 88H ;PIO-A-Daten 2798/ F3BD : 01 DB 1 2799/ F3BE : 9F DB 9FH ;IRM ein... 2800/ F3BF : 8A DB 8AH ;PIO-A-Steuerw. 2801/ F3C0 : 02 DB 2 2802/ F3C1 : 0F DB 0FH ;Byte-OUT 2803/ F3C2 : 03 DB 3 ;DI 2804/ F3C3 : 2805/ F3C3 : 8B IOTAB2 DB 8BH ;PIO-B-Steuerw. 2806/ F3C4 : 03 DB 3 2807/ F3C5 : 0F DB 0FH ;Byte-OUT 2808/ F3C6 : 83 DB 83H ;EI 2809/ F3C7 : E6 DB 0E6H ;Int-Vektor AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 48 - 4/7/2014 17:44:09 2810/ F3C8 : 89 DB 89H ;PIO-B-Daten 2811/ F3C9 : 01 DB 1 2812/ F3CA : 9F DB 9FH ;Daten 2813/ F3CB : 8C DB 8CH ;CTC0 2814/ F3CC : 01 DB 1 2815/ F3CD : E8 DB 0E8H ;Int-Vektor 2816/ F3CE : 8E DB 8EH ;CTC2 (blinken) 2817/ F3CF : 02 DB 2 2818/ F3D0 : 47 DB 47H ;DI,Z{hler,RES 2819/ F3D1 : 14 DB 14H ;Zeitkonstante 2820/ F3D2 : 8A DB 8AH ;PIO-A-Daten 2821/ F3D3 : 01 DB 1 2822/ F3D4 : E4 DB 0E4H ;Int-Vektor 2823/ F3D5 : ; 2824/ F3D5 : 7F 7F DW 7F7FH 2825/ F3D7 : 53 41 56 45 01 DB "SAVE",1 2826/ F3DC : CD C6 F1 CALL OSTR 2827/ F3DF : 4E 41 4D 45 20 3A DB "NAME :",0 00 2828/ F3E6 : CD A4 F2 CALL INLIN 2829/ F3E9 : 21 06 00 LD HL,6 ;'NAME :' 2830/ F3EC : 19 ADD HL,DE ;}bergehen 2831/ F3ED : ; 2832/ F3ED : 11 00 B7 SAVE LD DE,CASS ;**36** 2833/ F3F0 : 01 0B 00 LD BC,11 2834/ F3F3 : ED B0 LDIR ;Name -> Puffer 2835/ F3F5 : EB EX DE,HL 2836/ F3F6 : 36 00 LD (HL),0 ;Abschlu~-Null 2837/ F3F8 : 21 81 B7 LD HL,ARGN 2838/ F3FB : 7E LD A,(HL) 2839/ F3FC : FE 02 CP 2 ;mind 2 Arg.! 2840/ F3FE : D8 RET C 2841/ F3FF : 11 10 B7 LD DE,CASS+10H 2842/ F402 : 0E 15 LD C,15H ;alle Argumente 2843/ F404 : ED B0 LDIR ;nach Puffer 2844/ F406 : CD 6A E3 CALL ISRO 2845/ F409 : 2A 82 B7 LD HL,(ARG1) 2846/ F40C : DD 75 05 SAV1 LD (IX+5),L 2847/ F40F : DD 74 06 LD (IX+6),H 2848/ F412 : DD 7E 02 LD A,(IX+2) 2849/ F415 : CD E2 F2 CALL AHEX ;Blocknummer 2850/ F418 : CD C6 F1 CALL OSTR 2851/ F41B : 20 20 00 DB " ",0 2852/ F41E : CD 3E F4 CALL BRKT 2853/ F421 : 01 A0 00 LD BC,0A0H 2854/ F424 : 38 12 JR C,SAV2 2855/ F426 : 11 80 00 LD DE,80H 2856/ F429 : 19 ADD HL,DE 2857/ F42A : ED 5B 84 B7 LD DE,(ARG2) 2858/ F42E : A7 AND A 2859/ F42F : ED 52 SBC HL,DE ;Ende erreicht? 2860/ F431 : 30 05 JR NC,SAV2 2861/ F433 : CD 76 E3 CALL MBO 2862/ F436 : 18 D4 JR SAV1 2863/ F438 : ; 2864/ F438 : CD D7 F2 SAV2 CALL CRLF 2865/ F43B : C3 F6 E3 JP CSRO 2866/ F43E : 2867/ F43E : CD A8 E2 BRKT CALL KBDS ;**2A** 2868/ F441 : D0 RET NC AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 49 - 4/7/2014 17:44:09 2869/ F442 : FE 03 CP 3 ;Break? 2870/ F444 : 37 SCF 2871/ F445 : C8 RET Z 2872/ F446 : A7 AND A 2873/ F447 : C9 RET 2874/ F448 : 2875/ F448 : DD 36 09 7F LD (IX+9),7FH 2876/ F44C : ED 4B 86 B7 LARG LD BC,(ARG3) ;**15** 2877/ F450 : ED 5B 84 B7 LD DE,(ARG2) 2878/ F454 : 2A 82 B7 LD HL,(ARG1) 2879/ F457 : 3A 81 B7 LD A,(ARGN) 2880/ F45A : C9 RET 2881/ F45B : 2882/ F45B : 2883/ F45B : 7F 7F DW 7F7FH 2884/ F45D : 56 45 52 49 46 59 DB "VERIFY",1 01 2885/ F464 : DD CB 07 86 VERIF RES 0,(IX+7) ;**11** 2886/ F468 : 18 0B JR LOAD0 2887/ F46A : 2888/ F46A : 7F 7F DW 7F7FH 2889/ F46C : 4C 4F 41 44 01 DB "LOAD",1 2890/ F471 : DD CB 07 C6 LOAD SET 0,(IX+7) ;**10** 2891/ F475 : CD 15 E4 LOAD0 CALL ISRI 2892/ F478 : DD 7E 02 LOAD1 LD A,(IX+2) 2893/ F47B : 30 0F JR NC,LOAD3 2894/ F47D : CD E2 F2 LOAD2 CALL AHEX 2895/ F480 : CD C6 F1 CALL OSTR 2896/ F483 : 2A 0D 0A 00 DB "*",CR,LF,0 2897/ F487 : CD 3F E4 CALL MBI0 2898/ F48A : 18 EC JR LOAD1 2899/ F48C : ; 2900/ F48C : FE 02 LOAD3 CP 2 ;Block 0 oder 1? 2901/ F48E : 30 ED JR NC,LOAD2 2902/ F490 : 3C INC A 2903/ F491 : 5F LD E,A 2904/ F492 : 21 00 B7 LD HL,CASS 2905/ F495 : 06 0B LD B,11 2906/ F497 : 7E LOAD4 LD A,(HL) ;Name anzeigen 2907/ F498 : 23 INC HL 2908/ F499 : CD 2B F7 CALL CRT 2909/ F49C : 10 F9 DJNZ LOAD4 2910/ F49E : DD 73 03 LD (IX+3),E;erwarteter Blk 2911/ F4A1 : 3A 10 B7 LD A,(CASS+10H) 2912/ F4A4 : DD CB 07 46 BIT 0,(IX+7) 2913/ F4A8 : 28 44 JR Z,LOAD6 ;wenn VERIFY 2914/ F4AA : DD 77 04 LD (IX+4),A;Anz. Arg. 2915/ F4AD : FE 02 CP 2 2916/ F4AF : 38 69 JR C,NOMC ;zu wenig Arg. 2917/ F4B1 : FE 0B CP 11 2918/ F4B3 : 30 65 JR NC,NOMC ;zu viel Arg. 2919/ F4B5 : ED 5B 13 B7 LD DE,(CASS+13H) 2920/ F4B9 : 2A 11 B7 LD HL,(CASS+11H) 2921/ F4BC : 3A 81 B7 LD A,(ARGN) 2922/ F4BF : A7 AND A ;Ladeoffset? 2923/ F4C0 : 28 17 JR Z,LOAD5 2924/ F4C2 : ED 4B 82 B7 LD BC,(ARG1) 2925/ F4C6 : 09 ADD HL,BC ;AAdr, EAdr 2926/ F4C7 : EB EX DE,HL ;umrechnen 2927/ F4C8 : 09 ADD HL,BC AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 50 - 4/7/2014 17:44:09 2928/ F4C9 : EB EX DE,HL 2929/ F4CA : DD CB 04 56 BIT 2,(IX+4);4..7 Args? 2930/ F4CE : 20 09 JR NZ,LOAD5 2931/ F4D0 : E5 PUSH HL 2932/ F4D1 : 2A 15 B7 LD HL,(CASS+15H) 2933/ F4D4 : 09 ADD HL,BC ;SAdr umrechnen 2934/ F4D5 : 22 15 B7 LD (CASS+15H),HL 2935/ F4D8 : E1 POP HL 2936/ F4D9 : E5 LOAD5 PUSH HL 2937/ F4DA : D5 PUSH DE 2938/ F4DB : 21 11 B7 LD HL,CASS+11H 2939/ F4DE : 11 82 B7 LD DE,ARG1 2940/ F4E1 : 01 14 00 LD BC,20 ;alle Argumente 2941/ F4E4 : ED B0 LDIR ;zur}ck kopieren 2942/ F4E6 : D1 POP DE 2943/ F4E7 : E1 POP HL 2944/ F4E8 : CD C8 F2 CALL SPACE 2945/ F4EB : CD F7 F2 CALL HLDE ;AAdr, Eadr 2946/ F4EE : CD D7 F2 LOAD6 CALL CRLF 2947/ F4F1 : ;Load-Hauptschleife 2948/ F4F1 : CD 3E F4 LOAD7 CALL BRKT 2949/ F4F4 : DD CB 07 7E BIT 7,(IX+7);COM-File? 2950/ F4F8 : 28 03 JR Z,LOAD8 2951/ F4FA : DA 00 F0 JP C,POWER ;BRK -> POWER 2952/ F4FD : 38 24 LOAD8 JR C,CLJP ;BRK -> Abbruch 2953/ F4FF : CD 3F E4 CALL MBI0 2954/ F502 : DD 7E 02 LD A,(IX+2);Blocknr. 2955/ F505 : F5 PUSH AF 2956/ F506 : DD BE 03 CP (IX+3) 2957/ F509 : 28 1E JR Z,LOAD9 ;erwarteter Blk. 2958/ F50B : 3C INC A 2959/ F50C : 28 1B JR Z,LOAD9 ;letzter Blk. 2960/ F50E : F1 POP AF 2961/ F50F : CD E2 F2 CALL AHEX ;Blocknummer 2962/ F512 : CD C6 F1 CALL OSTR 2963/ F515 : 2A 20 00 DB "* ",0 2964/ F518 : 18 D7 JR LOAD7 2965/ F51A : ; 2966/ F51A : CD C6 F1 NOMC CALL OSTR 2967/ F51D : 3F 3F 3F 19 0A 00 DB "???",19H,LF,0 2968/ F523 : DD 36 04 02 CLJP LD (IX+4),2;kein Start! 2969/ F527 : 18 6C JR CSRI 2970/ F529 : ; 2971/ F529 : F1 LOAD9 POP AF 2972/ F52A : 38 2D JR C,LOAD14;Fehler 2973/ F52C : F5 PUSH AF 2974/ F52D : CD E2 F2 CALL AHEX 2975/ F530 : CD C6 F1 CALL OSTR 2976/ F533 : 3E 20 00 DB "> ",0 2977/ F536 : F1 POP AF 2978/ F537 : DD CB 07 46 LOAD10 BIT 0,(IX+7) 2979/ F53B : 28 55 JR Z,LOAD15;wenn VERIFY 2980/ F53D : D5 PUSH DE 2981/ F53E : EB EX DE,HL 2982/ F53F : ED 52 SBC HL,DE 2983/ F541 : 01 81 00 LD BC,81H 2984/ F544 : ED 42 SBC HL,BC 2985/ F546 : 09 ADD HL,BC 2986/ F547 : 0B DEC BC 2987/ F548 : 30 01 JR NC,LOAD11 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 51 - 4/7/2014 17:44:09 2988/ F54A : 4D LD C,L 2989/ F54B : 21 00 B7 LOAD11 LD HL,CASS ;MC in Speicher 2990/ F54E : ED B0 LDIR ;kopieren 2991/ F550 : EB EX DE,HL 2992/ F551 : D1 POP DE 2993/ F552 : 38 41 JR C,CSRI ;fertig! 2994/ F554 : DD 34 03 LOAD12 INC (IX+3) ;n{chster Block 2995/ F557 : 18 98 LOAD13 JR LOAD7 2996/ F559 : ; 2997/ F559 : DD CB 07 7E LOAD14 BIT 7,(IX+7) 2998/ F55D : 20 92 JR NZ,LOAD7;COM-File! 2999/ F55F : CD E2 F2 CALL AHEX ;Blocknummer 3000/ F562 : CD C6 F1 CALL OSTR ;fehlerhaft 3001/ F565 : 20 3F 19 0A 00 DB " ?",19H,LF,0 3002/ F56A : DD CB 07 46 BIT 0,(IX+7) 3003/ F56E : 28 81 JR Z,LOAD7 ;wenn VERIFY 3004/ F570 : CD C6 F1 CALL OSTR 3005/ F573 : 52 45 50 45 41 54 DB "REPEAT (N)?",LF,CR,0 20 28 4E 29 3F 0A 0D 00 3006/ F581 : DD CB 08 B6 RES 6,(IX+8) 3007/ F585 : CD 10 F2 CALL KBD 3008/ F588 : FE 4E CP "N" 3009/ F58A : 20 CB JR NZ,LOAD13 3010/ F58C : DD 36 04 02 LD (IX+4),2;kein Start 3011/ F590 : 18 A5 JR LOAD10 3012/ F592 : ; 3013/ F592 : 3C LOAD15 INC A 3014/ F593 : 20 BF JR NZ,LOAD12 3015/ F595 : CD FD E3 CSRI CALL CSROI ;Abschlu~ 3016/ F598 : CD D7 F2 CALL CRLF 3017/ F59B : DD CB 07 46 BIT 0,(IX+7) 3018/ F59F : C8 RET Z ;VERIFY 3019/ F5A0 : DD 7E 04 LD A,(IX+4) 3020/ F5A3 : 32 81 B7 LD (ARGN),A 3021/ F5A6 : FE 03 CP 3 ;Autostart? 3022/ F5A8 : DD 36 04 02 LD (IX+4),2 3023/ F5AC : D8 RET C ;nein 3024/ F5AD : 2A 86 B7 LD HL,(ARG3) 3025/ F5B0 : E9 JP (HL) ;Start 3026/ F5B1 : 3027/ F5B1 : 3028/ F5B1 : 7F 7F DW 7F7FH 3029/ F5B3 : 43 4F 4C 4F 52 01 DB "COLOR",1 3030/ F5B9 : 3E 1F COLR LD A,1FH 3031/ F5BB : A5 AND L 3032/ F5BC : 17 RLA 3033/ F5BD : 17 RLA 3034/ F5BE : 17 RLA 3035/ F5BF : 6F LD L,A 3036/ F5C0 : 3A 81 B7 LD A,(ARGN) 3037/ F5C3 : FE 02 CP 2 3038/ F5C5 : 30 0A JR NC,COLR2 3039/ F5C7 : 3A A3 B7 LD A,(COLOR) 3040/ F5CA : E6 07 COLR1 AND 7 3041/ F5CC : B5 OR L 3042/ F5CD : 32 A3 B7 LD (COLOR),A 3043/ F5D0 : C9 RET 3044/ F5D1 : 7B COLR2 LD A,E 3045/ F5D2 : 18 F6 JR COLR1 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 52 - 4/7/2014 17:44:09 3046/ F5D4 : 3047/ F5D4 : SUTB ;Unterprogrammtabelle 3048/ F5D4 : 2B F7 DW CRT ;00 3049/ F5D6 : 76 E3 DW MBO ;01 3050/ F5D8 : BD B7 DW UOUT1 ;02 3051/ F5DA : C3 B7 DW UOUT2 ;03 3052/ F5DC : 10 F2 DW KBD ;04 3053/ F5DE : 39 E4 DW MBI ;05 3054/ F5E0 : C0 B7 DW UIN1 ;06 3055/ F5E2 : C6 B7 DW UIN2 ;07 3056/ F5E4 : 6A E3 DW ISRO ;08 3057/ F5E6 : F6 E3 DW CSRO ;09 3058/ F5E8 : 15 E4 DW ISRI ;0A 3059/ F5EA : 95 F5 DW CSRI ;0B 3060/ F5EC : A8 E2 DW KBDS ;0C 3061/ F5EE : 00 E0 DW BYE ;0D 3062/ F5F0 : 9F E2 DW KBDZ ;0E 3063/ F5F2 : B9 F5 DW COLR ;0F 3064/ F5F4 : 71 F4 DW LOAD ;10 3065/ F5F6 : 64 F4 DW VERIF ;11 3066/ F5F8 : 5C F1 DW LOOP ;12 3067/ F5FA : CC F1 DW NORM ;13 3068/ F5FC : 08 F2 DW WAIT ;14 3069/ F5FE : 4C F4 DW LARG ;15 3070/ F600 : E9 F1 DW INTB ;16 3071/ F602 : A4 F2 DW INLIN ;17 3072/ F604 : FF F2 DW RHEX ;18 3073/ F606 : CD F2 DW ERRM ;19 3074/ F608 : C0 F2 DW HLHX ;1A 3075/ F60A : F7 F2 DW HLDE ;1B 3076/ F60C : E2 F2 DW AHEX ;1C 3077/ F60E : 9D F1 DW ZSUCH ;1D 3078/ F610 : D2 F1 DW SOUT ;1E 3079/ F612 : DF F1 DW SIN ;1F 3080/ F614 : CF F1 DW NOUT ;20 3081/ F616 : DC F1 DW NIN ;21 3082/ F618 : 38 F3 DW GARG ;22 3083/ F61A : C6 F1 DW OSTR ;23 3084/ F61C : EF F1 DW OCHR ;24 3085/ F61E : BE FD DW CUCP ;25 3086/ F620 : F4 E2 DW MODU ;26 3087/ F622 : 4F E3 DW JUMP ;27 3088/ F624 : 62 F6 DW LDMA ;28 3089/ F626 : 64 F6 DW LDAM ;29 3090/ F628 : 3E F4 DW BRKT ;2A 3091/ F62A : C8 F2 DW SPACE ;2B 3092/ F62C : D7 F2 DW CRLF ;2C 3093/ F62E : DE F2 DW HOME ;2D 3094/ F630 : 72 F6 DW MODI ;2E 3095/ F632 : 3A E1 DW PUDE ;2F 3096/ F634 : 3D E1 DW PUSE ;30 3097/ F636 : 73 F3 DW SIXD ;31 3098/ F638 : 24 E0 DW DABR ;32 3099/ F63A : 1F F7 DW TCIF ;33 3100/ F63C : BF E0 DW PADR ;34 3101/ F63E : 27 E5 DW TON ;35 3102/ F640 : ED F3 DW SAVE ;36 3103/ F642 : D8 F9 DW MBIN ;37 3104/ F644 : 5C F9 DW MBOUT ;38 3105/ F646 : C5 FB DW KEY ;39 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 53 - 4/7/2014 17:44:09 3106/ F648 : 9E FB DW KEYLI ;3A 3107/ F64A : 0B FB DW DISP ;3B 3108/ F64C : 22 FC DW WININ ;3C 3109/ F64E : 70 FC DW WINAK ;3D 3110/ F650 : 88 FC DW LINE ;3E 3111/ F652 : 0C FD DW CIRCL ;3F 3112/ F654 : 7B FD DW SQR ;40 3113/ F656 : 89 FD DW MULT ;41 3114/ F658 : 6F FB DW CSTBT ;42 3115/ F65A : B3 E2 DW INIEA ;43 3116/ F65C : BC E2 DW INIME ;44 3117/ F65E : 78 E5 DW ZKOUT ;45 3118/ F660 : 2B F1 DW MENU ;46 3119/ F662 : 3120/ F662 : 77 LDMA LD (HL),A ;**28** 3121/ F663 : C9 RET 3122/ F664 : 3123/ F664 : 7E LDAM LD A,(HL) ;**29** 3124/ F665 : C9 RET 3125/ F666 : 3126/ F666 : 7F 7F DW 7F7FH 3127/ F668 : 4D 4F 44 49 46 59 DB "MODIFY",1 01 3128/ F66F : CD 4C F4 MODI0 CALL LARG 3129/ F672 : 3E BF MODI LD A,0BFH ;**2E** 3130/ F674 : BC CP H 3131/ F675 : D8 RET C ;ab C000h gesp. 3132/ F676 : 22 82 B7 LD (ARG1),HL 3133/ F679 : CD C0 F2 CALL HLHX ;Adresse 3134/ F67C : 7E LD A,(HL) 3135/ F67D : CD E2 F2 CALL AHEX ;Datenbyte 3136/ F680 : CD C6 F1 CALL OSTR 3137/ F683 : 20 08 08 08 00 DB " ",8,8,8,0 3138/ F688 : CD A4 F2 MODI1 CALL INLIN 3139/ F68B : CD FF F2 CALL RHEX ;Adresse 3140/ F68E : 38 4E JR C,MODI9 ;Fehler 3141/ F690 : 7E LD A,(HL) 3142/ F691 : B7 OR A 3143/ F692 : 28 4A JR Z,MODI9 ;kein Zeichen 3144/ F694 : 23 INC HL 3145/ F695 : D5 PUSH DE 3146/ F696 : 5E LD E,(HL) 3147/ F697 : 23 INC HL 3148/ F698 : 56 LD D,(HL) 3149/ F699 : EB EX DE,HL ;HL=Adresse 3150/ F69A : D1 POP DE 3151/ F69B : 06 00 LD B,0 3152/ F69D : E5 MODI2 PUSH HL 3153/ F69E : CD FF F2 CALL RHEX ;Datenbyte 3154/ F6A1 : 7E LD A,(HL) 3155/ F6A2 : B7 OR A 3156/ F6A3 : 28 07 JR Z,MODI4 ;kein Zeichen 3157/ F6A5 : 23 INC HL 3158/ F6A6 : 7E LD A,(HL) 3159/ F6A7 : E1 POP HL 3160/ F6A8 : 77 MODI3 LD (HL),A ;eintragen 3161/ F6A9 : 04 INC B 3162/ F6AA : 23 INC HL 3163/ F6AB : E5 PUSH HL 3164/ F6AC : E1 MODI4 POP HL AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 54 - 4/7/2014 17:44:09 3165/ F6AD : 1A LD A,(DE) 3166/ F6AE : FE 2E CP "." ;Abschlu~? 3167/ F6B0 : C8 RET Z 3168/ F6B1 : FE 2C CP "," ;1 Zeichen 3169/ F6B3 : 20 05 JR NZ,MODI5 3170/ F6B5 : 13 INC DE 3171/ F6B6 : 1A LD A,(DE) ;vom Video-RAM 3172/ F6B7 : 13 INC DE 3173/ F6B8 : 18 EE JR MODI3 ;eintragen 3174/ F6BA : ; 3175/ F6BA : 78 MODI5 LD A,B 3176/ F6BB : B7 OR A 3177/ F6BC : 20 01 JR NZ,MODI6 3178/ F6BE : 23 INC HL 3179/ F6BF : 1A MODI6 LD A,(DE) 3180/ F6C0 : FE 3A CP ":" ;R}ckschritt? 3181/ F6C2 : 20 04 JR NZ,MODI7 3182/ F6C4 : 2B DEC HL 3183/ F6C5 : 2B DEC HL 3184/ F6C6 : 18 AA JR MODI 3185/ F6C8 : ; 3186/ F6C8 : FE 2F MODI7 CP "/" ;neue Adresse? 3187/ F6CA : 20 0B JR NZ,MODI8 3188/ F6CC : 13 INC DE 3189/ F6CD : CD FF F2 CALL RHEX ;Adresse 3190/ F6D0 : 38 0C JR C,MODI9 ;Fehler 3191/ F6D2 : 2A 97 B7 LD HL,(NUMVX) 3192/ F6D5 : 18 9B JR MODI 3193/ F6D7 : ; 3194/ F6D7 : B7 MODI8 OR A ;Ende-Dummy? 3195/ F6D8 : 28 98 JR Z,MODI 3196/ F6DA : FE 20 CP " " 3197/ F6DC : 28 BF JR Z,MODI2 ;noch ein Byte 3198/ F6DE : CD CD F2 MODI9 CALL ERRM 3199/ F6E1 : 18 8C JR MODI0 3200/ F6E3 : 3201/ F6E3 : JPTAB ;Sprungtabelle f}r CRT-Routinen 3202/ F6E3 : FA F7 DW CLR ;01 3203/ F6E5 : BD F8 DW CAPS ;16 3204/ F6E7 : B4 F8 DW CLICK ;14 3205/ F6E9 : E4 FD DW BEEP ;07 3206/ F6EB : 7F F7 DW HCOPY ;0F 3207/ F6ED : 3F F8 DW CBL ;0D 3208/ F6EF : 2D F8 DW CLS ;0C 3209/ F6F1 : 05 F8 DW CUL ;08 3210/ F6F3 : 54 F8 DW DEL ;1F 3211/ F6F5 : 75 F7 DW CUD ;0A 3212/ F6F7 : 7F F8 DW INS ;1A 3213/ F6F9 : 3F F8 DW CBL ;19 3214/ F6FB : 17 F8 DW CLLN ;02 3215/ F6FD : 42 F8 DW CUU ;0B 3216/ F6FF : 6D F7 DW CUR ;09 3217/ F701 : 3D F8 DW HOMEPG ;10 3218/ F703 : 48 F8 DW SCROL ;12 3219/ F705 : 4F F8 DW PAGE ;11 3220/ F707 : 3221/ F707 : CCTAB: ;CCTL-Tabelle 3222/ F707 : ;Aufbau: Zeichen, Offset, CCTL 3223/ F707 : E0 C0 AC B7 DB 0E0H, 0C0H, lo(CCTL3), hi(CCTL3) 3224/ F70B : A0 A0 AA B7 DB 0A0H, 0A0H, lo(CCTL2), hi(CCTL2) AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 55 - 4/7/2014 17:44:09 3225/ F70F : 80 80 AC B7 DB 080H, 080H, lo(CCTL3), hi(CCTL3) 3226/ F713 : 60 40 A8 B7 DB 060H, 040H, lo(CCTL1), hi(CCTL1) 3227/ F717 : 20 20 A6 B7 DB 020H, 020H, lo(CCTL0), hi(CCTL0) 3228/ F71B : 00 00 A8 B7 DB 000H, 000H, lo(CCTL1), hi(CCTL1) 3229/ F71F : 3230/ F71F : TCIF ;Test Cursor im Fenster **33** 3231/ F71F : 3A 9E B7 LD A,(WINLG) 3232/ F722 : 3D DEC A 3233/ F723 : 93 SUB E ;Cursor-Spalte 3234/ F724 : D8 RET C 3235/ F725 : 3A 9F B7 LD A,(WINLG+1) 3236/ F728 : 3D DEC A 3237/ F729 : 92 SUB D ;Cursor-Zeile 3238/ F72A : C9 RET 3239/ F72B : 3240/ F72B : E5 CRT PUSH HL ;**00** 3241/ F72C : D5 PUSH DE 3242/ F72D : C5 PUSH BC 3243/ F72E : F5 PUSH AF 3244/ F72F : F5 PUSH AF 3245/ F730 : 3A A2 B7 LD A,(STBT) 3246/ F733 : ED 5B A0 B7 LD DE,(CURSO) 3247/ F737 : 6F LD L,A 3248/ F738 : F1 POP AF 3249/ F739 : FE 20 CP 20H ;Steuerfunktion? 3250/ F73B : 30 1C JR NC,CRT1 3251/ F73D : CB 5D BIT 3,L ;darstellen? 3252/ F73F : 20 18 JR NZ,CRT1 3253/ F741 : 2A B2 B7 LD HL,(CTAB) 3254/ F744 : 01 12 00 LD BC,18 3255/ F747 : ED B1 CPIR ;Funktion def.? 3256/ F749 : 20 15 JR NZ,CRT3;nein 3257/ F74B : 21 E3 F6 LD HL,JPTAB 3258/ F74E : 09 ADD HL,BC 3259/ F74F : 09 ADD HL,BC 3260/ F750 : 4E LD C,(HL) 3261/ F751 : 23 INC HL 3262/ F752 : 66 LD H,(HL) 3263/ F753 : 69 LD L,C ;HL=Sprungadr. 3264/ F754 : CD 7E F7 CALL JPHL 3265/ F757 : 18 03 JR CRT2 3266/ F759 : ; 3267/ F759 : CD 64 F7 CRT1 CALL PCHR 3268/ F75C : ED 53 A0 B7 CRT2 LD (CURSO),DE 3269/ F760 : F1 CRT3 POP AF 3270/ F761 : C3 FE F1 JP POP3 3271/ F764 : ; 3272/ F764 : F5 PCHR PUSH AF 3273/ F765 : CD 24 E0 CALL DABR 3274/ F768 : F1 POP AF 3275/ F769 : 77 LD (HL),A ;ASCII eintragen 3276/ F76A : CD 55 E0 CALL WPIX ;darstellen 3277/ F76D : 1C CUR INC E 3278/ F76E : 3A 9E B7 LD A,(WINLG) 3279/ F771 : BB CP E 3280/ F772 : C0 RET NZ 3281/ F773 : 1E 00 LD E,0 3282/ F775 : 14 CUD INC D 3283/ F776 : 3A 9F B7 LD A,(WINLG+1) 3284/ F779 : BA CP D AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 56 - 4/7/2014 17:44:09 3285/ F77A : C0 RET NZ 3286/ F77B : 2A A4 B7 LD HL,(WEND) 3287/ F77E : E9 JPHL JP (HL) ;PAGE o. SCROLL 3288/ F77F : 3289/ F77F : 2A 99 B7 HCOPY LD HL,(HCADR) ;ShCLR 3290/ F782 : E9 JP (HL) 3291/ F783 : 3292/ F783 : 11 00 00 SCRLPG LD DE,0 ;Cursor li/oben 3293/ F786 : CD 24 E0 CALL DABR 3294/ F789 : 14 INC D 3295/ F78A : E5 PUSH HL 3296/ F78B : CD 24 E0 CALL DABR ;n{chste Zeile 3297/ F78E : D1 POP DE 3298/ F78F : 38 62 JR C,SCRL9 3299/ F791 : 3A 9E B7 LD A,(WINLG) ;Spalten 3300/ F794 : 4F LD C,A 3301/ F795 : 3A 9F B7 LD A,(WINLG+1);Zeilen 3302/ F798 : 3D DEC A 3303/ F799 : 06 00 LD B,0 3304/ F79B : E5 SCRL1 PUSH HL 3305/ F79C : C5 PUSH BC 3306/ F79D : ED B0 LDIR ;im VRAM eine 3307/ F79F : C1 POP BC ;Zeile rollen 3308/ F7A0 : D1 POP DE 3309/ F7A1 : 21 28 00 LD HL,40 ;1 Zeile tiefer 3310/ F7A4 : 19 ADD HL,DE 3311/ F7A5 : 3D DEC A 3312/ F7A6 : 20 F3 JR NZ,SCRL1 3313/ F7A8 : 3A 9D B7 LD A,(WINON+1) 3314/ F7AB : 07 RLCA 3315/ F7AC : 07 RLCA 3316/ F7AD : 07 RLCA 3317/ F7AE : 67 LD H,A ;Zeile*8 3318/ F7AF : 3A 9F B7 LD A,(WINLG+1) 3319/ F7B2 : 3D DEC A 3320/ F7B3 : 07 RLCA 3321/ F7B4 : 07 RLCA 3322/ F7B5 : 07 RLCA ;L{nge*8 3323/ F7B6 : F5 PUSH AF 3324/ F7B7 : 3A 9C B7 LD A,(WINON);Spalte 3325/ F7BA : FE 20 CP 32 3326/ F7BC : 4F LD C,A 3327/ F7BD : 3A 9E B7 LD A,(WINLG);Breite 3328/ F7C0 : 30 0D JR NC,SCRL2 ;rechter Teil 3329/ F7C2 : 81 ADD A, C 3330/ F7C3 : FE 20 CP 32 3331/ F7C5 : 38 0F JR C,SCRL3 3332/ F7C7 : 06 20 LD B,32 3333/ F7C9 : 90 SUB B 3334/ F7CA : 51 LD D,C 3335/ F7CB : 4F LD C,A 3336/ F7CC : 78 LD A,B 3337/ F7CD : 18 0B JR SCRL4 3338/ F7CF : 41 SCRL2 LD B,C 3339/ F7D0 : 4F LD C,A 3340/ F7D1 : 11 00 00 LD DE,0 3341/ F7D4 : 18 06 JR SCRL5 3342/ F7D6 : 51 SCRL3 LD D,C 3343/ F7D7 : 01 00 00 LD BC,0 3344/ F7DA : 92 SCRL4 SUB D AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 57 - 4/7/2014 17:44:09 3345/ F7DB : 5F LD E,A 3346/ F7DC : F1 SCRL5 POP AF 3347/ F7DD : F5 SCRL6 PUSH AF 3348/ F7DE : 7B LD A,E 3349/ F7DF : A7 AND A 3350/ F7E0 : 28 04 JR Z,SCRL7 3351/ F7E2 : 6A LD L,D 3352/ F7E3 : CD 9A FD CALL SCRLUP 3353/ F7E6 : 79 SCRL7 LD A,C 3354/ F7E7 : A7 AND A 3355/ F7E8 : 28 04 JR Z,SCRL8 3356/ F7EA : 68 LD L,B 3357/ F7EB : CD 9A FD CALL SCRLUP 3358/ F7EE : 24 SCRL8 INC H 3359/ F7EF : F1 POP AF 3360/ F7F0 : 3D DEC A 3361/ F7F1 : 20 EA JR NZ,SCRL6 3362/ F7F3 : 3A 9F B7 SCRL9 LD A,(WINLG+1) 3363/ F7F6 : 3D DEC A 3364/ F7F7 : 57 LD D,A 3365/ F7F8 : 18 1D JR CLLN 3366/ F7FA : 3367/ F7FA : D5 CLR PUSH DE 3368/ F7FB : CD 24 E0 CALL DABR 3369/ F7FE : 3E 20 LD A," " ;Leerzeichen 3370/ F800 : 77 LD (HL),A 3371/ F801 : CD 55 E0 CALL WPIX 3372/ F804 : D1 POP DE 3373/ F805 : 7B CUL LD A,E ;Cursor links 3374/ F806 : D6 01 SUB 1 3375/ F808 : 38 02 JR C,CUL1 3376/ F80A : 5F LD E,A 3377/ F80B : C9 RET 3378/ F80C : 7A CUL1 LD A,D ;Zeile hoch 3379/ F80D : D6 01 SUB 1 3380/ F80F : D8 RET C 3381/ F810 : 57 LD D,A 3382/ F811 : 3A 9E B7 LD A,(WINLG) 3383/ F814 : 3D DEC A 3384/ F815 : 5F LD E,A 3385/ F816 : C9 RET 3386/ F817 : 3387/ F817 : 1E 00 CLLN LD E,0 ;ShDEL 3388/ F819 : D5 PUSH DE 3389/ F81A : CD 24 E0 CALL DABR 3390/ F81D : 3A 9E B7 LD A,(WINLG) 3391/ F820 : 47 LD B,A ;Spalten 3392/ F821 : 36 00 CLLN1 LD (HL),0 ;VRAM l|schen 3393/ F823 : 3E 20 LD A," " 3394/ F825 : CD 55 E0 CALL WPIX ;Space anzeigen 3395/ F828 : 23 INC HL 3396/ F829 : 10 F6 DJNZ CLLN1 3397/ F82B : D1 POP DE 3398/ F82C : C9 RET 3399/ F82D : 3400/ F82D : 16 00 CLS LD D,0 ;ShHOME 3401/ F82F : 3A 9F B7 LD A,(WINLG+1) 3402/ F832 : F5 CLS1 PUSH AF 3403/ F833 : D5 PUSH DE 3404/ F834 : CD 17 F8 CALL CLLN ;Zeile f}r AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 58 - 4/7/2014 17:44:09 3405/ F837 : D1 POP DE ;Zeile l|schen 3406/ F838 : F1 POP AF 3407/ F839 : 14 INC D 3408/ F83A : 3D DEC A 3409/ F83B : 20 F5 JR NZ,CLS1 3410/ F83D : 16 00 HOMEPG LD D,0 3411/ F83F : 1E 00 CBL LD E,0 3412/ F841 : C9 RET 3413/ F842 : 3414/ F842 : 7A CUU LD A,D 3415/ F843 : D6 01 SUB 1 3416/ F845 : D8 RET C 3417/ F846 : 57 LD D,A 3418/ F847 : C9 RET 3419/ F848 : 3420/ F848 : 21 83 F7 SCROL LD HL,SCRLPG ;ShCUD 3421/ F84B : 22 A4 B7 WADR LD (WEND),HL 3422/ F84E : C9 RET 3423/ F84F : 3424/ F84F : 21 3D F8 PAGE LD HL,HOMEPG ;ShCUU 3425/ F852 : 18 F7 JR WADR 3426/ F854 : 3427/ F854 : CD 24 E0 DEL CALL DABR 3428/ F857 : 7E LD A,(HL) 3429/ F858 : A7 AND A ;Ende? 3430/ F859 : C8 RET Z 3431/ F85A : D5 PUSH DE ;Cursor 3432/ F85B : E5 PUSH HL ;VRAM 3433/ F85C : 1C DEL1 INC E ;n{chste Spalte 3434/ F85D : CD 24 E0 CALL DABR ;raus? 3435/ F860 : 30 08 JR NC,DEL2 ;nein 3436/ F862 : 1E 00 LD E,0 ;Spalte 0 in 3437/ F864 : 14 INC D ;neuer Zeile 3438/ F865 : CD 24 E0 CALL DABR ;raus? 3439/ F868 : 38 0B JR C,DEL3 ;ja, Ende 3440/ F86A : 7E DEL2 LD A,(HL) 3441/ F86B : A7 AND A ;Ende? 3442/ F86C : 28 07 JR Z,DEL3 3443/ F86E : E3 EX (SP),HL 3444/ F86F : 77 LD (HL),A ;eintragen 3445/ F870 : CD 55 E0 CALL WPIX ;zeichnen 3446/ F873 : 18 E7 JR DEL1 ;von vorn 3447/ F875 : E1 DEL3 POP HL 3448/ F876 : 36 00 LD (HL),0 ;letztes CHR 3449/ F878 : 3E 20 LD A," " ;l|schen 3450/ F87A : CD 55 E0 CALL WPIX 3451/ F87D : D1 POP DE 3452/ F87E : C9 RET 3453/ F87F : 3454/ F87F : D5 INS PUSH DE ;Cursor 3455/ F880 : 3E 20 LD A," " 3456/ F882 : CD 24 E0 CALL DABR 3457/ F885 : 46 INS1 LD B,(HL) ;altes 3458/ F886 : 77 LD (HL),A ;neues Zeichen 3459/ F887 : CD 55 E0 CALL WPIX ;zeichnen 3460/ F88A : 78 LD A,B 3461/ F88B : A7 AND A ;Dummy? 3462/ F88C : 28 10 JR Z,INS2 3463/ F88E : 1C INC E ;CUR 3464/ F88F : CD 24 E0 CALL DABR ;raus? AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 59 - 4/7/2014 17:44:09 3465/ F892 : 30 F1 JR NC,INS1 ;nein 3466/ F894 : 1E 00 LD E,0 ;Spalte 0 in 3467/ F896 : 14 INC D ;neuer Zeile 3468/ F897 : CD 24 E0 CALL DABR ;raus? 3469/ F89A : 30 E9 JR NC,INS1 ;nein 3470/ F89C : D1 POP DE 3471/ F89D : C9 RET 3472/ F89E : ; 3473/ F89E : E5 INS2 PUSH HL 3474/ F89F : 1C INC E ;CUR 3475/ F8A0 : CD 24 E0 CALL DABR ;raus? 3476/ F8A3 : 30 08 JR NC,INS3 ;nein 3477/ F8A5 : 1E 00 LD E,0 3478/ F8A7 : 14 INC D 3479/ F8A8 : CD 24 E0 CALL DABR 3480/ F8AB : 38 C8 JR C,DEL3 3481/ F8AD : 7E INS3 LD A,(HL) 3482/ F8AE : A7 AND A 3483/ F8AF : 20 C4 JR NZ,DEL3 3484/ F8B1 : E1 POP HL 3485/ F8B2 : D1 POP DE 3486/ F8B3 : C9 RET 3487/ F8B4 : 3488/ F8B4 : DD 7E 08 CLICK LD A,(IX+8) ;ShINS 3489/ F8B7 : EE 20 XOR 20H 3490/ F8B9 : DD 77 08 XOR8 LD (IX+8),A 3491/ F8BC : C9 RET 3492/ F8BD : 3493/ F8BD : DD 7E 08 CAPS LD A,(IX+8) 3494/ F8C0 : EE 80 XOR 80H 3495/ F8C2 : 18 F5 JR XOR8 3496/ F8C4 : 3497/ F8C4 : CRTTAB ;Bildschirmsteuercodes 3498/ F8C4 : 11 DB 11H ;PAGE 3499/ F8C5 : 12 DB 12H ;SCROL 3500/ F8C6 : 10 DB 10H ;HOME 3501/ F8C7 : 09 DB 09H ;CUR 3502/ F8C8 : 0B DB 0BH ;CUU 3503/ F8C9 : 02 DB 02H ;CLLN 3504/ F8CA : 19 DB 19H ;CBL 3505/ F8CB : 1A DB 1AH ;INS 3506/ F8CC : 0A DB 0AH ;CUD 3507/ F8CD : 1F DB 1FH ;DEL 3508/ F8CE : 08 DB 08H ;CUL 3509/ F8CF : 0C DB 0CH ;CLS 3510/ F8D0 : 0D DB 0DH ;ENTER 3511/ F8D1 : 0F DB 0FH ;HCOPY 3512/ F8D2 : 07 DB 07H ;BEEP 3513/ F8D3 : 14 DB 14H ;CLICK 3514/ F8D4 : 16 DB 16H ;SHLOK 3515/ F8D5 : 01 DB 01H ;CLR 3516/ F8D6 : 3517/ F8D6 : FADR ;Berechnet Farbadresse 3518/ F8D6 : ;PE: HL=VRAM-Adresse 3519/ F8D6 : ;PA: HL=Farbadresse 3520/ F8D6 : 01 00 32 LD BC, VRAM-08000H 3521/ F8D9 : 09 ADD HL,BC 3522/ F8DA : 06 00 LD B,0 3523/ F8DC : 11 28 00 LD DE,40 ;Zeilenbreite 3524/ F8DF : 04 FADR1 INC B AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 60 - 4/7/2014 17:44:09 3525/ F8E0 : AF XOR A 3526/ F8E1 : ED 52 SBC HL,DE 3527/ F8E3 : 30 FA JR NC,FADR1 3528/ F8E5 : 19 ADD HL,DE 3529/ F8E6 : 80 ADD A, B 3530/ F8E7 : 3D DEC A 3531/ F8E8 : 17 RLA 3532/ F8E9 : 17 RLA 3533/ F8EA : 17 RLA 3534/ F8EB : 67 LD H,A 3535/ F8EC : C9 RET 3536/ F8ED : 3537/ F8ED : BASPV ;BASIC-I/O-Verteiler 3538/ F8ED : E5 PUSH HL 3539/ F8EE : C5 PUSH BC 3540/ F8EF : CD 7A F0 CALL IRMON 3541/ F8F2 : CB 6B BIT 5,E 3542/ F8F4 : D5 PUSH DE 3543/ F8F5 : 20 53 JR NZ,BASBYE 3544/ F8F7 : 23 INC HL 3545/ F8F8 : 23 INC HL 3546/ F8F9 : CB 7B BIT 7,E 3547/ F8FB : 20 42 JR NZ,BSA2 3548/ F8FD : E5 PUSH HL 3549/ F8FE : 7B LD A,E 3550/ F8FF : E6 07 AND 7 3551/ F901 : 21 37 F9 LD HL,BUPTAB 3552/ F904 : 85 ADD A, L 3553/ F905 : 6F LD L,A 3554/ F906 : 7A LD A,D 3555/ F907 : 53 LD D,E 3556/ F908 : 5E LD E,(HL) ;UP-Nummer 3557/ F909 : E1 POP HL 3558/ F90A : CD 77 F0 CALL PV3 ;Aufruf 3559/ F90D : D1 POP DE 3560/ F90E : 57 LD D,A 3561/ F90F : 7B LD A,E 3562/ F910 : E6 4F AND 4FH 3563/ F912 : EE 43 XOR 43H 3564/ F914 : 20 18 JR NZ,BSA1 3565/ F916 : CD C6 F1 CALL OSTR 3566/ F919 : 56 45 52 49 46 59 DB "VERIFY ?(Y):",0 20 3F 28 59 29 3A 00 3567/ F926 : CD 10 F2 CALL KBD 3568/ F929 : FE 59 CP "Y" 3569/ F92B : CC 64 F4 CALL Z,VERIF 3570/ F92E : 7A BSA1 LD A,D 3571/ F92F : CB 9B RES 3,E 3572/ F931 : CD 97 F0 CALL IRMOF 3573/ F934 : C1 POP BC 3574/ F935 : E1 POP HL 3575/ F936 : C9 RET 3576/ F937 : 3577/ F937 : BUPTAB ;H-Teil konstant! 3578/ F937 : 16 DB 16H ;INTB #0 3579/ F938 : 24 DB 24H ;OCHR 3580/ F939 : 37 DB 37H ;MBIN #1 3581/ F93A : 38 DB 38H ;MBOUT 3582/ F93B : 06 DB 06H ;USIN1 #2 AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 61 - 4/7/2014 17:44:09 3583/ F93C : 02 DB 02H ;UOT1 3584/ F93D : 07 DB 07H ;USIN2 #3 3585/ F93E : 03 DB 03H ;UOUT2 3586/ F93F : 3587/ F93F : CD A8 E2 BSA2 CALL KBDS 3588/ F942 : D1 POP DE 3589/ F943 : 57 LD D,A 3590/ F944 : 30 E8 JR NC,BSA1 3591/ F946 : CB BB RES 7,E 3592/ F948 : 18 E4 JR BSA1 3593/ F94A : 3594/ F94A : 3A 5E 03 BASBYE LD A,(35EH) 3595/ F94D : A7 AND A 3596/ F94E : 28 09 JR Z,BASB1 3597/ F950 : CD 97 F0 CALL IRMOF 3598/ F953 : CD 41 C6 CALL 0C641H ;NEW 3599/ F956 : CD 7A F0 CALL IRMON 3600/ F959 : C3 5C F1 BASB1 JP LOOP 3601/ F95C : 3602/ F95C : MBOUT ;Byteweise MB-Ausgabe ;**38** 3603/ F95C : 5A LD E,D ;Steuerbyte 3604/ F95D : 57 LD D,A ;Datenbyte 3605/ F95E : D5 PUSH DE 3606/ F95F : C5 PUSH BC 3607/ F960 : CB 5B BIT 3,E 3608/ F962 : 28 29 JR Z,NOINIT 3609/ F964 : DD CB 07 CE SET 1,(IX+7);Init merken 3610/ F968 : 3E D5 LD A,'U'+080H 3611/ F96A : BE CP (HL) 3612/ F96B : D5 PUSH DE 3613/ F96C : 11 A0 00 LD DE,0A0H ;Vortonl{nge 3614/ F96F : 20 03 JR NZ,NOHIU;bei "U" 3615/ F971 : 11 00 04 LD DE,400H ;gedehnt 3616/ F974 : ED 53 DA B7 NOHIU LD (VORTN),DE 3617/ F978 : 11 00 B7 LD DE,CASS 3618/ F97B : 01 0B 00 LD BC,11 3619/ F97E : ED B0 LDIR ;Name 3620/ F980 : EB EX DE,HL 3621/ F981 : D1 POP DE 3622/ F982 : 72 LD (HL),D ;1. Byte 3623/ F983 : 3E 74 LD A,74H ;noch Bytes 3624/ F985 : CD F9 FA MBOUT1 CALL SETDT 3625/ F988 : C1 MBOUTE POP BC 3626/ F989 : D1 POP DE 3627/ F98A : CB 9B RES 3,E 3628/ F98C : C9 RET 3629/ F98D : 3630/ F98D : 2A DC B7 NOINIT LD HL,(DTADR) 3631/ F990 : 72 LD (HL),D ;Byte eintragen 3632/ F991 : CB 73 BIT 6,E 3633/ F993 : 20 23 JR NZ,MCLOS 3634/ F995 : 3A DE B7 LD A,(DTNR) 3635/ F998 : 3D DEC A 3636/ F999 : 20 EA JR NZ,MBOUT1 3637/ F99B : DD CB 07 4E BIT 1,(IX+7);schon Init? 3638/ F99F : 20 08 JR NZ,MBOUT2;nein 3639/ F9A1 : CD D6 FA CALL MBLO ;ja-Blockout 3640/ F9A4 : CD F2 FA CALL SETDTN 3641/ F9A7 : 18 DF JR MBOUTE 3642/ F9A9 : AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 62 - 4/7/2014 17:44:09 3643/ F9A9 : DD CB 07 8E MBOUT2 RES 1,(IX+7);r}cksetzen 3644/ F9AD : CD 6A E3 CALL ISRO ;Init 3645/ F9B0 : CD DD FA CALL MBLNR ;Blocknr. 3646/ F9B3 : CD F2 FA CALL SETDTN 3647/ F9B6 : 18 D0 JMBOUTE JR MBOUTE 3648/ F9B8 : 3649/ F9B8 : DD CB 07 4E MCLOS BIT 1,(IX+7);Init? 3650/ F9BC : 28 05 JR Z,MBOUT3 3651/ F9BE : CD 6A E3 CALL ISRO ;aber jetzt! 3652/ F9C1 : 18 03 JR MBOUT4 3653/ F9C3 : 3654/ F9C3 : CD D6 FA MBOUT3 CALL MBLO ;Blockout 3655/ F9C6 : ED 4B DA B7 MBOUT4 LD BC,(VORTN) 3656/ F9CA : CD F6 E3 CALL CSRO 3657/ F9CD : D5 MBOUT5 PUSH DE 3658/ F9CE : CD 95 F5 CALL CSRI 3659/ F9D1 : DD CB 07 AE RES 5,(IX+7);"U"-Merker 3660/ F9D5 : D1 POP DE ;r}cksetzen 3661/ F9D6 : 18 DE JR JMBOUTE 3662/ F9D8 : 3663/ F9D8 : MBIN ;Byteweise MB-Eingabe ;**37** 3664/ F9D8 : 5A LD E,D ;Steuerbyte 3665/ F9D9 : 57 LD D,A ;Datenbyte (PA!) 3666/ F9DA : D5 PUSH DE 3667/ F9DB : C5 PUSH BC 3668/ F9DC : CB 73 BIT 6,E ;Close? 3669/ F9DE : 20 ED JR NZ,MBOUT5 3670/ F9E0 : CB 5B BIT 3,E ;Init? 3671/ F9E2 : 28 6E JR Z,MBIU 3672/ F9E4 : 3E 01 LD A,1 ;erwarteter Blk 3673/ F9E6 : DD 77 03 LD (IX+3),A 3674/ F9E9 : E5 PUSH HL 3675/ F9EA : CD 15 E4 CALL ISRI 3676/ F9ED : E1 MBIN1 POP HL 3677/ F9EE : DA A2 FA JP C,JBLERR;Fehler 3678/ F9F1 : DD 7E 02 LD A,(IX+2);gelesener Blk. 3679/ F9F4 : FE 01 CP 1 3680/ F9F6 : C2 A2 FA JP NZ,JBLERR;Fehler 3681/ F9F9 : DD CB 07 96 RES 2,(IX+7);Kopfblk geladen 3682/ F9FD : DD 34 03 INC (IX+3) ;erw. Block 3683/ FA00 : 11 00 B7 LD DE,CASS 3684/ FA03 : 06 0B LD B,11 3685/ FA05 : 1A LD A,(DE) 3686/ FA06 : FE D5 CP 'U'+80H ;hohes "U"? 3687/ FA08 : 20 04 JR NZ,MBIN2 3688/ FA0A : DD CB 07 EE SET 5,(IX+7);Merker zur 3689/ FA0E : ;Blocknummernausgabeunterdr}ckung 3690/ FA0E : MBIN2 3691/ FA0E : C6 29 ADD A, 029H ;gesch}tzte 3692/ FA10 : 30 12 JR NC,MBIN3;BASIC- 3693/ FA12 : 1A LD A,(DE) ;Programme 3694/ FA13 : D6 04 SUB 4 ;als unge- 3695/ FA15 : 12 LD (DE),A ;sch}tzt 3696/ FA16 : 13 INC DE ;anzeigen 3697/ FA17 : 12 LD (DE),A ;und Setzen 3698/ FA18 : 13 INC DE ;LIST/EDIT/BYE- 3699/ FA19 : 12 LD (DE),A ;Schutz 3700/ FA1A : 32 5E 03 LD (35EH),A;<=hier 3701/ FA1D : DD CB 07 F6 SET 6,(IX+7);RESET-Schutz 3702/ FA21 : 11 00 B7 LD DE,CASS AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 63 - 4/7/2014 17:44:09 3703/ FA24 : 1A MBIN3 LD A,(DE) 3704/ FA25 : CD D3 FA CALL MBCRT ;anzeigen 3705/ FA28 : 1A LD A,(DE) 3706/ FA29 : BE CP (HL) ;stimmt Name? 3707/ FA2A : 28 04 JR Z,MBIN4 3708/ FA2C : DD CB 07 D6 SET 2,(IX+7);nein-merken 3709/ FA30 : 23 MBIN4 INC HL 3710/ FA31 : 13 INC DE 3711/ FA32 : 10 F0 DJNZ MBIN3 3712/ FA34 : 3E 0A LD A,LF 3713/ FA36 : CD D3 FA CALL MBCRT 3714/ FA39 : 3E 0D LD A,CR 3715/ FA3B : CD D3 FA CALL MBCRT 3716/ FA3E : DD CB 07 56 BIT 2,(IX+7) 3717/ FA42 : C2 EE FA JP NZ,JIOERR ;?IO ERROR 3718/ FA45 : EB EX DE,HL 3719/ FA46 : 3E 75 LD A,75H ;noch Bytes 3720/ FA48 : 56 MBIN5 LD D,(HL) ;auszulesen 3721/ FA49 : CD F9 FA CALL SETDT 3722/ FA4C : 7A LD A,D 3723/ FA4D : C1 POP BC 3724/ FA4E : D1 POP DE 3725/ FA4F : CB 9B RES 3,E 3726/ FA51 : C9 RET 3727/ FA52 : 3728/ FA52 : 2A DC B7 MBIU LD HL,(DTADR) 3729/ FA55 : 3A DE B7 LD A,(DTNR) 3730/ FA58 : 3D DEC A 3731/ FA59 : 20 ED JR NZ,MBIN5 3732/ FA5B : CD 39 E4 MBIU1 CALL MBI 3733/ FA5E : 38 3E JR C,MERR 3734/ FA60 : CD F2 FA CALL SETDTN 3735/ FA63 : 3E FF LD A,0FFH 3736/ FA65 : DD BE 02 CP (IX+2) ;Block FF? 3737/ FA68 : 28 15 JR Z,MBIU3 3738/ FA6A : DD 7E 03 LD A,(IX+3) 3739/ FA6D : DD BE 02 CP (IX+2) ;erwarteter? 3740/ FA70 : 28 0D JR Z,MBIU3 3741/ FA72 : 3E 2A LD A,"*" 3742/ FA74 : CD D3 FA MBIU2 CALL MBCRT ;nicht 3743/ FA77 : CD B1 FA CALL BLNR ;erwartet 3744/ FA7A : CD EA FA CALL JBRKT 3745/ FA7D : 18 DC JR MBIU1 3746/ FA7F : 3747/ FA7F : DD 34 03 MBIU3 INC (IX+3) ;n{chsten 3748/ FA82 : 3D DEC A ;erwarteten 3749/ FA83 : DD CB 07 6E BIT 5,(IX+7) 3750/ FA87 : 20 0D JR NZ,MBIU4 3751/ FA89 : CD B1 FA CALL BLNR ;Blocknr. 3752/ FA8C : 3E 3E LD A,">" 3753/ FA8E : CD D3 FA CALL MBCRT 3754/ FA91 : 3E 20 LD A," " 3755/ FA93 : CD D3 FA CALL MBCRT 3756/ FA96 : CD F2 FA MBIU4 CALL SETDTN 3757/ FA99 : 2A DC B7 LD HL,(DTADR) 3758/ FA9C : 18 AA JR MBIN5 3759/ FA9E : 3760/ FA9E : 3E 3F MERR LD A,"?" ;Fehler in Block 3761/ FAA0 : 18 D2 JR MBIU2 3762/ FAA2 : AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 64 - 4/7/2014 17:44:09 3763/ FAA2 : 3E 2A JBLERR LD A,"*" ;nicht erw. Blk. 3764/ FAA4 : CD D3 FA CALL MBCRT 3765/ FAA7 : CD EA FA CALL JBRKT 3766/ FAAA : CD 39 E4 CALL MBI 3767/ FAAD : E5 PUSH HL 3768/ FAAE : C3 ED F9 JP MBIN1 3769/ FAB1 : 3770/ FAB1 : DD 7E 02 BLNR LD A,(IX+2) 3771/ FAB4 : F5 PUSH AF ;siehe AHEX! 3772/ FAB5 : 1F RRA 3773/ FAB6 : 1F RRA 3774/ FAB7 : 1F RRA 3775/ FAB8 : 1F RRA 3776/ FAB9 : CD BD FA CALL BLNR1 3777/ FABC : F1 POP AF 3778/ FABD : E6 0F BLNR1 AND 0FH 3779/ FABF : C6 30 ADD A, "0" 3780/ FAC1 : FE 3A CP A, '9'+1 3781/ FAC3 : 38 02 JR C,BLNR2 3782/ FAC5 : C6 07 ADD A, 007H 3783/ FAC7 : CD 2B F7 BLNR2 CALL CRT 3784/ FACA : C9 RET 3785/ FACB : 3786/ FACB : F5 PUSH AF ;Space-Ausgabe 3787/ FACC : 3E 20 LD A," " ;nicht benutzt! 3788/ FACE : CD 2B F7 CRTA CALL CRT 3789/ FAD1 : F1 POP AF 3790/ FAD2 : C9 RET 3791/ FAD3 : 3792/ FAD3 : F5 MBCRT PUSH AF 3793/ FAD4 : 18 F8 JR CRTA 3794/ FAD6 : 3795/ FAD6 : ED 4B DA B7 MBLO LD BC,(VORTN) 3796/ FADA : CD 76 E3 CALL MBO 3797/ FADD : CD B1 FA MBLNR CALL BLNR ;AHEX 3798/ FAE0 : 3E 3E LD A,">" 3799/ FAE2 : CD D3 FA CALL MBCRT 3800/ FAE5 : 3E 20 LD A," " 3801/ FAE7 : CD D3 FA CALL MBCRT 3802/ FAEA : CD 3E F4 JBRKT CALL BRKT ;BRK? 3803/ FAED : D0 RET NC 3804/ FAEE : 2A C9 B7 JIOERR LD HL,(IOERR) 3805/ FAF1 : E9 JP (HL) 3806/ FAF2 : 3807/ FAF2 : SETDTN ;Setzen Datenzeiger neu 3808/ FAF2 : 3E 80 LD A,80H 3809/ FAF4 : 21 00 B7 LD HL,CASS 3810/ FAF7 : 18 01 JR SETDT1 3811/ FAF9 : 3812/ FAF9 : SETDT ;n{chsten Datenzeiger setzen 3813/ FAF9 : 23 INC HL 3814/ FAFA : 22 DC B7 SETDT1 LD (DTADR),HL 3815/ FAFD : 32 DE B7 LD (DTNR),A 3816/ FB00 : C9 RET 3817/ FB01 : 3818/ FB01 : 3819/ FB01 : 7F 7F DW 7F7FH 3820/ FB03 : 44 49 53 50 4C 41 DB "DISPLAY",1 59 01 3821/ FB0B : 3A 81 B7 DISP LD A,(ARGN) ;**3B** AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 65 - 4/7/2014 17:44:09 3822/ FB0E : FE 03 CP 3 3823/ FB10 : 30 02 JR NC,DISP1 3824/ FB12 : 0E 08 LD C,8 ;default 3825/ FB14 : C5 DISP1 PUSH BC 3826/ FB15 : CD C0 F2 DISP2 CALL HLHX ;Adresse 3827/ FB18 : 3E BF LD A,0BFH 3828/ FB1A : BC CP H 3829/ FB1B : 38 50 JR C,DISP6 ;C000H... 3830/ FB1D : E5 PUSH HL 3831/ FB1E : 06 08 LD B,8 ;8 Byte 3832/ FB20 : 7E DISP3 LD A,(HL) 3833/ FB21 : CD E2 F2 CALL AHEX ;hex anzeigen 3834/ FB24 : 05 DEC B 3835/ FB25 : 28 06 JR Z,DISP4 3836/ FB27 : CD C8 F2 CALL SPACE 3837/ FB2A : 23 INC HL 3838/ FB2B : 18 F3 JR DISP3 3839/ FB2D : 3E 09 DISP4 LD A,9 ;CUR 3840/ FB2F : CD EF F1 CALL OCHR 3841/ FB32 : CD 6F FB CALL CSTBT 3842/ FB35 : E1 POP HL 3843/ FB36 : 06 08 LD B,8 ;8 Byte 3844/ FB38 : 7E DISP5 LD A,(HL) 3845/ FB39 : CD EF F1 CALL OCHR ;ASCII anzeigen 3846/ FB3C : 23 INC HL 3847/ FB3D : 10 F9 DJNZ DISP5 3848/ FB3F : CD 6F FB CALL CSTBT 3849/ FB42 : CD D7 F2 CALL CRLF 3850/ FB45 : CD 3E F4 CALL BRKT 3851/ FB48 : 38 23 JR C,DISP6 ;BRK 3852/ FB4A : D5 PUSH DE 3853/ FB4B : EB EX DE,HL 3854/ FB4C : ED 52 SBC HL,DE ;EAdr erreicht? 3855/ FB4E : EB EX DE,HL 3856/ FB4F : D1 POP DE 3857/ FB50 : 38 1B JR C,DISP6 3858/ FB52 : 0D DEC C 3859/ FB53 : 20 C0 JR NZ,DISP2 3860/ FB55 : CD 10 F2 CALL KBD ;Warten Taste 3861/ FB58 : FE 03 CP 3 ;BRK? 3862/ FB5A : C1 POP BC 3863/ FB5B : C8 RET Z 3864/ FB5C : FE 13 CP 13H ;STOP? 3865/ FB5E : 20 B4 JR NZ,DISP1 3866/ FB60 : CD C6 F1 CALL OSTR 3867/ FB63 : 0B 09 09 09 09 09 DB 0BH,9,9,9,9,9,0 00 3868/ FB6A : C3 88 F6 JP MODI1 ;-> MODIFY 3869/ FB6D : 3870/ FB6D : C1 DISP6 POP BC 3871/ FB6E : C9 RET 3872/ FB6F : 3873/ FB6F : F5 CSTBT PUSH AF 3874/ FB70 : 3A A2 B7 LD A,(STBT) 3875/ FB73 : EE 08 XOR 8 3876/ FB75 : 32 A2 B7 LD (STBT),A 3877/ FB78 : F1 POP AF 3878/ FB79 : C9 RET 3879/ FB7A : 3880/ FB7A : 21 00 B9 KEYUP LD HL,0B900H AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 66 - 4/7/2014 17:44:09 3881/ FB7D : 47 LD B,A 3882/ FB7E : 7E KUP1 LD A,(HL) 3883/ FB7F : A7 AND A ;Dummys 3884/ FB80 : 23 INC HL ;ausz{hlen 3885/ FB81 : 20 FB JR NZ,KUP1 3886/ FB83 : 10 F9 DJNZ KUP1 3887/ FB85 : 7E KUP2 LD A,(HL) 3888/ FB86 : A7 AND A ;Ende-Dummy? 3889/ FB87 : C8 RET Z 3890/ FB88 : 23 INC HL 3891/ FB89 : CD 6F FB CALL CSTBT 3892/ FB8C : CD EF F1 CALL OCHR ;anzeigen 3893/ FB8F : CD 6F FB CALL CSTBT 3894/ FB92 : 18 F1 JR KUP2 3895/ FB94 : 3896/ FB94 : 7F 7F DW 7F7FH 3897/ FB96 : 4B 45 59 4C 49 53 DB "KEYLIST",1 54 01 3898/ FB9E : 0E 01 KEYLI LD C,1 ;**39** 3899/ FBA0 : 3E 46 KEYL1 LD A,"F" 3900/ FBA2 : CD EF F1 CALL OCHR ;F 3901/ FBA5 : 79 LD A,C 3902/ FBA6 : CD EB F2 CALL AHEX0 ;Nr. 3903/ FBA9 : CD C6 F1 CALL OSTR 3904/ FBAC : 20 3A 20 00 DB " : ",0 3905/ FBB0 : 79 LD A,C 3906/ FBB1 : CD 7A FB CALL KEYUP ;pr{sentieren 3907/ FBB4 : CD D7 F2 CALL CRLF 3908/ FBB7 : 0C INC C 3909/ FBB8 : 3E 0D LD A,13 3910/ FBBA : B9 CP C ;F1-FC 3911/ FBBB : C8 RET Z 3912/ FBBC : 18 E2 JR KEYL1 3913/ FBBE : 3914/ FBBE : 7F 7F DW 7F7FH 3915/ FBC0 : 4B 45 59 01 DB "KEY",1 3916/ FBC4 : 7D LD A,L 3917/ FBC5 : A7 KEY AND A ;**3A* 3918/ FBC6 : C8 RET Z ;0 3919/ FBC7 : FE 0D CP 13 3920/ FBC9 : D0 RET NC ;>12 3921/ FBCA : CD 7A FB CALL KEYUP ;pr{sentieren 3922/ FBCD : 11 9B B9 LD DE,0B99BH 3923/ FBD0 : EB EX DE,HL 3924/ FBD1 : A7 AND A 3925/ FBD2 : ED 52 SBC HL,DE 3926/ FBD4 : D8 RET C 3927/ FBD5 : EB EX DE,HL 3928/ FBD6 : 4B LD C,E ;BC=L{nge bis 3929/ FBD7 : 42 LD B,D ;Pufferende 3930/ FBD8 : CD 10 F2 KEY1 CALL KBD 3931/ FBDB : A7 AND A 3932/ FBDC : 28 FA JR Z,KEY1 ;keine Taste 3933/ FBDE : FE 13 CP 13H 3934/ FBE0 : CA D7 F2 JP Z,CRLF ;STOP-Ende 3935/ FBE3 : FE 01 CP 1 3936/ FBE5 : 28 20 JR Z,KEY2 ;CLR 3937/ FBE7 : E5 PUSH HL 3938/ FBE8 : 21 9A B9 LD HL,0B99AH;vorletztes 3939/ FBEB : 34 INC (HL) ;Zeichen 0? AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 67 - 4/7/2014 17:44:09 3940/ FBEC : 35 DEC (HL) 3941/ FBED : 20 30 JR NZ,KEY3;nein-voll! 3942/ FBEF : E3 EX (SP),HL 3943/ FBF0 : CD 6F FB CALL CSTBT 3944/ FBF3 : E1 POP HL 3945/ FBF4 : 54 LD D,H 3946/ FBF5 : 5D LD E,L 3947/ FBF6 : 13 INC DE 3948/ FBF7 : C5 PUSH BC ;Pufferrest 3949/ FBF8 : ED B8 LDDR ;hinterziehen 3950/ FBFA : C1 POP BC 3951/ FBFB : 23 INC HL 3952/ FBFC : 77 LD (HL),A ;eintragen 3953/ FBFD : 23 INC HL ;und 3954/ FBFE : CD 2B F7 CALL CRT ;anzeigen 3955/ FC01 : CD 6F FB CALL CSTBT 3956/ FC04 : 0B DEC BC ;L{nge-1 3957/ FC05 : 18 D1 JR KEY1 3958/ FC07 : ; 3959/ FC07 : 2B KEY2 DEC HL 3960/ FC08 : 7E LD A,(HL) 3961/ FC09 : A7 AND A ;Leere Belegung 3962/ FC0A : 23 INC HL ;nicht l|schen! 3963/ FC0B : 28 CB JR Z,KEY1 3964/ FC0D : 2B DEC HL 3965/ FC0E : E5 PUSH HL 3966/ FC0F : 23 INC HL 3967/ FC10 : 03 INC BC ;L{nge+1 3968/ FC11 : C5 PUSH BC 3969/ FC12 : 54 LD D,H 3970/ FC13 : 5D LD E,L 3971/ FC14 : 1B DEC DE ;Pufferrest 3972/ FC15 : ED B0 LDIR ;vorziehen 3973/ FC17 : C1 POP BC 3974/ FC18 : CD C6 F1 CALL OSTR 3975/ FC1B : 08 20 08 00 DB 8," ",8,0 3976/ FC1F : E1 KEY3 POP HL 3977/ FC20 : 18 B6 JR KEY1 3978/ FC22 : 3979/ FC22 : FE 0A WININ CP 10 ;**3C** 3980/ FC24 : D0 RET NC ;Nr. zu gro~ 3981/ FC25 : 47 LD B,A 3982/ FC26 : 7D LD A,L 3983/ FC27 : FE 28 CP 40 3984/ FC29 : D0 RET NC ;Spalte zu gro~ 3985/ FC2A : 83 ADD A, E 3986/ FC2B : FE 29 CP 41 3987/ FC2D : D0 RET NC ;Ende zu gro~ 3988/ FC2E : 7C LD A,H 3989/ FC2F : FE 20 CP 32 3990/ FC31 : D0 RET NC ;Zeile zu gro~ 3991/ FC32 : 82 ADD A, D 3992/ FC33 : FE 21 CP 33 3993/ FC35 : D0 RET NC ;Ende zu gro~ 3994/ FC36 : C5 PUSH BC 3995/ FC37 : E5 PUSH HL 3996/ FC38 : D5 PUSH DE 3997/ FC39 : 11 9B B7 LD DE,WINNR 3998/ FC3C : CD 62 FC CALL WIN1 3999/ FC3F : EB EX DE,HL AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 68 - 4/7/2014 17:44:09 4000/ FC40 : ED B0 LDIR ;Daten kopieren 4001/ FC42 : E1 POP HL 4002/ FC43 : 22 9E B7 LD (WINLG),HL 4003/ FC46 : E1 POP HL 4004/ FC47 : 22 9C B7 LD (WINON),HL 4005/ FC4A : F1 POP AF 4006/ FC4B : 32 9B B7 LD (WINNR),A 4007/ FC4E : AF XOR A 4008/ FC4F : 21 A0 B7 LD HL,CURSO 4009/ FC52 : 77 LD (HL),A ;Spalte=0 4010/ FC53 : 23 INC HL 4011/ FC54 : 77 LD (HL),A ;Zeile=0 4012/ FC55 : 23 INC HL 4013/ FC56 : 77 LD (HL),A ;STBT=0 4014/ FC57 : 23 INC HL 4015/ FC58 : 36 39 LD (HL),39H ;COLOR 4016/ FC5A : 23 INC HL 4017/ FC5B : 36 83 LD (HL), lo(SCRLPG) 4018/ FC5D : 23 INC HL ;WEND 4019/ FC5E : 36 F7 LD (HL), hi(SCRLPG) 4020/ FC60 : 37 SCF 4021/ FC61 : C9 RET 4022/ FC62 : 4023/ FC62 : WIN1 ;Adresse von Fenstervektor ber. 4024/ FC62 : 1A LD A,(DE) ;Nummer 4025/ FC63 : 21 92 B9 WIN2 LD HL,WNDFN-10 4026/ FC66 : 01 0A 00 LD BC,10 ;L{nge Vektor 4027/ FC69 : 3C INC A 4028/ FC6A : 09 WIN3 ADD HL,BC 4029/ FC6B : 3D DEC A 4030/ FC6C : 20 FC JR NZ,WIN3 4031/ FC6E : 13 INC DE ;DE=WINON 4032/ FC6F : C9 RET 4033/ FC70 : 4034/ FC70 : FE 0A WINAK CP 10 ;**3D** 4035/ FC72 : D0 RET NC ;zu gro~ 4036/ FC73 : F5 PUSH AF 4037/ FC74 : 11 9B B7 LD DE,WINNR 4038/ FC77 : D5 PUSH DE 4039/ FC78 : CD 62 FC CALL WIN1 4040/ FC7B : EB EX DE,HL ;akt. Vektor 4041/ FC7C : ED B0 LDIR ;retten 4042/ FC7E : D1 POP DE 4043/ FC7F : F1 POP AF 4044/ FC80 : 12 LD (DE),A 4045/ FC81 : CD 63 FC CALL WIN2 ;neuen Vektor 4046/ FC84 : ED B0 LDIR ;holen 4047/ FC86 : 37 SCF 4048/ FC87 : C9 RET 4049/ FC88 : 4050/ FC88 : LINE ;Linie zeichnen ;**3E** 4051/ FC88 : ; von (ARG1)/(ARG2) nach (ARG3)/(ARG4) 4052/ FC88 : 2A 86 B7 LD HL,(ARG3) ;XEND 4053/ FC8B : ED 4B 82 B7 LD BC,(ARG1) ;XANF 4054/ FC8F : ED 43 D3 B7 LD (HOR),BC ;X-Start 4055/ FC93 : A7 AND A 4056/ FC94 : ED 42 SBC HL,BC 4057/ FC96 : 01 00 00 LD BC,0 4058/ FC99 : 30 01 JR NC,LINE1;wenn XANF>=XEND 4059/ FC9B : 0B DEC BC ;r}ckl{ufig AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 69 - 4/7/2014 17:44:09 4060/ FC9C : ED 43 E7 B7 LINE1 LD (XDIR),BC 4061/ FCA0 : 06 07 LD B,7 4062/ FCA2 : CB 25 LINE2 SLA L ;XSTEPS 4063/ FCA4 : CB 14 RL H ;*128 4064/ FCA6 : 10 FA DJNZ LINE2 4065/ FCA8 : 22 E3 B7 LD (XCNT),HL 4066/ FCAB : 22 DF B7 LD (XSTEP),HL 4067/ FCAE : 3A 88 B7 LD A,(ARG4) ;YEND 4068/ FCB1 : 6F LD L,A 4069/ FCB2 : 3A 84 B7 LD A,(ARG2) ;YANF 4070/ FCB5 : 32 D5 B7 LD (VERT),A ;Y-Start 4071/ FCB8 : 4F LD C,A 4072/ FCB9 : 26 00 LD H,0 4073/ FCBB : 44 LD B,H 4074/ FCBC : AF XOR A 4075/ FCBD : ED 42 SBC HL,BC 4076/ FCBF : 30 01 JR NC,LINE3 4077/ FCC1 : 3D DEC A ;r}ckl{ufig 4078/ FCC2 : 32 E9 B7 LINE3 LD (YDIR),A 4079/ FCC5 : 06 07 LD B,7 4080/ FCC7 : CB 25 LINE4 SLA L ;YSTEPS 4081/ FCC9 : CB 14 RL H ;*128 4082/ FCCB : 10 FA DJNZ LINE4 4083/ FCCD : 22 E1 B7 LD (YSTEP),HL 4084/ FCD0 : 22 E5 B7 LD (YCNT),HL 4085/ FCD3 : 01 00 02 LD BC,200H 4086/ FCD6 : ;LINE-Hauptschleife 4087/ FCD6 : CD 3D E1 LINE5 CALL PUSE ;Punkt setzen 4088/ FCD9 : 2A E3 B7 LD HL,(XCNT) 4089/ FCDC : ED 5B DF B7 LD DE,(XSTEP) 4090/ FCE0 : 19 ADD HL,DE 4091/ FCE1 : 22 E3 B7 LD (XCNT),HL 4092/ FCE4 : 2A D3 B7 LD HL,(HOR) 4093/ FCE7 : ED 5B E7 B7 LD DE,(XDIR) 4094/ FCEB : ED 5A ADC HL,DE 4095/ FCED : 22 D3 B7 LD (HOR),HL;X neu 4096/ FCF0 : 2A E5 B7 LD HL,(YCNT) 4097/ FCF3 : ED 5B E1 B7 LD DE,(YSTEP) 4098/ FCF7 : 19 ADD HL,DE 4099/ FCF8 : 22 E5 B7 LD (YCNT),HL 4100/ FCFB : 3A D5 B7 LD A,(VERT);Y neu 4101/ FCFE : 5F LD E,A 4102/ FCFF : 3A E9 B7 LD A,(YDIR) 4103/ FD02 : 8B ADC A, E 4104/ FD03 : 32 D5 B7 LD (VERT),A 4105/ FD06 : 0B DEC BC 4106/ FD07 : 78 LD A,B 4107/ FD08 : B1 OR C 4108/ FD09 : 20 CB JR NZ,LINE5 4109/ FD0B : C9 RET 4110/ FD0C : 4111/ FD0C : CIRCL ;Kreis zeichnen ;**3F** 4112/ FD0C : ;um (ARG1)/(ARG2) 4113/ FD0C : 3A 86 B7 LD A,(ARG3);Radius 4114/ FD0F : 4F LD C,A 4115/ FD10 : 16 B6 LD D,182 ;1/SQR(2) * 256 4116/ FD12 : CD 89 FD CALL MULT 4117/ FD15 : 78 LD A,B 4118/ FD16 : 32 E5 B7 LD (YCNT),A 4119/ FD19 : 51 LD D,C AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 70 - 4/7/2014 17:44:09 4120/ FD1A : CD 89 FD CALL MULT 4121/ FD1D : 4F LD C,A 4122/ FD1E : ED 43 E3 B7 LD (XCNT),BC 4123/ FD22 : ;CIRCLE-Hauptschleife 4124/ FD22 : 2A E3 B7 CIR1 LD HL,(XCNT) 4125/ FD25 : 3A E5 B7 LD A,(YCNT) 4126/ FD28 : 4F LD C,A 4127/ FD29 : 57 LD D,A 4128/ FD2A : D5 PUSH DE ;Achtelkreis 4129/ FD2B : CD 89 FD CALL MULT ;berechnen 4130/ FD2E : 4F LD C,A 4131/ FD2F : A7 AND A 4132/ FD30 : ED 42 SBC HL,BC 4133/ FD32 : CD 7B FD CALL SQR 4134/ FD35 : D1 POP DE 4135/ FD36 : 5F LD E,A 4136/ FD37 : A7 AND A ;und jeweils 8 4137/ FD38 : 3F CIR2 CCF ;Punkte setzen 4138/ FD39 : F5 PUSH AF 4139/ FD3A : 2A 82 B7 LD HL,(ARG1) 4140/ FD3D : 06 00 LD B,0 4141/ FD3F : 4A LD C,D 4142/ FD40 : 09 ADD HL,BC 4143/ FD41 : 22 D3 B7 LD (HOR),HL 4144/ FD44 : 3A 84 B7 LD A,(ARG2) 4145/ FD47 : F5 PUSH AF 4146/ FD48 : 83 ADD A, E 4147/ FD49 : 32 D5 B7 LD (VERT),A 4148/ FD4C : CD 3D E1 CALL PUSE ;1. Punkt 4149/ FD4F : F1 POP AF 4150/ FD50 : F5 PUSH AF 4151/ FD51 : 93 SUB E 4152/ FD52 : 32 D5 B7 LD (VERT),A 4153/ FD55 : CD 3D E1 CALL PUSE ;2. Punkt 4154/ FD58 : ED 42 SBC HL,BC 4155/ FD5A : ED 42 SBC HL,BC 4156/ FD5C : 22 D3 B7 LD (HOR),HL 4157/ FD5F : CD 3D E1 CALL PUSE ;3. Punkt 4158/ FD62 : F1 POP AF 4159/ FD63 : 83 ADD A, E 4160/ FD64 : 32 D5 B7 LD (VERT),A 4161/ FD67 : CD 3D E1 CALL PUSE ;4. Punkt 4162/ FD6A : 7B LD A,E 4163/ FD6B : 5A LD E,D ;D/E vertauscht 4164/ FD6C : 57 LD D,A 4165/ FD6D : F1 POP AF 4166/ FD6E : 38 C8 JR C,CIR2 ;5. bis 8. Punkt 4167/ FD70 : 3A E5 B7 LD A,(YCNT) 4168/ FD73 : D6 01 SUB 1 4169/ FD75 : 32 E5 B7 LD (YCNT),A 4170/ FD78 : 30 A8 JR NC,CIR1 ;weiter 4171/ FD7A : C9 RET 4172/ FD7B : 4173/ FD7B : SQR ;A=SQR(HL) ;**40** 4174/ FD7B : AF XOR A 4175/ FD7C : 3E FF LD A,0FFH 4176/ FD7E : 5F LD E,A 4177/ FD7F : 57 LD D,A 4178/ FD80 : 3C SQR1 INC A 4179/ FD81 : 13 INC DE AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 71 - 4/7/2014 17:44:09 4180/ FD82 : 13 INC DE 4181/ FD83 : ED 52 SBC HL,DE 4182/ FD85 : F2 80 FD JP P,SQR1 4183/ FD88 : C9 RET 4184/ FD89 : 4185/ FD89 : MULT ;BA=C*D ;**41** 4186/ FD89 : 06 00 LD B,0 4187/ FD8B : 1E 09 LD E,9 4188/ FD8D : 7A MUL1 LD A,D 4189/ FD8E : 1F RRA 4190/ FD8F : 1D DEC E 4191/ FD90 : C8 RET Z 4192/ FD91 : 57 LD D,A 4193/ FD92 : 78 LD A,B 4194/ FD93 : 30 01 JR NC,MUL2 4195/ FD95 : 81 ADD A, C 4196/ FD96 : 1F MUL2 RRA 4197/ FD97 : 47 LD B,A 4198/ FD98 : 18 F3 JR MUL1 ;8* 4199/ FD9A : 4200/ FD9A : E5 SCRLUP PUSH HL ;Scroll-UP 4201/ FD9B : D5 PUSH DE 4202/ FD9C : C5 PUSH BC 4203/ FD9D : E5 PUSH HL 4204/ FD9E : CD BF E0 CALL PADR 4205/ FDA1 : C1 POP BC 4206/ FDA2 : E5 PUSH HL ;Pixel-neu 4207/ FDA3 : D5 PUSH DE ;Farbe-neu 4208/ FDA4 : 6F LD L,A 4209/ FDA5 : 3E 08 LD A,8 4210/ FDA7 : 80 ADD A, B 4211/ FDA8 : 67 LD H,A 4212/ FDA9 : 7D LD A,L 4213/ FDAA : 69 LD L,C 4214/ FDAB : CD BF E0 CALL PADR 4215/ FDAE : E3 EX (SP),HL ;Pixel-alt 4216/ FDAF : EB EX DE,HL ;Farbe-alt 4217/ FDB0 : 4F LD C,A 4218/ FDB1 : 06 00 LD B,0 4219/ FDB3 : C5 PUSH BC ;Breite 4220/ FDB4 : ED B0 LDIR ;Farbscrolling 4221/ FDB6 : C1 POP BC 4222/ FDB7 : E1 POP HL 4223/ FDB8 : D1 POP DE 4224/ FDB9 : ED B0 LDIR ;Pixelscrolling 4225/ FDBB : C3 FE F1 JP POP3 4226/ FDBE : 4227/ FDBE : E5 CUCP PUSH HL ;**25** 4228/ FDBF : D5 PUSH DE 4229/ FDC0 : C5 PUSH BC 4230/ FDC1 : F5 PUSH AF 4231/ FDC2 : ED 5B A0 B7 LD DE,(CURSO) 4232/ FDC6 : CD 24 E0 CALL DABR 4233/ FDC9 : 38 16 JR C,CUCP2 ;au~erhalb! 4234/ FDCB : CD D6 F8 CALL FADR 4235/ FDCE : CD BF E0 CALL PADR 4236/ FDD1 : 1A LD A,(DE) 4237/ FDD2 : 2F CPL ;1. Farbbyte 4238/ FDD3 : 12 LD (DE),A 4239/ FDD4 : CB EB SET 5,E AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 72 - 4/7/2014 17:44:09 4240/ FDD6 : 1A LD A,(DE) 4241/ FDD7 : 2F CPL ;2. Farbbyte 4242/ FDD8 : DD CB 08 7E BIT 7,(IX+8);CAPS? 4243/ FDDC : 20 02 JR NZ,CUCP1 4244/ FDDE : EE 04 XOR 4 4245/ FDE0 : 12 CUCP1 LD (DE),A 4246/ FDE1 : C3 AC E0 CUCP2 JP POP4 4247/ FDE4 : 4248/ FDE4 : 21 30 00 BEEP LD HL,30H ;CHR(7) 4249/ FDE7 : 01 0F 00 LD BC,0FH 4250/ FDEA : D5 PUSH DE 4251/ FDEB : 5C LD E,H ;E=0 4252/ FDEC : CD 2A E5 CALL TON1 4253/ FDEF : 3E 1E LD A,1EH ;Tondauer 4254/ FDF1 : CD 08 F2 CALL WAIT 4255/ FDF4 : 3E 03 LD A,3 4256/ FDF6 : D3 8C OUT 08CH, A ;Ton aus 4257/ FDF8 : 3E 10 LD A,10H 4258/ FDFA : D1 POP DE ;Cursor 4259/ FDFB : C3 08 F2 JP WAIT ;Tonpause 4260/ FDFE : 4261/ FDFE : 00 ZEI0 DB 0 ;CRT 4262/ FDFF : 38 DB 38H ;MBOUT 4263/ FE00 : 02 DB 2 ;UOUT1 4264/ FE01 : 03 DB 3 ;UOUT2 4265/ FE02 : 04 ZEI4 DB 4 ;KBD 4266/ FE03 : 37 DB 37H ;MBIN 4267/ FE04 : 06 DB 6 ;UIN1 4268/ FE05 : 07 DB 7 ;UIN2 4269/ FE06 : 4270/ FE06 : END AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 73 - 4/7/2014 17:44:09 symbol table (* = unused): ------------------------ AHEX : F2E2 C | AHEX0 : F2EB C | *ARCHITECTURE : i386-unknown-win32 - | ARG1 : B782 - | ARG2 : B784 - | ARG3 : B786 - | ARG4 : B788 - | ARGC : B780 - | ARGN : B781 - | BASB1 : F959 C | BASBYE : F94A C | BASIO : E00E C | BASPV : F8ED C | BBEEP : E9B8 C | BBP1 : E9C3 C | BCOLOR : EB4A C | BEEP : FDE4 C | BEXP1 : E669 C | BEXP2 : E67D C | BEXP3 : E6F5 C | *BIGENDIAN : 0 - | BITO1 : E3DB C | BITO2 : E3DE C | BITOUT : E3D6 C | BJUMP : B7B4 - | BKEY : ECB4 C | BLINE : ED8A C | BLKIN : E483 C | BLKOT : E3A1 C | BLNR : FAB1 C | BLNR1 : FABD C | BLNR2 : FAC7 C | BLOAD : EA57 C | BORDER : EAA3 C | *BRANCHEXT : 0 - | BRKT : F43E C | BSA1 : F92E C | BSA2 : F93F C | BUPTAB : F937 C | BYE : E000 C | BYE1 : E01E C | BYTIN : E50F C | BYTOT : E3BB C | BYTOUT : E3BF C | CAPS : F8BD C | *CASESENSITIVE : 0 - | CASS : B700 - | CBL : F83F C | CCTAB : F707 C | CCTL0 : B7A6 - | CCTL1 : B7A8 - | CCTL2 : B7AA - | CCTL3 : B7AC - | CIR1 : FD22 C | CIR2 : FD38 C | CIRCL : FD0C C | CIRCLE : ED8F C | CLICK : F8B4 C | CLJP : F523 C | CLLN : F817 C | CLLN1 : F821 C | CLOS1 : ED1F C | CLOS2 : ED24 C | CLOS3 : ED37 C | CLOSE : ED13 C | CLR : F7FA C | CLS : F82D C | CLS1 : F832 C | COL2 : EB40 C | COLOR : B7A3 - | COLR : F5B9 C | COLR1 : F5CA C | COLR2 : F5D1 C | COM : E4B5 C | *CONSTPI : 3.141592653589793 - | CR : D - | CRLF : F2D7 C | CRT : F72B C | CRT1 : F759 C | CRT2 : F75C C | CRT3 : F760 C | CRTA : FACE C | CRTTAB : F8C4 C | CSRI : F595 C | CSRLN : EDBD C | CSRLN1 : EDD4 C | CSRO : E3F6 C | CSROI : E3FD C | CSTBT : FB6F C | CTAB : B7B2 - | CUCP : FDBE C | CUCP1 : FDE0 C | CUCP2 : FDE1 C | CUD : F775 C | CUL : F805 C | CUL1 : F80C C | CUR : F76D C | CURSO : B7A0 - | CUU : F842 C | DABR : E024 C | *DATE : 4/7/2014 - | DEL : F854 C | DEL1 : F85C C | DEL2 : F86A C | DEL3 : F875 C | DELETE : E95F C | DISP : FB0B C | DISP1 : FB14 C | DISP2 : FB15 C | DISP3 : FB20 C | DISP4 : FB2D C | DISP5 : FB38 C | DISP6 : FB6D C | DTADR : B7DC - | AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 74 - 4/7/2014 17:44:09 DTNR : B7DE - | ERA4 : E2C9 C | ERAM : E2C8 C | ERAM4 : E2C3 C | ERRM : F2CD C | FADR : F8D6 C | FADR1 : F8DF C | *FALSE : 0 - | FARB : B7D6 - | FTAST : B7D1 - | *FULLPMMU : 1 - | GARG : F338 C | GARG1 : F33D C | GFARB : EC2A C | GRAPH : ED92 C | GRAPH1 : ED9C C | GRAPH2 : EDB5 C | *HAS64 : 1 - | *HASDSP : 0 - | *HASFPU : 0 - | *HASPMMU : 0 - | HBITOT : E3D4 C | HCADR : B799 - | HCOPY : F77F C | HLDE : F2F7 C | HLDE1 : F2FA C | HLHX : F2C0 C | HOME : F2DE C | HOMEPG : F83D C | HOR : B7D3 - | IAD2 : E04E C | *INEXTMODE : 0 - | INIEA : E2B3 C | INIME : E2BC C | INIT : F398 C | INK : EB14 C | INKEY : EB97 C | INKEY1 : EBA5 C | INKEY2 : EBA9 C | INKEY3 : EBAC C | INLI1 : F2A5 C | INLIN : F2A4 C | *INLWORDMODE : 0 - | *INMAXMODE : 0 - | INS : F87F C | INS1 : F885 C | INS2 : F89E C | INS3 : F8AD C | *INSRCMODE : 0 - | INSTR : EC3E C | INSTR0 : EC6D C | INSTR1 : EC70 C | INSTR2 : EC77 C | INSTR3 : EC7B C | INSTR4 : EC82 C | INSTR5 : EC85 C | INSTR6 : EC88 C | INSTR7 : EC9B C | INSTR8 : ECA2 C | INSTR9 : ECA3 C | *INSUPMODE : 0 - | INTA1 : F1F3 C | INTAB : B7BB - | INTB : F1E9 C | IOERR : B7C9 - | IOTAB : F3B8 C | IOTAB2 : F3C3 C | IRMOF : F097 C | IRMON : F07A C | IRMRD : ECB0 C | IRMWR : ECAC C | ISR1E : E4D9 C | ISR2E : E4DB C | ISRC1 : E4B9 C | ISRC2 : E4DF C | ISRC3 : E189 C | ISRI : E415 C | ISRI1 : E3E6 C | ISRI2 : E42C C | ISRO : E36A C | ISRPA : E4CD C | ISRPB : E199 C | ISRTAB : E293 C | JBLERR : FAA2 C | JBRKT : FAEA C | JIOERR : FAEE C | JMBOUTE : F9B6 C | JPHL : F77E C | JPTAB : F6E3 C | JPV5 : ECC0 C | JUMP : E34F C | KBD : F210 C | KBD1 : F21B C | KBD2 : F22E C | KBD3 : F23A C | KBD4 : F23D C | KBD5 : F258 C | KBD6 : F25D C | KBD7 : F262 C | KBD8 : F268 C | KBDS : E2A8 C | KBDZ : E29F C | KCTAB : F272 C | KEY : FBC5 C | KEY1 : FBD8 C | KEY2 : FC07 C | KEY3 : FC1F C | KEYL1 : FBA0 C | KEYLI : FB9E C | KEYLIST : ECC3 C | KEYUP : FB7A C | KTAB : E213 C | KUP1 : FB7E C | KUP2 : FB85 C | LARG : F44C C | LBITOT : E3D0 C | LDAM : F664 C | LDMA : F662 C | LEDOO : E4A8 C | LF : A - | AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 75 - 4/7/2014 17:44:09 LINE : FC88 C | LINE1 : FC9C C | LINE2 : FCA2 C | LINE3 : FCC2 C | LINE4 : FCC7 C | LINE5 : FCD6 C | *LISTON : 1 - | LOAD : F471 C | LOAD0 : F475 C | LOAD1 : F478 C | LOAD10 : F537 C | LOAD11 : F54B C | LOAD12 : F554 C | LOAD13 : F557 C | LOAD14 : F559 C | LOAD15 : F592 C | LOAD2 : F47D C | LOAD3 : F48C C | LOAD4 : F497 C | LOAD5 : F4D9 C | LOAD6 : F4EE C | LOAD7 : F4F1 C | LOAD8 : F4FD C | LOAD9 : F529 C | LOC1 : EB92 C | LOCAT : EB5C C | LOCATE : EB63 C | LOOP : F15C C | LOOP1 : F161 C | LOOP2 : F17C C | LOOP3 : F181 C | LOOP4 : F194 C | *MACEXP : 1 - | MBCRT : FAD3 C | MBI : E439 C | MBI0 : E43F C | MBI1 : E44E C | MBI2 : E454 C | MBI3 : E462 C | MBI4 : E464 C | MBI5 : E4B1 C | MBIN : F9D8 C | MBIN1 : F9ED C | MBIN2 : FA0E C | MBIN3 : FA24 C | MBIN4 : FA30 C | MBIN5 : FA48 C | MBIU : FA52 C | MBIU1 : FA5B C | MBIU2 : FA74 C | MBIU3 : FA7F C | MBIU4 : FA96 C | MBLNR : FADD C | MBLO : FAD6 C | MBO : E376 C | MBO1 : E388 C | MBOUT : F95C C | MBOUT1 : F985 C | MBOUT2 : F9A9 C | MBOUT3 : F9C3 C | MBOUT4 : F9C6 C | MBOUT5 : F9CD C | MBOUTE : F988 C | MCLOS : F9B8 C | MEN0 : F110 C | *MEN1 : F126 C | MEN2 : F13A C | MEN3 : F143 C | MEN4 : F157 C | MENU : F12B C | MERR : FA9E C | MIXIT : B7D7 - | MODI : F672 C | MODI0 : F66F C | MODI1 : F688 C | MODI2 : F69D C | MODI3 : F6A8 C | MODI4 : F6AC C | MODI5 : F6BA C | MODI6 : F6BF C | MODI7 : F6C8 C | MODI8 : F6D7 C | MODI9 : F6DE C | MODU : E2F4 C | MODU1 : E30C C | MODU2 : E316 C | MODU3 : E321 C | MODU4 : E323 C | MODU5 : E329 C | MODU6 : E335 C | MODU7 : E33D C | *MOMCPU : 80 - | *MOMCPUNAME : Z80 - | MSUCH : F197 C | MUL1 : FD8D C | MUL2 : FD96 C | MULT : FD89 C | *NESTMAX : 100 - | NIN : F1DC C | NOHIU : F974 C | NOINIT : F98D C | NOMC : F51A C | NORM : F1CC C | NOT : F1CB C | NOUT : F1CF C | NUMNX : B796 - | NUMVX : B797 - | OCHR : F1EF C | OPEN : ED55 C | OPEN1 : ED74 C | OSTR : F1C6 C | OUTAB : B7B9 - | *PACKING : 0 - | *PADDING : 1 - | PADR : E0BF C | PADR1 : E0D7 C | PADR10 : E137 C | PADR2 : E0E4 C | PADR3 : E0F7 C | PADR4 : E0F8 C | AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 76 - 4/7/2014 17:44:09 PADR5 : E0FE C | PADR6 : E101 C | PADR7 : E116 C | PADR8 : E126 C | PADR9 : E12E C | PAGE : F84F C | PAPER : EB2E C | PAUS1 : E989 C | PAUS2 : E998 C | PAUS3 : E99C C | PAUS4 : E9B4 C | PAUSE : E984 C | PCHR : F764 C | POINT : EBF7 C | POINT2 : EC1F C | POP3 : F1FE C | POP4 : E0AC C | POWER : F000 C | PRAT : EAB1 C | PRAT1 : EAF6 C | PRAT2 : EB0C C | PRCOL : E6B5 C | PRESET : EC26 C | PREX1 : E693 C | PREX2 : E6AE C | PREX3 : E6DD C | PREX4 : E6ED C | PREX5 : E6F0 C | PRINK : E6C0 C | PSET : EBF5 C | PTEST : ECDE C | PTST1 : ED0B C | PU1 : E13E C | PU2 : E14C C | PU3 : E161 C | PU4 : E178 C | PU5 : E17B C | PU6 : E17F C | PUDE : E13A C | PUSE : E13D C | PV1 : F047 C | PV2 : F063 C | PV21 : F064 C | PV22 : F054 C | PV3 : F077 C | PV4 : F033 C | PV5 : F027 C | PV51 : F02E C | PWR1 : F0BF C | PWR2 : F0DD C | PWR3 : F0E5 C | PWRON : F0B7 C | RANDOM : ED4F C | RCALL : F0AC C | *RELAXED : 0 - | REN1 : E79D C | REN10 : E844 C | REN11 : E875 C | REN12 : E881 C | REN13 : E882 C | REN14 : E89A C | REN15 : E8A7 C | REN16 : E8B4 C | REN2 : E7BA C | REN3 : E7C2 C | REN4 : E7D8 C | REN5 : E7DC C | REN6 : E7E6 C | REN7 : E7EC C | REN8 : E7F5 C | REN9 : E801 C | RENUM : E77F C | RENUP1 : E8C8 C | RENUP2 : E8FA C | RESET : E011 C | RH1 : F311 C | RH2 : F329 C | RHEX : F2FF C | RUP11 : E8DB C | RUP12 : E8F4 C | RUP13 : E8F7 C | RUP21 : E902 C | RUP22 : E916 C | RUP23 : E927 C | RUP24 : E93A C | RUP25 : E942 C | RUP26 : E955 C | SAV1 : F40C C | SAV2 : F438 C | SAVE : F3ED C | SCRL1 : F79B C | SCRL2 : F7CF C | SCRL3 : F7D6 C | SCRL4 : F7DA C | SCRL5 : F7DC C | SCRL6 : F7DD C | SCRL7 : F7E6 C | SCRL8 : F7EE C | SCRL9 : F7F3 C | SCRLPG : F783 C | SCRLUP : FD9A C | SCROL : F848 C | SETDT : FAF9 C | SETDT1 : FAFA C | SETDTN : FAF2 C | SIN : F1DF C | SIXD : F373 C | SNERR1 : E6BD C | SNERR2 : EA83 C | SNERR3 : EB11 C | SNERR4 : ED10 C | SOUND : EBB2 C | SOUND1 : EBBB C | SOUND2 : EBCE C | SOUND3 : EBEF C | SOUT : F1D2 C | SPAC0 : F2CA C | SPACE : F2C8 C | SQR : FD7B C | SQR1 : FD80 C | AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 77 - 4/7/2014 17:44:09 STBT : B7A2 - | STOP1 : E4F8 C | STOP11 : E4FC C | STOP21 : E507 C | STR1 : E74C C | STR2 : E751 C | STR3 : E765 C | STR4 : E771 C | STR5 : E77A C | STRING : E720 C | SUTAB : B7B0 - | SUTB : F5D4 C | SWITCH : ECC7 C | SYSI : F357 C | SYSP : B7AE - | TCIF : F71F C | *TIME : 17:44:09 - | TOKJP : E62B C | TOKTAB : E581 C | TON : E527 C | TON1 : E52A C | TON2 : E53E C | TON3 : E541 C | TON4 : E551 C | TON5 : E554 C | TON6 : E56F C | TONB : E571 C | TRN1 : E513 C | TRN2 : E51D C | *TRUE : 1 - | TST1 : E1E1 C | TST2 : E1EB C | TST3 : E200 C | TST4 : E206 C | TST5 : E209 C | TST6 : E20C C | TST7 : E20D C | UIN1 : B7C0 - | UIN2 : B7C6 - | UOUT1 : B7BD - | UOUT2 : B7C3 - | VERIF : F464 C | *VERSION : 142F - | VERT : B7D5 - | VGET : EDE0 C | VORTN : B7DA - | VPEEK : EA65 C | VPK : EA7A C | VPOKE : EA86 C | VRAM : B200 - | WADR : F84B C | WAIT : F208 C | WAIT1 : F20A C | WEND : B7A4 - | WIN1 : FC62 C | WIN2 : FC63 C | WIN3 : FC6A C | WINAK : FC70 C | WINDOW : E9CD C | WINDOW1 : EA37 C | WINDOW2 : EA47 C | WINERR : EA52 C | WININ : FC22 C | WINLG : B79E - | WINNR : B79B - | WINON : B79C - | WNDFN : B99C - | WPIX : E055 C | WPIX1 : E06A C | WPIX2 : E072 C | WPIX3 : E08D C | WPIX4 : E097 C | WPIX5 : E0B0 C | WPIX6 : E0B5 C | WTUP : F202 C | XCNT : B7E3 - | XDIR : B7E7 - | XOR8 : F8B9 C | XSTEP : B7DF - | YCNT : B7E5 - | YDIR : B7E9 - | YSTEP : B7E1 - | ZEI0 : FDFE C | ZEI4 : FE02 C | ZEITB : B7D8 - | ZKOUT : E578 C | ZS1 : F19E C | ZS2 : F1A0 C | ZS3 : F1AA C | ZS4 : F1B7 C | ZS5 : F1BF C | ZS6 : F1C3 C | ZSUCH : F19D C | ZTON : E3CC C | ZWEND : B7CF - | 569 symbols 29 unused symbols AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 78 - 4/7/2014 17:44:09 defined functions: ------------------ LO | HI AS V1.42 Beta [Bld 86] - source file CAOS_PROM_3_1.asm - page 79 - 4/7/2014 17:44:09 codepages: ---------- STANDARD (0 changed characters) 0.06 seconds assembly time 4271 lines source file 2 passes 0 errors 1 warning