Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Nächste Überarbeitung		 Vorhergehende Überarbeitung
z1013:software:monitor:riesa202 [2011/11/28 15:01] – angelegt volkerpz1013:software:monitor:riesa202 [2012/11/04 14:20] (aktuell) – volkerp
Zeile 1: Zeile 1:
-====== Der Monitor 2.02 ======+====== Monitor 2.02 ======
  
 +<WRAP lo>
 +<code>
 + AS V1.42 Beta [Bld 64] - source file z1013riesa.asm - page 1 - 12/15/2011 10:24:49
 +
 +       1/       0 :                      page 0
 +       2/       0 :                      CPU z80
 +       3/       0 :                     
 +       4/       0 :                     ;Z1013-MONITOR 2.02, A.2
 +       5/       0 :                     ;reass: 1988-1990 Volker Pohlers, Lomonossowallee 41/81, Greifswald, 2200
 +       6/       0 :                     ;basierend auf GENS3M-Listing des 2.02-Monitors von C.Fischer/Ilmenau
 +       7/       0 :                     ;Fassung für den Arnold-Assembler und vielfach erweiterte Kommentare
 +       8/       0 :                     ;Volker Pohlers, Sanitz, 23.04.2004
 +       9/       0 :                     ;letzte Änderung 07.12.2011
 +      10/       0 :                     
 +      11/       0 :                     ;
 +      12/       0 :                     ;gewünschten Monitortyp auskommentieren
 +      13/       0 :                     ;
 +      14/       0 : =Z1013_202          MONTYP EQU "Z1013_202"
 +      15/       0 :                     ;MONTYP EQU "Z1013_A2"
 +      16/       0 :                     
 +      17/       0 :                     ;die wichtigsten Unterschiede A2 <-> 2.02
 +      18/       0 :                     ;- kein H- und A- und F-Kommandos
 +      19/       0 :                     ;- andere Adressen Windows-Speicher
 +      20/       0 :                     ;- andere INKEY-Routine und auch INCH-Routine!
 +      21/       0 :                     ;- KDO mit RST-Aufrufen programmiert, damit Verschiebung aller Routinen des Monitors!
 +      22/       0 :                     
 +      23/       0 :                     ; Makros
 +      24/       0 :                     hi              function x, (x>>8) & 0ffh ; High-Byte
 +      25/       0 :                     lo              function x, x & 0ffh ; Low-Byte
 +      26/       0 :                     
 +      27/       0 :                     ;
 +      28/       0 :                     ;RAM-Zellen
 +      29/       0 :                     ;
 +      30/       0 : =3H                 R20BT: EQU 00003H ;Nummer des RST20-Calls
 +      31/       0 : =4H                 LAKEY: EQU 00004H ;letztes Zeichen von Tastatur
 +      32/       0 : =BH                 BPADR: EQU 0000BH ;Breakpointadresse
 +      33/       0 : =DH                 BPOPC: EQU 0000DH ;Operandenfolge bei Breakpoint
 +      34/       0 : =13H                DATA: EQU 00013H ;Adresse bei INHEX; intern f. INKEY b. A2
 +      35/       0 :                     ;SHILO: EQU 00015H ;
 +      36/       0 : =16H                SOIL: EQU 00016H ;Beginn Eingabezeile
 +      37/       0 : =1BH                ARG1: EQU 0001BH ;1. Argument
 +      38/       0 : =1DH                ARG2: EQU 0001DH ;2. Argument
 +      39/       0 : =1FH                BUFFA: EQU 0001FH ;vom Cursor verdecktes Zeichen
 +      40/       0 : =20H                RST20: EQU 00020H ;RST 20H
 +      41/       0 : =23H                ARG3: EQU 00023H ;3. Argument
 +      42/       0 : =25H                SOIL2: EQU 00025H ;Rest Eingabezeile
 +      43/       0 : =2BH                CUPOS: EQU 0002BH ;aktuelle Cursorposition
 +      44/       0 : =33H                LSYNC: EQU 00033H ;Kenntonlaenge
 +      45/       0 : =38H                RST38: EQU 00038H ;RST 38H
 +      46/       0 : =>FALSE              IF MONTYP == "Z1013_A2"
 +      47/       0 :                     WINDL: EQU 00035H ;Windowlaenge
 +      48/       0 :                     KYBTS: equ 00037h ;Tastaturroutinenzelle (Bit 4=Repeat)
 +      49/       0 :                     WINDA: EQU 0003BH ;Windowanfang
 +      50/       0 :                     WINDE: EQU 0003DH ;Windowende+1
 +      51/       0 : =>TRUE              ELSE
 +      52/       0 : =27H                KYBTS: EQU 00027H ;Tastaturroutinenzelle (0=ASCII,80h=Grafik)
 +      53/       0 : =47H                WINDL: EQU 00047H ;Windowlaenge
 +      54/       0 : =49H                WINDA: EQU 00049H ;Windowanfang
 +      55/       0 : =4BH                WINDE: EQU 0004BH ;Windowende+1
 +      56/       0 : [46]                ENDIF
 +      57/       0 : =4DH                REGBR: EQU 0004DH ;Registerrettebereich
 +      58/       0 : =5BH                REGAF: EQU 0005BH ;Register AF
 +      59/       0 : =61H                REGPC: EQU 00061H ;Register PC
 +      60/       0 : =63H                REGSP: EQU 00063H ;Userstack
 +      61/       0 : =66H                NMI: EQU 00066H
 +      62/       0 : =69H                NBYTE: EQU 00069H ;Operand bei NEXT
 +      63/       0 : =6AH                SPADR: EQU 0006AH ;SP-Zwischenspeicher
 +      64/       0 : =6CH                FBANZ: EQU 0006CH ;Zwsp. Anz. Suchbytes bei FIND
 +      65/       0 : =90H                USRSK: EQU 00090H ;Userstack
 +      66/       0 : =B0H                SYSSK: EQU 000B0H ;Systemstack
 +      67/       0 : =B0H                USRKD: EQU SYSSK
 +      68/       0 :                     ;Bildschirm
 +      69/       0 : =EC00H              BWS: EQU 0EC00H ;Beginn BWS
 +      70/       0 : =20H                BWSROW EQU 32 ;Anzahl Zeilen
 +      71/       0 : =20H                BWSCOL EQU 32 ;Anzahl Zeichen/Zeile
 +      72/       0 : =400H               BWSSZ EQU BWSROW*BWSCOL
 +      73/       0 :                     ;
 +      74/       0 :                     ;Markenvereinbarungen
 +      75/       0 :                     ;
 +      76/       0 : =CH                 CLS: EQU 0CH
 +      77/       0 : =DH                 CR: EQU 0DH
 +      78/       0 : =1BH                ESC: EQU 27
 +      79/       0 : =1EH                NL: EQU 1EH
 +      80/       0 : =AH                 LF: EQU 0AH
 +      81/       0 :                     ;
 +      82/       0 :                     ;PIO
 +      83/       0 : =0H                 PIOAD equ 00h ; PIO A User
 +      84/       0 : =1H                 PIOAC equ 01h
 +      85/       0 : =2H                 PIOBD equ 02h ; PIO B, Bit0..4 Tastaturzeile
 +      86/       0 : =3H                 PIOBC equ 03h ; Bit5->AB0 in, Bit6->TB in, Bit7->TB out
 +      87/       0 : =8H                 KEYP equ 08h ; Port Ausgabe Tastaturspalte
 +      88/       0 :                     ;
 +      89/       0 :                     ; Makros für Systemaufrufe über RST 20h
 +      90/       0 :                     ;
 +      91/       0 :                     ROUTC: MACRO
 +      92/       0 :                      RST 20H
 +      93/       0 :                      DB 0 ; OUTCH
 +      94/       0 :                      ENDM
 +      95/       0 :                     RINCH: MACRO
 +      96/       0 :                      RST 20H
 +      97/       0 :                      DB 01h ; INCH
 +      98/       0 :                      ENDM
 +      99/       0 :                     RPRST: MACRO
 +     100/       0 :                      RST 20H
 +     101/       0 :                      DB 02h ; PRST
 +     102/       0 :                      ENDM
 +     103/       0 :                     RINHX: MACRO
 +     104/       0 :                      RST 20H
 +     105/       0 :                      DB 03h ; INHEX
 +     106/       0 :                      ENDM
 +     107/       0 :                     RINKY: MACRO
 +     108/       0 :                      RST 20H
 +     109/       0 :                      DB 04h ; INKEY
 +     110/       0 :                      ENDM
 +     111/       0 :                     RINLN: MACRO
 +     112/       0 :                      RST 20H
 +     113/       0 :                      DB 05h ; INLIN
 +     114/       0 :                      ENDM
 +     115/       0 :                     ROTHX: MACRO
 +     116/       0 :                      RST 20H
 +     117/       0 :                      DB 06h ; OUTHX
 +     118/       0 :                      ENDM
 +     119/       0 :                     ROTHL: MACRO
 +     120/       0 :                      RST 20H
 +     121/       0 :                      DB 07h ; OUTHL
 +     122/       0 :                      ENDM
 +     123/       0 :                     ROTHS: MACRO
 +     124/       0 :                      RST 20H
 +     125/       0 :                      DB 0Ch ; OTHLS
 +     126/       0 :                      ENDM
 +     127/       0 :                     ROTDP: MACRO
 +     128/       0 :                      RST 20H
 +     129/       0 :                      DB 0Dh ; OUTDP
 +     130/       0 :                      ENDM
 +     131/       0 :                     ROTSP: MACRO
 +     132/       0 :                      RST 20H
 +     133/       0 :                      DB 0Eh ; OUTSP
 +     134/       0 :                      ENDM
 +     135/       0 :                     ;
 +     136/       0 :                     ;
 +     137/       0 :                     ;
 +     138/    F000 :                      ORG 0F000H
 +     139/    F000 :                     ;
 +     140/    F000 :                     ;-------------------------------------------------------------------------------
 +     141/    F000 :                     ; Start
 +     142/    F000 :                     ;-------------------------------------------------------------------------------
 +     143/    F000 :                     
 +     144/    F000 : 18 0D               INIT: JR INIT2
 +     145/    F002 :                     ;Initialisierung
 +     146/    F002 : 21 4D 00            INIT1: LD HL,REGBR ;Registerrette-
 +     147/    F005 : 11 4E 00            LD DE,REGBR+1 ;bereich loeschen
 +     148/    F008 : 36 00                LD (HL),0
 +     149/    F00A : 01 15 00            LD BC,0015H
 +     150/    F00D : ED B0                LDIR
 +     151/    F00F : 31 B0 00            INIT2: LD SP,SYSSK ;System-Stack
 +     152/    F012 : =>TRUE              IF MONTYP == "Z1013_202"
 +     153/    F012 : AF                  xor a ;Tastaturschalter
 +     154/    F013 : 32 27 00            ld (KYBTS), a ;auf ASCII
 +     155/    F016 : [152]                ENDIF
 +     156/    F016 : 3E C3                LD A,0C3H ;JMP ...
 +     157/    F018 : 32 20 00            LD (RST20),A
 +     158/    F01B : 21 E8 F0            LD HL,RST1 ;RST20 eintragen
 +     159/    F01E : 22 21 00            LD (RST20+1),HL
 +     160/    F021 : 3E CF                LD A,11001111b ;PIO Port B init.
 +     161/    F023 : D3 03                OUT PIOBC, A ;BIT-Mode 3
 +     162/    F025 : =>TRUE              IF MONTYP <> "Z1013_A2"
 +     163/    F025 : 3E 7F                LD A,01111111b ;BIT7-Ausgang
 +     164/    F027 : =>FALSE              ELSE
 +     165/    F027 :                      LD A,01101111b ;Bit7 und Bit4 Ausg.
 +     166/    F027 : [162]                ENDIF
 +     167/    F027 : D3 03                OUT PIOBC, A
 +     168/    F029 : 21 F2 F1            LD HL,MONTB ;System-RAM init.
 +     169/    F02C : 11 33 00            LD DE,LSYNC
 +     170/    F02F : 01 1A 00            LD BC,INCH-MONTB ;Laenge Tabelle
 +     171/    F032 : ED B0                LDIR
 +     172/    F034 :                     ;Systemmeldung
 +     173/    F034 : (MACRO)              RPRST
 +     173/    F034 : E7                          RST     20H
 +     173/    F035 : 02                          DB      02h                     ; PRST
 +     174/    F036 : 0C                  DB CLS
 +     175/    F037 : 0D                  DB CR
 +     176/    F038 : 0D                  DB CR
 +     177/    F039 : =>TRUE              IF MONTYP == "Z1013_202"
 +     178/    F039 : 72 6F 62 6F 74 72    DB "robotron Z 1013/2.02"
 +                    6F 6E 20 5A 20 31 
 +                    30 31 33 2F 32 2E 
 +                    30 32 
 +     179/    F04D : =>FALSE              ELSEIF MONTYP == "Z1013_A2"
 +     180/    F04D :                      DB "robotron Z 1013/A.2"
 +     181/    F04D : [177]                ENDIF
 +     182/    F04D : 8D                  DB CR+80H
 +     183/    F04E :                     ;
 +     184/    F04E : 21 90 00            LD HL,USRSK ;User-Stack
 +     185/    F051 : 22 63 00            LD (REGSP),HL
 +     186/    F054 : ED 5E                IM 2
 +     187/    F056 : 18 07                JR KDO2
 +     188/    F058 :                     ;
 +     189/    F058 :                     ;-------------------------------------------------------------------------------
 +     190/    F058 :                     ;Eingang Kommandomodus
 +     191/    F058 :                     ;-------------------------------------------------------------------------------
 +     192/    F058 :                     ;
 +     193/    F058 : 31 B0 00            KDO1: LD SP,SYSSK ;System-Stack
 +     194/    F05B : =>FALSE              IF MONTYP == "Z1013_A2"
 +     195/    F05B :                      RPRST
 +     196/    F05B : =>TRUE              ELSE
 +     197/    F05B : CD A5 F2            CALL PRST7
 +     198/    F05E : [194]                ENDIF
 +     199/    F05E : BF                  DB '?'+80H
 +     200/    F05F :                     KDO2:
 +     201/    F05F : =>FALSE              IF MONTYP == "Z1013_A2"
 +     202/    F05F :                      RINLN
 +     203/    F05F : =>TRUE              ELSE
 +     204/    F05F : CD B3 F2            CALL INLIN ;Zeile eingeben
 +     205/    F062 : [201]                ENDIF
 +     206/    F062 : ED 5B 16 00          LD DE,(SOIL)
 +     207/    F066 : CD CA F2            CALL SPACE ;Leerzeichen uebergehen
 +     208/    F069 : 47                  LD B,A ;B=1. Zeichen
 +     209/    F06A : 13                  INC DE
 +     210/    F06B : 1A                  LD A,(DE)
 +     211/    F06C : 4F                  LD C,A ;C=2. Zeichen
 +     212/    F06D : C5                  PUSH BC
 +     213/    F06E : 13                  INC DE
 +     214/    F06F : =>FALSE              IF MONTYP == "Z1013_A2"
 +     215/    F06F :                      RINHX
 +     216/    F06F : =>TRUE              ELSE
 +     217/    F06F : CD F4 F2            CALL INHEX
 +     218/    F072 : [214]                ENDIF
 +     219/    F072 : 20 05                JR NZ, KDO3
 +     220/    F074 : 1A                  LD A,(DE)
 +     221/    F075 : FE 3A                CP A, ':' ;die alten Werte nehmen ?
 +     222/    F077 : 28 0F                JR Z, KDO4
 +     223/    F079 : 22 1B 00            KDO3: LD (ARG1),HL ;neue Argumente holen
 +     224/    F07C : =>FALSE              IF MONTYP == "Z1013_A2"
 +     225/    F07C :                      RINHX
 +     226/    F07C : =>TRUE              ELSE
 +     227/    F07C : CD F4 F2            CALL INHEX
 +     228/    F07F : [224]                ENDIF
 +     229/    F07F : 22 1D 00            LD (ARG2),HL
 +     230/    F082 : =>FALSE              IF MONTYP == "Z1013_A2"
 +     231/    F082 :                      RINHX
 +     232/    F082 : =>TRUE              ELSE
 +     233/    F082 : CD F4 F2            CALL INHEX
 +     234/    F085 : [230]                ENDIF
 +     235/    F085 : 22 23 00            LD (ARG3),HL
 +     236/    F088 : C1                  KDO4: POP BC
 +     237/    F089 : 08                  EX AF, AF'
 +     238/    F08A : ED 53 25 00          LD (SOIL2),DE ;Anfang 4. Argument
 +     239/    F08E :                     ;Kommando (in Reg B) suchen
 +     240/    F08E : 21 B1 F0            LD HL,KDOTB ;in Kommandotabelle
 +     241/    F091 : 7E                  KDO5: LD A,(HL)
 +     242/    F092 : B8                  CP A, B
 +     243/    F093 : 28 11                JR Z, KDO6 ;wenn gefunden
 +     244/    F095 : 23                  INC HL
 +     245/    F096 : 23                  INC HL
 +     246/    F097 : 23                  INC HL
 +     247/    F098 : B7                  OR A ;Tabellenende?
 +     248/    F099 : 20 F6                JR NZ, KDO5 ;nein
 +     249/    F09B : 78                  LD A,B
 +     250/    F09C : FE 40                CP A, '@' ;"@"-Kommando?
 +     251/    F09E : 20 B8                JR NZ, KDO1 ;nein -> Eingabefehler
 +     252/    F0A0 : 21 B0 00            LD HL,USRKD ;Suchen in "@"-Kdo.tab.
 +     253/    F0A3 : 41                  LD B,C
 +     254/    F0A4 : 18 EB                JR KDO5
 +     255/    F0A6 :                     ;
 +     256/    F0A6 : 23                  KDO6: INC HL
 +     257/    F0A7 : 5E                  LD E,(HL)
 +     258/    F0A8 : 23                  INC HL
 +     259/    F0A9 : 56                  LD D,(HL)
 +     260/    F0AA : EB                  EX DE,HL ;HL=UP-Adresse
 +     261/    F0AB : 08                  EX AF, AF'
 +     262/    F0AC : 01 5F F0            LD BC,KDO2 ;Returnadresse
 +     263/    F0AF : C5                  PUSH BC
 +     264/    F0B0 : E9                  JP (HL) ;Sprung zur Routine
 +     265/    F0B1 :                     ;
 +     266/    F0B1 :                     KDOTB:
 +     267/    F0B1 : =>TRUE              IF MONTYP == "Z1013_202"
 +     268/    F0B1 : 41                  DB "A"
 +     269/    F0B2 : C5 F6                DW A_KDO
 +     270/    F0B4 : [267]                ENDIF
 +     271/    F0B4 : 42                  DB "B"
 +     272/    F0B5 : 87 F5                DW B_KDO
 +     273/    F0B7 : 43                  DB "C"
 +     274/    F0B8 : 77 F7                DW C_KDO
 +     275/    F0BA : 44                  DB "D"
 +     276/    F0BB : CE F4                DW D_KDO
 +     277/    F0BD : 45                  DB "E"
 +     278/    F0BE : 99 F5                DW E_KDO
 +     279/    F0C0 : =>TRUE              IF MONTYP <> "Z1013_A2"
 +     280/    F0C0 : 46                  DB "F"
 +     281/    F0C1 : A2 F7                DW F_KDO
 +     282/    F0C3 : [279]                ENDIF
 +     283/    F0C3 : 47                  DB "G"
 +     284/    F0C4 : B3 F5                DW G_KDO
 +     285/    F0C6 : =>TRUE              IF MONTYP == "Z1013_202"
 +     286/    F0C6 : 48                  DB "H"
 +     287/    F0C7 : B8 F6                DW H_KDO
 +     288/    F0C9 : [285]                ENDIF
 +     289/    F0C9 : 49                  DB "I"
 +     290/    F0CA : 02 F0                DW INIT1
 +     291/    F0CC : 4A                  DB "J"
 +     292/    F0CD : A5 F5                DW J_KDO
 +     293/    F0CF : 4B                  DB "K"
 +     294/    F0D0 : 0B F5                DW K_KDO
 +     295/    F0D2 : 4C                  DB "L"
 +     296/    F0D3 : F8 F3                DW CLOAD
 +     297/    F0D5 : 4D                  DB "M"
 +     298/    F0D6 : 25 F3                DW MEM
 +     299/    F0D8 : 4E                  DB "N"
 +     300/    F0D9 : 27 F7                DW N_KDO
 +     301/    F0DB : 52                  DB "R"
 +     302/    F0DC : DF F5                DW R_KDO
 +     303/    F0DE : 53                  DB "S"
 +     304/    F0DF : 69 F3                DW CSAVE
 +     305/    F0E1 : 54                  DB "T"
 +     306/    F0E2 : 1D F5                DW T_KDO
 +     307/    F0E4 : 57                  DB "W"
 +     308/    F0E5 : D1 F6                DW W_KDO
 +     309/    F0E7 : 00                  DB 0
 +     310/    F0E8 :                     ;
 +     311/    F0E8 :                     ;-------------------------------------------------------------------------------
 +     312/    F0E8 :                     ;Eingang bei RST 20H
 +     313/    F0E8 :                     ;-------------------------------------------------------------------------------
 +     314/    F0E8 :                     ;
 +     315/    F0E8 : E3                  RST1: EX (SP),HL
 +     316/    F0E9 : F5                  PUSH AF
 +     317/    F0EA : 7E                  LD A,(HL) ;Datenbyte hinter Ruf holen
 +     318/    F0EB : 32 03 00            LD (R20BT),A ;und ablegen
 +     319/    F0EE : 23                  INC HL ;Returnadresse erhoehen
 +     320/    F0EF : F1                  POP AF
 +     321/    F0F0 : E3                  EX (SP),HL
 +     322/    F0F1 :                     ;
 +     323/    F0F1 : E5                  PUSH HL
 +     324/    F0F2 : C5                  PUSH BC
 +     325/    F0F3 : F5                  PUSH AF
 +     326/    F0F4 : 21 08 F1            LD HL,RSTTB
 +     327/    F0F7 : 3A 03 00            LD A,(R20BT)
 +     328/    F0FA : CB 27                SLA A
 +     329/    F0FC : 4F                  LD C,A
 +     330/    F0FD : 06 00                LD B,0
 +     331/    F0FF : 09                  ADD HL,BC ;HL=Adresse in Tab.
 +     332/    F100 : 7E                  LD A,(HL)
 +     333/    F101 : 23                  INC HL
 +     334/    F102 : 66                  LD H,(HL)
 +     335/    F103 : 6F                  LD L,A ;HL=UP-Adresse
 +     336/    F104 : F1                  POP AF
 +     337/    F105 : C1                  POP BC
 +     338/    F106 : E3                  EX (SP),HL ;Ansprung der
 +     339/    F107 : C9                  RET ;Routine
 +     340/    F108 :                     ;
 +     341/    F108 : 1B F2               RSTTB: DW OUTCH ;DB 0
 +     342/    F10A : 0C F2                DW INCH ;DB 1
 +     343/    F10C : A5 F2                DW PRST7 ;DB 2
 +     344/    F10E : F4 F2                DW INHEX ;DB 3
 +     345/    F110 : 30 F1                DW INKEY ;DB 4
 +     346/    F112 : B3 F2                DW INLIN ;DB 5
 +     347/    F114 : 01 F3                DW OUTHX ;DB 6
 +     348/    F116 : 1A F3                DW OUTHL ;DB 7
 +     349/    F118 : 69 F3                DW CSAVE ;DB 8
 +     350/    F11A : F8 F3                DW CLOAD ;DB 9
 +     351/    F11C : 25 F3                DW MEM ;DB 10
 +     352/    F11E : D1 F6                DW W_KDO ;DB 11
 +     353/    F120 : C7 F5                DW OTHLS ;DB 12
 +     354/    F122 : C4 F5                DW OUTDP ;DB 13
 +     355/    F124 : CF F5                DW OUTSP ;DB 14
 +     356/    F126 : 1D F5                DW T_KDO ;DB 15
 +     357/    F128 : B9 F2                DW INSTR ;DB 16
 +     358/    F12A : 0B F5                DW K_KDO ;DB 17
 +     359/    F12C : =>TRUE              IF MONTYP <> "Z1013_A2"
 +     360/    F12C : B8 F6                DW H_KDO ;DB 18
 +     361/    F12E : C5 F6                DW A_KDO ;DB 19
 +     362/    F130 : [359]                ENDIF
 +     363/    F130 :                     
 +     364/    F130 :                     ;
 +     365/    F130 :                     ;-------------------------------------------------------------------------------
 +     366/    F130 :                     ;Eingabe ein Zeichen von der Tastatur in A
 +     367/    F130 :                     ;-------------------------------------------------------------------------------
 +     368/    F130 :                     ;
 +     369/    F130 : =>TRUE              IF MONTYP == "Z1013_202"
 +     370/    F130 :                     
 +     371/    F130 :                     ; Tastatur
 +     372/    F130 :                     ; --------
 +     373/    F130 :                     ;
 +     374/    F130 :                     ;      -------------------------------------------------        I-------I
 +     375/    F130 :                     ;      I X   I Y   I Z   I [ { I \ | I ] } I ^ ~ I _   I        I S1 S2 I
 +     376/    F130 :                     ;  RZ0-I     I     I     I     I     I     I     I     I        I       I
 +     377/    F130 :                     ;      I @ ` I A   I B   I C   I D   I E   I F   I G   I        I S0    I
 +     378/    F130 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I        I-------I
 +     379/    F130 :                     ;      I 0   I 1 ! I 2 " I 3 # I 4 $ I 5 % I 6 & I 7 ' I
 +     380/    F130 :                     ;  RZ1-I     I     I     I     I     I     I     I     I        S0 = normal, Großbuchstaben
 +     381/    F130 :                     ;      I H   I I   I J   I K   I L   I M   I N   I O   I        S1 = Ziffern etc.
 +     382/    F130 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I        S2 = Sonderzeichen etc.
 +     383/    F130 :                     ;      I 8 ( I 9 ) I : * I ; + I < , I = - I > . I ? / I        S3 = Kleinbuchstaben
 +     384/    F130 :                     ;  RZ2-I     I     I     I     I     I     I     I     I        S4 = Ctrl.
 +     385/    F130 :                     ;      I P   I Q   I R   I S   I T   I U   I V   I W   I
 +     386/    F130 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     387/    F130 :                     ;      I     I     I     I     I     I     I     I     I
 +     388/    F130 :                     ;  RZ3-I     I     I     I     I     I     I     I     I
 +     389/    F130 :                     ;      I S1  I S2  I S3  I S4  I <-  I SP  I ->  I ENT I
 +     390/    F130 :                     ;      -------------------------------------------------
 +     391/    F130 :                     ;         !     !     !     !     !     !     !     !
 +     392/    F130 :                     ;        RS0   RS1   RS2   RS3   RS4   RS5   RS6   RS7
 +     393/    F130 :                     ;
 +     394/    F130 :                     ; IN 2 |                     OUT 8
 +     395/    F130 :                     
 +     396/    F130 :                     
 +     397/    F130 :                     inkey: ;bei Ret A=ASCII
 +     398/    F130 : AF                  xor a
 +     399/    F131 : 67                  ld h, a
 +     400/    F132 : 6F                  ld l, a
 +     401/    F133 : CD 88 F1            call ink9 ;Tastenabfrage
 +     402/    F136 : 30 4B                jr nc, ink8 ;Cy=0 keine Taste
 +     403/    F138 : 19                  add hl, de
 +     404/    F139 : CD 9E F1            call ink12 ;restl. Spalten
 +     405/    F13C : 0E 44                ld c, 44h ;Tastaturcodetabelle 0044H Shift-Ebene 0 40h,48h,50h
 +     406/    F13E : 38 07                jr c, ink1 ;Cy=1 2.Taste gedr.
 +     407/    F140 : EB                  ex de, hl
 +     408/    F141 : CB 5A                bit 3, d ;Abfrage Zeile 3
 +     409/    F143 : 28 0B                jr z, ink2 ;Z=1 Taste gedr.
 +     410/    F145 : 18 14                jr ink3
 +     411/    F147 : CB 5A               ink1: bit 3, d ;2. Taste ? Zeile 3
 +     412/    F149 : 28 05                jr z, ink2 ;Z=1 Taste gedr.
 +     413/    F14B : EB                  ex de, hl
 +     414/    F14C : CB 5A                bit 3, d ;1. Taste ? Zeile 3
 +     415/    F14E : 20 0B                jr nz, ink3 ;Z=1 Taste gedr.
 +     416/    F150 : CD A5 F1            ink2: call ink13 ;Welche Taste in Z3
 +     417/    F153 : C5                  push bc
 +     418/    F154 : CD DC F1            call ink22 ;Summand holen
 +     419/    F157 : C1                  pop bc
 +     420/    F158 : 28 06                jr z, ink4 ;Z=0 kein Summ.
 +     421/    F15A : EB                  ex de, hl
 +     422/    F15B : CD DC F1            ink3: call ink22 ;Summand holen
 +     423/    F15E : 20 23                jr nz, ink8 ;Z=0 kein Summ.
 +     424/    F160 : 83                  ink4: add a, e
 +     425/    F161 : 21 27 00            ld hl, KYBTS
 +     426/    F164 : 86                  add a, (hl)
 +     427/    F165 :                     ;Berechnung Ascii-Wert abgeschlossen
 +     428/    F165 : 21 04 00            ink5: ld hl, LAKEY ;Softwareentprel-
 +     429/    F168 : BE                  cp (hl) ;lung, verhindert
 +     430/    F169 : 28 C5                jr z, inkey ;Repeat-Funktion
 +     431/    F16B : 47                  ld b, a
 +     432/    F16C : 7E                  ld a, (hl)
 +     433/    F16D : B7                  or a
 +     434/    F16E : 78                  ld a, b
 +     435/    F16F : 20 BF                jr nz, inkey ;Z=1 vorher keine
 +     436/    F171 : 32 04 00            ld (LAKEY), a ;Taste gedrueckt
 +     437/    F174 : FE 91                cp 91h ;(S4/A)
 +     438/    F176 : 28 07                jr z, ink6 ;Z=1- ASCII
 +     439/    F178 : FE 17                cp 17h ;(S4/G)
 +     440/    F17A : C0                  ret nz ;Z=0 Ruecksprung
 +     441/    F17B : 3E 80                ld a, 80h
 +     442/    F17D : 18 01                jr ink7
 +     443/    F17F : AF                  ink6: xor a
 +     444/    F180 : 32 27 00            ink7: ld (KYBTS), a
 +     445/    F183 : AF                  ink8: xor a ;Ruecksprung wenn
 +     446/    F184 : 32 04 00            ld (LAKEY), a ;keine Taste gedr.
 +     447/    F187 : C9                  ret ;mit A=0
 +     448/    F188 :                     ;UP Tastenabfrage
 +     449/    F188 : 5F                  ink9: ld e, a ;E=Spaltennummer
 +     450/    F189 : D3 08                out (KEYP), a ;Ausgabe Spalte
 +     451/    F18B : 06 20                ld b, 20h
 +     452/    F18D : DB 02               ink10: in a, (PIOBD)
 +     453/    F18F : E6 0F                and 0Fh
 +     454/    F191 : 57                  ld d, a ;D=Zeilennummer
 +     455/    F192 : DB 02                in a, (PIOBD)
 +     456/    F194 : E6 0F                and 0Fh
 +     457/    F196 : BA                  cp d
 +     458/    F197 : 20 03                jr nz, ink11 ;Z=0 Taste prellt
 +     459/    F199 : FE 0F                cp 0Fh
 +     460/    F19B : C0                  ret nz ;Z=0 Taste gedr.
 +     461/    F19C : 10 EF               ink11: djnz ink10
 +     462/    F19E : 7B                  ink12: ld a, e ;Erhoeh. Spalten-
 +     463/    F19F : 3C                  inc a ;zahl
 +     464/    F1A0 : FE 08                cp 8
 +     465/    F1A2 : 20 E4                jr nz, ink9 ;Z=1 alle Tasten
 +     466/    F1A4 : C9                  ret ;abgefragt
 +     467/    F1A5 :                     ;Taste in Z3
 +     468/    F1A5 : 3E 01               ink13: ld a, 1 ;Untersuchung
 +     469/    F1A7 : BB                  cp e ;welche Taste in
 +     470/    F1A8 : 28 29                jr z, ink19 ;Zeile 3 gedr. ist
 +     471/    F1AA : 30 24                jr nc, ink18 ;E=Spaltenzahl
 +     472/    F1AC : C6 02                add a, 2 ;E=0 - C=41H
 +     473/    F1AE : BB                  cp e ;E=1 - C=3EH
 +     474/    F1AF : 28 28                jr z, ink21 ;E=2 - C=3BH
 +     475/    F1B1 : 30 23                jr nc, ink20 ;E=3 - C=35H
 +     476/    F1B3 : C6 02                add a, 2 ;E=4 - A=08H
 +     477/    F1B5 : BB                  cp e ;E=5 - A=20H
 +     478/    F1B6 : 28 0F                jr z, ink15 ;E=6 - A=09H
 +     479/    F1B8 : 30 11                jr nc, ink16 ;E=7 - A=0DH
 +     480/    F1BA : C6 02                add a, 2
 +     481/    F1BC : BB                  cp e
 +     482/    F1BD : 28 04                jr z, ink14
 +     483/    F1BF : 3E 09                ld a, 9 ; ->
 +     484/    F1C1 : 18 0A                jr ink17
 +     485/    F1C3 : 3E 0D               ink14: ld a, 0Dh ; ENT
 +     486/    F1C5 : 18 06                jr ink17
 +     487/    F1C7 : 3E 20               ink15: ld a, 20h ; SPACE
 +     488/    F1C9 : 18 02                jr ink17
 +     489/    F1CB : 3E 08               ink16: ld a, 8 ; <-
 +     490/    F1CD : C1                  ink17: pop bc
 +     491/    F1CE : 18 95                jr ink5
 +     492/    F1D0 : 0E 41               ink18: ld c, 41h ;Tastaturcodetabelle 0041H Shift-Ebene 1 58h,30h,38h
 +     493/    F1D2 : C9                  ret
 +     494/    F1D3 : 0E 3E               ink19: ld c, 3Eh ;Tastaturcodetabelle 003EH Shift-Ebene 2 78h,20h,28h
 +     495/    F1D5 : C9                  ret
 +     496/    F1D6 : 0E 3B               ink20: ld c, 3Bh ;Tastaturcodetabelle 003BH Shift-Ebene 3 60h,68h,70h
 +     497/    F1D8 : C9                  ret
 +     498/    F1D9 : 0E 35               ink21: ld c, 35h ;Tastaturcodetabelle 0035H Shift-Ebene 4 10h,00h,08h
 +     499/    F1DB : C9                  ret
 +     500/    F1DC :                     
 +     501/    F1DC :                     ;Summand holen
 +     502/    F1DC : CB 42               ink22: bit 0, d ;Abfrage Zeile 0
 +     503/    F1DE : 20 05                jr nz, ink24 ;Z=0 keine Taste
 +     504/    F1E0 : 69                  ink23: ld l, c
 +     505/    F1E1 : 26 00                ld h, 0
 +     506/    F1E3 : 7E                  ld a, (hl)
 +     507/    F1E4 : C9                  ret
 +     508/    F1E5 : 0C                  ink24: inc c
 +     509/    F1E6 : CB 4A                bit 1, d ;Abfrage Zeile 1
 +     510/    F1E8 : 20 02                jr nz, ink25 ;Z=0 keine Taste
 +     511/    F1EA : 18 F4                jr ink23
 +     512/    F1EC : 0C                  ink25: inc c
 +     513/    F1ED : CB 52                bit 2, d ;Abfrage Zeile 2
 +     514/    F1EF : C0                  ret nz ;Z=0 keine Taste
 +     515/    F1F0 : 18 EE                jr ink23
 +     516/    F1F2 :                     
 +     517/    F1F2 : =>FALSE              ELSEIF MONTYP == "Z1013_A2"
 +     518/    F1F2 :                     
 +     519/    F1F2 :                     ; Tastatur
 +     520/    F1F2 :                     ; --------
 +     521/    F1F2 :                     ;
 +     522/    F1F2 :                     ;      -------------------------------------------------
 +     523/    F1F2 :                     ;      I   ! I   # I   % I   ' I   ) I   = I     I     I
 +     524/    F1F2 :                     ;  RZ0-I     I     I     I     I     I     I     I     I
 +     525/    F1F2 :                     ;      I 1   I 3   I 5   I 7   I 9   I -   I GRA I     I
 +     526/    F1F2 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     527/    F1F2 :                     ;      I     I     I     I     I     I   ` I     I     I
 +     528/    F1F2 :                     ;  RZ1-I     I     I     I     I     I     I     I     I
 +     529/    F1F2 :                     ;      I Q   I E   I T   I U   I O   I @   I ENT I     I
 +     530/    F1F2 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     531/    F1F2 :                     ;      I     I     I     I     I     I   : I     I     I
 +     532/    F1F2 :                     ;  RZ2-I     I     I     I     I     I     I Cu  I     I
 +     533/    F1F2 :                     ;      I A   I D   I G   I J   I L   I *   I leftI     I
 +     534/    F1F2 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     535/    F1F2 :                     ;      I     I     I     I     I   > I   ~ I     I     I
 +     536/    F1F2 :                     ;  RZ3-I     I     I     I     I     I     I Cu  I     I
 +     537/    F1F2 :                     ;      I Y   I C   I B   I M   I     I ^   I rghtI     I
 +     538/    F1F2 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     539/    F1F2 :                     ;      I   " I   $ I   & I   ( I     I   { I     I     I
 +     540/    F1F2 :                     ;  RZ4-I     I     I     I     I     I     I     I     I
 +     541/    F1F2 :                     ;  RZ0 I 2   I 4   I 6   I 8   I 0   I [   I Spc I     I
 +     542/    F1F2 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     543/    F1F2 :                     ;      I     I     I     I     I     I         } I     I
 +     544/    F1F2 :                     ;  RZ5-I     I     I     I     I     I     I     I     I
 +     545/    F1F2 :                     ;  RZ1 I W   I R   I Z   I I   I P   I ]   I CTRLI     I
 +     546/    F1F2 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     547/    F1F2 :                     ;      I     I     I     I     I   ; I   | I     I     I
 +     548/    F1F2 :                     ;  RZ6-I     I     I     I     I     I     I Cu  I     I
 +     549/    F1F2 :                     ;  RZ2 I S   I F   I H   I K   I +   I \\  I up  I ShftI
 +     550/    F1F2 :                     ;      I-----+-----+-----+-----+-----+-----+-----+-----I
 +     551/    F1F2 :                     ;      I     I     I     I   < I   ? I    I     I     I
 +     552/    F1F2 :                     ;  RZ7-I     I     I     I     I     I     I Cu  I ShftI
 +     553/    F1F2 :                     ;  RZ3 I X   I V   I N   I ,   I /   I _   I downI LockI
 +     554/    F1F2 :                     ;      -------------------------------------------------
 +     555/    F1F2 :                     ;         !     !     !     !     !     !     !     !
 +     556/    F1F2 :                     ;        RS0   RS1   RS2   RS3   RS4   RS5   RS6   RS7
 +     557/    F1F2 :                     ;
 +     558/    F1F2 :                     ; IN 2 |                     OUT 8
 +     559/    F1F2 :                     ;
 +     560/    F1F2 :                     ; Zeile 4..7 werden auf Zeile 0..3 gemuxt, wenn Pio B4=1
 +     561/    F1F2 :                     
 +     562/    F1F2 :                     inkey: ld hl, KYBTS ; Merkzelle
 +     563/    F1F2 :                      ld a, 01011011b
 +     564/    F1F2 :                      and (hl)
 +     565/    F1F2 :                      ld (hl), a
 +     566/    F1F2 :                      ld ix, keytab ; Tastaturcodetabelle
 +     567/    F1F2 :                      call ink16 ; normale Taste gedrückt?
 +     568/    F1F2 :                      jr nc, ink1 ; nein, dann evtl. Fkt.taste?
 +     569/    F1F2 :                      push de ;
 +     570/    F1F2 :                      set 7, (hl)
 +     571/    F1F2 :                      call ink20 ; ASCII-Code aus Tabelle ermitteln
 +     572/    F1F2 :                      ld (DATA), a ; ASCII-Code
 +     573/    F1F2 :                      pop de ;
 +     574/    F1F2 :                      call ink18 ;
 +     575/    F1F2 :                     ; Funktionstasten (Spalte 6)
 +     576/    F1F2 :                     ink1: ld ix, tab2 ; Tastaturcodetabelle
 +     577/    F1F2 :                      ld e, 6 ; Spalte 6
 +     578/    F1F2 :                      call ink19 ; Spalte abfragen
 +     579/    F1F2 :                      jr z, ink9 ; wenn keine Taste gedrückt
 +     580/    F1F2 :                      bit 0, c ; GRA ?
 +     581/    F1F2 :                      jr z, ink2
 +     582/    F1F2 :                      bit 5, c ; CTRL ?
 +     583/    F1F2 :                      jr z, ink5
 +     584/    F1F2 :                      call ink20 ; ASCII-Code aus Tabelle ermitteln
 +     585/    F1F2 :                      ret ; A = ASCII-Code
 +     586/    F1F2 :                     ; GRA
 +     587/    F1F2 :                     ink2: ld a, 2
 +     588/    F1F2 :                      res 3, (hl)
 +     589/    F1F2 :                     ink3: bit 6, (hl)
 +     590/    F1F2 :                      jr nz, ink4
 +     591/    F1F2 :                      set 6, (hl) ; Statusbit Grafikmode setzen
 +     592/    F1F2 :                      xor (hl)
 +     593/    F1F2 :                      ld (hl), a
 +     594/    F1F2 :                     ink4: xor a
 +     595/    F1F2 :                      ret
 +     596/    F1F2 :                     ; CTRL
 +     597/    F1F2 :                     ink5: set 5, (hl) ; Statusbit CTRL setzen
 +     598/    F1F2 :                      bit 7, (hl)
 +     599/    F1F2 :                      jr z, ink9
 +     600/    F1F2 :                      ld a, (DATA)
 +     601/    F1F2 :                      bit 6, a
 +     602/    F1F2 :                      jr nz, ink6
 +     603/    F1F2 :                      set 4, a
 +     604/    F1F2 :                     ink6: and 1Fh
 +     605/    F1F2 :                     ink7: bit 1, (hl)
 +     606/    F1F2 :                      ret z
 +     607/    F1F2 :                      set 7, a ; Bit 7 := 1 (Grafikzeichen)
 +     608/    F1F2 :                      ret
 +     609/    F1F2 :                     ; Shift
 +     610/    F1F2 :                     ink8: res 6, (hl)
 +     611/    F1F2 :                      bit 7, (hl)
 +     612/    F1F2 :                      ret z
 +     613/    F1F2 :                      ld a, (DATA)
 +     614/    F1F2 :                      jr ink7
 +     615/    F1F2 :                     ;
 +     616/    F1F2 :                     ink9: ld e, 7 ; Spalte 7 (Shift)
 +     617/    F1F2 :                      call ink19 ; Taste gedrückt?
 +     618/    F1F2 :                      jr z, ink10 ; nein
 +     619/    F1F2 :                      bit 7, c ; Shift Lock
 +     620/    F1F2 :                      jr z, ink15
 +     621/    F1F2 :                      bit 6, c ; Shift
 +     622/    F1F2 :                      jr nz, ink8
 +     623/    F1F2 :                      bit 5, (hl)
 +     624/    F1F2 :                      jr nz, ink15
 +     625/    F1F2 :                     ink10: bit 7, (hl) ;
 +     626/    F1F2 :                      ret z ; nein
 +     627/    F1F2 :                     ; Repeat
 +     628/    F1F2 :                      ld a, (DATA)
 +     629/    F1F2 :                      bit 6, c
 +     630/    F1F2 :                      jr z, ink11
 +     631/    F1F2 :                      bit 3, (hl)
 +     632/    F1F2 :                      jr z, ink7
 +     633/    F1F2 :                      jr ink12
 +     634/    F1F2 :                     ink11: bit 3, (hl)
 +     635/    F1F2 :                      jr nz, ink7
 +     636/    F1F2 :                     ink12: ld b, a
 +     637/    F1F2 :                      and 30h
 +     638/    F1F2 :                      ld a, b
 +     639/    F1F2 :                      jp po, ink13
 +     640/    F1F2 :                      res 4, a
 +     641/    F1F2 :                      jr ink14
 +     642/    F1F2 :                     ink13: set 4, a
 +     643/    F1F2 :                     ink14: set 5, a
 +     644/    F1F2 :                      jr ink7
 +     645/    F1F2 :                     ; Shift Lock
 +     646/    F1F2 :                     ink15: ld a, 8
 +     647/    F1F2 :                      jp ink3
 +     648/    F1F2 :                     ; normale Taste gedrückt?
 +     649/    F1F2 :                     ; IN: IX: Tastaturcodetabelle
 +     650/    F1F2 :                     ; OUT: Z-Flag=1: Taste gedrückt
 +     651/    F1F2 :                     ;      E = Spalte
 +     652/    F1F2 :                     ;      Cy=0: keine Taste gedrückt
 +     653/    F1F2 :                     ; IX: Tastaturcodetabelle aktuelle Zeile
 +     654/    F1F2 :                     ink16: ld e, 0 ; e = Spalte (0..5)
 +     655/    F1F2 :                     ink17: call ink19 ; Taste in Spalte gedrückt?
 +     656/    F1F2 :                      scf
 +     657/    F1F2 :                      ret nz ; wenn gedrueckt
 +     658/    F1F2 :                     ink18: inc e ; sonst naechste Spalte
 +     659/    F1F2 :                      ld bc, 8 ; und Pointer auf Tastaturcode-
 +     660/    F1F2 :                      add ix, bc ; tabelle erhöhen
 +     661/    F1F2 :                      ld a, e
 +     662/    F1F2 :                      cp 6 ; Spalte RS6 erreicht?
 +     663/    F1F2 :                      jr nz, ink17 ; bis alle 7 Spalten
 +     664/    F1F2 :                      scf
 +     665/    F1F2 :                      ccf ; Cy=0
 +     666/    F1F2 :                      ret
 +     667/    F1F2 :                     ; Abfrage einer Spalte
 +     668/    F1F2 :                     ; IN E: Spalte
 +     669/    F1F2 :                     ; OUT: C: Zeile
 +     670/    F1F2 :                     ;      A = 0
 +     671/    F1F2 :                     ;      Z-Flag=1: Taste gedrückt
 +     672/    F1F2 :                     ink19: ld a, e ; e = Spalte
 +     673/    F1F2 :                      out (KEYP), a ; Spalte aktivieren
 +     674/    F1F2 :                      out (PIOBD), a ; Pio B4 = 0 (Zeile 0..3)
 +     675/    F1F2 :                      in a, (PIOBD) ; Zeilen 0..3 einlesen
 +     676/    F1F2 :                      and 0Fh
 +     677/    F1F2 :                      ld c, a
 +     678/    F1F2 :                      set 4, a ; PIO B4 = 1 (Zeile 4..7)
 +     679/    F1F2 :                      out (PIOBD), a
 +     680/    F1F2 :                      in a, (PIOBD) ; Zeilen 4..7 einlesen
 +     681/    F1F2 :                      sla a ; in obere 4 Bits verschieben
 +     682/    F1F2 :                      sla a
 +     683/    F1F2 :                      sla a
 +     684/    F1F2 :                      sla a
 +     685/    F1F2 :                      ld d, a ; d = Zeile 4..7
 +     686/    F1F2 :                      add a, c
 +     687/    F1F2 :                      ld c, a ; c = Zeile 0..7
 +     688/    F1F2 :                     ; Entprellen ...
 +     689/    F1F2 :                      xor a ; a = 0
 +     690/    F1F2 :                      out (PIOBD), a ; Pio B4 = 0 (Zeile 0..3)
 +     691/    F1F2 :                      in a, (PIOBD) ; Zeilen 0..3 einlesen
 +     692/    F1F2 :                      and 0Fh
 +     693/    F1F2 :                      add a, d
 +     694/    F1F2 :                      cp c ; noch gleicher Wert?
 +     695/    F1F2 :                      jr nz, ink19 ; nein
 +     696/    F1F2 :                      cpl
 +     697/    F1F2 :                      or a
 +     698/    F1F2 :                      ld a, 0
 +     699/    F1F2 :                      ret
 +     700/    F1F2 :                     ; ASCII-Code aus Tabelle ermitteln
 +     701/    F1F2 :                     ; IN: C = Zeile = Bit 0..7
 +     702/    F1F2 :                     ;     IX = Tastaturcodetabelle
 +     703/    F1F2 :                     ink20: ld de, 0
 +     704/    F1F2 :                      ld b, 8 ; max 8 Zeilen
 +     705/    F1F2 :                     ink21: sra c ; nächste Zeile
 +     706/    F1F2 :                      jr nc, ink22
 +     707/    F1F2 :                      inc e
 +     708/    F1F2 :                      djnz ink21
 +     709/    F1F2 :                     ink22: add ix, de
 +     710/    F1F2 :                      ld a, (ix+0) ; A = ASCII-Code
 +     711/    F1F2 :                      res 6, (hl) ;
 +     712/    F1F2 :                      ret
 +     713/    F1F2 :                     
 +     714/    F1F2 : [369]                ENDIF
 +     715/    F1F2 :                     ;
 +     716/    F1F2 :                     ;-------------------------------------------------------------------------------
 +     717/    F1F2 :                     ;Monitorinit., wird nach 0033H (LSYNC) umgeladen
 +     718/    F1F2 :                     ;-------------------------------------------------------------------------------
 +     719/    F1F2 :                     ;
 +     720/    F1F2 :                     MONTB:
 +     721/      33 :                      phase 0033H
 +     722/      33 :                     
 +     723/      33 : =>TRUE              IF MONTYP == "Z1013_202"
 +     724/      33 :                     
 +     725/      33 : D0 07                DW 2000 ;Kenntonlaenge LSYNC
 +     726/      35 : 10 00 08            DB 10h,00h,08h ;Tastaturcodetabelle 0035H Shift-Ebene 4
 +     727/      38 : C3 58 F0            JP KDO1 ;RST38-Sprung RST38
 +     728/      3B : 60 68 70            db 60h,68h,70h ;Tastaturcodetabelle 003BH Shift-Ebene 3
 +     729/      3E : 78 20 28            db 78h,20h,28h ;Tastaturcodetabelle 003EH Shift-Ebene 2
 +     730/      41 : 58 30 38            db 58h,30h,38h ;Tastaturcodetabelle 0041H Shift-Ebene 1
 +     731/      44 : 40 48 50            db 40h,48h,50h ;Tastaturcodetabelle 0044H Shift-Ebene 0
 +     732/      47 : E0 03                DW 03E0H ;WINDOW-Laenge WINDL
 +     733/      49 : 00 EC                DW BWS ;WINDOW-Anfang WINDA
 +     734/      4B : 00 F0                DW BWS+BWSSZ ;WINDOW-Ende WINDE
 +     735/      4D :                     
 +     736/      4D : =>FALSE              ELSEIF MONTYP == "Z1013_A2"
 +     737/      4D :                     
 +     738/      4D :                      dw 2000 ;Kenntonlaenge LSYNC
 +     739/      4D :                      DW BWSSZ-BWSCOL ;WINDOW-Laenge WINDL
 +     740/      4D :                      db 0 ;Status-Merkzelle f. INKEY KYBTS
 +     741/      4D :                      jp KDO1 ;RST38-Sprung RST38
 +     742/      4D :                      DW BWS ;WINDOW-Anfang WINDA
 +     743/      4D :                      DW BWS+BWSSZ ;WINDOW-Ende WINDE
 +     744/      4D :                     
 +     745/      4D : [723]                ENDIF
 +     746/      4D :                     
 +     747/    F20C :                      dephase
 +     748/    F20C :                     ;
 +     749/    F20C :                     ;-------------------------------------------------------------------------------
 +     750/    F20C :                     ;Zeichen von Tastatur holen, warten bis Taste gedrueckt
 +     751/    F20C :                     ;-------------------------------------------------------------------------------
 +     752/    F20C :                     ;
 +     753/    F20C : =>TRUE              IF MONTYP == "Z1013_202"
 +     754/    F20C :                     
 +     755/    F20C : C5                  INCH: push bc
 +     756/    F20D : D5                  push de
 +     757/    F20E : E5                  push hl
 +     758/    F20F : CD 30 F1            INC1: CALL INKEY
 +     759/    F212 : B7                  OR A
 +     760/    F213 : 28 FA                JR Z, INC1 ;keine Taste gedrueckt
 +     761/    F215 : E1                  pop hl
 +     762/    F216 : D1                  pop de
 +     763/    F217 : C1                  pop bc
 +     764/    F218 : C9                  RET
 +     765/    F219 :                     
 +     766/    F219 : =>FALSE              ELSEIF MONTYP == "Z1013_A2"
 +     767/    F219 :                     
 +     768/    F219 :                     INCH: push ix
 +     769/    F219 :                      push bc
 +     770/    F219 :                      push de
 +     771/    F219 :                      push hl
 +     772/    F219 :                      ld bc, 1000h ; B := 16; C := 0 (256)
 +     773/    F219 :                     INC1: PUSH BC
 +     774/    F219 :                      CALL INKEY ; ret: hl=KYBTS
 +     775/    F219 :                      POP BC
 +     776/    F219 :                      LD IX, LAKEY
 +     777/    F219 :                      CP (IX+0)
 +     778/    F219 :                      JR NZ, INC6 ; wenn anderes Zeichen
 +     779/    F219 :                      OR A ; A = 0?
 +     780/    F219 :                      JR Z, INC5 ; wenn keine Taste gedückt
 +     781/    F219 :                     INC2: DEC C
 +     782/    F219 :                      JR NZ, INC2 ; kurz warten
 +     783/    F219 :                      BIT 4, (HL) ; Repeat?
 +     784/    F219 :                      JR NZ, INC4 ; ja -> gleich weiter
 +     785/    F219 :                      LD DE, 800H ; sonst längeres Warten
 +     786/    F219 :                     INC3: DEC DE
 +     787/    F219 :                      LD A, E
 +     788/    F219 :                      OR D
 +     789/    F219 :                      JR NZ, INC3
 +     790/    F219 :                     INC4: DJNZ INC1 ; 16x
 +     791/    F219 :                      SET 4, (HL) ; Repeat ein
 +     792/    F219 :                      XOR A ; A := 0, kein Zeichen
 +     793/    F219 :                      JR INC6
 +     794/    F219 :                     INC5: RES 4, (HL) ; kein Repeat mehr
 +     795/    F219 :                     INC6: LD (IX+0), A ; LAKEY füllen
 +     796/    F219 :                      OR A ; A = 0?
 +     797/    F219 :                      JR Z, INC1 ; nochmal, bis Taste gedrückt
 +     798/    F219 :                      POP HL
 +     799/    F219 :                      POP DE
 +     800/    F219 :                      POP BC
 +     801/    F219 :                      POP IX
 +     802/    F219 :                      RET
 +     803/    F219 :                     
 +     804/    F219 : [753]                ENDIF
 +     805/    F219 :                     ;
 +     806/    F219 :                     ;-------------------------------------------------------------------------------
 +     807/    F219 :                     ;Ausgabe Zeichen auf Bildschirm
 +     808/    F219 :                     ;-------------------------------------------------------------------------------
 +     809/    F219 :                     ;
 +     810/    F219 :                     ; Zeichenausgabe f. PRST7: Reset Bit 7
 +     811/    F219 : E6 7F               OUT0: AND A, 7FH
 +     812/    F21B :                     ; Zeichenausgabe
 +     813/    F21B : F5                  OUTCH: push af
 +     814/    F21C : C5                  push bc
 +     815/    F21D : D5                  push de
 +     816/    F21E : E5                  PUSH HL
 +     817/    F21F : 2A 2B 00            LD HL,(CUPOS)
 +     818/    F222 : F5                  PUSH AF
 +     819/    F223 : 3A 1F 00            LD A,(BUFFA) ;Zeichen unter Cursor
 +     820/    F226 : 77                  LD (HL),A ;zurueckschreiben
 +     821/    F227 : F1                  POP AF
 +     822/    F228 : FE 0D                CP A, CR ;neue Zeile?
 +     823/    F22A : 28 53                JR Z, OUT8
 +     824/    F22C : FE 0C                CP A, CLS ;Bildschirm loeschen?
 +     825/    F22E : 28 5E                JR Z, OUT10
 +     826/    F230 : FE 08                CP A, 8 ;Cursor links?
 +     827/    F232 : 28 48                JR Z, OUT7
 +     828/    F234 : FE 09                CP A, 9 ;Cursor rechts?
 +     829/    F236 : 28 01                JR Z, OUT2
 +     830/    F238 : 77                  LD (HL),A ;sonst Zeichen in BWS
 +     831/    F239 : 23                  OUT2: INC HL
 +     832/    F23A :                     ;
 +     833/    F23A : EB                  OUT3: EX DE,HL
 +     834/    F23B : 2A 4B 00            LD HL,(WINDE)
 +     835/    F23E : AF                  XOR A ;Test, ob neue Cursor-
 +     836/    F23F : ED 52                SBC HL,DE ;position schon
 +     837/    F241 : EB                  EX DE,HL ;ausserhalb Window
 +     838/    F242 : 20 2A                JR NZ, OUT6 ;nein
 +     839/    F244 :                     ;
 +     840/    F244 : ED 5B 49 00          LD DE,(WINDA) ;scrollen um
 +     841/    F248 : 21 20 00            LD HL,BWSCOL ;eine Zeile im Window
 +     842/    F24B : 19                  ADD HL,DE
 +     843/    F24C : ED 4B 47 00          LD BC,(WINDL) ;Windowlaenge
 +     844/    F250 : 78                  LD A,B
 +     845/    F251 : B1                  OR C ;=0?
 +     846/    F252 : 28 02                JR Z, OUT5 ;ja --> kein Scrollen
 +     847/    F254 : ED B0                LDIR
 +     848/    F256 : D5                  OUT5: PUSH DE ;letzte Zeile loeschen
 +     849/    F257 : E1                  POP HL
 +     850/    F258 : E5                  PUSH HL
 +     851/    F259 : 13                  INC DE
 +     852/    F25A : 36 20                LD (HL),' '
 +     853/    F25C : 01 1F 00            LD BC,BWSCOL-1
 +     854/    F25F : ED B0                LDIR
 +     855/    F261 :                     ;
 +     856/    F261 : 2A 16 00            LD HL,(SOIL) ;SOIL um eine Zeile
 +     857/    F264 : 11 20 00            LD DE,BWSCOL ;erhoehen
 +     858/    F267 : AF                  XOR A
 +     859/    F268 : ED 52                SBC HL,DE
 +     860/    F26A : 22 16 00            LD (SOIL),HL
 +     861/    F26D : E1                  POP HL
 +     862/    F26E :                     ;
 +     863/    F26E : 7E                  OUT6: LD A,(HL) ;Zeichen unter Cursor
 +     864/    F26F : 32 1F 00            LD (BUFFA),A ;sichern
 +     865/    F272 : 36 FF                LD (HL),0FFH ;Cursor setzen
 +     866/    F274 : 22 2B 00            LD (CUPOS),HL
 +     867/    F277 : E1                  POP HL
 +     868/    F278 : D1                  POP DE
 +     869/    F279 : C1                  POP BC
 +     870/    F27A : F1                  POP AF
 +     871/    F27B : C9                  RET
 +     872/    F27C :                     ;Cursor links
 +     873/    F27C : 2B                  OUT7: DEC HL
 +     874/    F27D : 18 BB                JR OUT3
 +     875/    F27F :                     ;neue Zeile
 +     876/    F27F : 3E E0               OUT8: LD A, 0E0H ;auf Zeilenanfang stellen
 +     877/    F281 : A5                  AND A, L ;A=Anfang akt. Zeile
 +     878/    F282 : C6 20                ADD A, BWSCOL ;A=NWB der Position
 +     879/    F284 : 4F                  LD C,A ;eine Zeile tiefer
 +     880/    F285 : 36 20               OUT9: LD (HL),' ' ;Rest der Zeile ab
 +     881/    F287 : 23                  INC HL ;ENTER loeschen
 +     882/    F288 : 7D                  LD A,L
 +     883/    F289 : B9                  CP A, C
 +     884/    F28A : 20 F9                JR NZ, OUT9
 +     885/    F28C : 18 AC                JR OUT3
 +     886/    F28E :                     ;
 +     887/    F28E :                     ;Window loeschen
 +     888/    F28E : 2A 47 00            OUT10: LD HL,(WINDL)
 +     889/    F291 : 01 1F 00            LD BC,BWSCOL-1
 +     890/    F294 : 09                  ADD HL,BC
 +     891/    F295 : E5                  PUSH HL
 +     892/    F296 : C1                  POP BC
 +     893/    F297 : 2A 49 00            LD HL,(WINDA)
 +     894/    F29A : E5                  PUSH HL
 +     895/    F29B : 36 20                LD (HL),' '
 +     896/    F29D : E5                  PUSH HL
 +     897/    F29E : D1                  POP DE
 +     898/    F29F : 13                  INC DE
 +     899/    F2A0 : ED B0                LDIR
 +     900/    F2A2 : E1                  POP HL
 +     901/    F2A3 : 18 C9                JR OUT6
 +     902/    F2A5 :                     ;
 +     903/    F2A5 :                     ;-------------------------------------------------------------------------------
 +     904/    F2A5 :                     ;Ausgabe String, bis Bit7=1
 +     905/    F2A5 :                     ;-------------------------------------------------------------------------------
 +     906/    F2A5 :                     ;
 +     907/    F2A5 : E3                  PRST7: EX (SP),HL ;Adresse hinter CALL
 +     908/    F2A6 : 7E                  PRS1: LD A,(HL)
 +     909/    F2A7 : 23                  INC HL
 +     910/    F2A8 : F5                  PUSH AF
 +     911/    F2A9 : CD 19 F2            CALL OUT0
 +     912/    F2AC : F1                  POP AF
 +     913/    F2AD : CB 7F                BIT 7,A ;Bit7 gesetzt?
 +     914/    F2AF : 28 F5                JR Z, PRS1 ;nein
 +     915/    F2B1 : E3                  EX (SP),HL ;neue Returnadresse
 +     916/    F2B2 : C9                  RET
 +     917/    F2B3 :                     ;
 +     918/    F2B3 :                     ;-------------------------------------------------------------------------------
 +     919/    F2B3 :                     ;Eingabe einer Zeile mit Promptsymbol
 +     920/    F2B3 :                     ;-------------------------------------------------------------------------------
 +     921/    F2B3 :                     ;
 +     922/    F2B3 : CD A5 F2            INLIN: CALL PRST7
 +     923/    F2B6 : 20 23                DB " #"
 +     924/    F2B8 : A0                  DB ' '+80H
 +     925/    F2B9 :                     ;
 +     926/    F2B9 :                     ;-------------------------------------------------------------------------------
 +     927/    F2B9 :                     ;Eingabe einer Zeichenkette
 +     928/    F2B9 :                     ;-------------------------------------------------------------------------------
 +     929/    F2B9 :                     ;
 +     930/    F2B9 : E5                  INSTR: PUSH HL
 +     931/    F2BA : 2A 2B 00            LD HL,(CUPOS)
 +     932/    F2BD : 22 16 00            LD (SOIL),HL ;SOIL=1.Position
 +     933/    F2C0 : (MACRO)             INS1: RINCH ;Zeichen von Tastatur
 +     933/    F2C0 : E7                          RST     20H
 +     933/    F2C1 : 01                          DB      01h                     ; INCH
 +     934/    F2C2 : (MACRO)              ROUTC ;anzeigen
 +     934/    F2C2 : E7                          RST     20H
 +     934/    F2C3 : 00                          DB      0                       ; OUTCH
 +     935/    F2C4 : FE 0D                CP A, CR ;>ENTER<?
 +     936/    F2C6 : 20 F8                JR NZ, INS1 ;nein --> weiter eingeben
 +     937/    F2C8 : E1                  POP HL
 +     938/    F2C9 : C9                  RET
 +     939/    F2CA :                     ;
 +     940/    F2CA :                     ;-------------------------------------------------------------------------------
 +     941/    F2CA :                     ;fuehrende Leerzeichen ueberlesen
 +     942/    F2CA :                     ;-------------------------------------------------------------------------------
 +     943/    F2CA :                     ;
 +     944/    F2CA : 1A                  SPACE: LD A,(DE)
 +     945/    F2CB : FE 20                CP A, ' '
 +     946/    F2CD : C0                  RET NZ
 +     947/    F2CE : 13                  INC DE
 +     948/    F2CF : 18 F9                JR SPACE
 +     949/    F2D1 :                     ;
 +     950/    F2D1 :                     ;-------------------------------------------------------------------------------
 +     951/    F2D1 :                     ;letzen vier Zeichen als Hexzahl konvertieren
 +     952/    F2D1 :                     ;und in DATA ablegen
 +     953/    F2D1 :                     ;-------------------------------------------------------------------------------
 +     954/    F2D1 :                     ;
 +     955/    F2D1 : CD CA F2            KONVX: CALL SPACE
 +     956/    F2D4 : AF                  XOR A
 +     957/    F2D5 : 21 13 00            LD HL,DATA
 +     958/    F2D8 : 77                  LD (HL),A ;DATA=0
 +     959/    F2D9 : 23                  INC HL
 +     960/    F2DA : 77                  LD (HL),A
 +     961/    F2DB : 1A                  KON1: LD A,(DE)
 +     962/    F2DC : 2B                  DEC HL
 +     963/    F2DD : D6 30                SUB 30H ;Zeichen<"0"?
 +     964/    F2DF : F8                  RET M
 +     965/    F2E0 : FE 0A                CP A, 0AH ;Zeichen<="9"?
 +     966/    F2E2 : 38 08                JR C, KON2
 +     967/    F2E4 : D6 07                SUB 7
 +     968/    F2E6 : FE 0A                CP A, 0AH ;Zeichen<"A"?
 +     969/    F2E8 : F8                  RET M
 +     970/    F2E9 : FE 10                CP A, 10H ;Zeichen>"F"?
 +     971/    F2EB : F0                  RET P
 +     972/    F2EC : 13                  KON2: INC DE ;Hexziffer eintragen
 +     973/    F2ED : ED 6F                RLD
 +     974/    F2EF : 23                  INC HL
 +     975/    F2F0 : ED 6F                RLD
 +     976/    F2F2 : 18 E7                JR KON1 ;naechste Ziffer
 +     977/    F2F4 :                     ;
 +     978/    F2F4 :                     ;-------------------------------------------------------------------------------
 +     979/    F2F4 :                     ;Konvertierung ASCII-Hex ab (DE) --> (HL)
 +     980/    F2F4 :                     ;-------------------------------------------------------------------------------
 +     981/    F2F4 :                     ;
 +     982/    F2F4 : C5                  INHEX: PUSH BC
 +     983/    F2F5 : CD D1 F2            CALL KONVX ;Konvertierung
 +     984/    F2F8 : 44                  LD B,H ;BC=HL=DATA+1
 +     985/    F2F9 : 4D                  LD C,L
 +     986/    F2FA : 6E                  LD L,(HL) ;unteres Byte
 +     987/    F2FB : 03                  INC BC
 +     988/    F2FC : 0A                  LD A,(BC)
 +     989/    F2FD : 67                  LD H,A ;oberes Byte
 +     990/    F2FE : B5                  OR L ;Z-Flag setzen
 +     991/    F2FF : C1                  POP BC
 +     992/    F300 : C9                  RET
 +     993/    F301 :                     ;
 +     994/    F301 :                     ;-------------------------------------------------------------------------------
 +     995/    F301 :                     ;Ausgabe (A) hexadezimal
 +     996/    F301 :                     ;-------------------------------------------------------------------------------
 +     997/    F301 :                     ;
 +     998/    F301 : F5                  OUTHX: PUSH AF
 +     999/    F302 : 1F                  RRA
 +    1000/    F303 : 1F                  RRA
 +    1001/    F304 : 1F                  RRA
 +    1002/    F305 : 1F                  RRA
 +    1003/    F306 : CD 0A F3            CALL OUX1 ;obere Tetrade ausgeben
 +    1004/    F309 : F1                  POP AF ;und die untere
 +    1005/    F30A : F5                  OUX1: PUSH AF
 +    1006/    F30B : E6 0F                AND A, 0FH
 +    1007/    F30D : C6 30                ADD A, 30H ;Konvertierung --> ASCII
 +    1008/    F30F : FE 3A                CP A, ':' ;Ziffer "A" ... "F"?
 +    1009/    F311 : 38 02                JR C, OUX2 ;nein
 +    1010/    F313 : C6 07                ADD A, 7 ;sonst Korrektur
 +    1011/    F315 : CD 1B F2            OUX2: CALL OUTCH ;und Ausgabe
 +    1012/    F318 : F1                  POP AF
 +    1013/    F319 : C9                  RET
 +    1014/    F31A :                     ;
 +    1015/    F31A :                     ;-------------------------------------------------------------------------------
 +    1016/    F31A :                     ;Ausgabe HL hexadezimal
 +    1017/    F31A :                     ;-------------------------------------------------------------------------------
 +    1018/    F31A :                     ;
 +    1019/    F31A : F5                  OUTHL: PUSH AF
 +    1020/    F31B : 7C                  LD A,H
 +    1021/    F31C : CD 01 F3            CALL OUTHX
 +    1022/    F31F : 7D                  LD A,L
 +    1023/    F320 : CD 01 F3            CALL OUTHX
 +    1024/    F323 : F1                  POP AF
 +    1025/    F324 : C9                  RET
 +    1026/    F325 :                     ;
 +    1027/    F325 :                     ;-------------------------------------------------------------------------------
 +    1028/    F325 :                     ;Speicherinhalt modifizieren
 +    1029/    F325 :                     ;-------------------------------------------------------------------------------
 +    1030/    F325 :                     ;
 +    1031/    F325 : 2A 1B 00            MEM: LD HL,(ARG1)
 +    1032/    F328 : (MACRO)             MEM1: ROTHL ;Ausgabe Adresse
 +    1032/    F328 : E7                          RST     20H
 +    1032/    F329 : 07                          DB      07h                     ; OUTHL
 +    1033/    F32A : E5                  PUSH HL
 +    1034/    F32B : (MACRO)              ROTSP ;Leerzeichen
 +    1034/    F32B : E7                          RST     20H
 +    1034/    F32C : 0E                          DB      0Eh                     ; OUTSP
 +    1035/    F32D : 7E                  LD A,(HL)
 +    1036/    F32E : (MACRO)              ROTHX ;Ausgabe Byte
 +    1036/    F32E : E7                          RST     20H
 +    1036/    F32F : 06                          DB      06h                     ; OUTHX
 +    1037/    F330 : CD B3 F2            CALL INLIN
 +    1038/    F333 : ED 5B 16 00          LD DE,(SOIL)
 +    1039/    F337 : 1A                  LD A,(DE)
 +    1040/    F338 : 08                  EX AF, AF'
 +    1041/    F339 : E1                  POP HL
 +    1042/    F33A : 2B                  DEC HL
 +    1043/    F33B : 23                  MEM2: INC HL
 +    1044/    F33C : E5                  PUSH HL
 +    1045/    F33D : CD F4 F2            CALL INHEX
 +    1046/    F340 : 28 0D                JR Z, MEM4 ;Trennzeichen
 +    1047/    F342 : 7D                  MEM3: LD A,L
 +    1048/    F343 : E1                  POP HL
 +    1049/    F344 : 77                  LD (HL),A
 +    1050/    F345 : BE                  CP A, (HL) ;RAM-Test
 +    1051/    F346 : 28 F3                JR Z, MEM2 ;i.O.
 +    1052/    F348 : (MACRO)              RPRST
 +    1052/    F348 : E7                          RST     20H
 +    1052/    F349 : 02                          DB      02h                     ; PRST
 +    1053/    F34A : 45 52                DB "ER"
 +    1054/    F34C : A0                  DB ' '+80H
 +    1055/    F34D : 18 D9                JR MEM1
 +    1056/    F34F :                     ;
 +    1057/    F34F : 1A                  MEM4: LD A,(DE) ;Test Datenbyte=0
 +    1058/    F350 : FE 20                CP A, ' ' ;wenn ja --> Z=1
 +    1059/    F352 : 28 EE                JR Z, MEM3
 +    1060/    F354 : E1                  POP HL
 +    1061/    F355 : 23                  INC HL
 +    1062/    F356 : 22 1D 00            LD (ARG2),HL ;1. nichtbearb. Adr.
 +    1063/    F359 : FE 3B                CP A, ';'
 +    1064/    F35B : C8                  RET Z ;Return, wenn ";" gegeben
 +    1065/    F35C : 08                  EX AF, AF'
 +    1066/    F35D : FE 20                CP A, ' '
 +    1067/    F35F : 28 C7                JR Z, MEM1 ;Z=1 keine Eingabe
 +    1068/    F361 : 2B                  DEC HL
 +    1069/    F362 : FE 52                CP A, 'R' ;"R" gegeben?
 +    1070/    F364 : 20 C2                JR NZ, MEM1 ;nein
 +    1071/    F366 : 2B                  DEC HL ;sonst eine Adresse
 +    1072/    F367 : 18 BF                JR MEM1 ;zurueck
 +    1073/    F369 :                     ;
 +    1074/    F369 :                     ;-------------------------------------------------------------------------------
 +    1075/    F369 :                     ;Speichern auf Kassette
 +    1076/    F369 :                     ;-------------------------------------------------------------------------------
 +    1077/    F369 :                     ;
 +    1078/    F369 : 2A 1B 00            CSAVE: LD HL,(ARG1)
 +    1079/    F36C : CD 7D F3            CALL SAV2 ;Ausgabe 20H Bytes
 +    1080/    F36F : EB                  SAV1: EX DE,HL
 +    1081/    F370 : 2A 1D 00            LD HL,(ARG2)
 +    1082/    F373 : A7                  AND A, A
 +    1083/    F374 : ED 52                SBC HL,DE
 +    1084/    F376 : EB                  EX DE,HL
 +    1085/    F377 : D8                  RET C ;wenn File zu Ende
 +    1086/    F378 : CD 83 F3            CALL SAV3 ;Ausgabe 20H Byte
 +    1087/    F37B : 18 F2                JR SAV1
 +    1088/    F37D :                     ;
 +    1089/    F37D : ED 5B 33 00         SAV2: LD DE,(LSYNC) ;langer Vorton
 +    1090/    F381 : 18 03                JR SAV4
 +    1091/    F383 :                     ;Ausgabe ein Block = 20H Bytes
 +    1092/    F383 : 11 0E 00            SAV3: LD DE,14 ;kurzer Vorton
 +    1093/    F386 :                     ;Vorton: DE Halbschwingungen a 640 Hz
 +    1094/    F386 : 06 70               SAV4: LD B,70H ;Ausg. Vorton
 +    1095/    F388 : 10 FE               SAV5: DJNZ SAV5
 +    1096/    F38A : CD F1 F3            CALL SAV21 ;Flanke wechseln
 +    1097/    F38D : 1B                  DEC DE
 +    1098/    F38E : 7B                  LD A,E
 +    1099/    F38F : B2                  OR D
 +    1100/    F390 : 20 F4                JR NZ,SAV4
 +    1101/    F392 :                     ;Trennschwingung: 1 Vollschwingung a 1280 Hz
 +    1102/    F392 : 0E 02                LD C,02H ;Ausgabe Synchron-
 +    1103/    F394 : 06 35               SAV6: LD B,35H ;impulse
 +    1104/    F396 : 10 FE               SAV7: DJNZ SAV7
 +    1105/    F398 : CD F1 F3            CALL SAV21 ;Flanke wechseln
 +    1106/    F39B : 0D                  DEC C
 +    1107/    F39C : 11 00 00            LD DE,0
 +    1108/    F39F : 20 F3                JR NZ,SAV6
 +    1109/    F3A1 :                     ;
 +    1110/    F3A1 : D5                  PUSH DE ;DE=IX=0000
 +    1111/    F3A2 : DD E1                POP IX
 +    1112/    F3A4 :                     ;Kopfinhalt ausgeben
 +    1113/    F3A4 : 06 12                LD B,12H ;kurze Pause
 +    1114/    F3A6 : 10 FE               SAV8: DJNZ SAV8
 +    1115/    F3A8 : CD D0 F3            CALL SAV14 ;Ausgabe DE
 +    1116/    F3AB : 06 0F                LD B,0FH ;kurze Pause
 +    1117/    F3AD : 10 FE               SAV9: DJNZ SAV9
 +    1118/    F3AF :                     ;20H Bytes ausgeben
 +    1119/    F3AF : 0E 10                LD C,10H ;10H*2 Bytes
 +    1120/    F3B1 : 5E                  SAV10: LD E,(HL)
 +    1121/    F3B2 : 23                  INC HL
 +    1122/    F3B3 : 56                  LD D,(HL)
 +    1123/    F3B4 : DD 19                ADD IX,DE ;Pruefsumme bilden
 +    1124/    F3B6 : 23                  INC HL
 +    1125/    F3B7 : C5                  PUSH BC
 +    1126/    F3B8 : CD D0 F3            CALL SAV14 ;Ausgabe DE
 +    1127/    F3BB : C1                  POP BC
 +    1128/    F3BC : 0D                  DEC C
 +    1129/    F3BD : 28 06                JR Z, SAV12 ;Block fertig geschrieben
 +    1130/    F3BF : 06 0E                LD B,0EH ;kurze Pause
 +    1131/    F3C1 : 10 FE               SAV11: DJNZ SAV11
 +    1132/    F3C3 : 18 EC                JR SAV10
 +    1133/    F3C5 :                     ;Pruefsumme ausgeben
 +    1134/    F3C5 : DD E5               SAV12: PUSH IX
 +    1135/    F3C7 : D1                  POP DE ;DE = Pruefsumme
 +    1136/    F3C8 : 06 10                LD B,10H ;kurze Pause
 +    1137/    F3CA : 10 FE               SAV13: DJNZ SAV13
 +    1138/    F3CC : CD D0 F3            CALL SAV14 ;DE ausgeben
 +    1139/    F3CF : C9                  RET
 +    1140/    F3D0 :                     ;Ausgabe 16 Bit DE
 +    1141/    F3D0 : 0E 10               SAV14: LD C,16 ;16 Bit
 +    1142/    F3D2 : CB 3A               SAV15: SRL D ;Hi-Bit in Cy schieben
 +    1143/    F3D4 : CB 1B                RR E
 +    1144/    F3D6 : 30 07                JR NC, SAV17 ;Cy=1, wenn Bit=1
 +    1145/    F3D8 :                     ;1-Bit 1 Halbschwingung mit 1280 Hz 
 +    1146/    F3D8 : 06 03                LD B,3
 +    1147/    F3DA : 10 FE               SAV16: DJNZ SAV16
 +    1148/    F3DC : 00                  NOP
 +    1149/    F3DD : 18 03                JR SAV18
 +    1150/    F3DF :                     ;0-Bit 1 Vollschwingung mit 2560 Hz 
 +    1151/    F3DF : CD F1 F3            SAV17: CALL SAV21 ;Flanke ausgeben
 +    1152/    F3E2 : 06 19               SAV18: LD B,19H
 +    1153/    F3E4 : 10 FE               SAV19: DJNZ SAV19
 +    1154/    F3E6 : CD F1 F3            CALL SAV21 ;Flanke ausgeben
 +    1155/    F3E9 : 0D                  DEC C
 +    1156/    F3EA : C8                  RET Z ;wenn fertig
 +    1157/    F3EB : 06 15                LD B,15H
 +    1158/    F3ED : 10 FE               SAV20: DJNZ SAV20
 +    1159/    F3EF : 18 E1                JR SAV15
 +    1160/    F3F1 :                     ;Flanke ausgeben
 +    1161/    F3F1 : DB 02               SAV21: IN A, PIOBD ;Flanke ausgeben
 +    1162/    F3F3 : EE 80                XOR 80H ;durch Bit-Negierung Bit7
 +    1163/    F3F5 : D3 02                OUT PIOBD, A
 +    1164/    F3F7 : C9                  RET
 +    1165/    F3F8 :                     ;
 +    1166/    F3F8 :                     ;-------------------------------------------------------------------------------
 +    1167/    F3F8 :                     ;Laden von Kassette
 +    1168/    F3F8 :                     ;-------------------------------------------------------------------------------
 +    1169/    F3F8 :                     ;
 +    1170/    F3F8 : 2A 1B 00            CLOAD: LD HL,(ARG1)
 +    1171/    F3FB : CD 17 F4            LOA1: CALL LOA3 ;laden 20H Bytes
 +    1172/    F3FE : 28 0C                JR Z, LOA2 ;wenn kein Ladefehler
 +    1173/    F400 : CD A5 F2            CALL PRST7 ;sonst Fehler
 +    1174/    F403 : 43 53                DB "CS"
 +    1175/    F405 : BC                  DB '<'+80h
 +    1176/    F406 : CD 1A F3            CALL OUTHL ;Adresse ausgeben
 +    1177/    F409 : CD CF F5            CALL OUTSP
 +    1178/    F40C : EB                  LOA2: EX DE,HL
 +    1179/    F40D : 2A 1D 00            LD HL,(ARG2)
 +    1180/    F410 : A7                  AND A, A
 +    1181/    F411 : ED 52                SBC HL,DE ;Endadresse erreicht?
 +    1182/    F413 : EB                  EX DE,HL
 +    1183/    F414 : D8                  RET C ;ja --> fertig
 +    1184/    F415 : 18 E4                JR LOA1 ;sonst weiterlesen
 +    1185/    F417 :                     ;20H Bytes laden nach (HL)
 +    1186/    F417 : CD BC F4            LOA3: CALL LOA24 ;synchronisieren
 +    1187/    F41A : CD C6 F4            CALL LOA25 ;Flanke abwarten
 +    1188/    F41D : 0E 07                LD C,7
 +    1189/    F41F : 11 10 09            LOA5: LD DE,0910H ;D=9, E=10h
 +    1190/    F422 : 3E 07                LD A,7
 +    1191/    F424 : 3D                  LOA6: DEC A
 +    1192/    F425 : 20 FD                JR NZ, LOA6
 +    1193/    F427 : CD BC F4            CALL LOA24 ;synchronisieren
 +    1194/    F42A : CD BC F4            LOA7: CALL LOA24 ;Flanke ?
 +    1195/    F42D : 20 E8                JR NZ, LOA3 ;wenn nicht Vorton
 +    1196/    F42F : 15                  DEC D
 +    1197/    F430 : 20 F8                JR NZ, LOA7
 +    1198/    F432 : 0D                  DEC C
 +    1199/    F433 : 28 0C                JR Z, LOA9
 +    1200/    F435 : DB 02               LOA8: IN A, 2
 +    1201/    F437 : A8                  XOR B
 +    1202/    F438 : CB 77                BIT 6,A
 +    1203/    F43A : 20 E3                JR NZ, LOA5
 +    1204/    F43C : 1D                  DEC E
 +    1205/    F43D : 20 F6                JR NZ, LOA8
 +    1206/    F43F : 18 D6                JR LOA3
 +    1207/    F441 :                     ;Synchronisierimpulse lesen
 +    1208/    F441 : CD C6 F4            LOA9: CALL LOA25 ;Flanke abwarten
 +    1209/    F444 : 3E 44                LD A,44H
 +    1210/    F446 : 3D                  LOA10: DEC A
 +    1211/    F447 : 20 FD                JR NZ, LOA10
 +    1212/    F449 : CD BC F4            CALL LOA24 ;Flanke ?
 +    1213/    F44C : 20 F3                JR NZ, LOA9 ;wenn nicht
 +    1214/    F44E : CD C6 F4            CALL LOA25 ;Flanke abwarten
 +    1215/    F451 : 3E 1E                LD A,1EH
 +    1216/    F453 : 3D                  LOA11: DEC A
 +    1217/    F454 : 20 FD                JR NZ, LOA11
 +    1218/    F456 :                     ;2 Bytes Kopf lesen
 +    1219/    F456 : CD 9D F4            CALL LOA19 ;lesen DE
 +    1220/    F459 :                     ;20H Byte Daten lesen
 +    1221/    F459 : 0E 10                LD C,10H ;10H x 2 Bytes
 +    1222/    F45B : D5                  PUSH DE
 +    1223/    F45C : DD E1                POP IX ;IX-Pruefsummenzaehler=
 +    1224/    F45E : 3E 1A                LD A,1AH
 +    1225/    F460 : 3D                  LOA12: DEC A
 +    1226/    F461 : 20 FD                JR NZ, LOA12
 +    1227/    F463 : CD 9D F4            LOA13: CALL LOA19 ;laden DE
 +    1228/    F466 : DD 19                ADD IX,DE ;Pruefsumme bilden
 +    1229/    F468 : C5                  PUSH BC
 +    1230/    F469 : 4D                  LD C,L
 +    1231/    F46A : 44                  LD B,H
 +    1232/    F46B : 2A 1D 00            LD HL,(ARG2)
 +    1233/    F46E : AF                  XOR A
 +    1234/    F46F : ED 42                SBC HL,BC ;Endadresse erreicht?
 +    1235/    F471 : 69                  LD L,C
 +    1236/    F472 : 60                  LD H,B
 +    1237/    F473 : C1                  POP BC
 +    1238/    F474 : 38 05                JR C, LOA14 ;ja --> Leseende
 +    1239/    F476 : 73                  LD (HL),E
 +    1240/    F477 : 23                  INC HL
 +    1241/    F478 : 72                  LD (HL),D
 +    1242/    F479 : 18 06                JR LOA16
 +    1243/    F47B : 3E 01               LOA14: LD A,1
 +    1244/    F47D : 3D                  LOA15: DEC A
 +    1245/    F47E : 20 FD                JR NZ, LOA15
 +    1246/    F480 : 23                  INC HL
 +    1247/    F481 : 23                  LOA16: INC HL
 +    1248/    F482 : 0D                  DEC C
 +    1249/    F483 : 28 07                JR Z, LOA18 ;wenn Blockende
 +    1250/    F485 : 3E 12                LD A,12H
 +    1251/    F487 : 3D                  LOA17: DEC A
 +    1252/    F488 : 20 FD                JR NZ, LOA17
 +    1253/    F48A : 18 D7                JR LOA13 ;naechte 2 Byte
 +    1254/    F48C : 3E 12               LOA18: LD A,12H
 +    1255/    F48E : 3D                  LOA27: DEC A
 +    1256/    F48F : 20 FD                JR NZ, LOA27
 +    1257/    F491 :                     ;Pruefsumme lesen
 +    1258/    F491 : CD 9D F4            CALL LOA19 ;laden DE
 +    1259/    F494 : EB                  EX DE,HL
 +    1260/    F495 : DD E5                PUSH IX
 +    1261/    F497 : C1                  POP BC
 +    1262/    F498 : AF                  XOR A
 +    1263/    F499 : ED 42                SBC HL,BC ;Prüfsumme gleich?
 +    1264/    F49B : EB                  EX DE,HL ;Z=0 Ladefehler
 +    1265/    F49C : C9                  RET
 +    1266/    F49D :                     ;Laden 2 Byte nach DE
 +    1267/    F49D : E5                  LOA19: PUSH HL
 +    1268/    F49E : 2E 10                LD L,10H ;16 Datenbits
 +    1269/    F4A0 : CD BC F4            LOA20: CALL LOA24 ;Flanke ?
 +    1270/    F4A3 : 20 03                JR NZ, LOA21
 +    1271/    F4A5 : AF                  XOR A ;Cy=0
 +    1272/    F4A6 : 18 01                JR LOA22
 +    1273/    F4A8 : 37                  LOA21: SCF
 +    1274/    F4A9 : CB 1A               LOA22: RR D
 +    1275/    F4AB : CB 1B                RR E
 +    1276/    F4AD : CD C6 F4            CALL LOA25 ;Flanke abwarten
 +    1277/    F4B0 : 2D                  DEC L
 +    1278/    F4B1 : 28 07                JR Z, LOA23 ;wenn fertig
 +    1279/    F4B3 : 3E 1E                LD A,1EH
 +    1280/    F4B5 : 3D                  LOA26: DEC A
 +    1281/    F4B6 : 20 FD                JR NZ, LOA26
 +    1282/    F4B8 : 18 E6                JR LOA20
 +    1283/    F4BA : E1                  LOA23: POP HL
 +    1284/    F4BB : C9                  RET
 +    1285/    F4BC :                     ;Portabfrage
 +    1286/    F4BC : DB 02               LOA24: IN A, PIOBD
 +    1287/    F4BE : A8                  XOR B
 +    1288/    F4BF : CB 77                BIT 6,A ;Bit6->TB in
 +    1289/    F4C1 : F5                  PUSH AF
 +    1290/    F4C2 : A8                  XOR B
 +    1291/    F4C3 : 47                  LD B,A
 +    1292/    F4C4 : F1                  POP AF ;Z=0 --> Flanke
 +    1293/    F4C5 : C9                  RET
 +    1294/    F4C6 :                     ;Warten auf Flankenwechsel
 +    1295/    F4C6 : DB 02               LOA25: IN A, PIOBD
 +    1296/    F4C8 : A8                  XOR B
 +    1297/    F4C9 : CB 77                BIT 6,A ;Bit6->TB in
 +    1298/    F4CB : 28 F9                JR Z, LOA25
 +    1299/    F4CD : C9                  RET
 +    1300/    F4CE :                     ;
 +    1301/    F4CE :                     ;-------------------------------------------------------------------------------
 +    1302/    F4CE :                     ;Speicherinhalt mit Checksumme anzeigen
 +    1303/    F4CE :                     ;-------------------------------------------------------------------------------
 +    1304/    F4CE :                     ;
 +    1305/    F4CE : 2A 1B 00            D_KDO: LD HL,(ARG1)
 +    1306/    F4D1 : ED 5B 1D 00         DKO1: LD DE,(ARG2)
 +    1307/    F4D5 : 37                  SCF
 +    1308/    F4D6 : E5                  PUSH HL
 +    1309/    F4D7 : ED 52                SBC HL,DE
 +    1310/    F4D9 : E1                  POP HL
 +    1311/    F4DA : D0                  RET NC ;wenn EADR<AADR
 +    1312/    F4DB : (MACRO)              ROTHL
 +    1312/    F4DB : E7                          RST     20H
 +    1312/    F4DC : 07                          DB      07h                     ; OUTHL
 +    1313/    F4DD : 01 00 08            LD BC,0800H ;B=8
 +    1314/    F4E0 : 1E 00                LD E,0 ;EC=0 - Checksumme
 +    1315/    F4E2 : (MACRO)             DKO2: RPRST
 +    1315/    F4E2 : E7                          RST     20H
 +    1315/    F4E3 : 02                          DB      02h                     ; PRST
 +    1316/    F4E4 : A0                  DB ' '+80H
 +    1317/    F4E5 : 7E                  LD A,(HL)
 +    1318/    F4E6 : (MACRO)              ROTHX
 +    1318/    F4E6 : E7                          RST     20H
 +    1318/    F4E7 : 06                          DB      06h                     ; OUTHX
 +    1319/    F4E8 : 81                  ADD A, C ;Checksumme bilden
 +    1320/    F4E9 : 4F                  LD C,A
 +    1321/    F4EA : 30 04                JR NC, DKO3
 +    1322/    F4EC : 3E 00                LD A,0
 +    1323/    F4EE : 8B                  ADC A, E
 +    1324/    F4EF : 5F                  LD E,A
 +    1325/    F4F0 : 23                  DKO3: INC HL
 +    1326/    F4F1 : 10 EF                DJNZ DKO2
 +    1327/    F4F3 : (MACRO)              RPRST
 +    1327/    F4F3 : E7                          RST     20H
 +    1327/    F4F4 : 02                          DB      02h                     ; PRST
 +    1328/    F4F5 : A0                  DB ' '+80H
 +    1329/    F4F6 : 7B                  LD A,E
 +    1330/    F4F7 : CD 0A F3            CALL OUX1 ;Checksumme ausgeben
 +    1331/    F4FA : 79                  LD A,C
 +    1332/    F4FB : (MACRO)              ROTHX
 +    1332/    F4FB : E7                          RST     20H
 +    1332/    F4FC : 06                          DB      06h                     ; OUTHX
 +    1333/    F4FD : 18 D2                JR DKO1
 +    1334/    F4FF :                     ;
 +    1335/    F4FF :                     ;-------------------------------------------------------------------------------
 +    1336/    F4FF :                     ;Argumente uebergeben
 +    1337/    F4FF :                     ;-------------------------------------------------------------------------------
 +    1338/    F4FF :                     ;
 +    1339/    F4FF : 2A 1B 00            PARA: LD HL,(ARG1)
 +    1340/    F502 : ED 5B 1D 00          LD DE,(ARG2)
 +    1341/    F506 : ED 4B 23 00          LD BC,(ARG3)
 +    1342/    F50A : C9                  RET
 +    1343/    F50B :                     ;
 +    1344/    F50B :                     ;-------------------------------------------------------------------------------
 +    1345/    F50B :                     ;Speicherbereich mit Byte beschreiben
 +    1346/    F50B :                     ;-------------------------------------------------------------------------------
 +    1347/    F50B :                     ;
 +    1348/    F50B : CD FF F4            K_KDO: CALL PARA
 +    1349/    F50E : 71                  LD (HL),C ;C=Fuellbyte
 +    1350/    F50F : E5                  PUSH HL
 +    1351/    F510 : AF                  XOR A
 +    1352/    F511 : EB                  EX DE,HL
 +    1353/    F512 : ED 52                SBC HL,DE
 +    1354/    F514 : 44                  LD B,H
 +    1355/    F515 : 4D                  LD C,L ;BC=Laenge
 +    1356/    F516 : E1                  POP HL
 +    1357/    F517 : 54                  LD D,H
 +    1358/    F518 : 5D                  LD E,L
 +    1359/    F519 : 13                  INC DE
 +    1360/    F51A : ED B0                LDIR
 +    1361/    F51C : C9                  RET
 +    1362/    F51D :                     ;
 +    1363/    F51D :                     ;-------------------------------------------------------------------------------
 +    1364/    F51D :                     ;Speicherbereich verschieben
 +    1365/    F51D :                     ;-------------------------------------------------------------------------------
 +    1366/    F51D :                     ;
 +    1367/    F51D : CD FF F4            T_KDO: CALL PARA
 +    1368/    F520 : AF                  XOR A
 +    1369/    F521 : E5                  PUSH HL
 +    1370/    F522 : ED 52                SBC HL,DE
 +    1371/    F524 : E1                  POP HL
 +    1372/    F525 : 38 03                JR C, TKO1 ;wenn Zieladr. groesser
 +    1373/    F527 : ED B0                LDIR ;Vorwaertstransfer
 +    1374/    F529 : C9                  RET
 +    1375/    F52A : 09                  TKO1: ADD HL,BC
 +    1376/    F52B : EB                  EX DE,HL
 +    1377/    F52C : 09                  ADD HL,BC
 +    1378/    F52D : EB                  EX DE,HL
 +    1379/    F52E : 2B                  DEC HL
 +    1380/    F52F : 1B                  DEC DE
 +    1381/    F530 : ED B8                LDDR ;Rueckwaertstransfer
 +    1382/    F532 : C9                  RET
 +    1383/    F533 :                     ;
 +    1384/    F533 :                     ;-------------------------------------------------------------------------------
 +    1385/    F533 :                     ;Debugging-Funktionen
 +    1386/    F533 :                     ;-------------------------------------------------------------------------------
 +    1387/    F533 :                     ;
 +    1388/    F533 :                     ;Register im Registerrettebereich ablegen
 +    1389/    F533 :                     ;
 +    1390/    F533 : ED 73 13 00         REGA: LD (DATA),SP
 +    1391/    F537 : 31 61 00            LD SP,REGPC
 +    1392/    F53A : DD E5                PUSH IX
 +    1393/    F53C : FD E5                PUSH IY
 +    1394/    F53E : F5                  PUSH AF
 +    1395/    F53F : C5                  PUSH BC
 +    1396/    F540 : D5                  PUSH DE
 +    1397/    F541 : E5                  PUSH HL
 +    1398/    F542 : D9                  EXX
 +    1399/    F543 : 08                  EX AF, AF'
 +    1400/    F544 : F5                  PUSH AF
 +    1401/    F545 : C5                  PUSH BC
 +    1402/    F546 : D5                  PUSH DE
 +    1403/    F547 : E5                  PUSH HL
 +    1404/    F548 : 18 15                JR REG1
 +    1405/    F54A :                     ;Register aus Registerrettebereich holen
 +    1406/    F54A : ED 73 13 00         REGH: LD (DATA),SP
 +    1407/    F54E : 31 4D 00            LD SP,REGBR
 +    1408/    F551 : E1                  POP HL
 +    1409/    F552 : D1                  POP DE
 +    1410/    F553 : C1                  POP BC
 +    1411/    F554 : F1                  POP AF
 +    1412/    F555 : D9                  EXX
 +    1413/    F556 : 08                  EX AF, AF'
 +    1414/    F557 : E1                  POP HL
 +    1415/    F558 : D1                  POP DE
 +    1416/    F559 : C1                  POP BC
 +    1417/    F55A : F1                  POP AF
 +    1418/    F55B : FD E1                POP IY
 +    1419/    F55D : DD E1                POP IX
 +    1420/    F55F : ED 7B 13 00         REG1: LD SP,(DATA)
 +    1421/    F563 : C9                  RET
 +    1422/    F564 :                     ;
 +    1423/    F564 :                     ;Einsprung bei Breakpoint
 +    1424/    F564 :                     ;
 +    1425/    F564 : CD 33 F5            BREAK: CALL REGA ;Register ablegen
 +    1426/    F567 : E1                  POP HL ;HL=Breakadr.+3
 +    1427/    F568 : ED 73 63 00          LD (REGSP),SP ;SP sichern
 +    1428/    F56C : 31 B0 00            LD SP,SYSSK ;Systemstack nutzen
 +    1429/    F56F : 2B                  DEC HL
 +    1430/    F570 : 2B                  DEC HL
 +    1431/    F571 : 2B                  DEC HL
 +    1432/    F572 : 22 61 00            LD (REGPC),HL ;Breakadresse
 +    1433/    F575 : ED 5B 0B 00          LD DE,(BPADR) ;die originalen 3 Byte
 +    1434/    F579 : 21 0D 00            LD HL,BPOPC ;Operanden zurueckbringen
 +    1435/    F57C : 01 03 00            LD BC,3
 +    1436/    F57F : ED B0                LDIR
 +    1437/    F581 : CD E4 F5            CALL REGDA
 +    1438/    F584 : C3 5F F0            JP KDO2
 +    1439/    F587 :                     ;
 +    1440/    F587 :                     ;-------------------------------------------------------------------------------
 +    1441/    F587 :                     ;Breakpoint-Adresse setzen
 +    1442/    F587 :                     ;-------------------------------------------------------------------------------
 +    1443/    F587 :                     ;
 +    1444/    F587 : 2A 1B 00            B_KDO: LD HL,(ARG1)
 +    1445/    F58A : 22 0B 00            LD (BPADR),HL
 +    1446/    F58D : 11 0D 00            LD DE,BPOPC ;3 Byte Operanden
 +    1447/    F590 : 01 03 00            LD BC,3 ;retten
 +    1448/    F593 : ED B0                LDIR
 +    1449/    F595 : CD E4 F5            CALL REGDA ;Register anzeigen
 +    1450/    F598 : C9                  RET
 +    1451/    F599 :                     ;
 +    1452/    F599 :                     ;-------------------------------------------------------------------------------
 +    1453/    F599 :                     ;Programm starten mit Breakpoint
 +    1454/    F599 :                     ;-------------------------------------------------------------------------------
 +    1455/    F599 :                     ;
 +    1456/    F599 : 2A 0B 00            E_KDO: LD HL,(BPADR)
 +    1457/    F59C : 36 CD                LD (HL),0CDH ;CALL ...
 +    1458/    F59E : 23                  INC HL
 +    1459/    F59F : 11 64 F5            LD DE,BREAK ;an Breakpoint Unter-
 +    1460/    F5A2 : 73                  LD (HL),E ;Brechung zu BREAK eintragen
 +    1461/    F5A3 : 23                  INC HL
 +    1462/    F5A4 : 72                  LD (HL),D
 +    1463/    F5A5 :                     ;
 +    1464/    F5A5 :                     ;-------------------------------------------------------------------------------
 +    1465/    F5A5 :                     ;Programm starten
 +    1466/    F5A5 :                     ;-------------------------------------------------------------------------------
 +    1467/    F5A5 :                     ;
 +    1468/    F5A5 : 2A 1B 00            J_KDO: LD HL,(ARG1) ;Startadresse
 +    1469/    F5A8 : 22 61 00            LD (REGPC),HL ;zwischenspeichern
 +    1470/    F5AB : ED 7B 63 00          LD SP,(REGSP) ;Stack generieren
 +    1471/    F5AF : E5                  PUSH HL ;Startadresse in Stack
 +    1472/    F5B0 : C3 4A F5            JP REGH ;Register holen
 +    1473/    F5B3 :                      ;und Pgm. durch RET starten
 +    1474/    F5B3 :                     ;
 +    1475/    F5B3 :                     ;-------------------------------------------------------------------------------
 +    1476/    F5B3 :                     ;Programm nach Break fortsetzen
 +    1477/    F5B3 :                     ;-------------------------------------------------------------------------------
 +    1478/    F5B3 :                     ;
 +    1479/    F5B3 : 2A 61 00            G_KDO: LD HL,(REGPC)
 +    1480/    F5B6 : 22 1B 00            LD (ARG1),HL
 +    1481/    F5B9 : ED 5B 0B 00          LD DE,(BPADR)
 +    1482/    F5BD : AF                  XOR A ;Cy=0
 +    1483/    F5BE : ED 52                SBC HL,DE
 +    1484/    F5C0 : 20 D7                JR NZ, E_KDO ;wenn nicht Breakpoint
 +    1485/    F5C2 : 18 E1                JR J_KDO ;starten
 +    1486/    F5C4 :                     ;
 +    1487/    F5C4 :                     ;-------------------------------------------------------------------------------
 +    1488/    F5C4 :                     ;Ausgabe eines Doppelpunktes und (HL) und Leerzeichen
 +    1489/    F5C4 :                     ;-------------------------------------------------------------------------------
 +    1490/    F5C4 :                     ;
 +    1491/    F5C4 : (MACRO)             OUTDP: RPRST
 +    1491/    F5C4 : E7                          RST     20H
 +    1491/    F5C5 : 02                          DB      02h                     ; PRST
 +    1492/    F5C6 : BA                  DB ':'+80H
 +    1493/    F5C7 :                     ;
 +    1494/    F5C7 :                     ;-------------------------------------------------------------------------------
 +    1495/    F5C7 :                     ;Ausgabe hex 2 Byte Speicher (HL) und (HL-1)
 +    1496/    F5C7 :                     ;und ein Leerzeichen
 +    1497/    F5C7 :                     ;-------------------------------------------------------------------------------
 +    1498/    F5C7 :                     ;
 +    1499/    F5C7 : 7E                  OTHLS: LD A,(HL) ;hoeherwertiges Byte
 +    1500/    F5C8 : (MACRO)              ROTHX ;ausgeben
 +    1500/    F5C8 : E7                          RST     20H
 +    1500/    F5C9 : 06                          DB      06h                     ; OUTHX
 +    1501/    F5CA : 2B                  DEC HL
 +    1502/    F5CB : 7E                  LD A,(HL) ;niederwertiges Byte
 +    1503/    F5CC : (MACRO)              ROTHX ;ausgeben
 +    1503/    F5CC : E7                          RST     20H
 +    1503/    F5CD : 06                          DB      06h                     ; OUTHX
 +    1504/    F5CE : 2B                  DEC HL ;naechsten Aufruf vorbereiten
 +    1505/    F5CF :                     ;
 +    1506/    F5CF :                     ;-------------------------------------------------------------------------------
 +    1507/    F5CF :                     ;Ausgabe ein Leerzeichen
 +    1508/    F5CF :                     ;-------------------------------------------------------------------------------
 +    1509/    F5CF :                     ;
 +    1510/    F5CF : (MACRO)             OUTSP: RPRST
 +    1510/    F5CF : E7                          RST     20H
 +    1510/    F5D0 : 02                          DB      02h                     ; PRST
 +    1511/    F5D1 : A0                  DB ' '+80H
 +    1512/    F5D2 : C9                  RET
 +    1513/    F5D3 :                     ;
 +    1514/    F5D3 :                     ;-------------------------------------------------------------------------------
 +    1515/    F5D3 :                     ;Registermodifizerung und -anzeige
 +    1516/    F5D3 :                     ;-------------------------------------------------------------------------------
 +    1517/    F5D3 :                     ;
 +    1518/    F5D3 :                     ;Z-Flag-Anzeige
 +    1519/    F5D3 :                     ;
 +    1520/    F5D3 : (MACRO)             AUS1: RPRST ;Ausg. "1 "
 +    1520/    F5D3 : E7                          RST     20H
 +    1520/    F5D4 : 02                          DB      02h                     ; PRST
 +    1521/    F5D5 : 31                  DB "1"
 +    1522/    F5D6 : A0                  DB ' '+80H
 +    1523/    F5D7 : C9                  RET
 +    1524/    F5D8 : 20 F9               AUSX: JR NZ, AUS1
 +    1525/    F5DA : (MACRO)              RPRST ;Ausg. "0 "
 +    1525/    F5DA : E7                          RST     20H
 +    1525/    F5DB : 02                          DB      02h                     ; PRST
 +    1526/    F5DC : 30                  DB "0"
 +    1527/    F5DD : A0                  DB ' '+80H
 +    1528/    F5DE : C9                  RET
 +    1529/    F5DF :                     ;
 +    1530/    F5DF :                     ; R-Kommando
 +    1531/    F5DF :                     ;
 +    1532/    F5DF : FE 3A               R_KDO: CP A, ':'
 +    1533/    F5E1 : C2 5A F6            JP NZ, RKO3 ;wenn Modifizierung
 +    1534/    F5E4 :                     ;
 +    1535/    F5E4 : (MACRO)             REGDA: RPRST ;Anzeige Breakpointadresse
 +    1535/    F5E4 : E7                          RST     20H
 +    1535/    F5E5 : 02                          DB      02h                     ; PRST
 +    1536/    F5E6 : 0D                  DB CR
 +    1537/    F5E7 : 42                  DB "B" ;"BP"
 +    1538/    F5E8 : D0                  DB 'P'+80H
 +    1539/    F5E9 : 21 0C 00            LD HL,BPADR+1
 +    1540/    F5EC : (MACRO)              ROTDP
 +    1540/    F5EC : E7                          RST     20H
 +    1540/    F5ED : 0D                          DB      0Dh                     ; OUTDP
 +    1541/    F5EE : (MACRO)              RPRST ;Ausgabe Operandenfolge
 +    1541/    F5EE : E7                          RST     20H
 +    1541/    F5EF : 02                          DB      02h                     ; PRST
 +    1542/    F5F0 : 42 53                DB "BS" ;am Breakpoint
 +    1543/    F5F2 : BA                  DB ':'+80H
 +    1544/    F5F3 : 06 03                LD B,3 ;3 Byte
 +    1545/    F5F5 : 21 0D 00            LD HL,BPOPC
 +    1546/    F5F8 : 7E                  RKO1: LD A,(HL)
 +    1547/    F5F9 : (MACRO)              ROTHX
 +    1547/    F5F9 : E7                          RST     20H
 +    1547/    F5FA : 06                          DB      06h                     ; OUTHX
 +    1548/    F5FB : 23                  INC HL
 +    1549/    F5FC : 10 FA                DJNZ RKO1
 +    1550/    F5FE :                     ;
 +    1551/    F5FE : (MACRO)              RPRST ;Flaganzeige
 +    1551/    F5FE : E7                          RST     20H
 +    1551/    F5FF : 02                          DB      02h                     ; PRST
 +    1552/    F600 : 20 20 20 53 20 5A    DB "   S Z C"
 +                    20 43 
 +    1553/    F608 : A0                  DB ' '+80H
 +    1554/    F609 : 3A 5B 00            LD A,(REGAF) ;A-Flagregister
 +    1555/    F60C : 6F                  LD L,A
 +    1556/    F60D : CB 7D                BIT 7,L ;S-Flag
 +    1557/    F60F : CD D8 F5            CALL AUSX
 +    1558/    F612 : CB 75                BIT 6,L ;Z-Flag
 +    1559/    F614 : CD D8 F5            CALL AUSX
 +    1560/    F617 : CB 45                BIT 0,L ;Cy-Flag
 +    1561/    F619 : CD D8 F5            CALL AUSX
 +    1562/    F61C :                     ;
 +    1563/    F61C : 21 64 00            LD HL,REGSP+1 ;Sonderregister-anzeige
 +    1564/    F61F : 06 02                LD B,2 ;2 Registersaetze
 +    1565/    F621 : (MACRO)              RPRST
 +    1565/    F621 : E7                          RST     20H
 +    1565/    F622 : 02                          DB      02h                     ; PRST
 +    1566/    F623 : 53                  RKO2: DB "S"
 +    1567/    F624 : D0                  DB 'P'+80H
 +    1568/    F625 : (MACRO)              ROTDP
 +    1568/    F625 : E7                          RST     20H
 +    1568/    F626 : 0D                          DB      0Dh                     ; OUTDP
 +    1569/    F627 : (MACRO)              RPRST
 +    1569/    F627 : E7                          RST     20H
 +    1569/    F628 : 02                          DB      02h                     ; PRST
 +    1570/    F629 : 50                  DB "P"
 +    1571/    F62A : C3                  DB 'C'+80H
 +    1572/    F62B : (MACRO)              ROTDP
 +    1572/    F62B : E7                          RST     20H
 +    1572/    F62C : 0D                          DB      0Dh                     ; OUTDP
 +    1573/    F62D : (MACRO)              RPRST
 +    1573/    F62D : E7                          RST     20H
 +    1573/    F62E : 02                          DB      02h                     ; PRST
 +    1574/    F62F : 49                  DB "I"
 +    1575/    F630 : D8                  DB 'X'+80H
 +    1576/    F631 : (MACRO)              ROTDP
 +    1576/    F631 : E7                          RST     20H
 +    1576/    F632 : 0D                          DB      0Dh                     ; OUTDP
 +    1577/    F633 : (MACRO)              RPRST
 +    1577/    F633 : E7                          RST     20H
 +    1577/    F634 : 02                          DB      02h                     ; PRST
 +    1578/    F635 : 49                  DB "I"
 +    1579/    F636 : D9                  DB 'Y'+80H
 +    1580/    F637 : (MACRO)              ROTDP
 +    1580/    F637 : E7                          RST     20H
 +    1580/    F638 : 0D                          DB      0Dh                     ; OUTDP
 +    1581/    F639 :                     ;
 +    1582/    F639 : (MACRO)             RKO4: RPRST ;Registersatz anzeigen
 +    1582/    F639 : E7                          RST     20H
 +    1582/    F63A : 02                          DB      02h                     ; PRST
 +    1583/    F63B : 41                  DB "A"
 +    1584/    F63C : C6                  DB 'F'+80H
 +    1585/    F63D : (MACRO)              ROTDP
 +    1585/    F63D : E7                          RST     20H
 +    1585/    F63E : 0D                          DB      0Dh                     ; OUTDP
 +    1586/    F63F : (MACRO)              RPRST
 +    1586/    F63F : E7                          RST     20H
 +    1586/    F640 : 02                          DB      02h                     ; PRST
 +    1587/    F641 : 42                  DB "B"
 +    1588/    F642 : C3                  DB 'C'+80H
 +    1589/    F643 : (MACRO)              ROTDP
 +    1589/    F643 : E7                          RST     20H
 +    1589/    F644 : 0D                          DB      0Dh                     ; OUTDP
 +    1590/    F645 : (MACRO)              RPRST
 +    1590/    F645 : E7                          RST     20H
 +    1590/    F646 : 02                          DB      02h                     ; PRST
 +    1591/    F647 : 44                  DB "D"
 +    1592/    F648 : C5                  DB 'E'+80H
 +    1593/    F649 : (MACRO)              ROTDP
 +    1593/    F649 : E7                          RST     20H
 +    1593/    F64A : 0D                          DB      0Dh                     ; OUTDP
 +    1594/    F64B : (MACRO)              RPRST
 +    1594/    F64B : E7                          RST     20H
 +    1594/    F64C : 02                          DB      02h                     ; PRST
 +    1595/    F64D : 48                  DB "H"
 +    1596/    F64E : CC                  DB 'L'+80H
 +    1597/    F64F : (MACRO)              ROTDP
 +    1597/    F64F : E7                          RST     20H
 +    1597/    F650 : 0D                          DB      0Dh                     ; OUTDP
 +    1598/    F651 : 10 E6                DJNZ RKO4
 +    1599/    F653 :                     ;
 +    1600/    F653 : 2A 2B 00            LD HL,(CUPOS) ;2. Satz als Schatten-
 +    1601/    F656 : 2B                  DEC HL ;register markieren:
 +    1602/    F657 : 36 27                LD (HL),27H ;"'"
 +    1603/    F659 : C9                  RET
 +    1604/    F65A :                     ;
 +    1605/    F65A : 01 00 04            RKO3: LD BC,0400H ;B=4, C-Registernummer
 +    1606/    F65D : 2A 16 00            LD HL,(SOIL)
 +    1607/    F660 : 23                  INC HL
 +    1608/    F661 : 23                  INC HL
 +    1609/    F662 : 11 23 F6            LD DE,RKO2
 +    1610/    F665 : 1A                  RKO5: LD A,(DE) ;Vergleich Registereingabe
 +    1611/    F666 : BE                  CP A, (HL) ;mit allen Registern
 +    1612/    F667 : 28 17                JR Z, RKO8 ;wenn gefunden
 +    1613/    F669 : 13                  INC DE
 +    1614/    F66A : E5                  RKO6: PUSH HL
 +    1615/    F66B : 21 05 00            LD HL,5
 +    1616/    F66E : 19                  ADD HL,DE
 +    1617/    F66F : EB                  EX DE,HL ;naechster Reg.name
 +    1618/    F670 : E1                  POP HL
 +    1619/    F671 : 0C                  INC C ;C-Registernummer
 +    1620/    F672 : 10 F1                DJNZ RKO5
 +    1621/    F674 : 06 04                LD B,4
 +    1622/    F676 : 79                  LD A,C
 +    1623/    F677 : FE 08                CP A, 8
 +    1624/    F679 : 20 EA                JR NZ, RKO5 ;weitersuchen
 +    1625/    F67B : F1                  POP AF ;sonst falsche Eingabe
 +    1626/    F67C : FF                  RST 38H ;--> zum KDO-Monitor
 +    1627/    F67D :                     ;
 +    1628/    F67D : 2B                  RKO7: DEC HL ;weitersuchen
 +    1629/    F67E : 18 EA                JR RKO6
 +    1630/    F680 :                     ;
 +    1631/    F680 : 13                  RKO8: INC DE ;Ueberpruefen zweiter
 +    1632/    F681 : 23                  INC HL ;Buchstabe
 +    1633/    F682 : 1A                  LD A,(DE)
 +    1634/    F683 : E6 7F                AND A, 7FH
 +    1635/    F685 : BE                  CP A, (HL)
 +    1636/    F686 : 20 F5                JR NZ, RKO7 ;wenn ungleich
 +    1637/    F688 : 23                  INC HL
 +    1638/    F689 : 7E                  LD A,(HL) ;Schattenregister ?
 +    1639/    F68A : FE 27                CP A, 27H ;"'"
 +    1640/    F68C : 79                  LD A,C
 +    1641/    F68D : 20 02                JR NZ, RKO9 ;wenn nicht
 +    1642/    F68F : C6 04                ADD A, 4
 +    1643/    F691 : CB 27               RKO9: SLA A
 +    1644/    F693 : 4F                  LD C,A
 +    1645/    F694 : 06 00                LD B,0
 +    1646/    F696 : 21 64 00            LD HL,REGSP+1
 +    1647/    F699 : ED 42                SBC HL,BC
 +    1648/    F69B : 44                  LD B,H ;HL=Adresse im
 +    1649/    F69C : 4D                  LD C,L ;Registerrettebereich
 +    1650/    F69D : (MACRO)              ROTHS ;Ausgabe Wert
 +    1650/    F69D : E7                          RST     20H
 +    1650/    F69E : 0C                          DB      0Ch                     ; OTHLS
 +    1651/    F69F : CD B3 F2            CALL INLIN ;Eingabe neuer Wert
 +    1652/    F6A2 : ED 5B 16 00          LD DE,(SOIL)
 +    1653/    F6A6 : CD F4 F2            CALL INHEX ;HL=neuer Wert
 +    1654/    F6A9 : 20 04                JR NZ, RKO10 ;wenn alles ok
 +    1655/    F6AB : 1A                  LD A,(DE) ;keine Zahl, vielleicht
 +    1656/    F6AC : FE 3B                CP A, ';' ;Abbruch ?
 +    1657/    F6AE : C8                  RET Z
 +    1658/    F6AF :                     ;
 +    1659/    F6AF : EB                  RKO10: EX DE,HL
 +    1660/    F6B0 : C5                  PUSH BC
 +    1661/    F6B1 : E1                  POP HL ;Adr. im Reg.rettebereich
 +    1662/    F6B2 : 72                  LD (HL),D ;neuen Wert eintragen
 +    1663/    F6B3 : 2B                  DEC HL
 +    1664/    F6B4 : 73                  LD (HL),E
 +    1665/    F6B5 : C3 E4 F5            JP REGDA ;Registeranzeige
 +    1666/    F6B8 :                     
 +    1667/    F6B8 : =>TRUE              IF MONTYP == "Z1013_202"
 +    1668/    F6B8 :                     ;
 +    1669/    F6B8 :                     ;-------------------------------------------------------------------------------
 +    1670/    F6B8 :                     ;Hex-Umschaltung
 +    1671/    F6B8 :                     ;-------------------------------------------------------------------------------
 +    1672/    F6B8 :                     ;
 +    1673/    F6B8 : 21 48 50            H_KDO: ld hl,5048h ;Aenderung der Tastaturcodetab.
 +    1674/    F6BB : 22 42 00            ld (LSYNC+15),hl ;Shift-Ebene 1, Zeile 2 und 3
 +    1675/    F6BE : 21 30 38            ld hl,3830h ;vertauschen mit
 +    1676/    F6C1 : 22 45 00            ld (LSYNC+18),hl ;Shift-Ebene 0, Zeile 2 und 3
 +    1677/    F6C4 : C9                  RET
 +    1678/    F6C5 :                     ;
 +    1679/    F6C5 :                     ;-------------------------------------------------------------------------------
 +    1680/    F6C5 :                     ;ASCII-Umschaltung
 +    1681/    F6C5 :                     ;-------------------------------------------------------------------------------
 +    1682/    F6C5 :                     ;
 +    1683/    F6C5 : 21 F4 F1            A_KDO: ld hl,MONTB+2 ;Laden der alten
 +    1684/    F6C8 : 11 35 00            ld de,LSYNC+2 ;Tastaturcodetab.
 +    1685/    F6CB : 01 12 00            ld bc,12h
 +    1686/    F6CE : ED B0                ldir
 +    1687/    F6D0 : C9                  RET
 +    1688/    F6D1 :                     
 +    1689/    F6D1 : [1667]              ENDIF
 +    1690/    F6D1 :                     ;
 +    1691/    F6D1 :                     ;-------------------------------------------------------------------------------
 +    1692/    F6D1 :                     ;Window definieren
 +    1693/    F6D1 :                     ;-------------------------------------------------------------------------------
 +    1694/    F6D1 :                     ;
 +    1695/    F6D1 : CD ED F6            W_KDO: CALL WKO1 ;Kontrolle Parameter
 +    1696/    F6D4 : 38 4C                JR C, WKO3 ;wenn Fehleingabe
 +    1697/    F6D6 : 22 47 00            LD (WINDL),HL ;neue Werte eintragen
 +    1698/    F6D9 : ED 43 49 00          LD (WINDA),BC
 +    1699/    F6DD : 2A 1D 00            LD HL,(ARG2)
 +    1700/    F6E0 : 22 4B 00            LD (WINDE),HL
 +    1701/    F6E3 : 2A 2B 00            LD HL,(CUPOS) ;Cursor loeschen
 +    1702/    F6E6 : 36 20                LD (HL),' '
 +    1703/    F6E8 : ED 43 2B 00          LD (CUPOS),BC ;Cursor home
 +    1704/    F6EC : C9                  RET
 +    1705/    F6ED :                     ;
 +    1706/    F6ED : 3A 1C 00            WKO1: LD A,(ARG1+1)
 +    1707/    F6F0 : FE EC                CP A, hi(BWS) ;innerhalb BWS ?
 +    1708/    F6F2 : D8                  RET C ;nein
 +    1709/    F6F3 : 3A 1B 00            LD A,(ARG1) ;WINDOW-Anfang
 +    1710/    F6F6 : E6 E0                AND A, 0E0H ;auf Zeilenanfang stellen
 +    1711/    F6F8 : 32 1B 00            LD (ARG1),A
 +    1712/    F6FB : 3A 1D 00            LD A,(ARG2) ;ebenso WINDOW-Ende
 +    1713/    F6FE : E6 E0                AND A, 0E0H ;auf Zeilenanfang stellen
 +    1714/    F700 : 32 1D 00            LD (ARG2),A
 +    1715/    F703 : 2A 1D 00            LD HL,(ARG2)
 +    1716/    F706 : ED 4B 1B 00          LD BC,(ARG1)
 +    1717/    F70A : ED 42                SBC HL,BC
 +    1718/    F70C : D8                  RET C ;Endadresse zu klein
 +    1719/    F70D : 28 11                JR Z, WKO2 ;kein Window --> Fehler
 +    1720/    F70F : 2B                  DEC HL
 +    1721/    F710 : 3E 03                LD A,3 ;WINDOW zu gross ?
 +    1722/    F712 : BC                  CP A, H
 +    1723/    F713 : D8                  RET C ;ja
 +    1724/    F714 : 23                  INC HL
 +    1725/    F715 : 11 40 00            LD DE,2*BWSCOL
 +    1726/    F718 : ED 52                SBC HL,DE
 +    1727/    F71A : D8                  RET C ;wenn WINDOW zu klein
 +    1728/    F71B : 11 20 00            LD DE,BWSCOL
 +    1729/    F71E : 19                  ADD HL,DE
 +    1730/    F71F : C9                  RET
 +    1731/    F720 :                     ;
 +    1732/    F720 : 37                  WKO2: SCF
 +    1733/    F721 : C9                  RET
 +    1734/    F722 :                     ;
 +    1735/    F722 : F1                  WKO3: POP AF
 +    1736/    F723 : FF                  RST 38H
 +    1737/    F724 :                     ;
 +    1738/    F724 :                     ;-------------------------------------------------------------------------------
 +    1739/    F724 :                     ;NEXT-Kommando, Step-Betrieb
 +    1740/    F724 :                     ;-------------------------------------------------------------------------------
 +    1741/    F724 :                     ;
 +    1742/    F724 :                     ;Initialisierungstabelle fuer PIO bei NEXT
 +    1743/    F724 :                     ;PIO B5 => AB0 in
 +    1744/    F724 :                     ;
 +    1745/    F724 : FE                  NKTA: DB Lo(NINTA) ;Interruptvektor Low Byte
 +    1746/    F725 : 97                  DB 10010111b ;Interruptsteuerwort, EI, Low-aktiv, Mask folgt
 +    1747/    F726 : DF                  DB 11011111b ;Interruptmaske Bit5 aktiv
 +    1748/    F727 :                     ;
 +    1749/    F727 :                     ;NEXT-Kommando
 +    1750/    F727 :                     ;
 +    1751/    F727 : 3E F7               N_KDO: LD A,Hi(NINTA)
 +    1752/    F729 : ED 47                LD I,A ;Interruptvektor
 +    1753/    F72B : F3                  DI
 +    1754/    F72C : 21 24 F7            LD HL,NKTA ;Initialisieren PIO Port B
 +    1755/    F72F : 01 03 03            LD BC,0303H ;3 Bytes, Port PIOBC
 +    1756/    F732 : ED B3                OTIR ;loest selbstaendig INT aus
 +    1757/    F734 : 2A 0B 00            LD HL,(BPADR) ;Byte vor Breakadr.(!)
 +    1758/    F737 : 2B                  DEC HL ;wird EI
 +    1759/    F738 : 7E                  LD A,(HL)
 +    1760/    F739 : 32 69 00            LD (NBYTE),A ;Byte retten
 +    1761/    F73C : 36 FB                LD (HL),0FBH ;Code EI einschreiben
 +    1762/    F73E : ED 73 6A 00          LD (SPADR),SP
 +    1763/    F742 : ED 7B 63 00          LD SP,(REGSP)
 +    1764/    F746 : E5                  PUSH HL ;Adr. mit EI-Befehl
 +    1765/    F747 : C3 4A F5            JP REGH ;Register holen und Start
 +    1766/    F74A :                     ;Die PIO generiert bereits beim OTIR eine Interruptanforderung, da dabei AB0 => 0.
 +    1767/    F74A :                     ;Sobald EI und nachfolgender Befehl ausgeführt wird, wird der Interrupt angenommen
 +    1768/    F74A :                     ;und nachfolgende Routine über Inhalt der Adr. NINTA angesprungen (da IM 2)
 +    1769/    F74A :                     ;
 +    1770/    F74A :                     ;Eingang bei Interrupt
 +    1771/    F74A : F3                  NINTR: DI
 +    1772/    F74B : CD 33 F5            CALL REGA ;Register retten
 +    1773/    F74E : 3E 07                LD A,00000111b ;Interrupt von PIO
 +    1774/    F750 : D3 03                OUT PIOBC, A ;verbieten
 +    1775/    F752 : 2A 0B 00            LD HL,(BPADR) ;EI-Befehl durch Original-
 +    1776/    F755 : 2B                  DEC HL ;Byte ersetzen
 +    1777/    F756 : 3A 69 00            LD A,(NBYTE)
 +    1778/    F759 : 77                  LD (HL),A
 +    1779/    F75A : E1                  POP HL
 +    1780/    F75B : 22 0B 00            LD (BPADR),HL ;neue Breakadresse
 +    1781/    F75E : 22 61 00            LD (REGPC),HL
 +    1782/    F761 : ED 73 63 00          LD (REGSP),SP
 +    1783/    F765 : ED 7B 6A 00          LD SP,(SPADR) ;neue Operandenfolge
 +    1784/    F769 : 11 0D 00            LD DE,BPOPC ;umladen
 +    1785/    F76C : 01 03 00            LD BC,3
 +    1786/    F76F : ED B0                LDIR
 +    1787/    F771 : 21 E4 F5            LD HL,REGDA
 +    1788/    F774 : E5                  PUSH HL
 +    1789/    F775 : ED 4D                RETI ;Sprung zur Registeranzeige
 +    1790/    F777 :                     ;
 +    1791/    F777 :                     ;-------------------------------------------------------------------------------
 +    1792/    F777 :                     ;Speicherbereiche vergleichen
 +    1793/    F777 :                     ;-------------------------------------------------------------------------------
 +    1794/    F777 :                     ;
 +    1795/    F777 : CD FF F4            C_KDO: CALL PARA ;Parameter holen
 +    1796/    F77A : 1A                  CKO1: LD A,(DE)
 +    1797/    F77B : BE                  CP A, (HL) ;Vergleich
 +    1798/    F77C : 20 08                JR NZ, CKO3 ;wenn ungleich
 +    1799/    F77E : 0B                  CKO2: DEC BC
 +    1800/    F77F : 23                  INC HL
 +    1801/    F780 : 13                  INC DE
 +    1802/    F781 : 78                  LD A,B
 +    1803/    F782 : B1                  OR C
 +    1804/    F783 : C8                  RET Z ;wenn alles geprueft
 +    1805/    F784 : 18 F4                JR CKO1 ;sonst weitertesten
 +    1806/    F786 :                     ;
 +    1807/    F786 : (MACRO)             CKO3: ROTHL ;1. Adresse
 +    1807/    F786 : E7                          RST     20H
 +    1807/    F787 : 07                          DB      07h                     ; OUTHL
 +    1808/    F788 : (MACRO)              ROTSP
 +    1808/    F788 : E7                          RST     20H
 +    1808/    F789 : 0E                          DB      0Eh                     ; OUTSP
 +    1809/    F78A : 7E                  LD A,(HL)
 +    1810/    F78B : (MACRO)              ROTHX ;1. Byte
 +    1810/    F78B : E7                          RST     20H
 +    1810/    F78C : 06                          DB      06h                     ; OUTHX
 +    1811/    F78D : (MACRO)              ROTSP
 +    1811/    F78D : E7                          RST     20H
 +    1811/    F78E : 0E                          DB      0Eh                     ; OUTSP
 +    1812/    F78F : EB                  EX DE,HL
 +    1813/    F790 : (MACRO)              ROTHL ;2. Adresse
 +    1813/    F790 : E7                          RST     20H
 +    1813/    F791 : 07                          DB      07h                     ; OUTHL
 +    1814/    F792 : (MACRO)              ROTSP
 +    1814/    F792 : E7                          RST     20H
 +    1814/    F793 : 0E                          DB      0Eh                     ; OUTSP
 +    1815/    F794 : EB                  EX DE,HL
 +    1816/    F795 : 1A                  LD A,(DE)
 +    1817/    F796 : (MACRO)              ROTHX ;2. Byte
 +    1817/    F796 : E7                          RST     20H
 +    1817/    F797 : 06                          DB      06h                     ; OUTHX
 +    1818/    F798 : (MACRO)              RPRST
 +    1818/    F798 : E7                          RST     20H
 +    1818/    F799 : 02                          DB      02h                     ; PRST
 +    1819/    F79A : 8D                  DB CR+80H
 +    1820/    F79B : (MACRO)              RINCH ;warten auf Tastendruck
 +    1820/    F79B : E7                          RST     20H
 +    1820/    F79C : 01                          DB      01h                     ; INCH
 +    1821/    F79D : FE 0D                CP A, CR
 +    1822/    F79F : C0                  RET NZ ;Abbruch wenn <> >ENTER<
 +    1823/    F7A0 : 18 DC                JR CKO2 ;sonst weitertesten
 +    1824/    F7A2 :                     
 +    1825/    F7A2 : =>TRUE              IF MONTYP <> "Z1013_A2"
 +    1826/    F7A2 :                     ;
 +    1827/    F7A2 :                     ;-------------------------------------------------------------------------------
 +    1828/    F7A2 :                     ;Bytefolge suchen
 +    1829/    F7A2 :                     ;-------------------------------------------------------------------------------
 +    1830/    F7A2 :                     ;
 +    1831/    F7A2 : ED 5B 25 00         F_KDO: LD DE,(SOIL2)
 +    1832/    F7A6 : 1B                  DEC DE
 +    1833/    F7A7 : 1B                  DEC DE
 +    1834/    F7A8 : ED 53 23 00          LD (ARG3),DE ;DE = Beginn Bytefolge
 +    1835/    F7AC : ED 4B 1B 00          LD BC,(ARG1) ;Suchadresse
 +    1836/    F7B0 : ED 5B 23 00         FKO1: LD DE,(ARG3)
 +    1837/    F7B4 : (MACRO)              RINHX ;L = 1. Suchbyte
 +    1837/    F7B4 : E7                          RST     20H
 +    1837/    F7B5 : 03                          DB      03h                     ; INHEX
 +    1838/    F7B6 : 0A                  FKO2: LD A,(BC)
 +    1839/    F7B7 : BD                  CP A, L ;L = Suchbyte
 +    1840/    F7B8 : 28 07                JR Z, FKO3 ;wenn Bytes gleich
 +    1841/    F7BA : 03                  INC BC ;sonst naechste Suchadresse
 +    1842/    F7BB : 78                  LD A,B
 +    1843/    F7BC : B1                  OR C
 +    1844/    F7BD : 28 32                JR Z, FKO7 ;wenn Speicherende erreicht
 +    1845/    F7BF : 18 F5                JR FKO2 ;weitersuchen
 +    1846/    F7C1 :                     ;
 +    1847/    F7C1 : C5                  FKO3: PUSH BC
 +    1848/    F7C2 : D5                  PUSH DE
 +    1849/    F7C3 : ED 5B 1D 00          LD DE,(ARG2) ;Suchbyteanzahl
 +    1850/    F7C7 : 1B                  DEC DE
 +    1851/    F7C8 : ED 53 6C 00          LD (FBANZ),DE ;Zwischenspeicher fuer Anzahl
 +    1852/    F7CC : 03                  INC BC
 +    1853/    F7CD : 7A                  FKO4: LD A,D
 +    1854/    F7CE : B3                  OR E ;alle Suchbytes verglichen?
 +    1855/    F7CF : D1                  POP DE
 +    1856/    F7D0 : 28 13                JR Z, FKO5 ;wenn Bytefolge gefunden
 +    1857/    F7D2 : (MACRO)              RINHX ;naechstes Suchbyte holen
 +    1857/    F7D2 : E7                          RST     20H
 +    1857/    F7D3 : 03                          DB      03h                     ; INHEX
 +    1858/    F7D4 : 0A                  LD A,(BC)
 +    1859/    F7D5 : BD                  CP A, L
 +    1860/    F7D6 : 20 15                JR NZ, FKO6 ;wenn Folge nicht gefunden
 +    1861/    F7D8 : D5                  PUSH DE
 +    1862/    F7D9 : ED 5B 6C 00          LD DE,(FBANZ) ;1 Byte weniger zu vergleichen
 +    1863/    F7DD : 1B                  DEC DE
 +    1864/    F7DE : ED 53 6C 00          LD (FBANZ),DE
 +    1865/    F7E2 : 03                  INC BC
 +    1866/    F7E3 : 18 E8                JR FKO4 ;weitervergleichen
 +    1867/    F7E5 :                     ;Bytefolge gefunden
 +    1868/    F7E5 : C1                  FKO5: POP BC
 +    1869/    F7E6 : ED 43 1B 00          LD (ARG1),BC
 +    1870/    F7EA : C3 25 F3            JP MEM ;Speicher modifizieren
 +    1871/    F7ED :                     ;
 +    1872/    F7ED : C1                  FKO6: POP BC
 +    1873/    F7EE : 03                  INC BC
 +    1874/    F7EF : 18 BF                JR FKO1
 +    1875/    F7F1 :                     ;Bytefolge nirgends gefunden
 +    1876/    F7F1 : (MACRO)             FKO7: RPRST
 +    1876/    F7F1 : E7                          RST     20H
 +    1876/    F7F2 : 02                          DB      02h                     ; PRST
 +    1877/    F7F3 : 4E 4F 54 20 46 4F    DB "NOT FOUND"
 +                    55 4E 44 
 +    1878/    F7FC : 8D                  DB CR+80H
 +    1879/    F7FD : C9                  RET
 +    1880/    F7FE :                     
 +    1881/    F7FE : [1825]              ENDIF
 +    1882/    F7FE :                     
 +    1883/    F7FE : =>FALSE              IF MONTYP == "Z1013_A2"
 +    1884/    F7FE :                     ;
 +    1885/    F7FE :                     ;-------------------------------------------------------------------------------
 +    1886/    F7FE :                     ; Tastaturcodetabelle
 +    1887/    F7FE :                     ;-------------------------------------------------------------------------------
 +    1888/    F7FE :                     ;
 +    1889/    F7FE :                     keytab:
 +    1890/    F7FE :                     ; spalte 0
 +    1891/    F7FE :                      db  31h ; 1
 +    1892/    F7FE :                      db  51h ; Q
 +    1893/    F7FE :                      db  41h ; A
 +    1894/    F7FE :                      db  59h ; Y
 +    1895/    F7FE :                      db  32h ; 2
 +    1896/    F7FE :                      db  57h ; W
 +    1897/    F7FE :                      db  53h ; S
 +    1898/    F7FE :                      db  58h ; X
 +    1899/    F7FE :                     ; Spalte 1
 +    1900/    F7FE :                      db  33h ; 3
 +    1901/    F7FE :                      db  45h ; E
 +    1902/    F7FE :                      db  44h ; D
 +    1903/    F7FE :                      db  43h ; C
 +    1904/    F7FE :                      db  34h ; 4
 +    1905/    F7FE :                      db  52h ; R
 +    1906/    F7FE :                      db  46h ; F
 +    1907/    F7FE :                      db  56h ; V
 +    1908/    F7FE :                     ; Spalte 2
 +    1909/    F7FE :                      db  35h ; 5
 +    1910/    F7FE :                      db  54h ; T
 +    1911/    F7FE :                      db  47h ; G
 +    1912/    F7FE :                      db  42h ; B
 +    1913/    F7FE :                      db  36h ; 6
 +    1914/    F7FE :                      db  5Ah ; Z
 +    1915/    F7FE :                      db  48h ; H
 +    1916/    F7FE :                      db  4Eh ; N
 +    1917/    F7FE :                     ; Spalte 3
 +    1918/    F7FE :                      db  37h ; 7
 +    1919/    F7FE :                      db  55h ; U
 +    1920/    F7FE :                      db  4Ah ; J
 +    1921/    F7FE :                      db  4Dh ; M
 +    1922/    F7FE :                      db  38h ; 8
 +    1923/    F7FE :                      db  49h ; I
 +    1924/    F7FE :                      db  4Bh ; K
 +    1925/    F7FE :                      db  2Ch ; ,
 +    1926/    F7FE :                     ; Spalte 4
 +    1927/    F7FE :                      db  39h ; 9
 +    1928/    F7FE :                      db  4Fh ; O
 +    1929/    F7FE :                      db  4Ch ; L
 +    1930/    F7FE :                      db  2Eh ; .
 +    1931/    F7FE :                      db  30h ; 0
 +    1932/    F7FE :                      db  50h ; P
 +    1933/    F7FE :                      db  2Bh ; +
 +    1934/    F7FE :                      db  2Fh ; /
 +    1935/    F7FE :                     ; Spalte 5
 +    1936/    F7FE :                      db  2Dh ; -
 +    1937/    F7FE :                      db  40h ; @
 +    1938/    F7FE :                      db  2Ah ; *
 +    1939/    F7FE :                      db  5Eh ; ^
 +    1940/    F7FE :                      db  5Bh ; [
 +    1941/    F7FE :                      db  5Dh ; ]
 +    1942/    F7FE :                      db  5Ch ;
 +    1943/    F7FE :                      db  5Fh ; _
 +    1944/    F7FE :                     ; Spalte 6
 +    1945/    F7FE :                     tab2: db    0 ; Graph E/A
 +    1946/    F7FE :                      db  0Dh ; ENT
 +    1947/    F7FE :                      db    8 ; Cu. links
 +    1948/    F7FE :                      db    9 ; Cu. rechts
 +    1949/    F7FE :                      db  20h ; Leerz.
 +    1950/    F7FE :                      db    0 ; CTRL
 +    1951/    F7FE :                      db  0Bh ; Cu. hoch
 +    1952/    F7FE :                      db  0Ah ; Cu. runter
 +    1953/    F7FE :                     
 +    1954/    F7FE : [1883]              ENDIF
 +    1955/    F7FE :                     
 +    1956/    F7FE :                     ;
 +    1957/    F7FE :                     ;-------------------------------------------------------------------------------
 +    1958/    F7FE :                     ;Interrupttabelle fuer Break
 +    1959/    F7FE :                     ;-------------------------------------------------------------------------------
 +    1960/    F7FE :                     ;
 +    1961/    F7FE :                     
 +    1962/    F7FE :                      align 2
 +    1963/    F7FE : 4A F7               NINTA: DW NINTR
 +    1964/    F800 :                     
 +    1965/    F800 :                      END
 +</code>
 +</WRAP>
  
  • z1013/software/monitor/riesa202.1322492469.txt.gz
  • Zuletzt geändert: 2011/11/28 15:01
  • von volkerp