#type ("17.klein")# ADDR B1 B2 B3 B4 ASCII INSTR PARAMETER COMMENT 2F63 2A C8 41 *.A LD HL,(41C8) 2F66 5C \ LD E,H 2F67 16 1A .. LD D,1A 2F69 1A . LD A,(DE) 2F6A 67 g LD H,A 2F6B 29 ) ADD HL,HL 2F6C D4 F9 42 ..B CALL NC,42F9 2F6F ED 5B C4 41 .[.A LD DE,(41C4) ; Stacktop auf Stack 2F73 73 s LD (HL),E 2F74 2C , INC L 2F75 72 r LD (HL),D 2F76 2C , INC L 2F77 DD CB 09 26 ...& SLA (IX+09) ; icount Felder auf Stack 2F7B CB 19 .. RR C 2F7D 71 q LD (HL),C 2F7E 2C , INC L 2F7F DD 7E 0A .~. LD A,(IX+0A) 2F82 77 w LD (HL),A 2F83 2C , INC L 2F84 DD 7E 0B .~. LD A,(IX+0B) 2F87 77 w LD (HL),A 2F88 2C , INC L 2F89 E6 FC .. AND FC ; Fehlerzustand vererbt sich 2F8B B0 . OR B 2F8C 47 G LD B,A 2F8D D9 . EXX 2F8E 79 y LD A,C 2F8F D9 . EXX 2F90 77 w LD (HL),A 2F91 2C , INC L 2F92 DD 7E 0F .~. LD A,(IX+0F) 2F95 77 w LD (HL),A 2F96 D1 . POP DE 2F97 7A z LD A,D 2F98 C6 10 .. ADD A,10 2F9A DD 77 0F .w. LD (IX+0F),A 2F9D DD 36 06 18 .6.. LD (IX+06),18 2FA1 DD 73 09 .s. LD (IX+09),E ; icount neu setzen 2FA4 DD 72 0A .r. LD (IX+0A),D 2FA7 DD 70 0B .p. LD (IX+0B),B 2FAA 4B K LD C,E 2FAB 7B { LD A,E 2FAC 87 . ADD A 2FAD 08 . EX AF,AF' 2FAE CD AB 42 ..B CALL 42AB 2FB1 CB 21 .! SLA C 2FB3 17 . RLA 2FB4 47 G LD B,A 2FB5 0A . LD A,(BC) 2FB6 5F _ LD E,A 2FB7 0C . INC C 2FB8 0A . LD A,(BC) 2FB9 57 W LD D,A 2FBA 0C . INC C 2FBB CC 87 42 ..B CALL Z,4287 2FBE DD 36 06 00 .6.. LD (IX+06),00 2FC2 2A C8 41 *.A LD HL,(41C8) 2FC5 22 C4 41 ".A LD (41C4),HL ; Stacktop neu setzen 2FC8 B7 . OR A 2FC9 ED 5A .Z ADC HL,DE 2FCB EA D1 3C ..< JP PE,3CD1 2FCE 22 C8 41 ".A LD (41C8),HL 2FD1 23 # INC HL 2FD2 23 # INC HL 2FD3 22 C6 41 ".A LD (41C6),HL ; Stackpointer neu setzen 2FD6 CB 7C .| BIT 7,H 2FD8 CA A7 2A ..* JP Z,2AA7 ; Stackoverflow bei CALL 2FDB C3 D1 3C ..< JP 3CD1 ;------------ PENTER ------------- 2FDE 7D } LD A,L 2FDF D9 . EXX 2FE0 4F O LD C,A ; C' = Packetbase 2FE1 D9 . EXX 2FE2 C3 A7 2A ..* JP 2AA7 ;------------- arith15 ------------ 2FE5 DD CB 0B A6 .... RES 4,(IX+0B) 2FE9 C3 A7 2A ..* JP 2AA7 ;------------- arith16 ------------ 2FEC DD CB 0B E6 .... SET 4,(IX+0B) 2FF0 C3 A7 2A ..* JP 2AA7 ;------------- RTN ---------------- 2FF3 CD 35 30 .50 CALL 3035 ; LEAVE PROC 2FF6 C3 A7 2A ..* JP 2AA7 ;------------- RTN FALSE ---------- 2FF9 CD 1B 30 ..0 CALL 301B 2FFC DD 36 06 10 .6.. LD (IX+06),10 ; Status LEAVE PROC FALSE 3000 CD 38 30 .80 CALL 3038 3003 DD 36 06 00 .6.. LD (IX+06),00 ; Status wieder busy, BR FALSEmodif. 3007 C3 71 2E .q. JP 2E71 ;-------------- RTN TRUE ---------- 300A CD 1B 30 ..0 CALL 301B 300D DD 36 06 14 .6.. LD (IX+06),14 ; Status LEAVE PROC TRUE 3011 CD 38 30 .80 CALL 3038 3014 DD 36 06 00 .6.. LD (IX+06),00 ; Wieder Busy 3018 C3 84 2E ... JP 2E84 ; BR TRUE modif. 301B 2A C4 41 *.A LD HL,(41C4) ;-------- LEAVE PROC ------------- 301E 44 D LD B,H 301F 4D M LD C,L ; ALten Stacktop wiederherstellen 3020 22 C8 41 ".A LD (41C8),HL 3023 23 # INC HL 3024 23 # INC HL 3025 22 C6 41 ".A LD (41C6),HL ; +2 = Neuer Stacktop 3028 2B + DEC HL 3029 2B + DEC HL 302A 5C \ LD E,H 302B 16 1A .. LD D,1A 302D 1A . LD A,(DE) 302E 67 g LD H,A 302F 29 ) ADD HL,HL 3030 B7 . OR A 3031 C0 . RET NZ 3032 C3 E1 42 ..B JP 42E1 ;-------------------------------- 3035 CD 1B 30 ..0 CALL 301B ; LEAVE PROC 3038 5E ^ LD E,(HL) 3039 2C , INC L 303A 56 V LD D,(HL) 303B 7B { LD A,E 303C 91 . SUB C 303D 7A z LD A,D 303E 98 . SBC B 303F 30 37 07 JR NC,3078 ; Stack underflow, Harakiri 3041 2C , INC L 3042 ED 53 C4 41 .S.A LD (41C4),DE ; Stacktop 3046 4E N LD C,(HL) 3047 2C , INC L 3048 DD 71 09 .q. LD (IX+09),C ; icount wiederherstellen 304B 7E ~ LD A,(HL) 304C 2C , INC L 304D DD 77 0A .w. LD (IX+0A),A 3050 DD 7E 0B .~. LD A,(IX+0B) 3053 E6 80 .. AND 80 3055 5E ^ LD E,(HL) 3056 CB BB .. RES 7,E 3058 B3 . OR E 3059 DD 77 0B .w. LD (IX+0B),A ; iserror uebernehmen 305C 2C , INC L 305D E6 C0 .. AND C0 305F FE 80 .. CP 80 3061 CA 2E 3D ..= JP Z,3D2E ; errorstop 3064 7E ~ LD A,(HL) 3065 2C , INC L 3066 D9 . EXX 3067 4F O LD C,A 3068 D9 . EXX 3069 7E ~ LD A,(HL) 306A DD 77 0F .w. LD (IX+0F),A 306D 79 y LD A,C 306E 87 . ADD A 306F 08 . EX AF,AF' 3070 CD AB 42 ..B CALL 42AB 3073 CB 21 .! SLA C 3075 17 . RLA 3076 47 G LD B,A 3077 C9 . RET 3078 DD 36 06 FF .6.. LD (IX+06),FF ; dead setzen. "Harakiri" 307C C3 26 29 .&) JP 2926 ;-------------- GOSUB ------------- 307F CD 43 44 .CD CALL 4443 ; Branchaddresse holen 3082 D5 . PUSH DE 3083 2A C8 41 *.A LD HL,(41C8) 3086 5C \ LD E,H 3087 16 1A .. LD D,1A 3089 1A . LD A,(DE) 308A 67 g LD H,A 308B 29 ) ADD HL,HL 308C D4 F9 42 ..B CALL NC,42F9 308F DD 7E 09 .~. LD A,(IX+09) ; icount auf Stack (Seg.bleibt)! 3092 87 . ADD A 3093 CB 19 .. RR C 3095 71 q LD (HL),C 3096 2C , INC L 3097 DD 7E 0A .~. LD A,(IX+0A) 309A 77 w LD (HL),A 309B 2A C8 41 *.A LD HL,(41C8) ; Stackpointer INCR 4 309E 23 # INC HL 309F 23 # INC HL 30A0 23 # INC HL 30A1 23 # INC HL 30A2 22 C8 41 ".A LD (41C8),HL 30A5 23 # INC HL 30A6 23 # INC HL 30A7 22 C6 41 ".A LD (41C6),HL ; stacktop 30AA E1 . POP HL 30AB 7C | LD A,H ; BRANCH 30AC C3 8E 2E ... JP 2E8E ;------------- GORET ------------- 30AF 2A C8 41 *.A LD HL,(41C8) ; Stackpointer vom Stack 30B2 2B + DEC HL 30B3 2B + DEC HL 30B4 22 C6 41 ".A LD (41C6),HL 30B7 2B + DEC HL 30B8 2B + DEC HL 30B9 22 C8 41 ".A LD (41C8),HL 30BC 5C \ LD E,H 30BD 16 1A .. LD D,1A 30BF 1A . LD A,(DE) 30C0 67 g LD H,A 30C1 29 ) ADD HL,HL 30C2 B7 . OR A 30C3 CC E1 42 ..B CALL Z,42E1 30C6 2C , INC L 30C7 7E ~ LD A,(HL) 30C8 2D - DEC L 30C9 6E n LD L,(HL) ; BRANCH 30CA C3 B1 2E ... JP 2EB1 ;------------- TMOV -------------- 30CD CD 92 46 ..F CALL 4692 30D0 FE 02 .. CP 02 30D2 30 0F 0. JR NC,30E3 30D4 B7 . OR A 30D5 28 01 (. JR Z,30D8 30D7 56 V LD D,(HL) 30D8 CD 64 43 .dC CALL 4364 30DB 2C , INC L 30DC 2C , INC L 30DD 73 s LD (HL),E 30DE 2C , INC L 30DF 72 r LD (HL),D 30E0 C3 A7 2A ..* JP 2AA7 30E3 DD CB 07 DE .... SET 3,(IX+07) 30E7 E5 . PUSH HL 30E8 D5 . PUSH DE 30E9 CD AA 47 ..G CALL 47AA 30EC D1 . POP DE 30ED CD 68 48 .hH CALL 4868 30F0 42 B LD B,D 30F1 4B K LD C,E 30F2 EB . EX DE,HL 30F3 E3 . EX (SP),HL 30F4 7B { LD A,E 30F5 95 . SUB L 30F6 7A z LD A,D 30F7 20 01 . JR NZ,30FA 30F9 94 . SUB H 30FA C4 B0 2C .., CALL NZ,2CB0 30FD CD E8 45 ..E CALL 45E8 3100 D1 . POP DE 3101 CD 92 48 ..H CALL 4892 3104 DD CB 07 9E .... RES 3,(IX+07) 3108 ED 4B D0 41 .K.A LD BC,(41D0) 310C C3 A7 2A ..* JP 2AA7 ;------------ TEQU ---------------- 310F CD 92 46 ..F CALL 4692 3112 FE 02 .. CP 02 3114 30 09 0. JR NC,311F 3116 2D - DEC L 3117 E5 . PUSH HL 3118 CD 07 44 ..D CALL 4407 311B D1 . POP DE 311C C3 67 2E .g. JP 2E67 311F E5 . PUSH HL 3120 D5 . PUSH DE 3121 CD DD 46 ..F CALL 46DD 3124 E3 . EX (SP),HL 3125 B7 . OR A 3126 ED 52 .R SBC HL,DE 3128 20 15 . JR NZ,313F 312A ED 43 D0 41 .C.A LD (41D0),BC 312E 4B K LD C,E 312F 42 B LD B,D 3130 D1 . POP DE 3131 E1 . POP HL 3132 CD 7A 31 .z1 CALL 317A 3135 ED 4B D0 41 .K.A LD BC,(41D0) 3139 C2 84 2E ... JP NZ,2E84 313C C3 71 2E .q. JP 2E71 313F D1 . POP DE 3140 E1 . POP HL 3141 C3 84 2E ... JP 2E84 ;------------- TLSEQU ------------ 3144 CD 8D 46 ..F CALL 468D 3147 E5 . PUSH HL 3148 D5 . PUSH DE 3149 CD DD 46 ..F CALL 46DD 314C E3 . EX (SP),HL 314D 7B { LD A,E 314E 95 . SUB L 314F 7A z LD A,D 3150 9C . SBC H 3151 32 D3 41 2.A LD (41D3),A 3154 30 01 0. JR NC,3157 3156 EB . EX DE,HL 3157 ED 43 D0 41 .C.A LD (41D0),BC 315B 44 D LD B,H 315C 4D M LD C,L 315D D1 . POP DE 315E E1 . POP HL 315F 78 x LD A,B 3160 B1 . OR C 3161 C4 7A 31 .z1 CALL NZ,317A 3164 ED 4B D0 41 .K.A LD BC,(41D0) 3168 28 06 (. JR Z,3170 316A D2 71 2E .q. JP NC,2E71 316D C3 84 2E ... JP 2E84 3170 3A D3 41 :.A LD A,(41D3) 3173 B7 . OR A 3174 F2 71 2E .q. JP P,2E71 3177 C3 84 2E ... JP 2E84 317A CD 78 45 .xE CALL 4578 317D 30 0B 0. JR NC,318A 317F CD 8A 31 ..1 CALL 318A 3182 C2 EC 45 ..E JP NZ,45EC 3185 CD C1 45 ..E CALL 45C1 3188 18 F0 .. JR 317A 318A C8 . RET Z 318B 1A . LD A,(DE) 318C BE . CP (HL) 318D C0 . RET NZ 318E 2C , INC L 318F 1C . INC E 3190 0D . DEC C 3191 C2 8B 31 ..1 JP NZ,318B 3194 97 . SUB A 3195 47 G LD B,A 3196 C9 . RET ;------------- LENGTH ------------ 3197 CD 13 43 ..C CALL 4313 319A 23 # INC HL 319B 23 # INC HL 319C 5E ^ LD E,(HL) 319D 16 00 .. LD D,00 319F 7B { LD A,E 31A0 3C < INC A 31A1 C2 03 2D ..- JP NZ,2D03 31A4 2C , INC L 31A5 C3 00 2D ..- JP 2D00 ;--------------- CODE ------------ 31A8 CD 8D 46 ..F CALL 468D 31AB 11 FF FF ... LD DE,FFFF ; Wenn Laenge <> 1 ==> -1 31AE FE 01 .. CP 01 31B0 C2 03 2D ..- JP NZ,2D03 31B3 5E ^ LD E,(HL) ; sonst erstes Zeichen 31B4 16 00 .. LD D,00 31B6 C3 03 2D ..- JP 2D03 ;-------------- ENCODE ----------- 31B9 CD 13 43 ..C CALL 4313 31BC 1E 01 .. LD E,01 ; Laenge 1 31BE 56 V LD D,(HL) 31BF C3 D8 30 ..0 JP 30D8 ;-------------- TSUB ------------- 31C2 CD 2C 47 .,G CALL 472C 31C5 C3 D4 30 ..0 JP 30D4 ;------------- subtext 1 --------- 31C8 CD 89 47 ..G CALL 4789 31CB C3 D0 30 ..0 JP 30D0 ;------------- subtext 2 --------- 31CE CD 95 47 ..G CALL 4795 31D1 C3 D0 30 ..0 JP 30D0 ;------------- CAT --------------- 31D4 CD B8 43 ..C CALL 43B8 31D7 ED 53 CE 41 .S.A LD (41CE),DE 31DB E5 . PUSH HL 31DC CD 8D 46 ..F CALL 468D 31DF 2D - DEC L 31E0 7E ~ LD A,(HL) 31E1 32 D2 41 2.A LD (41D2),A 31E4 E3 . EX (SP),HL 31E5 D5 . PUSH DE 31E6 ED 5B CE 41 .[.A LD DE,(41CE) 31EA CD AD 47 ..G CALL 47AD 31ED ED 53 40 4B .S@K LD (4B40),DE 31F1 E3 . EX (SP),HL 31F2 EB . EX DE,HL 31F3 B7 . OR A 31F4 ED 5A .Z ADC HL,DE 31F6 FA 26 32 .&2 JP M,3226 31F9 22 CC 41 ".A LD (41CC),HL 31FC EB . EX DE,HL 31FD E3 . EX (SP),HL 31FE CD AD 48 ..H CALL 48AD 3201 38 28 8( JR C,322B 3203 ED 5B 40 4B .[@K LD DE,(4B40) 3207 CD 0D 45 ..E CALL 450D 320A EB . EX DE,HL 320B C1 . POP BC 320C E1 . POP HL 320D 3A D2 41 :.A LD A,(41D2) 3210 BE . CP (HL) 3211 C2 26 29 .&) JP NZ,2926 3214 2C , INC L 3215 CD B0 2C .., CALL 2CB0 3218 ED 5B CC 41 .[.A LD DE,(41CC) 321C CD 92 48 ..H CALL 4892 321F ED 4B D0 41 .K.A LD BC,(41D0) 3223 C3 A7 2A ..* JP 2AA7 3226 3E 07 >. LD A,07 3228 CD 0D 3D ..= CALL 3D0D 322B C1 . POP BC 322C E1 . POP HL 322D 18 F0 .. JR 321F ;------------ replace text ------- 322F CD AA 47 ..G CALL 47AA 3232 ED 4B D0 41 .K.A LD BC,(41D0) 3236 E5 . PUSH HL 3237 CD A8 2C .., CALL 2CA8 323A EB . EX DE,HL 323B 1B . DEC DE 323C B7 . OR A 323D ED 52 .R SBC HL,DE 323F 38 21 8! JR C,3262 3241 E3 . EX (SP),HL 3242 CD 0D 45 ..E CALL 450D 3245 E3 . EX (SP),HL 3246 E5 . PUSH HL 3247 CD 8D 46 ..F CALL 468D 324A ED 43 D0 41 .C.A LD (41D0),BC 324E C1 . POP BC 324F 79 y LD A,C 3250 93 . SUB E 3251 78 x LD A,B 3252 9A . SBC D 3253 38 02 8. JR C,3257 3255 4B K LD C,E 3256 42 B LD B,D 3257 D1 . POP DE 3258 CD B0 2C .., CALL 2CB0 325B ED 4B D0 41 .K.A LD BC,(41D0) #25F C3 A7 2A ..* JP 2AA7 3262 E1 . POP HL 3263 18 FA .. JR 325F 3265 CD 8D 46 ..F CALL 468D 3268 E3 . EX (SP),HL 3269 D5 . PUSH DE 326A E5 . PUSH HL 326B CD DD 46 ..F CALL 46DD 326E 7E ~ LD A,(HL) 326F 32 D4 41 2.A LD (41D4),A 3272 22 D8 41 ".A LD (41D8),HL 3275 3A 8A 46 :.F LD A,(468A) 3278 32 DA 41 2.A LD (41DA),A 327B 1B . DEC DE 327C ED 53 D6 41 .S.A LD (41D6),DE 3280 C9 . RET ;------------ pos 1 -------------- 3281 CD 65 32 .e2 CALL 3265 3284 11 01 00 ... LD DE,0001 3287 18 1E .. JR 32A7 ;----------- pos 2 --------------- 3289 CD 65 32 .e2 CALL 3265 328C CD A8 2C .., CALL 2CA8 328F EB . EX DE,HL 3290 18 15 .. JR 32A7 ;------------- pos 3 ------------- 3292 CD 65 32 .e2 CALL 3265 3295 CD A8 2C .., CALL 2CA8 3298 EB . EX DE,HL 3299 CD A8 2C .., CALL 2CA8 329C EB . EX DE,HL 329D E3 . EX (SP),HL 329E 7B { LD A,E 329F 95 . SUB L 32A0 7A z LD A,D 32A1 9C . SBC H 32A2 30 01 0. JR NC,32A5 32A4 EB . EX DE,HL 32A5 E3 . EX (SP),HL 32A6 EB . EX DE,HL 32A7 CD 64 43 .dC CALL 4364 32AA 22 CC 41 ".A LD (41CC),HL 32AD ED 43 D0 41 .C.A LD (41D0),BC 32B1 C1 . POP BC 32B2 2A D6 41 *.A LD HL,(41D6) 32B5 24 $ INC H 32B6 25 % DEC H 32B7 20 3B ; JR NZ,32F4 32B9 79 y LD A,C 32BA 95 . SUB L 32BB 4F O LD C,A 32BC 78 x LD A,B 32BD 9C . SBC H 32BE 47 G LD B,A 32BF E1 . POP HL 32C0 38 33 83 JR C,32F5 32C2 CD 1D 46 ..F CALL 461D 32C5 38 2E 8. JR C,32F5 32C7 CD 44 45 .DE CALL 4544 32CA 28 29 () JR Z,32F5 32CC F5 . PUSH AF 32CD 3A D4 41 :.A LD A,(41D4) 32D0 ED B1 .. CPIR 32D2 CC FA 32 ..2 CALL Z,32FA 32D5 28 0C (. JR Z,32E3 32D7 78 x LD A,B 32D8 B1 . OR C 32D9 20 F2 . JR NZ,32CD 32DB F1 . POP AF 32DC 30 17 0. JR NC,32F5 32DE CD C1 45 ..E CALL 45C1 32E1 18 E4 .. JR 32C7 32E3 F1 . POP AF 32E4 CD 33 46 .3F CALL 4633 32E7 ED 4B D0 41 .K.A LD BC,(41D0) 32EB 2A CC 41 *.A LD HL,(41CC) 32EE 73 s LD (HL),E 32EF 2C , INC L 32F0 72 r LD (HL),D 32F1 C3 A7 2A ..* JP 2AA7 32F4 E1 . POP HL 32F5 11 00 00 ... LD DE,0000 32F8 18 ED .. JR 32E7 32FA 3A D6 41 :.A LD A,(41D6) 32FD B7 . OR A 32FE C8 . RET Z 32FF C5 . PUSH BC 3300 03 . INC BC 3301 CD F1 45 ..E CALL 45F1 3304 ED 5B 85 46 .[.F LD DE,(4685) 3308 D5 . PUSH DE 3309 E5 . PUSH HL 330A 3A D6 41 :.A LD A,(41D6) 330D 47 G LD B,A 330E 2B + DEC HL 330F ED 5B D8 41 .[.A LD DE,(41D8) 3313 3A DA 41 :.A LD A,(41DA) 3316 32 8A 46 2.F LD (468A),A 3319 2C , INC L 331A 20 07 . JR NZ,3323 331C FD 21 85 46 .!.F LD IY,4685 3320 CD 1B 45 ..E CALL 451B 3323 1C . INC E 3324 20 09 . JR NZ,332F 3326 FD 21 89 46 .!.F LD IY,4689 332A EB . EX DE,HL 332B CD 1B 45 ..E CALL 451B 332E EB . EX DE,HL 332F 1A . LD A,(DE) 3330 BE . CP (HL) 3331 20 02 . JR NZ,3335 3333 10 E4 .. DJNZ 3319 3335 F5 . PUSH AF 3336 CD 12 46 ..F CALL 4612 3339 F1 . POP AF 333A E1 . POP HL 333B D1 . POP DE 333C C1 . POP BC 333D ED 53 85 46 .S.F LD (4685),DE 3341 C9 . RET ;------------ pos high low ------- 3342 CD 8D 46 ..F CALL 468D 3345 D5 . PUSH DE 3346 E5 . PUSH HL 3347 CD 13 43 ..C CALL 4313 334A 23 # INC HL 334B 23 # INC HL 334C 23 # INC HL 334D 5E ^ LD E,(HL) 334E CD 13 43 ..C CALL 4313 3351 23 # INC HL 3352 23 # INC HL 3353 23 # INC HL 3354 56 V LD D,(HL) 3355 ED 53 D4 41 .S.A LD (41D4),DE 3359 CD A8 2C .., CALL 2CA8 335C E5 . PUSH HL 335D CD 64 43 .dC CALL 4364 3360 22 CC 41 ".A LD (41CC),HL 3363 ED 43 D0 41 .C.A LD (41D0),BC 3367 D1 . POP DE 3368 E1 . POP HL 3369 C1 . POP BC 336A CD 1D 46 ..F CALL 461D 336D DA F5 32 ..2 JP C,32F5 3370 CD 44 45 .DE CALL 4544 3373 CA F5 32 ..2 JP Z,32F5 3376 F5 . PUSH AF 3377 ED 5B D4 41 .[.A LD DE,(41D4) 337B 0B . DEC BC 337C 7A z LD A,D 337D BE . CP (HL) 337E 38 05 8. JR C,3385 3380 7E ~ LD A,(HL) 3381 BB . CP E 3382 D2 E3 32 ..2 JP NC,32E3 3385 23 # INC HL 3386 78 x LD A,B 3387 B1 . OR C 3388 20 F1 . JR NZ,337B 338A F1 . POP AF 338B D2 F5 32 ..2 JP NC,32F5 338E CD C1 45 ..E CALL 45C1 3391 18 DD .. JR 3370 ;------------- stranalyze --------- 3393 CD B8 43 ..C CALL 43B8 ; REF-Addr vom Stack (HL,DE) 3396 FD 21 89 46 .!.F LD IY,4689 339A FD 72 03 .r. LD (IY+03),D ; Dataspace 339D 7B { LD A,E ; Segment 339E CD CA 44 ..D CALL 44CA ; Block holen HL = Speicheraddr 33A1 CB 3C .< SLR H ; --> Wordaddr konvertieren 33A3 CB 1D .. RR L 33A5 22 DB 41 ".A LD (41DB),HL ; Block 1 Wortaddr 33A8 29 ) ADD HL,HL ; --> Byteaddr konv. 33A9 11 FE 01 ... LD DE,01FE ; Ende des Blocks auch lesen 33AC CD 0D 45 ..E CALL 450D ; (schlimmstenfalls also 2 Bloecke) 33AF CB 3C .< SLR H ; 2. Block Wortaddr 33B1 CB 1D .. RR L 33B3 22 DD 41 ".A LD (41DD),HL ; Block 2 Wortaddr 33B6 CD 64 43 .dC CALL 4364 ; Addresse d.INT VAR summe holen 33B9 22 DF 41 ".A LD (41DF),HL 33BC CD A8 2C .., CALL 2CA8 ; INT CONST maxbreite holen 33BF 22 E1 41 ".A LD (41E1),HL 33C2 CD 8D 46 ..F CALL 468D ; TEXT CONST zeile holen 33C5 E5 . PUSH HL 33C6 CD 64 43 .dC CALL 4364 ; INT VAR pos holen 33C9 E5 . PUSH HL 33CA CD A8 2C .., CALL 2CA8 ; INT CONST to-pos holen 33CD 7B { LD A,E 33CE 95 . SUB L 33CF 7A z LD A,D ; falls to < from beide vertauschen 33D0 9C . SBC H 33D1 38 01 8. JR C,33D4 33D3 EB . EX DE,HL 33D4 CD 64 43 .dC CALL 4364 ; INT VAR exit addr holen 33D7 22 E3 41 ".A LD (41E3),HL ; exit addresse 33DA ED 43 D0 41 .C.A LD (41D0),BC ; BC retten 33DE 42 B LD B,D ; BC := to pos 33DF 4B K LD C,E 33E0 E1 . POP HL ; pos addresse 33E1 22 CC 41 ".A LD (41CC),HL 33E4 5E ^ LD E,(HL) ; poswert holen --> DE 33E5 2C , INC L 33E6 56 V LD D,(HL) 33E7 E1 . POP HL ; TEXT zeile 33E8 CD 1D 46 ..F CALL 461D ; TEXT Zugriff 33EB DA 56 34 .V4 JP C,3456 ; Fehlerausgang 33EE CD 44 45 .DE CALL 4544 ; Zeichenaddr (Text SUB pos)--> HL 33F1 CA 56 34 .V4 JP Z,3456 ; Fehlerausgang, wenn > TEXT-Laenge 33F4 F5 . PUSH AF ; Flag (C) merken 33F5 DD CB 07 5E ...^ BIT 3,(IX+07) ; Extension-Bit (Skip next char) 33F9 20 4D M JR NZ,3448 ; Res BIT 3 und bernaechstes zeichen 33FB 7E ~ LD A,(HL) ; A = ROW-Offset (Code) 33FC E5 . PUSH HL 33FD 2A DB 41 *.A LD HL,(41DB) ; Block 1 Wortaddr 3400 85 . ADD L 3401 30 03 0. JR NC,3406 3403 2A DD 41 *.A LD HL,(41DD) ; Block 2 Wortaddr 3406 6F o LD L,A 3407 29 ) ADD HL,HL 3408 5E ^ LD E,(HL) ; DE := tabelle(A) 3409 2C , INC L 340A 56 V LD D,(HL) 340B ED 53 CE 41 .S.A LD (41CE),DE ; fuer exit merken 340F CB 7A .z BIT 7,D 3411 28 06 (. JR Z,3419 ; < 0 : Extensionchar (Skip next) 3413 CB BA .. RES 7,D ; Fr Summierung positiv machen 3415 DD CB 07 DE .... SET 3,(IX+07) ; merken, dass DE negativ war 3419 2A DF 41 *.A LD HL,(41DF) ; Addresse von 'summe' 341C 7E ~ LD A,(HL) ; DE INCR summe 341D 83 . ADD E 3477 C3 06 2D ..- JP 2D06 ;---------- task heapsize --------- 347A 3A CB 41 :.A LD A,(41CB) ; heaptop DIV 4 +1 347D CB 3F .? SLR A 347F CB 3F .? SLR A 3481 3C < INC A 3482 5F _ LD E,A 3483 16 00 .. LD D,00 3485 C3 03 2D ..- JP 2D03 ;----------- collect heap garbage - 3488 79 y LD A,C ; pbase ? 3489 08 . EX AF,AF' 348A C3 33 4A .3J JP 4A33 ;----------- replace int --------- 348D 3E 01 >. LD A,01 ; 1 Wort 348F 18 02 .. JR 3493 ;----------- replace real ------- 3491 3E 07 >. LD A,07 ; 7 Woerter 3493 32 D2 41 2.A LD (41D2),A 3496 CD AA 47 ..G CALL 47AA 3499 ED 4B D0 41 .K.A LD BC,(41D0) 349D 18 0C .. JR 34AB ;-------------- ISUB ------------- 349F 3E 01 >. LD A,01 34A1 18 02 .. JR 34A5 ;------------- RSUB -------------- 34A3 3E 07 >. LD A,07 34A5 32 D2 41 2.A LD (41D2),A 34A8 CD 8D 46 ..F CALL 468D 34AB E5 . PUSH HL 34AC CD A8 2C .., CALL 2CA8 34AF 2B + DEC HL 34B0 CB 7C .| BIT 7,H 34B2 C4 D9 3C ..< CALL NZ,3CD9 34B5 29 ) ADD HL,HL 34B6 3A D2 41 :.A LD A,(41D2) 34B9 FE 01 .. CP 01 34BB 28 02 (. JR Z,34BF 34BD 29 ) ADD HL,HL 34BE 29 ) ADD HL,HL 34BF B5 . OR L 34C0 93 . SUB E 34C1 7C | LD A,H 34C2 9A . SBC D 34C3 D4 D9 3C ..< CALL NC,3CD9 34C6 EB . EX DE,HL 34C7 E1 . POP HL 34C8 CD 0D 45 ..E CALL 450D 34CB EB . EX DE,HL 34CC FD CB 00 46 ...F BIT 0,(IY+00) 34D0 28 06 (. JR Z,34D8 34D2 CD 64 43 .dC CALL 4364 34D5 EB . EX DE,HL 34D6 18 03 .. JR 34DB 34D8 CD 13 43 ..C CALL 4313 34DB C5 . PUSH BC 34DC 3A D2 41 :.A LD A,(41D2) 34DF 47 G LD B,A 34E0 4F O LD C,A 34E1 D5 . PUSH DE 34E2 11 F3 41 ..A LD DE,41F3 34E5 7E ~ LD A,(HL) 34E6 12 . LD (DE),A 34E7 2C , INC L 34E8 CC 1B 45 ..E CALL Z,451B 34EB 13 . INC DE 34EC 10 F7 .. DJNZ 34E5 34EE 7E ~ LD A,(HL) 34EF 12 . LD (DE),A 34F0 E1 . POP HL 34F1 11 F3 41 ..A LD DE,41F3 34F4 41 A LD B,C 34F5 1A . LD A,(DE) 34F6 77 w LD (HL),A 34F7 2C , INC L 34F8 CC 1B 45 ..E CALL Z,451B 34FB 13 . INC DE 34FC 10 F7 .. DJNZ 34F5 34FE 1A . LD A,(DE) 34FF 77 w LD (HL),A 3500 C1 . POP BC 3501 C3 A7 2A ..* JP 2AA7 ;----------- FMOV MOV8 ------------ 3504 CD 1B 43 ..C CALL 431B 3507 7D } LD A,L 3508 E6 F8 .. AND F8 350A 5F _ LD E,A 350B 54 T LD D,H 350C CD 64 43 .dC CALL 4364 350F 7D } LD A,L 3510 E6 F8 .. AND F8 3512 6F o LD L,A 3513 EB . EX DE,HL 3514 C5 . PUSH BC 3515 01 08 00 ... LD BC,0008 3518 F3 . DI 3519 ED B0 .. LDIR 351B FB . EI 351C C1 . POP BC 351D C3 A7 2A ..* JP 2AA7 ;-------------- FADD -------------- 3520 FD 21 2C 4F .!,O LD IY,4F2C 3524 CD AF 44 ..D CALL 44AF 3527 EB . EX DE,HL 3528 CD A7 44 ..D CALL 44A7 352B CD 60 4E .`N CALL 4E60 352E 30 DC 0. JR NC,350C 3530 3E 06 >. LD A,06 3532 CD 0D 3D ..= CALL 3D0D 3535 CD 43 44 .CD CALL 4443 3538 C3 A7 2A ..* JP 2AA7 ;------------- FSUB --------------- 353B FD 21 20 4F .! O LD IY,4F20 353F 18 E3 .. JR 3524 ;------------- FMULT -------------- 3541 FD 21 E1 4F .!.O LD IY,4FE1 3545 18 DD .. JR 3524 ;------------ FDIV ---------------- 3547 FD 21 59 50 .!YP LD IY,5059 354B 18 D7 .. JR 3524 ;------------ FEQU -------------- 354D CD A7 44 ..D CALL 44A7 3550 EB . EX DE,HL 3551 CD A7 44 ..D CALL 44A7 3554 CD 83 4E ..N CALL 4E83 3557 C2 84 2E ... JP NZ,2E84 355A C3 71 2E .q. JP 2E71 ;----------- FLSEQ ---------------- 355D CD AF 44 ..D CALL 44AF 3560 EB . EX DE,HL 3561 CD A7 44 ..D CALL 44A7 3564 EB . EX DE,HL 3565 CD 83 4E ..N CALL 4E83 3568 DA 84 2E ... JP C,2E84 356B C3 71 2E .q. JP 2E71 ;------------ FCOMPL ------------- 356E CD A7 44 ..D CALL 44A7 3571 EB . EX DE,HL 3572 CD B7 44 ..D CALL 44B7 3575 EB . EX DE,HL 3576 CD D2 4E ..N CALL 4ED2 3579 C3 A7 2A ..* JP 2AA7 ;--------------- SLD -------------- 357C CD 13 43 ..C CALL 4313 357F 56 V LD D,(HL) 3580 CD B7 44 ..D CALL 44B7 3583 E5 . PUSH HL 3584 CD 64 43 .dC CALL 4364 3587 E3 . EX (SP),HL 3588 97 . SUB A 3589 ED 67 .g RRD 358B 5F _ LD E,A 358C 7A z LD A,D 358D CD 1B 52 ..R CALL 521B 3590 E1 . POP HL 3591 73 s LD (HL),E 3592 2C , INC L 3593 36 00 6. LD (HL),00 3595 C3 A7 2A ..* JP 2AA7 ;------------ decimalexponent ------ 3598 CD A7 44 ..D CALL 44A7 359B CD E9 4E ..N CALL 4EE9 359E C3 03 2D ..- JP 2D03 ;------------ setexp -------------- 35A1 CD 13 43 ..C CALL 4313 35A4 5E ^ LD E,(HL) 35A5 CD B7 44 ..D CALL 44B7 35A8 CD E0 4E ..N CALL 4EE0 35AB C3 A7 2A ..* JP 2AA7 ;------------- floor -------------- 35AE CD A7 44 ..D CALL 44A7 35B1 EB . EX DE,HL 35B2 CD B7 44 ..D CALL 44B7 35B5 EB . EX DE,HL 35B6 CD F6 4E ..N CALL 4EF6 35B9 C3 A7 2A ..* JP 2AA7 ;------------ clock (nr) ---------- 35BC CD 13 43 ..C CALL 4313 35BF 7E ~ LD A,(HL) 35C0 E6 07 .. AND 07 35C2 28 0F (. JR Z,35D3 ; clock(0) = Taskclock 35C4 3D = DEC A ; -1 35C5 87 . ADD A ; *8 (REAL) 35C6 87 . ADD A 35C7 87 . ADD A 35C8 6F o LD L,A 35C9 26 00 &. LD H,00 35CB 11 B9 4C ..L LD DE,4CB9 ; 4CB9 = clock (1) 35CE 19 . ADD HL,DE 35CF EB . EX DE,HL 35D0 C3 0C 35 ..5 JP 350C ; Move Real 35D3 ED 5B 1C 6E .[.n LD DE,(6E1C) ; Steht im Leitblock ab 38..3f 35D7 1E 38 .8 LD E,38 ; Move real 35D9 C3 0C 35 ..5 JP 350C ;------------ clock (task) -------- 35DC CD C2 3D ..= CALL 3DC2 ; Fremden Leitblock laden 35DF FD E5 .. PUSH IY ; Leitblock addr in IY 35E1 D1 . POP DE 35E2 18 F3 .. JR 35D7 ;----------- setclock task ------- 35E4 CD BA 3D ..= CALL 3DBA 35E7 CD 13 43 ..C CALL 4313 35EA FD E5 .. PUSH IY 35EC D1 . POP DE 35ED 1E 38 .8 LD E,38 ; Move Real 35EF C3 14 35 ..5 JP 3514 ;---------- setclock ------------- 35F2 DD 7E 1D .~. LD A,(IX+1D) ; priv >= 1 35F5 FE 01 .. CP 01 35F7 DA E6 3C ..< JP C,3CE6 ; privilegierungsfehler 35FA CD A7 44 ..D CALL 44A7 ; 35FD 11 B9 4C ..L LD DE,4CB9 3600 C3 14 35 ..5 JP 3514 ;------------ ACCDS --------------- 3603 CD 1B 43 ..C CALL 431B 3606 CD 11 36 ..6 CALL 3611 ; Test ob DSID > 4 3609 1E 00 .. LD E,00 ; REF-Addr D=DSID, E=0 360B D5 . PUSH DE 360C 21 04 01 !.. LD HL,0104 ; Wortaddresse 4 in Seite 1 i. Start 360F 18 23 .# JR 3634 ;------------ DSID > 4 ? ---------- 3611 56 V LD D,(HL) 3612 3E 04 >. LD A,04 3614 BA . CP D 3615 D2 82 38 ..8 JP NC,3882 ; falscher DATASPACE Zugriff 3618 2C , INC L 3619 7E ~ LD A,(HL) 361A DD BE 30 ..0 CP (IX+30) 361D C2 82 38 ..8 JP NZ,3882 3620 C9 . RET ;-------------- REF --------------- 3621 CD C0 43 ..C CALL 43C0 ; Wortaddr holen 3624 D5 . PUSH DE ; Zweiwortaddr auf Stack 3625 18 0D .. JR 3634 ;-------------- SEL --------------- 3627 CD C0 43 ..C CALL 43C0 362A D5 . PUSH DE 362B CD 43 44 .CD CALL 4443 ; Offset holen 362E 19 . ADD HL,DE ; REF:=Base+Offset 362F 30 03 0. JR NC,3634 3631 D1 . POP DE 3632 1C . INC E 3633 D5 . PUSH DE 3634 EB . EX DE,HL ;---------- REF-Adr auf Stack ----- 3635 CD 64 43 .dC CALL 4364 3638 73 s LD (HL),E ; 4 Bytes auf Stack 3639 2C , INC L 363A 72 r LD (HL),D 363B 2C , INC L 363C D1 . POP DE 363D 73 s LD (HL),E 363E 2C , INC L 363F 72 r LD (HL),D 3640 C3 A7 2A ..* JP 2AA7 ;------------- SUBS --------------- 3643 67 g LD H,A 3644 E5 . PUSH HL 3645 CD 43 44 .CD CALL 4443 3648 CD 13 43 ..C CALL 4313 364B 7E ~ LD A,(HL) 364C 2C , INC L 364D 66 f LD H,(HL) 364E 6F o LD L,A 364F 2B + DEC HL 3650 7B { LD A,E 3651 95 . SUB L 3652 7A z LD A,D 3653 9C . SBC H 3654 DC D9 3C ..< CALL C,3CD9 3657 EB . EX DE,HL 3658 E1 . POP HL 3659 CD 6D 4D .mM CALL 4D6D 365C DC D9 3C ..< CALL C,3CD9 365F E5 . PUSH HL 3660 F5 . PUSH AF 3661 CD B8 43 ..C CALL 43B8 3664 F1 . POP AF 3665 83 . ADD E 3666 5F _ LD E,A 3667 EB . EX DE,HL 3668 E3 . EX (SP),HL 3669 19 . ADD HL,DE 366A 30 C8 0. JR NC,3634 ; REF-Adr auf Stack 366C 18 C3 .. JR 3631 ;------------ EQUIM -------------- 366E EB . EX DE,HL 366F CD 13 43 ..C CALL 4313 3672 7E ~ LD A,(HL) 3673 BB . CP E 3674 C2 84 2E ... JP NZ,2E84 ; Lowbyte vergleichen 3677 2C , INC L 3678 7E ~ LD A,(HL) ; Highbyte muss 0 sein 3679 B7 . OR A 367A C2 84 2E ... JP NZ,2E84 367D C3 71 2E .q. JP 2E71 ;-------------- STIM ------------- 3680 EB . EX DE,HL 3681 16 00 .. LD D,00 ; Lowbyte uebernehmen, Highbyte 0 3683 C3 03 2D ..- JP 2D03 ;-------------- MOVEXX ----------- 3686 CD 43 44 .CD CALL 4443 ; langer move 3689 D5 . PUSH DE 368A 18 03 .. JR 368F ;-------------- MOVX ------------- 368C 26 00 &. LD H,00 ; Highbyte 0 368E E5 . PUSH HL 368F CD B8 43 ..C CALL 43B8 ; laenge holen 3692 FD 21 85 46 .!.F LD IY,4685 3696 FD 36 00 01 .6.. LD (IY+00),01 369A FD 72 03 .r. LD (IY+03),D 369D 7B { LD A,E 369E CD CA 44 ..D CALL 44CA ; from addr holen 36A1 E5 . PUSH HL 36A2 CD B8 43 ..C CALL 43B8 36A5 FD 21 89 46 .!.F LD IY,4689 36A9 FD 36 00 00 .6.. LD (IY+00),00 36AD FD 72 03 .r. LD (IY+03),D 36B0 7B { LD A,E 36B1 CD CA 44 ..D CALL 44CA 36B4 EB . EX DE,HL 36B5 E1 . POP HL 36B6 ED 43 D0 41 .C.A LD (41D0),BC 36BA C1 . POP BC 36BB CB 21 .! SLA C ; Laenge * 2 in Bytes 36BD CB 10 .. RL B 36BF CD B0 2C .., CALL 2CB0 36C2 ED 4B D0 41 .K.A LD BC,(41D0) 36C6 C3 A7 2A ..* JP 2AA7 ;--------------- GW -------------- 36C9 CD F9 36 ..6 CALL 36F9 ; segment und oofset 36CC CD 4D 44 .MD CALL 444D ; Wert auf Stack 36CF C3 00 2D ..- JP 2D00 ;-------------- PW --------------- 36D2 CD F9 36 ..6 CALL 36F9 ; segment und offset 36D5 CD 7D 44 .}D CALL 447D 36D8 EB . EX DE,HL 36D9 CD 13 43 ..C CALL 4313 36DC 7E ~ LD A,(HL) 36DD 12 . LD (DE),A ; segment veraendern 36DE 2C , INC L 36DF 1C . INC E 36E0 7E ~ LD A,(HL) 36E1 12 . LD (DE),A 36E2 C3 A7 2A ..* JP 2AA7 ;----------- getword ------------- 36E5 CD 13 43 ..C CALL 4313 ; segment (Nur ein Byte) 36E8 5E ^ LD E,(HL) 36E9 CD A8 2C .., CALL 2CA8 ; wortaddr --> HL 36EC 7B { LD A,E ; Seg in A, addr in HL, Wert a.Stack 36ED 18 DD .. JR 36CC ;------------ putword ------------ 36EF CD 13 43 ..C CALL 4313 36F2 5E ^ LD E,(HL) ; segment (nur ein byte) 36F3 CD A8 2C .., CALL 2CA8 36F6 7B { LD A,E ; Segment 36F7 18 DC .. JR 36D5 ;-------------------------------- 36F9 5D ] LD E,L ; L ist Opcode Byte m. Seg und Offse 36FA CD 13 43 ..C CALL 4313 36FD 7B { LD A,E 36FE 5E ^ LD E,(HL) ; Wortaddr holen 36FF 2C , INC L 3700 56 V LD D,(HL) 3701 67 g LD H,A 3702 E6 0F .. AND 0F ; Low digit = Offset zu Wortaddr 3704 6F o LD L,A 3705 AC . XOR H ; Low DIgit in A = 0 3706 26 00 &. LD H,00 3708 19 . ADD HL,DE 3709 0F . RRCA ; A 0 Segment 370A 0F . RRCA 370B 0F . RRCA 370C 0F . RRCA 370D C9 . RET ;------------- KE ---------------- 370E CD 2A 6F .*o CALL 6F2A ; Info " KE" 3711 C3 A7 2A ..* JP 2AA7 ;-------------- SYSGEN ------------ 3714 CD 05 53 ..S CALL 5305 ; RET, Keine Aktion 3717 C3 A7 2A ..* JP 2AA7 ;--------------- cout ------------ 371A CD 13 43 ..C CALL 4313 ; INT holen 371D 5E ^ LD E,(HL) 371E 2C , INC L 371F 56 V LD D,(HL) 3720 C5 . PUSH BC 3721 CB 7A .z BIT 7,D 3723 20 34 4 JR NZ,3759 3725 DD 7E 26 .~& LD A,(IX+26) ; Am Kanal ? 3728 B7 . OR A 3729 28 2E (. JR Z,3759 ; Nur fuer positive Zahlen 372B CD 59 1E .Y. CALL 1E59 372E FE 1E .. CP 1E ; Kanal genuegend frei 3730 38 27 8' JR C,3759 3732 21 20 20 ! LD HL,2020 3735 22 E9 41 ".A LD (41E9),HL 3738 22 EB 41 ".A LD (41EB),HL ; Puffer loeschen 373B 21 E8 41 !.A LD HL,41E8 373E CD 00 4E ..N CALL 4E00 ; Konvertieren 3741 21 E7 41 !.A LD HL,41E7 3744 01 0C 00 ... LD BC,000C ; Stringlaenge 12 3747 59 Y LD E,C 3748 DD 7E 26 .~& LD A,(IX+26) ; immer noch frei ? 374B B7 . OR A 374C 28 0B (. JR Z,3759 374E CD 88 21 ..! CALL 2188 ; OUTPUT 3751 38 06 8. JR C,3759 3753 09 . ADD HL,BC 3754 7B { LD A,E 3755 91 . SUB C 3756 4F O LD C,A 3757 18 EE .. JR 3747 3759 C1 . POP BC 375A C3 A7 2A ..* JP 2AA7 ;------------ outsubtext 1 -------- 375D CD 89 47 ..G CALL 4789 3760 18 08 .. JR 376A ;------------ outsubtext 2 -------- 3762 CD 95 47 ..G CALL 4795 3765 18 03 .. JR 376A ;--------------- out -------------- 3767 CD 8D 46 ..F CALL 468D 376A C5 . PUSH BC 376B 42 B LD B,D 376C 4B K LD C,E 376D CD 44 45 .DE CALL 4544 3770 28 16 (. JR Z,3788 3772 F5 . PUSH AF 3773 50 P LD D,B 3774 59 Y LD E,C 3775 DD 7E 26 .~& LD A,(IX+26) 3778 B7 . OR A 3779 28 11 (. JR Z,378C 377B CD 88 21 ..! CALL 2188 ; OUTPUT 377E 30 0F 0. JR NC,378F 3780 F1 . POP AF 3781 30 05 0. JR NC,3788 3783 CD C1 45 ..E CALL 45C1 3786 18 E5 .. JR 376D 3788 C1 . POP BC 3789 C3 A7 2A ..* JP 2AA7 378C 01 00 00 ... LD BC,0000 378F F1 . POP AF 3790 7B { LD A,E 3791 91 . SUB C 3792 4F O LD C,A 3793 7A z LD A,D 3794 98 . SBC B 3795 47 G LD B,A 3796 CD F1 45 ..E CALL 45F1 3799 3E 44 >D LD A,44 379B C3 23 29 .#) JP 2923 ;-------------- inchar ------------ 379E CD 64 43 .dC CALL 4364 37A1 2C , INC L 37A2 2C , INC L 37A3 DD 7E 26 .~& LD A,(IX+26) ; AM Kanal ? 37A6 B7 . OR A 37A7 28 05 (. JR Z,37AE 37A9 CD 06 1F ... CALL 1F06 ; incharety 37AC 30 05 0. JR NC,37B3 37AE 3E 48 >H LD A,48 ; Status: Auf Taste warten 37B0 C3 23 29 .#) JP 2923 37B3 36 01 6. LD (HL),01 ; Text der laenge 1 37B5 2C , INC L 37B6 77 w LD (HL),A 37B7 CD 29 4C .)L CALL 4C29 37BA C3 A7 2A ..* JP 2AA7 ;------------- incharety --------- 37BD CD 64 43 .dC CALL 4364 37C0 2C , INC L 37C1 2C , INC L 37C2 DD 7E 26 .~& LD A,(IX+26) 37C5 B7 . OR A 37C6 28 05 (. JR Z,37CD 37C8 CD 06 1F ... CALL 1F06 37CB 30 E6 0. JR NC,37B3 ; Text der laenge 1 37CD 97 . SUB A ; Niltext 37CE 77 w LD (HL),A 37CF 2C , INC L 37D0 77 w LD (HL),A 37D1 C3 A7 2A ..* JP 2AA7 ;-------------- pause ------------ 37D4 CD A8 2C .., CALL 2CA8 37D7 DD 7E 26 .~& LD A,(IX+26) 37DA B7 . OR A 37DB 28 06 (. JR Z,37E3 37DD CD AD 1E ... CALL 1EAD ; Taste gedrueckt ? 37E0 D2 A7 2A ..* JP NC,2AA7 37E3 ED 5B F1 4C .[.L LD DE,(4CF1) 37E7 19 . ADD HL,DE 37E8 DD 75 0C .u. LD (IX+0C),L ; modi := time 37EB DD 74 0D .t. LD (IX+0D),H 37EE 79 y LD A,C 37EF 08 . EX AF,AF' 37F0 3E 4C >L LD A,4C ; Status: pause 37F2 C3 23 29 .#) JP 2923 ;------------ getcursor ----------- 37F5 C5 . PUSH BC 37F6 DD 7E 26 .~& LD A,(IX+26) 37F9 B7 . OR A 37FA C4 85 1E ... CALL NZ,1E85 ; getcursor --> BC 37FD 59 Y LD E,C 37FE 50 P LD D,B 37FF C1 . POP BC ; icount 3800 DA 26 29 .&) JP C,2926 3803 1C . INC E ; x+1 , y+1 3804 14 . INC D 3805 CD 64 43 .dC CALL 4364 ; Zwei Werte (wie REF-Adr) auf Stack 3808 72 r LD (HL),D ; Beide Highbytes 0 3809 16 00 .. LD D,00 380B 2C , INC L 380C 72 r LD (HL),D 380D C3 03 2D ..- JP 2D03 ;------------ catinput ------------ 3810 CD B8 43 ..C CALL 43B8 3813 E5 . PUSH HL 3814 D5 . PUSH DE 3815 CD 64 43 .dC CALL 4364 3818 2C , INC L 3819 2C , INC L 381A 22 CC 41 ".A LD (41CC),HL 381D 97 . SUB A 381E 77 w LD (HL),A 381F 2C , INC L 3820 77 w LD (HL),A 3821 DD 7E 26 .~& LD A,(IX+26) 3824 B7 . OR A 3825 28 44 (D JR Z,386B 3827 D1 . POP DE 3828 E1 . POP HL 3829 E5 . PUSH HL 382A D5 . PUSH DE 382B CD AD 47 ..G CALL 47AD 382E ED 53 40 4B .S@K LD (4B40),DE 3832 D5 . PUSH DE 3833 13 . INC DE 3834 CD AD 48 ..H CALL 48AD 3837 D1 . POP DE 3838 38 2A 8* JR C,3864 383A CD 1D 4A ..J CALL 4A1D 383D CD 0D 45 ..E CALL 450D 3840 DD 7E 26 .~& LD A,(IX+26) 3843 CD 06 1F ... CALL 1F06 ; incharety 3846 38 1C 8. JR C,3864 3848 FE 20 . CP 20 384A 38 11 8. JR C,385D ; < Blank ? 384C 77 w LD (HL),A 384D 13 . INC DE 384E 2C , INC L 384F 7D } LD A,L ; alle 8 Zeichen unterbrechen 3850 E6 07 .. AND 07 3852 20 EC . JR NZ,3840 3854 CD 92 48 ..H CALL 4892 3857 ED 4B D0 41 .K.A LD BC,(41D0) 385B 18 CA .. JR 3827 ; nochmal von vorne 385D 2A CC 41 *.A LD HL,(41CC) 3860 36 01 6. LD (HL),01 ; Text der Laenge 1 = escchar 3862 2C , INC L 3863 77 w LD (HL),A 3864 CD 92 48 ..H CALL 4892 ; Kein Zeichen mehr: CAT... 3867 ED 4B D0 41 .K.A LD BC,(41D0) 386B D1 . POP DE 386C E1 . POP HL 386D C3 A7 2A ..* JP 2AA7 ;------ korrekte DSID in HL ?----- 3870 DD 7E 30 .~0 LD A,(IX+30) ; eigener Taskindex 3873 BC . CP H 3874 20 0C . JR NZ,3882 3876 7D } LD A,L ; DSnr > 4 3877 FE 05 .. CP 05 3879 38 07 8. JR C,3882 387B C5 . PUSH BC 387C 4D M LD C,L ; exists (ds) ? 387D CD 77 69 .wi CALL 6977 3880 C1 . POP BC 3881 D0 . RET NC 3882 3E 0B >. LD A,0B ; alias error 3884 CD 0D 3D ..= CALL 3D0D 3887 21 05 00 !.. LD HL,0005 ; Errorspace mit eienem Index 388A 55 U LD D,L 388B 37 7 SCF 388C C9 . RET ;--------------------------------- 388D 55 U LD D,L 388E 1E 00 .. LD E,00 3890 21 02 01 !.. LD HL,0102 3893 CD 5C 65 .\e CALL 655C 3896 0F . RRCA 3897 67 g LD H,A 3898 29 ) ADD HL,HL 3899 C9 . RET ;------------ ALIAS -------------- 389A CD 43 44 .CD CALL 4443 ; DSID holen 389D 21 0B 01 !.. LD HL,010B 38A0 19 . ADD HL,DE 38A1 38 0A 8. JR C,38AD 38A3 7D } LD A,L 38A4 E6 F8 .. AND F8 38A6 6F o LD L,A 38A7 29 ) ADD HL,HL 38A8 30 01 0. JR NC,38AB 38AA 2C , INC L 38AB 18 03 .. JR 38B0 38AD 21 04 00 !.. LD HL,0004 38B0 22 CC 41 ".A LD (41CC),HL 38B3 CD A8 2C .., CALL 2CA8 38B6 CD 70 38 .p8 CALL 3870 38B9 E5 . PUSH HL 38BA CD 8D 38 ..8 CALL 388D 38BD 2D - DEC L 38BE 2D - DEC L 38BF 7E ~ LD A,(HL) 38C0 3C < INC A 38C1 20 1E . JR NZ,38E1 38C3 21 00 01 !.. LD HL,0100 38C6 CD 2C 66 .,f CALL 662C 38C9 0F . RRCA 38CA 67 g LD H,A 38CB 29 ) ADD HL,HL 38CC ED 5B CC 41 .[.A LD DE,(41CC) ; Liefert REF-Addr 38D0 73 s LD (HL),E 38D1 2C , INC L 38D2 72 r LD (HL),D 38D3 2C , INC L 38D4 73 s LD (HL),E 38D5 2C , INC L 38D6 72 r LD (HL),D 38D7 2C , INC L 38D8 CB 7E .~ BIT 7,(HL) 38DA 28 05 (. JR Z,38E1 38DC 36 00 6. LD (HL),00 38DE 2C , INC L 38DF 36 00 6. LD (HL),00 38E1 D1 . POP DE 38E2 C3 03 2D ..- JP 2D03 ;---------- nilspace ------------- 38E5 11 00 00 ... LD DE,0000 38E8 C3 03 2D ..- JP 2D03 ;----------- dscopy := ----------- 38EB CD 64 43 .dC CALL 4364 ; dest adr holen 38EE E5 . PUSH HL 38EF CD A8 2C .., CALL 2CA8 38F2 7C | LD A,H 38F3 B5 . OR L 38F4 C4 70 38 .p8 CALL NZ,3870 ; source <> nilspace 38F7 EB . EX DE,HL 38F8 38 0F 8. JR C,3909 38FA C5 . PUSH BC 38FB DD 46 30 .F0 LD B,(IX+30) ; eigener taskindex 38FE 4B K LD C,E 38FF 50 P LD D,B 3900 CD E8 68 ..h CALL 68E8 ; 3903 C1 . POP BC 3904 1C . INC E ; Anzahl Dataspaces 3905 1D . DEC E 3906 CC 10 39 ..9 CALL Z,3910 ; errorstop durhfuehren als SBRT. 3909 E1 . POP HL 390A 73 s LD (HL),E 390B 2C , INC L 390C 72 r LD (HL),D 390D C3 A7 2A ..* JP 2AA7 3910 3E 08 >. LD A,08 ; errorstop zuviele DS 3912 CD 0D 3D ..= CALL 3D0D 3915 11 05 00 ... LD DE,0005 ; result ist errorspace 3918 C9 . RET ;------------- forget ------------ 3919 CD 64 43 .dC CALL 4364 391C C5 . PUSH BC 391D 5E ^ LD E,(HL) 391E 2C , INC L 391F 56 V LD D,(HL) 3920 EB . EX DE,HL 3921 3E 05 >. LD A,05 ; Nur ds > 4 loeschen 3923 BD . CP L 3924 30 17 0. JR NC,393D 3926 CB 7C .| BIT 7,H 3928 28 06 (. JR Z,3930 392A 7D } LD A,L 392B 84 . ADD H 392C 20 0F . JR NZ,393D 392E 18 06 .. JR 3936 3930 DD 7E 30 .~0 LD A,(IX+30) 3933 BC . CP H 3934 20 07 . JR NZ,393D 3936 4D M LD C,L 3937 CD 77 69 .wi CALL 6977 393A D4 97 69 ..i CALL NC,6997 393D EB . EX DE,HL 393E 36 00 6. LD (HL),00 ; ergebnis 01 DS 3940 2D - DEC L 3941 36 01 6. LD (HL),01 3943 C1 . POP BC 3944 C3 A7 2A ..* JP 2AA7 ;------------- settype ----------- 3947 CD A8 2C .., CALL 2CA8 394A EB . EX DE,HL 394B CD A8 2C .., CALL 2CA8 394E EB . EX DE,HL 394F CD 70 38 .p8 CALL 3870 3952 38 11 8. JR C,3965 3954 D5 . PUSH DE 3955 55 U LD D,L 3956 1E 00 .. LD E,00 3958 21 02 01 !.. LD HL,0102 395B CD 2C 66 .,f CALL 662C 395E 0F . RRCA 395F 67 g LD H,A 3960 29 ) ADD HL,HL 3961 D1 . POP DE 3962 73 s LD (HL),E ; type im ds ersetzen 3963 2C , INC L 3964 72 r LD (HL),D 3965 C3 A7 2A ..* JP 2AA7 ;------------- gettype ------------ 3968 CD A8 2C .., CALL 2CA8 396B CD 70 38 .p8 CALL 3870 396E 38 06 8. JR C,3976 3970 CD 8D 38 ..8 CALL 388D 3973 5E ^ LD E,(HL) 3974 2C , INC L 3975 56 V LD D,(HL) 3976 C3 03 2D ..- JP 2D03 ;------------ heapsize ------------ 3979 CD A8 2C .., CALL 2CA8 397C CD 70 38 .p8 CALL 3870 397F 38 F5 8. JR C,3976 3981 CD 8D 38 ..8 CALL 388D 3984 2E 00 .. LD L,00 3986 7E ~ LD A,(HL) 3987 E6 0F .. AND 0F 3989 2C , INC L 398A 5E ^ LD E,(HL) 398B 0F . RRCA 398C CB 1B .. RR E 398E 0F . RRCA 398F CB 1B .. RR E 3991 E6 03 .. AND 03 3993 57 W LD D,A 3994 C3 03 2D ..- JP 2D03 ;------------ pages task ---------- 3997 CD 13 43 ..C CALL 4313 399A 5E ^ LD E,(HL) 399B CD 13 43 ..C CALL 4313 399E 56 V LD D,(HL) 399F CD 7D 6A .}j CALL 6A7D 39A2 C3 03 2D ..- JP 2D03 ;---- Parameter fuer blockin/out--- 39A5 CD 13 43 ..C CALL 4313 ; DSnr 39A8 CD 11 36 ..6 CALL 3611 39AB CD A8 2C .., CALL 2CA8 ; page --> HL 39AE 5C \ LD E,H 39AF 65 e LD H,L 39B0 2E 00 .. LD L,00 39B2 C9 . RET ;----------------- blockout ------- 39B3 CD A5 39 ..9 CALL 39A5 39B6 CD 5C 65 .\e CALL 655C 39B9 67 g LD H,A 39BA EB . EX DE,HL 39BB CD A8 2C .., CALL 2CA8 ; code1 --> HL 39BE E5 . PUSH HL 39BF CD A8 2C .., CALL 2CA8 ; code2 --> HL 39C2 E5 . PUSH HL 39C3 CD 64 43 .dC CALL 4364 ; result addr 39C6 ED 43 D0 41 .C.A LD (41D0),BC 39CA C1 . POP BC 39CB E3 . EX (SP),HL 39CC DD 7E 26 .~& LD A,(IX+26) 39CF B7 . OR A 39D0 28 05 (. JR Z,39D7 ; Kanal > 0 sein 39D2 CD 2A 26 .*& CALL 262A 39D5 18 03 .. JR 39DA 39D7 01 FF FF ... LD BC,FFFF ; Nicht fuer HG 39DA E1 . POP HL ; result liefern 39DB 71 q LD (HL),C 39DC 2C , INC L 39DD 70 p LD (HL),B 39DE ED 4B D0 41 .K.A LD BC,(41D0) 39E2 C3 A7 2A ..* JP 2AA7 ;------------ blockin ------------- 39E5 CD A5 39 ..9 CALL 39A5 39E8 CD 2C 66 .,f CALL 662C 39EB 67 g LD H,A 39EC EB . EX DE,HL 39ED CD A8 2C .., CALL 2CA8 39F0 E5 . PUSH HL 39F1 CD A8 2C .., CALL 2CA8 39F4 E5 . PUSH HL 39F5 CD 64 43 .dC CALL 4364 39F8 ED 43 D0 41 .C.A LD (41D0),BC 39FC C1 . POP BC 39FD E3 . EX (SP),HL 39FE DD 7E 26 .~& LD A,(IX+26) 3A01 B7 . OR A 3A02 28 D3 (. JR Z,39D7 3A04 CD 56 25 .V% CALL 2556 3A07 18 D1 .. JR 39DA ;------------ control ------------- 3A09 CD A8 2C .., CALL 2CA8 ; funktion 3A0C EB . EX DE,HL 3A0D CD A8 2C .., CALL 2CA8 ; code1 3A10 E5 . PUSH HL 3A11 CD A8 2C .., CALL 2CA8 ; code2 3A14 E5 . PUSH HL 3A15 CD 64 43 .dC CALL 4364 ; result 3A18 ED 43 D0 41 .C.A LD (41D0),BC ; DE = Funktion 3A1C C1 . POP BC ; BC = Code 2 3A1D E3 . EX (SP),HL ; HL = Code 1 3A1E 7B { LD A,E ; funktion=10 (calendar) 3A1F D6 0A .. SUB A,0A 3A21 B2 . OR D 3A22 28 0B (. JR Z,3A2F 3A24 DD 7E 26 .~& LD A,(IX+26) 3A27 B7 . OR A 3A28 28 AD (. JR Z,39D7 3A2A CD 56 24 .V$ CALL 2456 ; IOCONTROL 3A2D 18 AB .. JR 39DA ; result in BC uebertragen 3A2F 3A 6B 28 :k( LD A,(286B) ; control (10,..) 3A32 FE 08 .. CP 08 ; shard >= 8? 3A34 30 F4 0. JR NC,3A2A ; nein: 3A36 01 FF FF ... LD BC,FFFF ; result -1 3A39 18 9F .. JR 39DA ;-------------- nextdspage -------- 3A3B CD 13 43 ..C CALL 4313 ; dsnr holen 3A3E CD 11 36 ..6 CALL 3611 ; test, gueltigen ds 3A41 CD A8 2C .., CALL 2CA8 ; page holen 3A44 CD 5B 6A .[j CALL 6A5B ; nextdspage 3A47 EB . EX DE,HL 3A48 C3 03 2D ..- JP 2D03 ; nextpage auf stack 3A4B CB 7E .~ BIT 7,(HL) 3A4D 28 04 (. JR Z,3A53 3A4F CB BE .. RES 7,(HL) 3A51 B7 . OR A 3A52 C9 . RET 3A53 1C . INC E 3A54 2D - DEC L 3A55 34 4 INC (HL) 3A56 20 03 . JR NZ,3A5B 3A58 2C , INC L 3A59 34 4 INC (HL) 3A5A 2D - DEC L 3A5B 2C , INC L 3A5C CB FE .. SET 7,(HL) 3A5E 37 7 SCF 3A5F C9 . RET 3A60 CB BC .. RES 7,H 3A62 5C \ LD E,H 3A63 16 1D .. LD D,1D 3A65 1A . LD A,(DE) 3A66 67 g LD H,A 3A67 29 ) ADD HL,HL 3A68 D8 . RET C 3A69 C3 F9 42 ..B JP 42F9 3A6C CB BC .. RES 7,H 3A6E 5C \ LD E,H 3A6F 16 1D .. LD D,1D 3A71 1A . LD A,(DE) 3A72 67 g LD H,A 3A73 29 ) ADD HL,HL 3A74 B7 . OR A 3A75 C0 . RET NZ 3A76 C3 E1 42 ..B JP 42E1 ;---------------- ECWR ------------ 3A79 CD 64 43 .dC CALL 4364 3A7C E5 . PUSH HL 3A7D CD 64 43 .dC CALL 4364 3A80 5E ^ LD E,(HL) 3A81 2C , INC L 3A82 56 V LD D,(HL) 3A83 E5 . PUSH HL 3A84 EB . EX DE,HL 3A85 CD 60 3A .`: CALL 3A60 3A88 EB . EX DE,HL 3A89 CD 13 43 ..C CALL 4313 3A8C 7E ~ LD A,(HL) 3A8D E1 . POP HL 3A8E CD 4B 3A .K: CALL 3A4B 3A91 12 . LD (DE),A 3A92 38 04 8. JR C,3A98 3A94 EB . EX DE,HL 3A95 2C , INC L 3A96 36 00 6. LD (HL),00 3A98 E1 . POP HL 3A99 5E ^ LD E,(HL) 3A9A 2C , INC L 3A9B 56 V LD D,(HL) 3A9C EB . EX DE,HL 3A9D 29 ) ADD HL,HL 3A9E CB 54 .T BIT 2,H 3AA0 CB 94 .. RES 2,H 3AA2 28 01 (. JR Z,3AA5 3AA4 2C , INC L 3AA5 85 . ADD L 3AA6 6F o LD L,A 3AA7 30 01 0. JR NC,3AAA 3AA9 24 $ INC H 3AAA CB 94 .. RES 2,H 3AAC EB . EX DE,HL 3AAD 72 r LD (HL),D 3AAE 2D - DEC L 3AAF 73 s LD (HL),E 3AB0 C3 A7 2A ..* JP 2AA7 ;--------------- CWR ------------- 3AB3 CD 64 43 .dC CALL 4364 3AB6 E5 . PUSH HL 3AB7 CD 13 43 ..C CALL 4313 3ABA 5E ^ LD E,(HL) 3ABB D5 . PUSH DE 3ABC CD A8 2C .., CALL 2CA8 3ABF CD 60 3A .`: CALL 3A60 3AC2 D1 . POP DE 3AC3 73 s LD (HL),E 3AC4 E1 . POP HL 3AC5 2C , INC L 3AC6 CD 4B 3A .K: CALL 3A4B 3AC9 CB BE .. RES 7,(HL) 3ACB C3 A7 2A ..* JP 2AA7 ;----------- CRD ------------------ 3ACE CD A8 2C .., CALL 2CA8 3AD1 CD 6C 3A .l: CALL 3A6C 3AD4 5E ^ LD E,(HL) 3AD5 16 00 .. LD D,00 3AD7 C3 03 2D ..- JP 2D03 ;------------- BCRD --------------- 3ADA CD 64 43 .dC CALL 4364 3ADD E5 . PUSH HL 3ADE CD 64 43 .dC CALL 4364 3AE1 5E ^ LD E,(HL) 3AE2 2C , INC L 3AE3 56 V LD D,(HL) 3AE4 E5 . PUSH HL 3AE5 EB . EX DE,HL 3AE6 CD 6C 3A .l: CALL 3A6C 3AE9 EB . EX DE,HL 3AEA E1 . POP HL 3AEB CD 4B 3A .K: CALL 3A4B 3AEE E1 . POP HL 3AEF 1A . LD A,(DE) 3AF0 77 w LD (HL),A 3AF1 2C , INC L 3AF2 36 00 6. LD (HL),00 3AF4 C3 A7 2A ..* JP 2AA7 ;-------------- cdbint ----------- 3AF7 CD A8 2C .., CALL 2CA8 ; address holen 3AFA 3E 05 >. LD A,05 ; Segment 5 3AFC FD 21 85 46 .!.F LD IY,4685 3B00 FD 36 00 01 .6.. LD (IY+00),01 ; 1 Wort 3B04 FD 36 03 04 .6.. LD (IY+03),04 ; DS 4 3B08 CD CA 44 ..D CALL 44CA 3B0B C3 00 2D ..- JP 2D00 ;-------------- cdbtext ----------- 3B0E CD A8 2C .., CALL 2CA8 ; Textaddress holen 3B11 2B + DEC HL 3B12 11 05 04 ... LD DE,0405 ; DS 4, Segment 5 3B15 CD 95 46 ..F CALL 4695 3B18 C3 D0 30 ..0 JP 30D0 ;--------------- CTT -------------- 3B1B CD A8 2C .., CALL 2CA8 ; Textaddr holen 3B1E 2B + DEC HL 3B1F 11 04 00 ... LD DE,0004 ; REF-Adr : DS 4, HL 3B22 D5 . PUSH DE 3B23 C3 34 36 .46 JP 3634 ;-------------- GETC -------------- 3B26 CD 8D 46 ..F CALL 468D 3B29 E5 . PUSH HL 3B2A CD 64 43 .dC CALL 4364 3B2D 7B { LD A,E 3B2E 5E ^ LD E,(HL) 3B2F 93 . SUB E 3B30 2C , INC L 3B31 7A z LD A,D 3B32 56 V LD D,(HL) 3B33 9A . SBC D 3B34 38 18 8. JR C,3B4E 3B36 E3 . EX (SP),HL 3B37 1B . DEC DE 3B38 CD 0D 45 ..E CALL 450D 3B3B 5E ^ LD E,(HL) 3B3C CD 64 43 .dC CALL 4364 3B3F 73 s LD (HL),E 3B40 2C , INC L 3B41 36 00 6. LD (HL),00 3B43 E1 . POP HL 3B44 2D - DEC L 3B45 34 4 INC (HL) 3B46 C2 71 2E .q. JP NZ,2E71 3B49 2C , INC L 3B4A 34 4 INC (HL) 3B4B C3 71 2E .q. JP 2E71 3B4E CD 43 44 .CD CALL 4443 3B51 C3 84 2E ... JP 2E84 ;------------ FNONBL -------------- 3B54 CD 64 43 .dC CALL 4364 3B57 E5 . PUSH HL 3B58 CD 8D 46 ..F CALL 468D 3B5B E5 . PUSH HL 3B5C D5 . PUSH DE 3B5D CD 64 43 .dC CALL 4364 3B60 22 CC 41 ".A LD (41CC),HL 3B63 ED 43 D0 41 .C.A LD (41D0),BC 3B67 C1 . POP BC 3B68 5E ^ LD E,(HL) 3B69 2C , INC L 3B6A 56 V LD D,(HL) 3B6B E1 . POP HL 3B6C CD 1D 46 ..F CALL 461D 3B6F CD 44 45 .DE CALL 4544 3B72 28 2B (+ JR Z,3B9F 3B74 F5 . PUSH AF 3B75 3E 20 > LD A,20 3B77 ED A1 .. CPI 3B79 20 0B . JR NZ,3B86 3B7B EA 77 3B .w; JP PE,3B77 3B7E F1 . POP AF 3B7F 30 1E 0. JR NC,3B9F 3B81 CD C1 45 ..E CALL 45C1 3B84 18 E9 .. JR 3B6F 3B86 F1 . POP AF 3B87 2B + DEC HL 3B88 7E ~ LD A,(HL) 3B89 CD 33 46 .3F CALL 4633 3B8C 13 . INC DE 3B8D 2A CC 41 *.A LD HL,(41CC) 3B90 73 s LD (HL),E 3B91 2C , INC L 3B92 72 r LD (HL),D 3B93 E1 . POP HL 3B94 77 w LD (HL),A 3B95 2C , INC L 3B96 36 00 6. LD (HL),00 3B98 ED 4B D0 41 .K.A LD BC,(41D0) 3B9C C3 71 2E .q. JP 2E71 3B9F E1 . POP HL 3BA0 ED 4B D0 41 .K.A LD BC,(41D0) 3BA4 C3 84 2E ... JP 2E84 ;-------------- DREM256 ----------- 3BA7 CD 64 43 .dC CALL 4364 3BAA EB . EX DE,HL 3BAB CD 64 43 .dC CALL 4364 3BAE 1A . LD A,(DE) 3BAF 77 w LD (HL),A 3BB0 97 . SUB A 3BB1 2C , INC L 3BB2 77 w LD (HL),A 3BB3 EB . EX DE,HL 3BB4 2C , INC L 3BB5 5E ^ LD E,(HL) 3BB6 77 w LD (HL),A 3BB7 2D - DEC L 3BB8 73 s LD (HL),E 3BB9 C3 A7 2A ..* JP 2AA7 ;------------- AMUL256 ------------ 3BBC CD 64 43 .dC CALL 4364 3BBF EB . EX DE,HL 3BC0 CD 13 43 ..C CALL 4313 3BC3 7E ~ LD A,(HL) 3BC4 EB . EX DE,HL 3BC5 5E ^ LD E,(HL) 3BC6 77 w LD (HL),A 3BC7 2C , INC L 3BC8 73 s LD (HL),E 3BC9 C3 A7 2A ..* JP 2AA7 ;------------ ISLD ---------------- 3BCC CD 13 43 ..C CALL 4313 3BCF 7E ~ LD A,(HL) 3BD0 FE 7B .{ CP 7B 3BD2 D2 84 2E ... JP NC,2E84 3BD5 FE 61 .a CP 61 3BD7 D2 71 2E .q. JP NC,2E71 3BDA 11 3A 30 .:0 LD DE,303A 3BDD 18 07 .. JR 3BE6 ;------------- ISDIG --------------- 3BDF 11 3A 30 .:0 LD DE,303A 3BE2 CD 13 43 ..C CALL 4313 3BE5 7E ~ LD A,(HL) 3BE6 BB . CP E 3BE7 D2 84 2E ... JP NC,2E84 3BEA BA . CP D 3BEB D2 71 2E .q. JP NC,2E71 3BEE C3 84 2E ... JP 2E84 ;-------------- ISLCAS ------------ 3BF4 18 EC .. JR 3BE2 ;-------------- ISUCAS ----------- 3BF6 11 5B 41 .[A LD DE,415B 3BF9 18 E7 .. JR 3BE2 ;--------------- GADDR ------------ 3BFB CD A8 2C .., CALL 2CA8 3BFE EB . EX DE,HL 3BFF CD A8 2C .., CALL 2CA8 3C02 CB 7C .| BIT 7,H 3C04 28 0A (. JR Z,3C10 3C06 29 ) ADD HL,HL 3C07 CB 7C .| BIT 7,H 3C09 28 01 (. JR Z,3C0C 3C0B 2C , INC L 3C0C CB FC .. SET 7,H 3C0E 18 03 .. JR 3C13 3C10 B7 . OR A 3C11 ED 52 .R SBC HL,DE 3C13 EB . EX DE,HL 3C14 C3 03 2D ..- JP 2D03 ;------------- GCADDR ------------- 3C17 CD A8 2C .., CALL 2CA8 3C1A EB . EX DE,HL 3C1B CD 13 43 ..C CALL 4313 3C1E 2C , INC L 3C1F 7A z LD A,D 3C20 96 . SUB (HL) 3C21 30 02 0. JR NC,3C25 3C23 C6 10 .. ADD A,10 3C25 0F . RRCA 3C26 57 W LD D,A 3C27 CD 64 43 .dC CALL 4364 3C2A 73 s LD (HL),E 3C2B 2C , INC L 3C2C 72 r LD (HL),D 3C2D 7A z LD A,D 3C2E E6 78 .x AND 78 3C30 CA 71 2E .q. JP Z,2E71 3C33 C3 84 2E ... JP 2E84 ;------------ ISSHA --------------- 3C36 CD A8 2C .., CALL 2CA8 3C39 7C | LD A,H 3C3A E6 7C .| AND 7C 3C3C CA 71 2E .q. JP Z,2E71 3C3F C3 84 2E ... JP 2E84 ;-------------- GETTAB ------------ 3C42 11 00 04 ... LD DE,0400 3C45 21 00 05 !.. LD HL,0500 ; von Segment 5 nach segment 4 3C48 3E 80 >. LD A,80 3C4A C5 . PUSH BC 3C4B 47 G LD B,A 3C4C 0E 04 .. LD C,04 3C4E CD B6 69 ..i CALL 69B6 3C51 CD 16 42 ..B CALL 4216 3C54 C1 . POP BC 3C55 C3 A7 2A ..* JP 2AA7 ;-------------- PUTTAB ------------ 3C58 11 00 05 ... LD DE,0500 ; von segment 4 nach segment 5 3C5B 21 00 04 !.. LD HL,0400 3C5E 3E 80 >. LD A,80 3C60 18 E8 .. JR 3C4A ;------------- ERATAB ------------- 3C62 11 00 04 ... LD DE,0400 ; Segment 4 loeschen (6 ist leer) 3C65 21 00 06 !.. LD HL,0600 3C68 E5 . PUSH HL 3C69 C5 . PUSH BC 3C6A 06 FE .. LD B,FE 3C6C 0E 04 .. LD C,04 3C6E CD B6 69 ..i CALL 69B6 3C71 C1 . POP BC 3C72 E1 . POP HL 3C73 11 00 07 ... LD DE,0700 ; neuerdings auch Segment 7 3C76 3E FE >. LD A,FE ; loeschen 3C78 18 D0 .. JR 3C4A ;------------ storage ------------ 3C7A C5 . PUSH BC 3C7B CD CC 56 ..V CALL 56CC ; storage berechnen 3C7E 59 Y LD E,C 3C7F 50 P LD D,B 3C80 C1 . POP BC 3C81 EB . EX DE,HL 3C82 E5 . PUSH HL 3C83 CD 64 43 .dC CALL 4364 ; size-addresse holen 3C86 73 s LD (HL),E 3C87 2C , INC L 3C88 72 r LD (HL),D 3C89 D1 . POP DE ; used-auf stack 3C8A C3 03 2D ..- JP 2D03 ;------------- sysop ------------- 3C8D DD 7E 1D .~. LD A,(IX+1D) ; privilegierte operation 3C90 FE 01 .. CP 01 3C92 DA E6 3C ..< JP C,3CE6 3C95 CD A8 2C .., CALL 2CA8 ; nr holen 3C98 3E 0C >. LD A,0C 3C9A BD . CP L 3C9B 20 01 . JR NZ,3C9E ; savesystem ? 3C9D 2D - DEC L ; aus 12 wird 11 3C9E 3A 17 82 :.. LD A,(8217) ; Musta 3CA1 B7 . OR A 3CA2 C2 26 29 .&) JP NZ,2926 ; Warten, bis Musta frei 3CA5 DD CB 07 5E ...^ BIT 3,(IX+07) ; restart 3CA9 20 1B . JR NZ,3CC6 3CAB DD CB 07 DE .... SET 3,(IX+07) 3CAF 7D } LD A,L 3CB0 32 17 82 2.. LD (8217),A 3CB3 21 60 EA !`. LD HL,EA60 ; 6000.0 s = 100 Minuten 3CB6 22 B6 4C ".L LD (4CB6),HL 3CB9 FE 04 .. CP 04 ; < shutup ? 3CBB DA 26 29 .&) JP C,2926 3CBE CD 02 2A ..* CALL 2A02 3CC1 CD E2 6D ..m CALL 6DE2 ; Endlos warte 3CC4 18 FB .. JR 3CC1 3CC6 DD CB 07 9E .... RES 3,(IX+07) 3CCA C3 A7 2A ..* JP 2AA7 ;-------------- DIV by 0 --------- 3CCD 3E 05 >. LD A,05 3CCF 18 37 .7 JR 3D08 ;---------- Stackoverflow --------- 3CD1 DD CB 0B B6 .... RES 6,(IX+0B) ; enablestop 3CD5 3E 02 >. LD A,02 ; errorstop 3CD7 18 39 .9 JR 3D12 ; 3CD9 3E 09 >. LD A,09 ;---------- Subscript overflow ---- 3CDB CB 7C .| BIT 7,H 3CDD 28 02 (. JR Z,3CE1 3CDF 3E 0A >. LD A,0A ;---------- Subscript underflow ---- 3CE1 21 00 00 !.. LD HL,0000 3CE4 18 27 .' JR 3D0D ;----- error: privilegierte op -- 3CE6 DD 7E 30 .~0 LD A,(IX+30) ; Taskindex = Supervisor ? 3CE9 FE 01 .. CP 01 3CEB 20 07 . JR NZ,3CF4 3CED DD 36 1D 02 .6.. LD (IX+1D),02 ; privileged 2, offener wartezustand 3CF1 C3 26 29 .&) JP 2926 ;--------- Codefehler -------------- 3CF4 DD CB 0B B6 .... RES 6,(IX+0B) ; enablestop 3CF8 3E 11 >. LD A,11 3CFA 18 16 .. JR 3D12 ; errorstop ("Codefehler") 3CFC 30 03 0. JR NC,3D01 ; ------ INT overflow, wenn arith15 3CFE 21 FF FF !.. LD HL,FFFF 3D01 DD CB 0B 66 ...f BIT 4,(IX+0B) 3D05 C0 . RET NZ 3D06 3E 04 >. LD A,04 3D08 11 01 00 ... LD DE,0001 3D0B 62 b LD H,D 3D0C 6A j LD L,D 3D0D DD CB 0B 7E ...~ BIT 7,(IX+0B) ; nur wenn nicht schon iserror 3D11 C0 . RET NZ 3D12 DD 36 25 00 .6%. LD (IX+25),00 ;--------- errorstop 3D16 DD 77 24 .w$ LD (IX+24),A ; errorno 3D19 DD 7E 20 .~ LD A,(IX+20) ; errline := lineno 3D1C DD 77 22 .w" LD (IX+22),A 3D1F DD 7E 21 .~! LD A,(IX+21) 3D22 DD 77 23 .w# LD (IX+23),A 3D25 DD CB 0B FE .... SET 7,(IX+0B) ; iserror 3D29 DD CB 0B 76 ...v BIT 6,(IX+0B) 3D2D C0 . RET NZ 3D2E CD E8 45 ..E CALL 45E8 ; Return, wenn enablestop 3D31 DD CB 07 9E .... RES 3,(IX+07) 3D35 31 13 6D 1.m LD SP,6D13 3D38 DD CB 0B 76 ...v BIT 6,(IX+0B) ;-------------- TERM -------------- 3D3C 20 09 . JR NZ,3D47 ; bis zum disablestop PROC zurueck 3D3E DD 36 06 1C .6.. LD (IX+06),1C ; Status LEAVE PROC 3D42 CD 35 30 .50 CALL 3035 ; EXEC LEAVE 3D45 18 F1 .. JR 3D38 ; Weiter LEAVEn 3D47 DD 36 06 00 .6.. LD (IX+06),00 ; Status Busy 3D4B C3 A7 2A ..* JP 2AA7 ;----------- enablestop --------- 3D4E DD CB 0B B6 .... RES 6,(IX+0B) 3D52 DD CB 0B 7E ...~ BIT 7,(IX+0B) 3D56 20 E0 . JR NZ,3D38 ; LEAVE PROC, if enablesto and iserr 3D58 C3 A7 2A ..* JP 2AA7 ;------------ disablestop -------- 3D5B DD CB 0B F6 .... SET 6,(IX+0B) 3D5F C3 A7 2A ..* JP 2AA7 ;----------- seterrorstop --------- 3D62 CD A8 2C .., CALL 2CA8 3D65 DD CB 0B 7E ...~ BIT 7,(IX+0B) 3D69 C2 A7 2A ..* JP NZ,2AA7 3D6C DD 74 25 .t% LD (IX+25),H ; errorcode high 3D6F 7D } LD A,L 3D70 CD 16 3D ..= CALL 3D16 ; errorstop 3D73 C3 A7 2A ..* JP 2AA7 ;------------- iserror ------------ 3D76 DD CB 0B 7E ...~ BIT 7,(IX+0B) 3D7A CA 84 2E ... JP Z,2E84 3D7D C3 71 2E .q. JP 2E71 ;------------ clearerror ---------- 3D80 DD CB 0B 76 ...v BIT 6,(IX+0B) 3D84 CA A7 2A ..* JP Z,2AA7 ; war kein Fehler 3D87 C5 . PUSH BC 3D88 0E 05 .. LD C,05 3D8A CD 97 69 ..i CALL 6997 3D8D 3A 1A 6E :.n LD A,(6E1A) ; Aktueller Taskindex 3D90 47 G LD B,A 3D91 0E 00 .. LD C,00 3D93 57 W LD D,A 3D94 CD E8 68 ..h CALL 68E8 3D97 C1 . POP BC 3D98 DD CB 0B BE .... RES 7,(IX+0B) 3D9C C3 A7 2A ..* JP 2AA7 ;-------- readpcb myself ---------- 3D9F CD A5 3D ..= CALL 3DA5 ; 3DA2 C3 00 2D ..- JP 2D00 ; Wert auf Stack 3DA5 CD 13 43 ..C CALL 4313 ; Zwei Addressen holen 3DA8 7E ~ LD A,(HL) 3DA9 2A 1C 6E *.n LD HL,(6E1C) ; Leitblock aktueller 3DAC 87 . ADD A 3DAD C6 1E .. ADD A,1E ; pcb--> pcf konvertieren 3DAF E6 3F .? AND 3F 3DB1 6F o LD L,A 3DB2 C9 . RET ;----- test ob, supervisorson ---- 3DB3 DD 7E 1D .~. LD A,(IX+1D) ; priv Feld 3DB6 FE 01 .. CP 01 ; >= 1 : darf 3DB8 30 08 0. JR NC,3DC2 3DBA DD 7E 1D .~. LD A,(IX+1D) ;------ test, ob supervisor ------- 3DBD FE 02 .. CP 02 3DBF DA E6 3C ..< JP C,3CE6 ; < 2 : darf nicht 3DC2 CD 07 44 ..D CALL 4407 ; leitblock einer task laden------- 3DC5 FD 2A 1C 6E .*.n LD IY,(6E1C) 3DC9 1A . LD A,(DE) 3DCA 3D = DEC A 3DCB FE 7F .. CP 7F ; Taskindex >= 128 ? 3DCD D0 . RET NC 3DCE 1C . INC E 3DCF 1A . LD A,(DE) 3DD0 1D . DEC E 3DD1 DD BE 31 ..1 CP (IX+31) ; Stationsnummer (myself) 3DD4 20 07 . JR NZ,3DDD 3DD6 1A . LD A,(DE) 3DD7 CD 4D 6D .Mm CALL 6D4D 3DDA 1A . LD A,(DE) 3DDB 37 7 SCF 3DDC C9 . RET 3DDD B7 . OR A 3DDE C9 . RET ;------------ pcb-feld lesen ----- 3DDF CD C2 3D ..= CALL 3DC2 ; 3DE2 CD 13 43 ..C CALL 4313 3DE5 7E ~ LD A,(HL) ; pcb-nummer 3DE6 FD E5 .. PUSH IY 3DE8 E1 . POP HL 3DE9 18 C1 .. JR 3DAC ;------------- readpcb task ------- 3DEB CD DF 3D ..= CALL 3DDF ; Readpcb und Wert auf Stack 3DEE C3 00 2D ..- JP 2D00 ;------------- writepcb task ------ 3DF1 CD DF 3D ..= CALL 3DDF ; Readpcb 3DF4 FD 7E 30 .~0 LD A,(IY+30) ; Eigener Taskindex = pcb-Taskindex 3DF7 DD BE 30 ..0 CP (IX+30) 3DFA 20 05 . JR NZ,3E01 ; Nein, kann nur Supervisor 3DFC 7D } LD A,L ; linenumber field 3DFD FE 20 . CP 20 ; pcf=32 kann beschrieben werden 3DFF 28 12 (. JR Z,3E13 ; von jeder task 3E01 DD 7E 1D .~. LD A,(IX+1D) 3E04 FE 02 .. CP 02 3E06 30 0B 0. JR NC,3E13 ; priv >= 2 darf alle beschreiben 3E08 FE 01 .. CP 01 3E0A DA E6 3C ..< JP C,3CE6 ; priv < 1 darf nur linenumber 3E0D 7D } LD A,L 3E0E FE 2A .* CP 2A ; priv = 1 darf nur prio beschreiben 3E10 C2 E6 3C ..< JP NZ,3CE6 3E13 EB . EX DE,HL ; writepcb durchfuehren 3E14 CD A8 2C .., CALL 2CA8 ; value holen 3E17 EB . EX DE,HL 3E18 73 s LD (HL),E ; leitblock veraendern 3E19 2C , INC L 3E1A 72 r LD (HL),D 3E1B C3 A7 2A ..* JP 2AA7 ;-------------- status ------------ 3E1E CD C2 3D ..= CALL 3DC2 ; leitblock von task holen 3E21 FD 7E 06 .~. LD A,(IY+06) ; status feld 3E24 07 . RLCA 3E25 07 . RLCA 3E26 E6 0F .. AND 0F 3E28 5F _ LD E,A 3E29 16 00 .. LD D,00 3E2B C3 03 2D ..- JP 2D03 ;--------------- unblock ---------- 3E2E CD B3 3D ..= CALL 3DB3 ; nur von supervisorsoehnen 3E31 DC 68 6D .hm CALL C,6D68 3E34 FD CB 06 4E ...N BIT 1,(IY+06) 3E38 20 04 . JR NZ,3E3E 3E3A FD CB 06 86 .... RES 0,(IY+06) 3E3E C3 A7 2A ..* JP 2AA7 ;--------------- block ------------ 3E41 CD B3 3D ..= CALL 3DB3 ; nur von supervisorsoehnen 3E44 30 F8 0. JR NC,3E3E 3E46 FD CB 06 C6 .... SET 0,(IY+06) 3E4A CD 74 6D .tm CALL 6D74 3E4D 18 EF .. JR 3E3E ;----------- nextactive ---------- 3E4F CD 64 43 .dC CALL 4364 ; task holen 3E52 7E ~ LD A,(HL) 3E53 CD 7E 6D .~m CALL 6D7E 3E56 F5 . PUSH AF 3E57 CD 4D 6D .Mm CALL 6D4D 3E5A F1 . POP AF 3E5B 77 w LD (HL),A 3E5C 2C , INC L 3E5D FD 7E 31 .~1 LD A,(IY+31) ; taskindex holen 3E60 77 w LD (HL),A 3E61 18 DB .. JR 3E3E ;------------ halt process -------- 3E63 CD BA 3D ..= CALL 3DBA ; nur vom supervisor 3E66 FD CB 05 C6 .... SET 0,(IY+05) 3E6A 18 D2 .. JR 3E3E ;------------- create process ----- 3E6C DD 7E 30 .~0 LD A,(IX+30) ; myself index 3E6F 32 13 42 2.B LD (4213),A 3E72 2A CA 41 *.A LD HL,(41CA) ; heaptop 3E75 22 14 42 ".B LD (4214),HL 3E78 CD BA 3D ..= CALL 3DBA ; supervisor ? 3E7B D2 4C 3F .L? JP NC,3F4C ; nicht moeglich 3E7E E5 . PUSH HL ; unprivilegiertes createprocess 3E7F D5 . PUSH DE 3E80 FD 36 00 00 .6.. LD (IY+00),00 ; wstate 3E84 FD 36 1D FF .6.. LD (IY+1D),FF ; priv 3E88 CD B8 43 ..C CALL 43B8 ; procadresse holen 3E8B FD 75 09 .u. LD (IY+09),L ; icount uebertragen 3E8E FD 74 0A .t. LD (IY+0A),H 3E91 FD 73 0B .s. LD (IY+0B),E 3E94 7C | LD A,H 3E95 C6 10 .. ADD A,10 3E97 FD 77 0F .w. LD (IY+0F),A ; c8k, und allgemeiner create proc. 3E9A C3 D9 3E ..> JP 3ED9 ;------- create privileged process- 3E9D CD 13 43 ..C CALL 4313 3EA0 7E ~ LD A,(HL) 3EA1 E6 7F .. AND 7F 3EA3 32 13 42 2.B LD (4213),A 3EA6 CD 4D 6D .Mm CALL 6D4D 3EA9 FD 6E 16 .n. LD L,(IY+16) ; hptop 3EAC FD 66 17 .f. LD H,(IY+17) 3EAF 22 14 42 ".B LD (4214),HL 3EB2 CD BA 3D ..= CALL 3DBA ; supervisor ? 3EB5 D2 49 3F .I? JP NC,3F49 ; nicht moeglich 3EB8 E5 . PUSH HL 3EB9 D5 . PUSH DE 3EBA FD 36 01 00 .6.. LD (IY+01),00 ; wstate 3EBE CD A8 2C .., CALL 2CA8 ; priv parameter 3EC1 FD 75 1D .u. LD (IY+1D),L 3EC4 CD 07 44 ..D CALL 4407 ; PROCAddresse holen --> DE, HL 3EC7 1A . LD A,(DE) 3EC8 FD 77 09 .w. LD (IY+09),A ; icount 3ECB 1C . INC E 3ECC 1A . LD A,(DE) 3ECD FD 77 0A .w. LD (IY+0A),A 3ED0 C6 10 .. ADD A,10 3ED2 FD 77 0F .w. LD (IY+0F),A ; c8k 3ED5 7E ~ LD A,(HL) ; segment 3ED6 FD 77 0B .w. LD (IY+0B),A 3ED9 ED 43 D0 41 .C.A LD (41D0),BC ;-allgemeimer Teil von createproc. 3EDD FD E5 .. PUSH IY ; IY = Leitblockaddresse des 3EDF D1 . POP DE ; neuen Prozesses 3EE0 1E 30 .0 LD E,30 ; 3EE2 E1 . POP HL ; taskindex setzen 3EE3 ED A0 .. LDI 3EE5 ED A0 .. LDI 3EE7 E1 . POP HL ; version 3EE8 ED A0 .. LDI 3EEA ED A0 .. LDI 3EEC 1E 38 .8 LD E,38 ; clock 3EEE 06 08 .. LD B,08 3EF0 97 . SUB A ; auf 0.0 setzen 3EF1 12 . LD (DE),A 3EF2 1C . INC E 3EF3 10 FC .. DJNZ 3EF1 3EF5 FD 77 2A .w* LD (IY+2A),A ; prio auf 0 3EF8 FD 77 2B .w+ LD (IY+2B),A 3EFB 3A 13 42 :.B LD A,(4213) 3EFE 47 G LD B,A 3EFF 0E 04 .. LD C,04 3F01 FD 56 30 .V0 LD D,(IY+30) ; myself index 3F04 DD CB 07 5E ...^ BIT 3,(IX+07) ; war restart ? 3F08 CC E8 68 ..h CALL Z,68E8 ; 3F0B DD CB 07 DE .... SET 3,(IX+07) ; kein restart mehr 3F0F 0E 00 .. LD C,00 3F11 CD E8 68 ..h CALL 68E8 3F14 DD CB 07 9E .... RES 3,(IX+07) ; restart 3F18 2A 14 42 *.B LD HL,(4214) ; heaptop uebertragen 3F1B FD 75 16 .u. LD (IY+16),L 3F1E FD 74 17 .t. LD (IY+17),H 3F21 97 . SUB A 3F22 FD 77 26 .w& LD (IY+26),A ; channel 0 (break) 3F25 FD 77 27 .w' LD (IY+27),A 3F28 FD 77 04 .w. LD (IY+04),A ; millis, comflg 3F2B FD 77 05 .w. LD (IY+05),A 3F2E FD 77 07 .w. LD (IY+07),A ; restart war 3F31 FD 77 14 .w. LD (IY+14),A ls_top 3F34 FD 77 15 .w. LD (IY+15),A 3F37 FD 36 06 18 .6.. LD (IY+06),18 3F3B 7A z LD A,D 3F3C CD 68 6D .hm CALL 6D68 3F3F ED 4B D0 41 .K.A LD BC,(41D0) 3F43 CD 16 42 ..B CALL 4216 3F46 C3 A7 2A ..* JP 2AA7 3F49 CD 13 43 ..C CALL 4313 ;---------- kein createprocess --- 3F4C CD 13 43 ..C CALL 4313 3F4F C3 A7 2A ..* JP 2AA7 ;--------- erase process ---------- 3F52 CD BA 3D ..= CALL 3DBA 3F55 DC 8B 68 ..h CALL C,688B 3F58 C3 A7 2A ..* JP 2AA7 ;------------ existstask ---------- 3F5B CD C2 3D ..= CALL 3DC2 ; leitblock holen 3F5E D2 84 2E ... JP NC,2E84 ; NC = FALSE 3F61 FD E5 .. PUSH IY 3F63 D1 . POP DE 3F64 1E 32 .2 LD E,32 ; version vergleichen 3F66 C3 67 2E .g. JP 2E67 ;------------ send ---------------- 3F69 11 0B 42 ..B LD DE,420B 3F6C DD E5 .. PUSH IX 3F6E E1 . POP HL 3F6F 2E 30 .0 LD L,30 ; myself index 3F71 CD 72 40 .r@ CALL 4072 3F74 97 . SUB A ; msgds := nilspace 3F75 DD 77 2E .w. LD (IX+2E),A 3F78 DD 77 2F .w/ LD (IX+2F),A 3F7B CD C2 3D ..= CALL 3DC2 ; Leitblock der anderen task holen 3F7E F5 . PUSH AF 3F7F C5 . PUSH BC 3F80 D5 . PUSH DE 3F81 E5 . PUSH HL 3F82 01 0F 42 ..B LD BC,420F 3F85 CD 7A 40 .z@ CALL 407A 3F88 E1 . POP HL 3F89 D1 . POP DE 3F8A C1 . POP BC 3F8B F1 . POP AF 3F8C 38 1E 8. JR C,3FAC 3F8E 1A . LD A,(DE) 3F8F FE 02 .. CP 02 3F91 DA 3D 40 .=@ JP C,403D 3F94 1C . INC E 3F95 1A . LD A,(DE) 3F96 DD BE 31 ..1 CP (IX+31) ; station 3F99 CA 3D 40 .=@ JP Z,403D ; gleiche 3F9C 3A 07 42 :.B LD A,(4207) 3F9F 3D = DEC A 3FA0 FE 7E .~ CP 7E 3FA2 D2 3D 40 .=@ JP NC,403D 3FA5 3C < INC A 3FA6 CD 4D 6D .Mm CALL 6D4D 3FA9 21 09 42 !.B LD HL,4209 3FAC FD E5 .. PUSH IY 3FAE D1 . POP DE 3FAF 1E 32 .2 LD E,32 3FB1 CD 6A 40 .j@ CALL 406A 3FB4 C2 3D 40 .=@ JP NZ,403D 3FB7 FD 7E 06 .~. LD A,(IY+06) 3FBA CB 87 .. RES 0,A 3FBC FE BC .. CP BC 3FBE C2 41 40 .A@ JP NZ,4041 3FC1 1E 34 .4 LD E,34 ; fromid 3FC3 1A . LD A,(DE) 3FC4 B7 . OR A 3FC5 28 09 (. JR Z,3FD0 3FC7 21 0B 42 !.B LD HL,420B 3FCA CD 66 40 .f@ CALL 4066 3FCD C2 41 40 .A@ JP NZ,4041 3FD0 CD A8 2C .., CALL 2CA8 3FD3 E5 . PUSH HL 3FD4 CD 64 43 .dC CALL 4364 3FD7 5E ^ LD E,(HL) 3FD8 2C , INC L 3FD9 56 V LD D,(HL) 3FDA EB . EX DE,HL 3FDB CD 70 38 .p8 CALL 3870 3FDE DA 61 40 .a@ JP C,4061 3FE1 E5 . PUSH HL 3FE2 CD 64 43 .dC CALL 4364 3FE5 97 . SUB A 3FE6 77 w LD (HL),A 3FE7 2C , INC L 3FE8 77 w LD (HL),A 3FE9 E1 . POP HL 3FEA EB . EX DE,HL 3FEB C5 . PUSH BC 3FEC DD 46 30 .F0 LD B,(IX+30) 3FEF 4B K LD C,E 3FF0 FD 56 30 .V0 LD D,(IY+30) 3FF3 CD E5 68 ..h CALL 68E5 3FF6 C1 . POP BC 3FF7 36 FF 6. LD (HL),FF 3FF9 FD 73 2E .s. LD (IY+2E),E 3FFC FD 7E 30 .~0 LD A,(IY+30) 3FFF FD 77 2F .w/ LD (IY+2F),A 4002 21 0F 42 !.B LD HL,420F 4005 DD E5 .. PUSH IX 4007 D1 . POP DE 4008 1E 34 .4 LD E,34 400A CD 72 40 .r@ CALL 4072 400D 21 0B 42 !.B LD HL,420B 4010 FD E5 .. PUSH IY 4012 D1 . POP DE 4013 1E 34 .4 LD E,34 4015 CD 72 40 .r@ CALL 4072 4018 FD CB 0B 7E ...~ BIT 7,(IY+0B) 401C 20 08 . JR NZ,4026 401E 21 0F 42 !.B LD HL,420F 4021 1E 22 ." LD E,22 4023 CD 72 40 .r@ CALL 4072 4026 EB . EX DE,HL 4027 D1 . POP DE 4028 2E 2C ., LD L,2C 402A 73 s LD (HL),E 402B 2C , INC L 402C 72 r LD (HL),D 402D 2E 06 .. LD L,06 402F 36 00 6. LD (HL),00 4031 2E 07 .. LD L,07 4033 CB DE .. SET 3,(HL) ; kein restart 4035 2E 30 .0 LD L,30 4037 7E ~ LD A,(HL) 4038 CD 68 6D .hm CALL 6D68 403B 97 . SUB A 403C C9 . RET 403D 1E FF .. LD E,FF 403F 18 11 .. JR 4052 4041 3A 10 42 :.B LD A,(4210) 4044 DD BE 31 ..1 CP (IX+31) 4047 28 07 (. JR Z,4050 4049 3A 07 42 :.B LD A,(4207) 404C B7 . OR A 404D C2 26 29 .&) JP NZ,2926 4050 1E FE .. LD E,FE 4052 CD 13 43 ..C CALL 4313 4055 CD 13 43 ..C CALL 4313 4058 CD 64 43 .dC CALL 4364 405B 7B { LD A,E 405C 77 w LD (HL),A 405D 2C , INC L 405E 36 FF 6. LD (HL),FF 4060 C9 . RET 4061 E1 . POP HL 4062 1E FD .. LD E,FD 4064 18 F2 .. JR 4058 4066 CD 6A 40 .j@ CALL 406A 4069 C0 . RET NZ 406A 1A . LD A,(DE) 406B BE . CP (HL) 406C C0 . RET NZ 406D 23 # INC HL 406E 13 . INC DE 406F 1A . LD A,(DE) 4070 BE . CP (HL) 4071 C9 . RET 4072 C5 . PUSH BC 4073 01 04 00 ... LD BC,0004 4076 ED B0 .. LDIR 4078 C1 . POP BC 4079 C9 . RET 407A 1A . LD A,(DE) 407B 02 . LD (BC),A 407C 1C . INC E 407D 03 . INC BC 407E 1A . LD A,(DE) 407F 02 . LD (BC),A 4080 03 . INC BC 4081 7E ~ LD A,(HL) 4082 02 . LD (BC),A 4083 2C , INC L 4084 03 . INC BC 4085 7E ~ LD A,(HL) 4086 02 . LD (BC),A 4087 C9 . RET 4088 CD 64 43 .dC CALL 4364 408B 3A 1D 6E :.n LD A,(6E1D) 408E 57 W LD D,A 408F 1A . LD A,(DE) 4090 77 w LD (HL),A 4091 2C , INC L 4092 1C . INC E 4093 1A . LD A,(DE) 4094 77 w LD (HL),A 4095 C9 . RET ;----------- sendfromto ----------- 4096 DD 7E 1D .~. LD A,(IX+1D) 4099 FE 01 .. CP 01 409B DA E6 3C ..< JP C,3CE6 ; nur supervisorsoehne 409E CD 07 44 ..D CALL 4407 40A1 1C . INC E 40A2 1A . LD A,(DE) 40A3 1D . DEC E 40A4 DD BE 31 ..1 CP (IX+31) 40A7 28 0E (. JR Z,40B7 40A9 C5 . PUSH BC 40AA 01 0B 42 ..B LD BC,420B ; andere station 40AD CD 7A 40 .z@ CALL 407A 40B0 C1 . POP BC 40B1 CD 74 3F .t? CALL 3F74 40B4 C3 A7 2A ..* JP 2AA7 ;------------- send --------------- 40B7 CD 69 3F .i? CALL 3F69 40BA C3 A7 2A ..* JP 2AA7 ;------------ wait ---------------- 40BD DD CB 07 5E ...^ BIT 3,(IX+07) 40C1 20 1E . JR NZ,40E1 40C3 CD 29 4C .)L CALL 4C29 40C6 97 . SUB A 40C7 DD 77 34 .w4 LD (IX+34),A 40CA DD 77 35 .w5 LD (IX+35),A 40CD DD 77 36 .w6 LD (IX+36),A 40D0 DD 77 37 .w7 LD (IX+37),A 40D3 DD 36 06 BC .6.. LD (IX+06),BC ; wait zustand 40D7 3A 1A 6E :.n LD A,(6E1A) 40DA 3D = DEC A 40DB CC 38 4C .8L CALL Z,4C38 40DE C3 26 29 .&) JP 2926 40E1 1E 2E .. LD E,2E 40E3 CD 88 40 ..@ CALL 4088 40E6 1E 2C ., LD E,2C ; 4 Bytes auf Stack 40E8 CD 88 40 ..@ CALL 4088 40EB 1E 34 .4 LD E,34 ; 4 Bytes auf stack 40ED D5 . PUSH DE 40EE CD 39 44 .9D CALL 4439 40F1 E3 . EX (SP),HL 40F2 C5 . PUSH BC 40F3 ED A0 .. LDI 40F5 ED A0 .. LDI 40F7 C1 . POP BC 40F8 D1 . POP DE 40F9 C5 . PUSH BC 40FA ED A0 .. LDI 40FC ED A0 .. LDI 40FE C1 . POP BC 40FF DD CB 07 9E .... RES 3,(IX+07) ; restart 4103 C3 A7 2A ..* JP 2AA7 ;--------------- call ------------- 4106 DD CB 07 5E ...^ BIT 3,(IX+07) 410A 20 2E . JR NZ,413A 410C CD 69 3F .i? CALL 3F69 410F B7 . OR A 4110 28 14 (. JR Z,4126 4112 FE FE .. CP FE 4114 C2 A7 2A ..* JP NZ,2AA7 4117 FD E5 .. PUSH IY 4119 E1 . POP HL 411A DD E5 .. PUSH IX 411C D1 . POP DE 411D B7 . OR A 411E ED 52 .R SBC HL,DE 4120 CA A7 2A ..* JP Z,2AA7 4123 C3 26 29 .&) JP 2926 4126 3E BC >. LD A,BC ; wait 4128 C3 23 29 .#) JP 2923 ;-------------- pingpong ---------- 412B DD CB 07 5E ...^ BIT 3,(IX+07) 412F 20 09 . JR NZ,413A 4131 CD 69 3F .i? CALL 3F69 4134 B7 . OR A 4135 28 EF (. JR Z,4126 4137 C3 A7 2A ..* JP 2AA7 413A CD 43 44 .CD CALL 4443 413D CD 43 44 .CD CALL 4443 4140 1E 2E .. LD E,2E 4142 CD 88 40 ..@ CALL 4088 4145 1E 2C ., LD E,2C 4147 CD 88 40 ..@ CALL 4088 414A DD CB 07 9E .... RES 3,(IX+07) 414E C3 A7 2A ..* JP 2AA7 ;--------- define collector ------- 4151 DD 7E 1D .~. LD A,(IX+1D) ; nur von supervisorsoehnen 4154 FE 01 .. CP 01 4156 DA E6 3C ..< JP C,3CE6 4159 CD 07 44 ..D CALL 4407 415C C5 . PUSH BC 415D 01 07 42 ..B LD BC,4207 4160 CD 7A 40 .z@ CALL 407A 4163 C1 . POP BC 4164 C3 A7 2A ..* JP 2AA7 ;------------- session ------------ 4167 ED 5B 17 6B .[.k LD DE,(6B17) 416B C3 03 2D ..- JP 2D03 ;----------------- id ------------- 416E CD 13 43 ..C CALL 4313 4171 7E ~ LD A,(HL) 4172 E6 07 .. AND 07 4174 21 8F 82 !.. LD HL,828F 4177 5F _ LD E,A 4178 D6 04 .. SUB A,04 417A 38 04 8. JR C,4180 417C 21 6F 28 !o( LD HL,286F 417F 5F _ LD E,A 4180 16 00 .. LD D,00 4182 19 . ADD HL,DE 4183 19 . ADD HL,DE 4184 C3 00 2D ..- JP 2D00 ;- infopassword ("alt","neu",ok) 4187 11 F3 41 ..A LD DE,41F3 418A CD A9 41 ..A CALL 41A9 ; Wort --> 41F3 holen 418D 11 FD 41 ..A LD DE,41FD 4190 CD A9 41 ..A CALL 41A9 ; Wort --> 41FD holen 4193 CD 64 43 .dC CALL 4364 ; REF-addr holen 4196 C5 . PUSH BC 4197 E5 . PUSH HL 4198 21 F3 41 !.A LD HL,41F3 419B 11 FD 41 ..A LD DE,41FD 419E CD 10 6F ..o CALL 6F10 ; 10 bytes invertieren und kopieren 41A1 E1 . POP HL 41A2 71 q LD (HL),C ; enthaelt 0, wenn ok 41A3 2C , INC L 41A4 70 p LD (HL),B 41A5 C1 . POP BC 41A6 C3 A7 2A ..* JP 2AA7 41A9 D5 . PUSH DE 41AA CD 8D 46 ..F CALL 468D ; Word --> HL holen 41AD D1 . POP DE 41AE C5 . PUSH BC 41AF 06 0A .. LD B,0A ; 10 mal 41B1 7E ~ LD A,(HL) 41B2 12 . LD (DE),A 41B3 13 . INC DE 41B4 D5 . PUSH DE 41B5 11 01 00 ... LD DE,0001 41B8 CD 0D 45 ..E CALL 450D ; HL INCR 1 41BB D1 . POP DE 41BC 10 F3 .. DJNZ 41B1 41BE C1 . POP BC 41BF C9 . RET ;========= EXTERNALS ENDE ======== 41C0 20 52 R JR NZ,4214 ; " REG" 41C2 45 E LD B,L 41C3 47 G LD B,A 41C4 00 . NOP 41C5 00 . NOP 41C6 00 . NOP 41C7 00 . NOP 41C8 00 . NOP 41C9 00 . NOP 41CA 00 . NOP 41CB 00 . NOP 41CC 00 . NOP 41CD 00 . NOP 41CE 00 . NOP 41CF 00 . NOP 41D0 00 . NOP 41D1 00 . NOP 41D2 00 . NOP 41D3 00 . NOP 41D4 00 . NOP 41D5 00 . NOP 41D6 00 . NOP 41D7 00 . NOP 41D8 00 . NOP 41D9 00 . NOP 41DA 00 . NOP 41DB 00 . NOP 41DC 00 . NOP 41DD 01 00 00 ... LD BC,0000 41E0 00 . NOP 41E1 00 . NOP 41E2 00 . NOP 41E3 00 . NOP 41E4 00 . NOP 41E5 00 . NOP 41E6 00 . NOP 41E7 02 . LD (BC),A 41E8 20 20 JR NZ,420A 41EA 20 20 JR NZ,420C 41EC 20 08 . JR NZ,41F6 41EE 08 . EX AF,AF' 41EF 08 . EX AF,AF' 41F0 08 . EX AF,AF' 41F1 08 . EX AF,AF' 41F2 08 . EX AF,AF' 41F3 00 . NOP 41F4 00 . NOP 41F5 00 . NOP 41F6 00 . NOP 41F7 00 . NOP 41F8 00 . NOP 41F9 00 . NOP 41FA 00 . NOP 41FB 00 . NOP 41FC 00 . NOP 41FD 00 . NOP 41FE 00 . NOP 41FF 00 . NOP 4200 00 . NOP 4201 00 . NOP 4202 00 . NOP 4203 00 . NOP 4204 00 . NOP 4205 00 . NOP 4206 00 . NOP 4207 00 . NOP 4208 00 . NOP 4209 00 . NOP 420A 00 . NOP 420B 00 . NOP 420C 00 . NOP 420D 00 . NOP 420E 00 . NOP 420F 00 . NOP 4210 00 . NOP 4211 00 . NOP 4212 00 . NOP 4213 00 . NOP 4214 00 . NOP 4215 00 . NOP 4216 97 . SUB A 4217 32 00 19 2.. LD (1900),A 421A 32 00 19 2.. LD (1900),A 421D 32 00 19 2.. LD (1900),A 4220 32 00 19 2.. LD (1900),A 4223 32 00 19 2.. LD (1900),A 4226 32 00 19 2.. LD (1900),A 4229 32 00 19 2.. LD (1900),A 422C 32 00 19 2.. LD (1900),A 422F 32 00 19 2.. LD (1900),A 4232 32 00 19 2.. LD (1900),A 4235 32 00 19 2.. LD (1900),A 4238 32 00 19 2.. LD (1900),A 423B 32 00 19 2.. LD (1900),A 423E 32 00 19 2.. LD (1900),A 4241 32 00 19 2.. LD (1900),A 4244 32 00 19 2.. LD (1900),A 4247 32 00 19 2.. LD (1900),A 424A 32 00 19 2.. LD (1900),A 424D 32 00 19 2.. LD (1900),A 4250 32 00 19 2.. LD (1900),A 4253 32 00 19 2.. LD (1900),A 4256 32 00 19 2.. LD (1900),A 4259 32 00 19 2.. LD (1900),A 425C 32 00 19 2.. LD (1900),A 425F 32 00 19 2.. LD (1900),A 4262 B7 . OR A 4263 21 00 00 !.. LD HL,0000 4266 22 75 46 "uF LD (4675),HL 4269 21 18 42 !.B LD HL,4218 426C 22 72 42 "rB LD (4272),HL 426F C9 . RET 4270 EB . EX DE,HL 4271 22 18 42 ".B LD (4218),HL 4274 2A 72 42 *rB LD HL,(4272) 4277 23 # INC HL 4278 23 # INC HL 4279 CB 7E .~ BIT 7,(HL) 427B 23 # INC HL 427C 22 72 42 "rB LD (4272),HL 427F EB . EX DE,HL 4280 C8 . RET Z 4281 CD 16 42 ..B CALL 4216 4284 C3 26 29 .&) JP 2926 4287 08 . EX AF,AF' 4288 F6 01 .. OR 01 428A 08 . EX AF,AF' 428B CB 40 .@ BIT 0,B 428D 20 06 . JR NZ,4295 428F 04 . INC B 4290 DD CB 09 FE .... SET 7,(IX+09) 4294 C9 . RET 4295 F5 . PUSH AF 4296 D5 . PUSH DE 4297 E5 . PUSH HL 4298 DD CB 09 BE .... RES 7,(IX+09) 429C DD 34 .4 INC (IX+0A) 429E 0A . LD A,(BC) 429F CD AB 42 ..B CALL 42AB 42A2 87 . ADD A 42A3 47 G LD B,A 42A4 E1 . POP HL 42A5 D1 . POP DE 42A6 F1 . POP AF 42A7 C9 . RET 42A8 97 . SUB A 42A9 18 DF .. JR 428A 42AB DD 66 0A .f. LD H,(IX+0A) 42AE DD 7E 0B .~. LD A,(IX+0B) 42B1 E6 03 .. AND 03 42B3 5F _ LD E,A 42B4 FE 02 .. CP 02 42B6 20 07 . JR NZ,42BF 42B8 CD 48 5F .H_ CALL 5F48 ; Segment 2 ist Ausnahme 42BB C0 . RET NZ 42BC DD 66 0A .f. LD H,(IX+0A) 42BF 7B { LD A,E 42C0 C6 19 .. ADD A,19 42C2 57 W LD D,A 42C3 5C \ LD E,H 42C4 1A . LD A,(DE) 42C5 B7 . OR A 42C6 C0 . RET NZ 42C7 D5 . PUSH DE 42C8 7A z LD A,D 42C9 CD 70 42 .pB CALL 4270 42CC D6 19 .. SUB A,19 42CE 5F _ LD E,A 42CF 16 04 .. LD D,04 42D1 FE 02 .. CP 02 42D3 20 05 . JR NZ,42DA 42D5 CD 55 65 .Ue CALL 6555 42D8 18 03 .. JR 42DD 42DA CD 5C 65 .\e CALL 655C 42DD 0F . RRCA 42DE E1 . POP HL 42DF 77 w LD (HL),A 42E0 C9 . RET 42E1 CB 1C .. RR H 42E3 CB 1D .. RR L 42E5 D5 . PUSH DE 42E6 63 c LD H,E 42E7 7A z LD A,D 42E8 CD 70 42 .pB CALL 4270 42EB D6 19 .. SUB A,19 42ED 5F _ LD E,A 42EE 16 04 .. LD D,04 42F0 CD 5C 65 .\e CALL 655C 42F3 D1 . POP DE 42F4 0F . RRCA 42F5 12 . LD (DE),A 42F6 67 g LD H,A 42F7 29 ) ADD HL,HL 42F8 C9 . RET 42F9 CB 1C .. RR H 42FB CB 1D .. RR L 42FD D5 . PUSH DE 42FE 63 c LD H,E 42FF 7A z LD A,D 4300 CD 70 42 .pB CALL 4270 4303 D6 19 .. SUB A,19 4305 5F _ LD E,A 4306 16 04 .. LD D,04 4308 CD 2C 66 .,f CALL 662C 430B D1 . POP DE 430C 0F . RRCA 430D 67 g LD H,A 430E F6 80 .. OR 80 4310 12 . LD (DE),A 4311 29 ) ADD HL,HL 4312 C9 . RET ;--------------------------------- 4313 0A . LD A,(BC) ; Naechstes Codewort holen --> HL 4314 6F o LD L,A 4315 0C . INC C 4316 0A . LD A,(BC) 4317 0C . INC C 4318 CC 87 42 ..B CALL Z,4287 431B B7 . OR A 431C FA 32 43 .2C JP M,4332 431F D9 . EXX 4320 81 . ADD C 4321 5F _ LD E,A 4322 1A . LD A,(DE) 4323 D9 . EXX 4324 67 g LD H,A 4325 29 ) ADD HL,HL 4326 B7 . OR A 4327 C0 . RET NZ 4328 D5 . PUSH DE 4329 D9 . EXX 432A D5 . PUSH DE 432B D9 . EXX 432C D1 . POP DE 432D CD E1 42 ..B CALL 42E1 4330 D1 . POP DE 4331 C9 . RET 4332 D5 . PUSH DE 4333 ED 5B C4 41 .[.A LD DE,(41C4) 4337 E6 7F .. AND 7F 4339 1F . RRA 433A CB 1D .. RR L 433C 67 g LD H,A 433D 38 0C 8. JR C,434B 433F 19 . ADD HL,DE 4340 5C \ LD E,H 4341 16 1A .. LD D,1A 4343 1A . LD A,(DE) 4344 67 g LD H,A 4345 29 ) ADD HL,HL 4346 B7 . OR A 4347 28 E4 (. JR Z,432D 4349 D1 . POP DE 434A C9 . RET 434B CD DE 43 ..C CALL 43DE 434E 20 0C . JR NZ,435C 4350 C6 19 .. ADD A,19 4352 57 W LD D,A 4353 5C \ LD E,H 4354 1A . LD A,(DE) 4355 67 g LD H,A 4356 29 ) ADD HL,HL 4357 B7 . OR A 4358 28 D3 (. JR Z,432D 435A D1 . POP DE 435B C9 . RET 435C CD 5C 65 .\e CALL 655C 435F 0F . RRCA 4360 67 g LD H,A 4361 29 ) ADD HL,HL 4362 D1 . POP DE 4363 C9 . RET 4364 0A . LD A,(BC) 4365 6F o LD L,A 4366 0C . INC C 4367 0A . LD A,(BC) 4368 0C . INC C 4369 CC 87 42 ..B CALL Z,4287 436C B7 . OR A 436D FA 82 43 ..C JP M,4382 4370 D9 . EXX 4371 81 . ADD C 4372 5F _ LD E,A 4373 1A . LD A,(DE) 4374 D9 . EXX 4375 67 g LD H,A 4376 29 ) ADD HL,HL 4377 D8 . RET C 4378 D5 . PUSH DE 4379 D9 . EXX 437A D5 . PUSH DE 437B D9 . EXX 437C D1 . POP DE 437D CD F9 42 ..B CALL 42F9 4380 D1 . POP DE 4381 C9 . RET 4382 D5 . PUSH DE 4383 ED 5B C4 41 .[.A LD DE,(41C4) 4387 E6 7F .. AND 7F 4389 1F . RRA 438A CB 1D .. RR L 438C 67 g LD H,A 438D 38 10 8. JR C,439F 438F 19 . ADD HL,DE 4390 5C \ LD E,H 4391 16 1A .. LD D,1A 4393 1A . LD A,(DE) 4394 67 g LD H,A 4395 29 ) ADD HL,HL 4396 7B { LD A,E 4397 D1 . POP DE 4398 D8 . RET C 4399 D5 . PUSH DE 439A 5F _ LD E,A 439B 16 1A .. LD D,1A 439D 18 DE .. JR 437D 439F CD DE 43 ..C CALL 43DE 43A2 20 0C . JR NZ,43B0 43A4 C6 19 .. ADD A,19 43A6 57 W LD D,A 43A7 5C \ LD E,H 43A8 1A . LD A,(DE) 43A9 67 g LD H,A 43AA 29 ) ADD HL,HL 43AB D4 F9 42 ..B CALL NC,42F9 43AE D1 . POP DE 43AF C9 . RET 43B0 CD 2C 66 .,f CALL 662C 43B3 0F . RRCA 43B4 67 g LD H,A 43B5 29 ) ADD HL,HL 43B6 D1 . POP DE 43B7 C9 . RET ;------------ REF-Addr vom Stack 43B8 0A . LD A,(BC) ; --> HL, DE 43B9 6F o LD L,A 43BA 0C . INC C 43BB 0A . LD A,(BC) 43BC 0C . INC C 43BD CC 87 42 ..B CALL Z,4287 43C0 B7 . OR A 43C1 FA CC 43 ..C JP M,43CC 43C4 D9 . EXX 43C5 81 . ADD C 43C6 D9 . EXX 43C7 67 g LD H,A 43C8 97 . SUB A 43C9 5F _ LD E,A 43CA 57 W LD D,A 43CB C9 . RET ;---------------------------------- 43CC ED 5B C4 41 .[.A LD DE,(41C4) 43D0 E6 7F .. AND 7F 43D2 1F . RRA 43D3 CB 1D .. RR L 43D5 67 g LD H,A 43D6 38 06 8. JR C,43DE 43D8 19 . ADD HL,DE 43D9 97 . SUB A 43DA 11 01 00 ... LD DE,0001 43DD C9 . RET 43DE 19 . ADD HL,DE 43DF 16 1A .. LD D,1A 43E1 5C \ LD E,H 43E2 1A . LD A,(DE) 43E3 67 g LD H,A 43E4 29 ) ADD HL,HL 43E5 B7 . OR A 43E6 CC E1 42 ..B CALL Z,42E1 43E9 5E ^ LD E,(HL) 43EA 2C , INC L 43EB 56 V LD D,(HL) 43EC 2C , INC L 43ED 7E ~ LD A,(HL) 43EE 2C , INC L 43EF 66 f LD H,(HL) 43F0 EB . EX DE,HL 43F1 14 . INC D 43F2 15 . DEC D 43F3 20 07 . JR NZ,43FC 43F5 FE 06 .. CP 06 43F7 30 03 0. JR NC,43FC 43F9 5F _ LD E,A 43FA BF . CP A 43FB C9 . RET 43FC E6 07 .. AND 07 43FE 5F _ LD E,A 43FF 7A z LD A,D 4400 FE 04 .. CP 04 4402 7B { LD A,E 4403 D0 . RET NC 4404 16 05 .. LD D,05 4406 C9 . RET ;---------------------------------- 4407 0A . LD A,(BC) 4408 6F o LD L,A 4409 0C . INC C 440A 0A . LD A,(BC) 440B CD 1B 43 ..C CALL 431B 440E 54 T LD D,H 440F 5D ] LD E,L 4410 2C , INC L 4411 2C , INC L 4412 28 05 (. JR Z,4419 4414 0C . INC C 4415 C0 . RET NZ 4416 C3 87 42 ..B JP 4287 4419 0D . DEC C 441A FD 21 85 46 .!.F LD IY,4685 441E FD CB 00 C6 .... SET 0,(IY+00) 4422 CD B8 43 ..C CALL 43B8 4425 7D } LD A,L 4426 32 86 46 2.F LD (4686),A 4429 ED 53 87 46 .S.F LD (4687),DE 442D 7B { LD A,E 442E CD CA 44 ..D CALL 44CA 4431 54 T LD D,H 4432 5D ] LD E,L 4433 2C , INC L 4434 2C , INC L 4435 CC 1B 45 ..E CALL Z,451B 4438 C9 . RET 4439 FD 21 85 46 .!.F LD IY,4685 443D FD CB 00 86 .... RES 0,(IY+00) 4441 18 DF .. JR 4422 ;-------- Branchaddresse holen ----- 4443 0A . LD A,(BC) 4444 5F _ LD E,A 4445 0C . INC C 4446 0A . LD A,(BC) 4447 57 W LD D,A 4448 0C . INC C 4449 C0 . RET NZ 444A C3 87 42 ..B JP 4287 444D FE 06 .. CP 06 444F 30 0C 0. JR NC,445D 4451 C6 19 .. ADD A,19 4453 57 W LD D,A 4454 5C \ LD E,H 4455 1A . LD A,(DE) 4456 67 g LD H,A 4457 29 ) ADD HL,HL 4458 B7 . OR A 4459 C0 . RET NZ 445A C3 E1 42 ..B JP 42E1 445D ED 5B 75 46 .[uF LD DE,(4675) 4461 7C | LD A,H 4462 BA . CP D 4463 20 07 . JR NZ,446C 4465 7B { LD A,E 4466 B7 . OR A 4467 28 03 (. JR Z,446C 4469 63 c LD H,E 446A 29 ) ADD HL,HL 446B C9 . RET 446C 16 04 .. LD D,04 446E 1E 07 .. LD E,07 4470 CD 5C 65 .\e CALL 655C 4473 0F . RRCA 4474 5F _ LD E,A 4475 54 T LD D,H 4476 ED 53 75 46 .SuF LD (4675),DE 447A 63 c LD H,E 447B 29 ) ADD HL,HL 447C C9 . RET 447D FE 06 .. CP 06 447F 30 0B 0. JR NC,448C 4481 C6 19 .. ADD A,19 4483 57 W LD D,A 4484 5C \ LD E,H 4485 1A . LD A,(DE) 4486 67 g LD H,A 4487 29 ) ADD HL,HL 4488 D8 . RET C 4489 C3 F9 42 ..B JP 42F9 448C ED 5B 75 46 .[uF LD DE,(4675) 4490 7C | LD A,H 4491 BA . CP D 4492 20 07 . JR NZ,449B 4494 7B { LD A,E 4495 87 . ADD A 4496 30 03 0. JR NC,449B 4498 63 c LD H,E 4499 29 ) ADD HL,HL 449A C9 . RET 449B 16 04 .. LD D,04 449D 1E 07 .. LD E,07 449F CD 2C 66 .,f CALL 662C 44A2 0F . RRCA 44A3 F6 80 .. OR 80 44A5 18 CD .. JR 4474 44A7 CD 13 43 ..C CALL 4313 44AA 7D } LD A,L 44AB E6 F8 .. AND F8 44AD 6F o LD L,A 44AE C9 . RET 44AF CD 1B 43 ..C CALL 431B 44B2 7D } LD A,L 44B3 E6 F8 .. AND F8 44B5 6F o LD L,A 44B6 C9 . RET 44B7 CD 64 43 .dC CALL 4364 44BA 7D } LD A,L 44BB E6 F8 .. AND F8 44BD 6F o LD L,A 44BE C9 . RET 44BF 5D ] LD E,L 44C0 7D } LD A,L 44C1 E6 F0 .. AND F0 44C3 6F o LD L,A 44C4 AB . XOR E 44C5 1F . RRA 44C6 CB 1C .. RR H 44C8 CB 1D .. RR L 44CA FD 74 01 .t. LD (IY+01),H 44CD FD 77 02 .w. LD (IY+02),A 44D0 5F _ LD E,A 44D1 FD 7E 03 .~. LD A,(IY+03) 44D4 B7 . OR A 44D5 20 15 . JR NZ,44EC ; Fremdatenraum 44D7 7B { LD A,E ; DS4 = 0 44D8 C6 19 .. ADD A,19 44DA 57 W LD D,A 44DB 5C \ LD E,H 44DC 1A . LD A,(DE) ; DE=1900+256*segment+AddrDIV256 44DD 67 g LD H,A 44DE 29 ) ADD HL,HL ; In Byteaddresse wandeln 44DF D8 . RET C 44E0 FD CB 00 46 ...F BIT 0,(IY+00) 44E4 CA F9 42 ..B JP Z,42F9 44E7 B7 . OR A 44E8 C0 . RET NZ 44E9 C3 E1 42 ..B JP 42E1 44EC 57 W LD D,A 44ED FD CB 00 46 ...F BIT 0,(IY+00) 44F1 20 05 . JR NZ,44F8 44F3 CD 2C 66 .,f CALL 662C 44F6 18 03 .. JR 44FB 44F8 CD 5C 65 .\e CALL 655C 44FB 0F . RRCA 44FC 67 g LD H,A 44FD 29 ) ADD HL,HL 44FE C9 . RET 44FF CB 3F .? SLR A 4501 CB 1C .. RR H 4503 CB 1D .. RR L 4505 F5 . PUSH AF 4506 CD CA 44 ..D CALL 44CA 4509 F1 . POP AF 450A D0 . RET NC 450B 2C , INC L 450C C9 . RET ;--------------------------------- 450D 7D } LD A,L 450E 83 . ADD E 450F 3E 00 >. LD A,00 4511 8A . ADC D 4512 20 02 . JR NZ,4516 4514 19 . ADD HL,DE 4515 C9 . RET 4516 3D = DEC A 4517 20 0D . JR NZ,4526 4519 19 . ADD HL,DE 451A 25 % DEC H 451B 24 $ INC H 451C CB 44 .D BIT 0,H 451E C0 . RET NZ 451F 25 % DEC H 4520 D5 . PUSH DE 4521 11 00 01 ... LD DE,0100 4524 18 01 .. JR 4527 4526 D5 . PUSH DE 4527 97 . SUB A 4528 CB 1C .. RR H 452A FD 66 01 .f. LD H,(IY+01) 452D CB 14 .. RL H 452F 17 . RLA 4530 19 . ADD HL,DE 4531 CE 00 .. ADC A,00 4533 1F . RRA 4534 CB 1C .. RR H 4536 CB 1D .. RR L 4538 F5 . PUSH AF 4539 FD 86 02 ... ADD (IY+02) 453C CD CA 44 ..D CALL 44CA 453F F1 . POP AF 4540 D1 . POP DE 4541 D0 . RET NC 4542 2C , INC L 4543 C9 . RET 4544 D5 . PUSH DE 4545 11 00 00 ... LD DE,0000 4548 CD 78 45 .xE CALL 4578 454B D1 . POP DE 454C C9 . RET 454D 2A 79 46 *yF LD HL,(4679) 4550 DD 75 0C .u. LD (IX+0C),L 4553 DD 74 0D .t. LD (IX+0D),H 4556 DD CB 07 AE .... RES 5,(IX+07) 455A DD CB 07 F6 .... SET 6,(IX+07) 455E C9 . RET 455F 69 i LD L,C 4560 60 ` LD H,B 4561 DD 4E 0C .N. LD C,(IX+0C) 4564 DD 46 0D .F. LD B,(IX+0D) 4567 B7 . OR A 4568 ED 42 .B SBC HL,BC 456A 22 7B 46 "{F LD (467B),HL 456D ED 43 79 46 .CyF LD (4679),BC 4571 CD C1 45 ..E CALL 45C1 4574 DD CB 07 B6 .... RES 6,(IX+07) 4578 22 7D 46 "}F LD (467D),HL 457B ED 53 7F 46 .S.F LD (467F),DE 457F DD CB 07 76 ...v BIT 6,(IX+07) 4583 20 DA . JR NZ,455F 4585 7B { LD A,E 4586 BD . CP L 4587 30 01 0. JR NC,458A 4589 7D } LD A,L 458A ED 44 .D NEG 458C 28 0F (. JR Z,459D 458E 04 . INC B 458F 05 . DEC B 4590 20 12 . JR NZ,45A4 4592 B9 . CP C 4593 38 0F 8. JR C,45A4 4595 78 x LD A,B 4596 B1 . OR C 4597 C9 . RET 4598 2A 7D 46 *}F LD HL,(467D) 459B 18 F8 .. JR 4595 459D 04 . INC B 459E 05 . DEC B 459F 28 F4 (. JR Z,4595 45A1 37 7 SCF 45A2 18 01 .. JR 45A5 45A4 B7 . OR A 45A5 69 i LD L,C 45A6 60 ` LD H,B 45A7 4F O LD C,A 45A8 3E 00 >. LD A,00 45AA 8F . ADC A 45AB 47 G LD B,A 45AC B7 . OR A 45AD ED 42 .B SBC HL,BC 45AF 28 E7 (. JR Z,4598 45B1 DD CB 07 EE .... SET 5,(IX+07) 45B5 ED 43 7B 46 .C{F LD (467B),BC 45B9 22 79 46 "yF LD (4679),HL 45BC 2A 7D 46 *}F LD HL,(467D) 45BF 37 7 SCF 45C0 C9 . RET 45C1 2A 7F 46 *.F LD HL,(467F) 45C4 7C | LD A,H 45C5 B5 . OR L 45C6 28 0C (. JR Z,45D4 45C8 FD 21 89 46 .!.F LD IY,4689 45CC ED 5B 7B 46 .[{F LD DE,(467B) 45D0 CD 0D 45 ..E CALL 450D 45D3 EB . EX DE,HL 45D4 D5 . PUSH DE 45D5 2A 7D 46 *}F LD HL,(467D) 45D8 FD 21 85 46 .!.F LD IY,4685 45DC ED 5B 7B 46 .[{F LD DE,(467B) 45E0 CD 0D 45 ..E CALL 450D 45E3 D1 . POP DE 45E4 ED 4B 79 46 .KyF LD BC,(4679) 45E8 DD CB 07 B6 .... RES 6,(IX+07) 45EC DD CB 07 AE .... RES 5,(IX+07) 45F0 C9 . RET 45F1 DD CB 07 6E ...n BIT 5,(IX+07) 45F5 28 0D (. JR Z,4604 45F7 E5 . PUSH HL 45F8 2A 79 46 *yF LD HL,(4679) 45FB 22 77 46 "wF LD (4677),HL 45FE 09 . ADD HL,BC 45FF 22 79 46 "yF LD (4679),HL 4602 E1 . POP HL 4603 C9 . RET 4604 3E FF >. LD A,FF 4606 32 78 46 2xF LD (4678),A 4609 DD CB 07 EE .... SET 5,(IX+07) 460D ED 43 79 46 .CyF LD (4679),BC 4611 C9 . RET 4612 2A 77 46 *wF LD HL,(4677) 4615 CB 7C .| BIT 7,H 4617 20 D3 . JR NZ,45EC 4619 22 79 46 "yF LD (4679),HL 461C C9 . RET 461D ED 43 81 46 .C.F LD (4681),BC 4621 1B . DEC DE 4622 7B { LD A,E 4623 B2 . OR D 4624 C8 . RET Z 4625 FD 21 85 46 .!.F LD IY,4685 4629 CD 0D 45 ..E CALL 450D 462C 79 y LD A,C 462D 93 . SUB E ; BC DECR DE 462E 4F O LD C,A 462F 78 x LD A,B 4630 9A . SBC D 4631 47 G LD B,A 4632 C9 . RET ;----------------------------------- 4633 2A 81 46 *.F LD HL,(4681) 4636 B7 . OR A 4637 ED 42 .B SBC HL,BC 4639 DD CB 07 6E ...n BIT 5,(IX+07) 463D 28 07 (. JR Z,4646 463F ED 4B 79 46 .KyF LD BC,(4679) 4643 B7 . OR A 4644 ED 42 .B SBC HL,BC 4646 EB . EX DE,HL 4647 18 A3 .. JR 45EC ; REST Bit 5 (IX+7) 4649 F5 . PUSH AF 464A E5 . PUSH HL 464B 3E 01 >. LD A,01 464D CD 7D 44 .}D CALL 447D 4650 36 FF 6. LD (HL),FF 4652 54 T LD D,H 4653 5D ] LD E,L 4654 13 . INC DE 4655 97 . SUB A 4656 93 . SUB E 4657 4F O LD C,A 4658 06 00 .. LD B,00 465A CB 44 .D BIT 0,H 465C 20 01 . JR NZ,465F 465E 04 . INC B 465F 78 x LD A,B 4660 B1 . OR C 4661 28 02 (. JR Z,4665 4663 ED B0 .. LDIR 4665 D1 . POP DE 4666 F1 . POP AF 4667 92 . SUB D 4668 47 G LD B,A 4669 0E 04 .. LD C,04 466B 5A Z LD E,D 466C 16 01 .. LD D,01 466E 13 . INC DE 466F 21 00 06 !.. LD HL,0600 4672 C3 B6 69 ..i JP 69B6 4675 00 . NOP 4676 00 . NOP 4677 00 . NOP 4678 00 . NOP 4679 00 . NOP 467A 00 . NOP 467B 00 . NOP 467C 00 . NOP 467D 00 . NOP 467E 00 . NOP 467F 00 . NOP 4680 00 . NOP 4681 00 . NOP 4682 00 . NOP 4683 56 V LD D,(HL) ; "VR" - 8 Byte-Register 4684 52 R LD D,D 4685 00 . NOP 4686 00 . NOP 4687 00 . NOP 4688 00 . NOP 4689 00 . NOP 468A 00 . NOP 468B 00 . NOP 468C 00 . NOP 468D CD B8 43 ..C CALL 43B8 4690 18 03 .. JR 4695 4692 CD C0 43 ..C CALL 43C0 4695 FD 21 85 46 .!.F LD IY,4685 4699 22 85 46 ".F LD (4685),HL 469C ED 53 87 46 .S.F LD (4687),DE 46A0 FD CB 00 C6 .... SET 0,(IY+00) 46A4 20 4B K JR NZ,46F1 46A6 23 # INC HL 46A7 7B { LD A,E 46A8 5C \ LD E,H 46A9 C6 19 .. ADD A,19 46AB 57 W LD D,A 46AC 1A . LD A,(DE) 46AD 67 g LD H,A 46AE 29 ) ADD HL,HL 46AF B7 . OR A 46B0 CC E1 42 ..B CALL Z,42E1 46B3 7E ~ LD A,(HL) 46B4 FE FF .. CP FF 46B6 28 05 (. JR Z,46BD 46B8 2C , INC L 46B9 5F _ LD E,A 46BA 16 00 .. LD D,00 46BC C9 . RET 46BD 2C , INC L 46BE 5E ^ LD E,(HL) 46BF 2C , INC L 46C0 56 V LD D,(HL) 46C1 CB 7A .z BIT 7,D 46C3 C2 13 4A ..J JP NZ,4A13 46C6 CB 95 .. RES 2,L 46C8 7E ~ LD A,(HL) 46C9 2C , INC L 46CA 66 f LD H,(HL) 46CB 6F o LD L,A 46CC D5 . PUSH DE 46CD CD BF 44 ..D CALL 44BF 46D0 D1 . POP DE 46D1 7E ~ LD A,(HL) 46D2 3C < INC A 46D3 C2 13 4A ..J JP NZ,4A13 46D6 7D } LD A,L 46D7 C6 06 .. ADD A,06 46D9 6F o LD L,A 46DA 3E FF >. LD A,FF 46DC C9 . RET 46DD CD B8 43 ..C CALL 43B8 46E0 FD 21 89 46 .!.F LD IY,4689 46E4 22 89 46 ".F LD (4689),HL 46E7 ED 53 8B 46 .S.F LD (468B),DE 46EB FD CB 00 C6 .... SET 0,(IY+00) 46EF 28 B5 (. JR Z,46A6 46F1 23 # INC HL 46F2 CD ED 44 ..D CALL 44ED 46F5 7E ~ LD A,(HL) 46F6 FE FF .. CP FF 46F8 20 1A . JR NZ,4714 46FA 23 # INC HL 46FB 23 # INC HL 46FC BE . CP (HL) 46FD 2B + DEC HL 46FE 2B + DEC HL 46FF 28 13 (. JR Z,4714 4701 2C , INC L 4702 5E ^ LD E,(HL) 4703 2C , INC L 4704 56 V LD D,(HL) 4705 CB 95 .. RES 2,L 4707 7E ~ LD A,(HL) 4708 2C , INC L 4709 66 f LD H,(HL) 470A 6F o LD L,A 470B D5 . PUSH DE 470C CD BF 44 ..D CALL 44BF 470F D1 . POP DE 4710 2C , INC L 4711 2C , INC L 4712 18 C6 .. JR 46DA 4714 B7 . OR A 4715 F2 B8 46 ..F JP P,46B8 4718 2D - DEC L 4719 56 V LD D,(HL) 471A 2D - DEC L 471B 5E ^ LD E,(HL) 471C 7B { LD A,E 471D E6 07 .. AND 07 471F C2 13 4A ..J JP NZ,4A13 4722 EB . EX DE,HL 4723 97 . SUB A 4724 CD FF 44 ..D CALL 44FF 4727 CB D5 .. SET 2,L 4729 7E ~ LD A,(HL) 472A 18 8C .. JR 46B8 472C CD 8D 46 ..F CALL 468D 472F E5 . PUSH HL 4730 CD A8 2C .., CALL 2CA8 4733 C5 . PUSH BC 4734 4D M LD C,L 4735 44 D LD B,H 4736 18 20 . JR 4758 4738 DD CB 07 5E ...^ BIT 3,(IX+07) 473C 20 0E . JR NZ,474C 473E DD 75 18 .u. LD (IX+18),L ; hpv1 4741 DD 74 19 .t. LD (IX+19),H 4744 DD 71 1A .q. LD (IX+1A),C ; hpv2 4747 DD 70 1B .p. LD (IX+1B),B 474A 18 0C .. JR 4758 474C DD 6E 18 .n. LD L,(IX+18) 474F DD 66 19 .f. LD H,(IX+19) 4752 DD 4E 1A .N. LD C,(IX+1A) 4755 DD 46 1B .F. LD B,(IX+1B) 4758 2B + DEC HL 4759 CB 7C .| BIT 7,H 475B 28 03 (. JR Z,4760 475D 21 00 00 !.. LD HL,0000 4760 CB 78 .x BIT 7,B 4762 20 1F . JR NZ,4783 4764 7B { LD A,E 4765 91 . SUB C 4766 7A z LD A,D 4767 98 . SBC B 4768 30 02 0. JR NC,476C 476A 42 B LD B,D 476B 4B K LD C,E 476C EB . EX DE,HL 476D 69 i LD L,C 476E 60 ` LD H,B 476F B7 . OR A 4770 ED 52 .R SBC HL,DE 4772 28 0F (. JR Z,4783 4774 38 0D 8. JR C,4783 4776 C1 . POP BC 4777 E3 . EX (SP),HL 4778 CD 0D 45 ..E CALL 450D 477B D1 . POP DE 477C 7B { LD A,E 477D 14 . INC D 477E 15 . DEC D 477F C8 . RET Z 4780 3E FF >. LD A,FF 4782 C9 . RET 4783 C1 . POP BC 4784 E1 . POP HL 4785 97 . SUB A 4786 57 W LD D,A 4787 5F _ LD E,A 4788 C9 . RET 4789 CD 8D 46 ..F CALL 468D 478C E5 . PUSH HL 478D CD A8 2C .., CALL 2CA8 4790 C5 . PUSH BC 4791 42 B LD B,D 4792 4B K LD C,E 4793 18 A3 .. JR 4738 4795 CD 8D 46 ..F CALL 468D 4798 E5 . PUSH HL 4799 CD A8 2C .., CALL 2CA8 479C 22 4A 4B "JK LD (4B4A),HL 479F CD A8 2C .., CALL 2CA8 47A2 C5 . PUSH BC 47A3 44 D LD B,H 47A4 4D M LD C,L 47A5 2A 4A 4B *JK LD HL,(4B4A) 47A8 18 8E .. JR 4738 47AA CD B8 43 ..C CALL 43B8 47AD FD 21 89 46 .!.F LD IY,4689 47B1 22 89 46 ".F LD (4689),HL 47B4 ED 53 8B 46 .S.F LD (468B),DE 47B8 ED 43 D0 41 .C.A LD (41D0),BC 47BC 3E 02 >. LD A,02 47BE 32 89 46 2.F LD (4689),A 47C1 7B { LD A,E 47C2 32 3B 4B 2;K LD (4B3B),A 47C5 B5 . OR L 47C6 32 3C 4B 2. LD A,0D 47DF BB . CP E 47E0 30 1C 0. JR NC,47FE 47E2 FD CB 00 8E .... RES 1,(IY+00) 47E6 2A 38 4B *8K LD HL,(4B38) 47E9 36 00 6. LD (HL),00 47EB 21 00 00 !.. LD HL,0000 47EE 22 3E 4B ">K LD (4B3E),HL 47F1 2A 3A 4B *:K LD HL,(4B3A) 47F4 22 8A 46 ".F LD (468A),HL 47F7 2A 38 4B *8K LD HL,(4B38) 47FA 1E 00 .. LD E,00 47FC 3E 0D >. LD A,0D 47FE 2C , INC L 47FF 16 00 .. LD D,00 4801 42 B LD B,D 4802 4F O LD C,A 4803 C9 . RET 4804 FD CB 00 8E .... RES 1,(IY+00) 4808 2D - DEC L 4809 56 V LD D,(HL) 480A 2D - DEC L 480B 5E ^ LD E,(HL) 480C ED 53 3E 4B .S>K LD (4B3E),DE 4810 3A 8C 46 :.F LD A,(468C) 4813 B7 . OR A 4814 20 35 5 JR NZ,484B 4816 7B { LD A,E 4817 E6 0F .. AND 0F 4819 FE 03 .. CP 03 481B 20 CE . JR NZ,47EB 481D EB . EX DE,HL 481E CD BF 44 ..D CALL 44BF 4821 7E ~ LD A,(HL) 4822 2C , INC L 4823 A6 . AND (HL) 4824 3C < INC A 4825 20 C4 . JR NZ,47EB 4827 2C , INC L 4828 3A 3C 4B :. LD A,FF 4862 12 . LD (DE),A 4863 FD CB 00 8E .... RES 1,(IY+00) 4867 D1 . POP DE 4868 7B { LD A,E 4869 FE 0E .. CP 0E 486B 30 0F 0. JR NC,487C 486D 14 . INC D 486E 15 . DEC D 486F 20 0B . JR NZ,487C 4871 2A 3A 4B *:K LD HL,(4B3A) 4874 22 8A 46 ".F LD (468A),HL 4877 2A 38 4B *8K LD HL,(4B38) 487A 2C , INC L 487B C9 . RET 487C 79 y LD A,C 487D 93 . SUB E 487E 78 x LD A,B 487F 9A . SBC D 4880 D0 . RET NC 4881 FD CB 00 4E ...N BIT 1,(IY+00) 4885 20 D0 . JR NZ,4857 4887 CD 3F 49 .?I CALL 493F 488A FD CB 00 5E ...^ BIT 3,(IY+00) 488E C4 ED 49 ..I CALL NZ,49ED 4891 C9 . RET 4892 14 . INC D 4893 15 . DEC D 4894 20 0B . JR NZ,48A1 4896 3E 0D >. LD A,0D 4898 BB . CP E 4899 38 06 8. JR C,48A1 489B 2A 38 4B *8K LD HL,(4B38) 489E 73 s LD (HL),E 489F 2C , INC L 48A0 C9 . RET 48A1 E5 . PUSH HL 48A2 2A 38 4B *8K LD HL,(4B38) 48A5 36 FF 6. LD (HL),FF 48A7 2C , INC L 48A8 73 s LD (HL),E 48A9 2C , INC L 48AA 72 r LD (HL),D 48AB E1 . POP HL 48AC C9 . RET 48AD 3A 89 46 :.F LD A,(4689) 48B0 B7 . OR A 48B1 CA 13 4A ..J JP Z,4A13 48B4 79 y LD A,C 48B5 93 . SUB E 48B6 78 x LD A,B 48B7 9A . SBC D 48B8 D0 . RET NC 48B9 D5 . PUSH DE 48BA 2A 85 46 *.F LD HL,(4685) 48BD E5 . PUSH HL 48BE 2A 87 46 *.F LD HL,(4687) 48C1 E5 . PUSH HL 48C2 2A 89 46 *.F LD HL,(4689) 48C5 2E 01 .. LD L,01 48C7 22 85 46 ".F LD (4685),HL 48CA 2A 8B 46 *.F LD HL,(468B) 48CD 22 87 46 ".F LD (4687),HL 48D0 FD CB 00 4E ...N BIT 1,(IY+00) 48D4 20 3A : JR NZ,4910 48D6 CD 3F 49 .?I CALL 493F 48D9 22 4A 4B "JK LD (4B4A),HL 48DC FD CB 00 5E ...^ BIT 3,(IY+00) 48E0 28 20 ( JR Z,4902 48E2 ED 4B 40 4B .K@K LD BC,(4B40) 48E6 EB . EX DE,HL 48E7 2A 8A 46 *.F LD HL,(468A) 48EA E5 . PUSH HL 48EB 2A 42 4B *BK LD HL,(4B42) 48EE 2C , INC L 48EF 2C , INC L 48F0 CD B0 2C .., CALL 2CB0 48F3 E1 . POP HL 48F4 22 8A 46 ".F LD (468A),HL 48F7 FD 21 89 46 .!.F LD IY,4689 48FB FD CB 00 5E ...^ BIT 3,(IY+00) 48FF C4 ED 49 ..I CALL NZ,49ED 4902 E1 . POP HL 4903 22 87 46 ".F LD (4687),HL 4906 E1 . POP HL 4907 22 85 46 ".F LD (4685),HL 490A 2A 4A 4B *JK LD HL,(4B4A) 490D D1 . POP DE 490E B7 . OR A 490F C9 . RET 4910 D5 . PUSH DE 4911 2A 38 4B *8K LD HL,(4B38) 4914 CD 08 48 ..H CALL 4808 4917 D1 . POP DE 4918 79 y LD A,C 4919 93 . SUB E 491A 78 x LD A,B 491B 9A . SBC D 491C DC 3F 49 .?I CALL C,493F 491F 22 4A 4B "JK LD (4B4A),HL 4922 ED 4B 40 4B .K@K LD BC,(4B40) 4926 EB . EX DE,HL 4927 2A 8A 46 *.F LD HL,(468A) 492A E5 . PUSH HL 492B 2A 38 4B *8K LD HL,(4B38) 492E 2C , INC L 492F CD B0 2C .., CALL 2CB0 4932 2A 38 4B *8K LD HL,(4B38) 4935 7E ~ LD A,(HL) 4936 36 FF 6. LD (HL),FF 4938 2C , INC L 4939 77 w LD (HL),A 493A 2C , INC L 493B 36 00 6. LD (HL),00 493D 18 B4 .. JR 48F3 493F D5 . PUSH DE 4940 21 CA 41 !.A LD HL,41CA 4943 3A 8C 46 :.F LD A,(468C) 4946 B7 . OR A 4947 28 11 (. JR Z,495A 4949 D5 . PUSH DE 494A 57 W LD D,A 494B 21 00 01 !.. LD HL,0100 494E 5D ] LD E,L 494F CD 2C 66 .,f CALL 662C 4952 0F . RRCA 4953 67 g LD H,A 4954 29 ) ADD HL,HL 4955 D1 . POP DE 4956 3E 02 >. LD A,02 4958 18 02 .. JR 495C 495A 3E 06 >. LD A,06 495C E5 . PUSH HL 495D 32 48 4B 2HK LD (4B48),A 4960 C6 0F .. ADD A,0F 4962 83 . ADD E 4963 30 01 0. JR NC,4966 4965 14 . INC D 4966 E6 F0 .. AND F0 4968 5F _ LD E,A 4969 2A 3E 4B *>K LD HL,(4B3E) 496C 09 . ADD HL,BC 496D ED 4B 48 4B .KHK LD BC,(4B48) 4971 09 . ADD HL,BC 4972 C1 . POP BC 4973 0A . LD A,(BC) 4974 BD . CP L 4975 20 23 # JR NZ,499A 4977 03 . INC BC 4978 0A . LD A,(BC) 4979 0B . DEC BC 497A BC . CP H 497B 20 1D . JR NZ,499A 497D 2A 3E 4B *>K LD HL,(4B3E) 4980 19 . ADD HL,DE 4981 DC D8 49 ..I CALL C,49D8 4984 7D } LD A,L 4985 02 . LD (BC),A 4986 03 . INC BC 4987 7C | LD A,H 4988 02 . LD (BC),A 4989 2A 48 4B *HK LD HL,(4B48) 498C EB . EX DE,HL 498D B7 . OR A 498E ED 52 .R SBC HL,DE 4990 EB . EX DE,HL 4991 2A 42 4B *BK LD HL,(4B42) 4994 73 s LD (HL),E 4995 2C , INC L 4996 72 r LD (HL),D 4997 2C , INC L 4998 D1 . POP DE 4999 C9 . RET 499A ED 43 44 4B .CDK LD (4B44),BC 499E 0A . LD A,(BC) 499F 6F o LD L,A 49A0 03 . INC BC 49A1 0A . LD A,(BC) 49A2 67 g LD H,A 49A3 E5 . PUSH HL 49A4 19 . ADD HL,DE 49A5 DC D8 49 ..I CALL C,49D8 49A8 22 46 4B "FK LD (4B46),HL 49AB 2A 48 4B *HK LD HL,(4B48) 49AE EB . EX DE,HL 49AF B7 . OR A 49B0 ED 52 .R SBC HL,DE 49B2 E3 . EX (SP),HL 49B3 22 3E 4B ">K LD (4B3E),HL 49B6 CD BF 44 ..D CALL 44BF 49B9 D1 . POP DE 49BA 3A 8C 46 :.F LD A,(468C) 49BD B7 . OR A 49BE 20 0E . JR NZ,49CE 49C0 36 FF 6. LD (HL),FF 49C2 2C , INC L 49C3 36 FF 6. LD (HL),FF 49C5 2C , INC L 49C6 ED 4B 3C 4B .K. LD A,03 49E6 DD CB 0B B6 .... RES 6,(IX+0B) 49EA C3 0D 3D ..= JP 3D0D 49ED E5 . PUSH HL 49EE D5 . PUSH DE 49EF 2A 44 4B *DK LD HL,(4B44) 49F2 ED 5B 46 4B .[FK LD DE,(4B46) 49F6 73 s LD (HL),E 49F7 23 # INC HL 49F8 72 r LD (HL),D 49F9 2A 38 4B *8K LD HL,(4B38) 49FC 2D - DEC L 49FD 2D - DEC L 49FE ED 5B 3E 4B .[>K LD DE,(4B3E) 4A02 73 s LD (HL),E 4A03 2C , INC L 4A04 72 r LD (HL),D 4A05 2C , INC L 4A06 36 FF 6. LD (HL),FF 4A08 2C , INC L 4A09 ED 5B 40 4B .[@K LD DE,(4B40) 4A0D 73 s LD (HL),E 4A0E 2C , INC L 4A0F 72 r LD (HL),D 4A10 D1 . POP DE 4A11 E1 . POP HL 4A12 C9 . RET 4A13 3E 0E >. LD A,0E 4A15 CD 0D 3D ..= CALL 3D0D 4A18 97 . SUB A 4A19 57 W LD D,A 4A1A 5F _ LD E,A 4A1B 37 7 SCF 4A1C C9 . RET 4A1D 7A z LD A,D 4A1E B7 . OR A 4A1F C0 . RET NZ 4A20 7B { LD A,E 4A21 FE 0D .. CP 0D 4A23 C0 . RET NZ 4A24 4E N LD C,(HL) 4A25 2C , INC L 4A26 46 F LD B,(HL) 4A27 2D - DEC L 4A28 E5 . PUSH HL 4A29 2A 38 4B *8K LD HL,(4B38) 4A2C 77 w LD (HL),A 4A2D 2C , INC L 4A2E 71 q LD (HL),C 4A2F 2C , INC L 4A30 70 p LD (HL),B 4A31 E1 . POP HL 4A32 C9 . RET 4A33 DD CB 07 C6 .... SET 0,(IX+07) 4A37 18 04 .. JR 4A3D 4A39 DD CB 07 86 .... RES 0,(IX+07) 4A3D DD 36 06 20 .6. LD (IX+06),20 4A41 2A C8 41 *.A LD HL,(41C8) 4A44 3E 7F >. LD A,7F 4A46 CD 49 46 .IF CALL 4649 4A49 21 03 00 !.. LD HL,0003 4A4C 22 CA 41 ".A LD (41CA),HL 4A4F DD 75 18 .u. LD (IX+18),L 4A52 DD 74 19 .t. LD (IX+19),H 4A55 DD 36 06 24 .6.$ LD (IX+06),24 4A59 DD CB 07 A6 .... RES 4,(IX+07) 4A5D DD 6E 18 .n. LD L,(IX+18) 4A60 DD 66 19 .f. LD H,(IX+19) 4A63 FD 21 85 46 .!.F LD IY,4685 4A67 FD CB 00 C6 .... SET 0,(IY+00) 4A6B FD 36 03 00 .6.. LD (IY+03),00 4A6F CD BF 44 ..D CALL 44BF 4A72 22 4A 4B "JK LD (4B4A),HL 4A75 DD CB 07 66 ...f BIT 4,(IX+07) 4A79 20 40 @ JR NZ,4ABB 4A7B 2C , INC L 4A7C 2C , INC L 4A7D 5E ^ LD E,(HL) 4A7E 2C , INC L 4A7F 56 V LD D,(HL) 4A80 7B { LD A,E 4A81 A2 . AND D 4A82 3C < INC A 4A83 CA 09 4B ..K JP Z,4B09 4A86 ED 53 C6 41 .S.A LD (41C6),DE 4A8A 2C , INC L 4A8B 7E ~ LD A,(HL) 4A8C DD 77 1A .w. LD (IX+1A),A 4A8F 2C , INC L 4A90 7E ~ LD A,(HL) 4A91 DD 77 1B .w. LD (IX+1B),A 4A94 7B { LD A,E 4A95 E6 01 .. AND 01 4A97 CB 83 .. RES 0,E 4A99 EB . EX DE,HL 4A9A CD 4D 44 .MD CALL 444D 4A9D DD 7E 18 .~. LD A,(IX+18) 4AA0 BE . CP (HL) 4AA1 20 47 G JR NZ,4AEA 4AA3 2C , INC L 4AA4 DD 7E 19 .~. LD A,(IX+19) 4AA7 BE . CP (HL) 4AA8 20 40 @ JR NZ,4AEA 4AAA 2C , INC L 4AAB 7E ~ LD A,(HL) 4AAC 3C < INC A 4AAD 20 3B ; JR NZ,4AEA 4AAF 2C , INC L 4AB0 DD 7E 1A .~. LD A,(IX+1A) 4AB3 96 . SUB (HL) 4AB4 23 # INC HL 4AB5 DD 7E 1B .~. LD A,(IX+1B) 4AB8 9E . SBC (HL) 4AB9 38 2F 8/ JR C,4AEA 4ABB DD CB 07 E6 .... SET 4,(IX+07) 4ABF 2A C6 41 *.A LD HL,(41C6) 4AC2 16 00 .. LD D,00 4AC4 7D } LD A,L 4AC5 E6 01 .. AND 01 4AC7 5F _ LD E,A 4AC8 CB 85 .. RES 0,L 4ACA CD AD 47 ..G CALL 47AD 4ACD ED 53 40 4B .S@K LD (4B40),DE 4AD1 CD 3F 49 .?I CALL 493F 4AD4 FD CB 00 5E ...^ BIT 3,(IY+00) 4AD8 C4 ED 49 ..I CALL NZ,49ED 4ADB 42 B LD B,D 4ADC 4B K LD C,E 4ADD EB . EX DE,HL 4ADE 2A 4A 4B *JK LD HL,(4B4A) 4AE1 7D } LD A,L 4AE2 C6 06 .. ADD A,06 4AE4 6F o LD L,A 4AE5 CD B0 2C .., CALL 2CB0 4AE8 18 04 .. JR 4AEE 4AEA DD CB 07 C6 .... SET 0,(IX+07) 4AEE DD CB 07 A6 .... RES 4,(IX+07) 4AF2 DD 7E 18 .~. LD A,(IX+18) 4AF5 C6 06 .. ADD A,06 4AF7 DD 86 1A ... ADD (IX+1A) 4AFA DD 77 18 .w. LD (IX+18),A 4AFD DD 7E 19 .~. LD A,(IX+19) 4B00 DD 8E 1B ... ADC (IX+1B) 4B03 DD 77 19 .w. LD (IX+19),A 4B06 D2 5D 4A .]J JP NC,4A5D 4B09 DD 36 06 28 .6.( LD (IX+06),28 4B0D 2A C8 41 *.A LD HL,(41C8) 4B10 23 # INC HL 4B11 23 # INC HL 4B12 22 C6 41 ".A LD (41C6),HL 4B15 2A CA 41 *.A LD HL,(41CA) 4B18 37 7 SCF 4B19 CB 1C .. RR H 4B1B CB 1D .. RR L 4B1D CB 85 .. RES 0,L 4B1F 3E FF >. LD A,FF 4B21 CD 49 46 .IF CALL 4649 4B24 DD 36 06 00 .6.. LD (IX+06),00 4B28 DD CB 07 9E .... RES 3,(IX+07) 4B2C DD CB 07 46 ...F BIT 0,(IX+07) 4B30 C2 26 29 .&) JP NZ,2926 4B33 C3 E4 49 ..I JP 49E4 4B36 54 T LD D,H ; "TR" 4B37 52 R LD D,D 4B38 00 . NOP 4B39 00 . NOP 4B3A 00 . NOP 4B3B 00 . NOP 4B3C 00 . NOP 4B3D 00 . NOP 4B3E 00 . NOP 4B3F 00 . NOP 4B40 00 . NOP 4B41 00 . NOP 4B42 00 . NOP 4B43 00 . NOP 4B44 00 . NOP 4B45 00 . NOP 4B46 00 . NOP 4B47 00 . NOP 4B48 00 . NOP 4B49 00 . NOP 4B4A 00 . NOP 4B4B 00 . NOP 4B4C F5 . PUSH AF 4B4D C5 . PUSH BC 4B4E D5 . PUSH DE 4B4F E5 . PUSH HL 4B50 FD E5 .. PUSH IY 4B52 2A B6 4C *.L LD HL,(4CB6) 4B55 2B + DEC HL 4B56 7C | LD A,H 4B57 B5 . OR L 4B58 20 1D . JR NZ,4B77 4B5A 21 17 82 !.. LD HL,8217 4B5D 3A B8 4C :.L LD A,(4CB8) 4B60 FE 02 .. CP 02 4B62 28 09 (. JR Z,4B6D 4B64 CB CE .. SET 1,(HL) 4B66 3E 02 >. LD A,02 4B68 21 B8 0B !.. LD HL,0BB8 4B6B 18 07 .. JR 4B74 4B6D CB C6 .. SET 0,(HL) 4B6F 3E 01 >. LD A,01 4B71 21 70 17 !p. LD HL,1770 4B74 32 B8 4C 2.L LD (4CB8),A 4B77 22 B6 4C ".L LD (4CB6),HL 4B7A 2A F1 4C *.L LD HL,(4CF1) 4B7D 23 # INC HL 4B7E 22 F1 4C ".L LD (4CF1),HL 4B81 21 B9 4C !.L LD HL,4CB9 4B84 CD 99 4E ..N CALL 4E99 4B87 3A B5 4C :.L LD A,(4CB5) 4B8A B7 . OR A 4B8B 28 08 (. JR Z,4B95 4B8D 2A B3 4C *.L LD HL,(4CB3) 4B90 65 e LD H,L 4B91 6F o LD L,A 4B92 22 B3 4C ".L LD (4CB3),HL 4B95 FD E1 .. POP IY 4B97 E1 . POP HL 4B98 D1 . POP DE 4B99 C1 . POP BC 4B9A F1 . POP AF 4B9B C9 . RET 4B9C F3 . DI 4B9D 2A B3 4C *.L LD HL,(4CB3) 4BA0 7D } LD A,L 4BA1 B7 . OR A 4BA2 28 35 (5 JR Z,4BD9 4BA4 6C l LD L,H 4BA5 26 00 &. LD H,00 4BA7 22 B3 4C ".L LD (4CB3),HL 4BAA FB . EI 4BAB FE 80 .. CP 80 4BAD 28 24 ($ JR Z,4BD3 4BAF CB 7F .. BIT 7,A 4BB1 C4 CA 4B ..K CALL NZ,4BCA 4BB4 21 D1 4C !.L LD HL,4CD1 4BB7 06 03 .. LD B,03 4BB9 0F . RRCA 4BBA F5 . PUSH AF 4BBB C5 . PUSH BC 4BBC E5 . PUSH HL 4BBD DC 99 4E ..N CALL C,4E99 4BC0 E1 . POP HL 4BC1 C1 . POP BC 4BC2 F1 . POP AF 4BC3 11 08 00 ... LD DE,0008 4BC6 19 . ADD HL,DE 4BC7 10 F0 .. DJNZ 4BB9 4BC9 C9 . RET 4BCA F5 . PUSH AF 4BCB 21 C9 4C !.L LD HL,4CC9 4BCE CD 99 4E ..N CALL 4E99 4BD1 F1 . POP AF 4BD2 C9 . RET 4BD3 21 C1 4C !.L LD HL,4CC1 4BD6 C3 99 4E ..N JP 4E99 4BD9 FB . EI 4BDA C9 . RET 4BDB 3A F4 6E :.n LD A,(6EF4) 4BDE DD 96 04 ... SUB (IX+04) 4BE1 ED 44 .D NEG 4BE3 DD 77 04 .w. LD (IX+04),A 4BE6 21 B5 4C !.L LD HL,4CB5 4BE9 DD 7E 2A .~* LD A,(IX+2A) 4BEC FE 05 .. CP 05 4BEE 30 03 0. JR NC,4BF3 4BF0 CB C6 .. SET 0,(HL) 4BF2 C9 . RET 4BF3 CB CE .. SET 1,(HL) 4BF5 C9 . RET 4BF6 3A F4 6E :.n LD A,(6EF4) 4BF9 DD 86 04 ... ADD (IX+04) 4BFC FE 64 .d CP 64 4BFE 38 1E 8. JR C,4C1E 4C00 D6 64 .d SUB A,64 4C02 F5 . PUSH AF 4C03 DD 35 .5 DEC (IX+1C) 4C05 1C . INC E 4C06 20 0B . JR NZ,4C13 4C08 DD 7E 2A .~* LD A,(IX+2A) 4C0B 3C < INC A 4C0C FE 03 .. CP 03 4C0E 30 03 0. JR NC,4C13 4C10 DD 77 2A .w* LD (IX+2A),A 4C13 2A 1C 6E *.n LD HL,(6E1C) 4C16 2E 38 .8 LD L,38 4C18 CD 99 4E ..N CALL 4E99 4C1B F1 . POP AF 4C1C 18 DE .. JR 4BFC 4C1E DD 77 04 .w. LD (IX+04),A 4C21 21 B5 4C !.L LD HL,4CB5 4C24 CB 86 .. RES 0,(HL) 4C26 CB 8E .. RES 1,(HL) 4C28 C9 . RET 4C29 DD 7E 2A .~* LD A,(IX+2A) 4C2C FE 03 .. CP 03 4C2E D0 . RET NC 4C2F DD 36 2A 00 .6*. LD (IX+2A),00 4C33 DD 36 1C 3C .6.< LD (IX+1C),3C 4C37 C9 . RET 4C38 3A F9 4C :.L LD A,(4CF9) 4C3B B7 . OR A 4C3C C8 . RET Z 4C3D 3E 01 >. LD A,01 4C3F 32 F9 4C 2.L LD (4CF9),A 4C42 2A FA 4C *.L LD HL,(4CFA) 4C45 06 11 .. LD B,11 4C47 23 # INC HL 4C48 7E ~ LD A,(HL) 4C49 FE 01 .. CP 01 4C4B 28 0D (. JR Z,4C5A 4C4D 38 03 8. JR C,4C52 4C4F 21 FB 4C !.L LD HL,4CFB 4C52 10 F3 .. DJNZ 4C47 4C54 21 F9 4C !.L LD HL,4CF9 4C57 CB 86 .. RES 0,(HL) 4C59 C9 . RET 4C5A DD 7E 26 .~& LD A,(IX+26) 4C5D B7 . OR A 4C5E 20 28 ( JR NZ,4C88 4C60 22 FA 4C ".L LD (4CFA),HL 4C63 11 FC 4C ..L LD DE,4CFC 4C66 B7 . OR A 4C67 ED 52 .R SBC HL,DE 4C69 DD 7E 06 .~. LD A,(IX+06) 4C6C FE BC .. CP BC 4C6E C0 . RET NZ 4C6F DD 7E 34 .~4 LD A,(IX+34) 4C72 B7 . OR A 4C73 C0 . RET NZ 4C74 DD 36 06 00 .6.. LD (IX+06),00 4C78 DD CB 07 DE .... SET 3,(IX+07) 4C7C DD 75 2C .u, LD (IX+2C),L 4C7F DD 74 2D .t- LD (IX+2D),H 4C82 2A FA 4C *.L LD HL,(4CFA) 4C85 36 00 6. LD (HL),00 4C87 C9 . RET 4C88 DD CB 05 C6 .... SET 0,(IX+05) 4C8C 97 . SUB A 4C8D 32 F9 4C 2.L LD (4CF9),A 4C90 C9 . RET 4C91 F1 . POP AF 4C92 C9 . RET ;---------- SV-Call zustellen ----- 4C93 F5 . PUSH AF ; Kanalnummer 4C94 3A FC 6E :.n LD A,(6EFC) 4C97 B7 . OR A 4C98 20 F7 . JR NZ,4C91 4C9A F1 . POP AF 4C9B F5 . PUSH AF 4C9C E5 . PUSH HL 4C9D 21 F9 4C !.L LD HL,4CF9 4CA0 CB CE .. SET 1,(HL) ; irgendein Kanal hat SV-Call 4CA2 21 FC 4C !.L LD HL,4CFC ; 4CFC+Kanalnummer 4CA5 85 . ADD L 4CA6 6F o LD L,A 4CA7 30 01 0. JR NC,4CAA 4CA9 24 $ INC H 4CAA 3E 01 >. LD A,01 4CAC 77 w LD (HL),A ; 1: SV-Call angefordert 4CAD CD 68 6D .hm CALL 6D68 ; unblock (supervisor) 4CB0 E1 . POP HL 4CB1 F1 . POP AF 4CB2 C9 . RET ;-------------------------------- 4CB3 00 . NOP 4CB4 00 . NOP 4CB5 00 . NOP 4CB6 70 p LD (HL),B 4CB7 17 . RLA 4CB8 01 4CB9 00 00 ; clock (1) 4CBB 00 . NOP 4CBC 00 . NOP 4CBD 00 . NOP 4CBE 00 . NOP 4CBF 00 . NOP 4CC0 00 . NOP 4CC1 00 . NOP ; clock (2) 4CC2 00 . NOP 4CC3 00 . NOP 4CC4 00 . NOP 4CC5 00 . NOP 4CC6 00 . NOP 4CC7 00 . NOP 4CC8 00 . NOP 4CC9 00 . NOP ; clock (3) 4CCA 00 . NOP 4CCB 00 . NOP 4CCC 00 . NOP 4CCD 00 . NOP 4CCE 00 . NOP 4CCF 00 . NOP 4CD0 00 . NOP 4CD1 00 . NOP ; clock (4) 4CD2 00 . NOP 4CD3 00 . NOP 4CD4 00 . NOP 4CD5 00 . NOP 4CD6 00 . NOP 4CD7 00 . NOP 4CD8 00 . NOP 4CD9 00 . NOP ; clock (5) 4CDA 00 . NOP 4CDB 00 . NOP - Fortsetzung in Datei "eumel0.prt.3" -