diff options
Diffstat (limited to 'system/eumel0-z80/src/eumel0.prt.2')
| -rw-r--r-- | system/eumel0-z80/src/eumel0.prt.2 | 3957 |
1 files changed, 3957 insertions, 0 deletions
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<K LD (4B3C),A
+47C9 7C | LD A,H
+47CA 32 3D 4B 2=K LD (4B3D),A
+47CD 32 3A 4B 2:K LD (4B3A),A
+47D0 2C , INC L
+47D1 7B { LD A,E
+47D2 CD CA 44 ..D CALL 44CA
+47D5 22 38 4B "8K LD (4B38),HL
+47D8 5E ^ LD E,(HL)
+47D9 1C . INC E
+47DA 28 28 (( JR Z,4804
+47DC 1D . DEC E
+47DD 3E 0D >. 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 :<K LD A,(4B3C)
+482B BE . CP (HL)
+482C 20 BD . JR NZ,47EB
+482E 2C , INC L
+482F 3A 3D 4B :=K LD A,(4B3D)
+4832 BE . CP (HL)
+4833 20 B6 . JR NZ,47EB
+4835 2C , INC L
+4836 22 42 4B "BK LD (4B42),HL
+4839 4E N LD C,(HL)
+483A 2C , INC L
+483B 46 F LD B,(HL)
+483C 2C , INC L
+483D E5 . PUSH HL
+483E 2A 38 4B *8K LD HL,(4B38)
+4841 2C , INC L
+4842 5E ^ LD E,(HL)
+4843 2C , INC L
+4844 56 V LD D,(HL)
+4845 E1 . POP HL
+4846 FD CB 00 D6 .... SET 2,(IY+00)
+484A C9 . RET
+484B 7B { LD A,E
+484C A2 . AND D
+484D 3C < INC A
+484E CA EB 47 ..G JP Z,47EB
+4851 EB . EX DE,HL
+4852 CD BF 44 ..D CALL 44BF
+4855 18 DF .. JR 4836
+4857 D5 . PUSH DE
+4858 2A 38 4B *8K LD HL,(4B38)
+485B E5 . PUSH HL
+485C CD 08 48 ..H CALL 4808
+485F D1 . POP DE
+4860 3E FF >. 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<K LD BC,(4B3C)
+49CA 71 q LD (HL),C
+49CB 2C , INC L
+49CC 70 p LD (HL),B
+49CD 2C , INC L
+49CE 73 s LD (HL),E
+49CF 2C , INC L
+49D0 72 r LD (HL),D
+49D1 2C , INC L
+49D2 D1 . POP DE
+49D3 FD CB 00 DE .... SET 3,(IY+00)
+49D7 C9 . RET
+49D8 3A 8C 46 :.F LD A,(468C)
+49DB B7 . OR A
+49DC CA 39 4A .9J JP Z,4A39
+49DF 2C , INC L
+49E0 7D } LD A,L
+49E1 E6 0F .. AND 0F
+49E3 C0 . RET NZ
+49E4 3E 03 >. 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" -
|