90 OPEN1,8,1,"S-RWABS 7F/A"
100 SYS7*4096:.OPT O1:*=$7F00
110 PRG =1
120 BDOS =$A000
125 .IF #:.GOTO 210
130 .ICL 8,"BDS*
140 .ICL 8,"BDK*
150 .ICL 8,"BDJ*
160 .ICL 8,"BDE*
170 CURSOR =$FFF0
210 ;********
220 RDINIT JSR VERSION:STX RWBZEI:STY RWBZEI+1
230 LDY #VEJMPADR+1:LDA (RWBZEI),Y:TAX:DEY:LDA (RWBZEI),Y
240 STA RWBZEI:STX RWBZEI+1
250 LDX #0
260 L1 LDY JMPADR,X
270 LDA (RWBZEI),Y:STA JMPOLD,X
280 LDA JMPNEW,X:STA (RWBZEI),Y
290 INX:INY
300 LDA (RWBZEI),Y:STA JMPOLD,X
310 LDA JMPNEW,X:STA (RWBZEI),Y
320 INX:INY
330 CPX #ANZNEW*2; ANZAHL NEUER ROUTINEN
340 BCC L1
345 TEND LDA #0:RTS
999 ;*********
1000 TRWABS  STA ZEI:STY ZEI+1:PHA:TYA:PHA:TXA:PHA
1005 SEC:JSR CURSOR:STX ZEILE:STY SPALTE
1010 LDX #0:LDY #15:CLC:JSR CURSOR
1020 LDY #APRWFLAG:LDA (ZEI),Y:BEQ L1A:LDA #"W":.BYT $2C
1030 L1A LDA #"R":JSR BSOUT:JSR SPOUT
1040 LDY #APDRIVE:LDA (ZEI),Y:JSR HEXSOUT
1050 LDY #APRECORD+1:LDA (ZEI),Y:JSR HEXOUT
1051 DEY:LDA (ZEI),Y:JSR HEXSOUT
1060 LDY #APANZ+1:LDA (ZEI),Y:JSR HEXOUT
1061 DEY:LDA (ZEI),Y:JSR HEXSOUT
1070 LDY #APBUFFER+1:LDA (ZEI),Y:JSR HEXOUT
1071 DEY:LDA (ZEI),Y:JSR HEXSOUT
1100 LDY #APBANK:LDA (ZEI),Y:JSR HEXOUT
1110 L1B JSR $FFE4:BEQ L1B
1200 LDX ZEILE:LDY SPALTE:CLC:JSR CURSOR
1900 PLA:TAX:PLA:TAY:PLA:JMP (VRWABS)
1990 ZEILE .BYT 0
1991 SPALTE .BYT 0
1999 ;*****
2000 HEXOUT PHA:LSR:LSR:LSR:LSR:JSR NIBOUT
2010 PLA:AND #$0F
2020 NIBOUT CLC:ADC #"0":CMP #"9"+1:BCC NIB1
2030 ADC #6:NIB1 JMP BSOUT
2040 HEXSOUT JSR HEXOUT:SPOUT LDA #" ":JMP BSOUT
19999 ;**********
20010 ANZNEW =1
20020 JMPADR
20030 .WORD  RWABS   -BDOS*2/3
20070 JMPNEW
20080 .WORD  TRWABS
20120 JMPOLD
20130 VRWABS   .WORD 0