From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/eumel0-z80/src/eumel0.prt.2 | 3957 ++++++++++++++++++++++++++++++++++++ 1 file changed, 3957 insertions(+) create mode 100644 system/eumel0-z80/src/eumel0.prt.2 (limited to 'system/eumel0-z80/src/eumel0.prt.2') diff --git a/system/eumel0-z80/src/eumel0.prt.2 b/system/eumel0-z80/src/eumel0.prt.2 new file mode 100644 index 0000000..5dbb9b9 --- /dev/null +++ b/system/eumel0-z80/src/eumel0.prt.2 @@ -0,0 +1,3957 @@ +#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" - -- cgit v1.2.3