10000 REM******************************
10010 REM***   VERIFY-MASTER V1.0   ***
10020 REM***       (C) 1989 BY      ***
10030 REM***    MATTHIAS STRECKER   ***
10040 REM***       ZUM ANGER 8      ***
10050 REM***    3430 WITZENHAUSEN   ***
10060 REM***    TEL.: 05542/1632    ***
10070 REM******************************
10080 SYS9*4096
10090 .OPT OO
10100 *= 49152
10110 HIL1   = $008B
10120 HIL2   = $0002
10130 HIL3   = $008D
10140 STATUS = $0090
10150 SPALTE = $00D3
10160 ZEILE  = $00D6
10170 STROUT = $AB1E
10180 CHKCOM = $AEFD
10190 ZALOUT = $BDCD
10200 SETNAM = $E257
10210 SETCUR = $E510
10220 CLRSCR = $E544
10230 FILPAR = $FFBA
10240 FILNAM = $FFBD
10250 OPEN   = $FFC0
10260 CLOSE  = $FFC3
10270 IECIN  = $FFA5
10280 TALK   = $FFB4
10290 UNTALK = $FFAB
10300 SECTLK = $FF96
10310 BASOUT = $FFD2
10320 ;--------------------------------
10330 EINSPR  JSR CHKCOM
10340 :       LDA #0:STA STATUS
10350 :       LDA #1:LDX #8:LDY #$62
10360 :       JSR FILPAR
10370 :       JSR SETNAM
10380 :       LDA #<TEXT1:LDY #>TEXT1
10390 :       JSR STROUT
10400 :       JSR OPEN
10410 :       LDA #8:JSR TALK
10420 :       LDA #$62:JSR SECTLK
10430 :       JSR IECIN:BIT STATUS
10440 :       BVC CONT
10450 :       JMP ERROR
10460 ;--------------------------------
10470 CONT    STA HIL1:STA MERK1
10480 :       JSR IECIN:STA HIL1+1
10490 :       STA MERK1+1
10500 ;--------------------------------
10510 VERSCH1 SEI
10520 :       LDX #53:STX 1:LDY #0
10530 :       LDA (HIL1),Y:STA HIL2
10540 :       LDX #55:STX 1
10550 :       CLI
10560 :       JSR IECIN:STA HIL3
10570 :       BIT STATUS:BVS EOD
10580 :       CMP HIL2:BEQ OK
10590 ;--------------------------------
10600 :       LDA #13:JSR BASOUT
10610 :       LDA #5:STA SPALTE
10620 :       JSR SETCUR
10630 :       LDX HIL1:LDA HIL1+1
10640 :       JSR ZALOUT
10650 :       LDA #21:STA SPALTE
10660 :       JSR SETCUR
10670 :       LDX HIL2:LDA #0
10680 :       JSR ZALOUT
10690 :       LDA #33:STA SPALTE
10700 :       JSR SETCUR
10710 :       LDX HIL3:LDA #0
10720 :       JSR ZALOUT
10730 OK      INC HIL1:BNE VERSCH1
10740 :       INC HIL1+1
10750 :       JMP VERSCH1
10760 ;--------------------------------
10770 EOD     LDA ZEILE:CMP #6
10780 :       BNE EOD2:LDA #<TEXT4
10790 :       LDY #>TEXT4:JSR STROUT
10800 EOD2    LDA #<TEXT2:LDY #>TEXT2
10810 :       JSR STROUT
10820 :       LDA #8:STA SPALTE
10830 :       JSR SETCUR
10840 :       LDX MERK1:LDA MERK1+1
10850 :       JSR ZALOUT
10860 :       LDA #27:STA SPALTE
10870 :       JSR SETCUR
10880 :       LDX HIL1:LDA HIL1+1
10890 :       JSR ZALOUT
10900 EOD3    LDA #8:JSR UNTALK
10910 :       LDA #1
10920 :       JMP CLOSE
10930 ;--------------------------------
10940 ERROR   LDA #<TEXT3:LDY #>TEXT3
10950 :       JSR STROUT
10960 :       JMP EOD3
10970 ;--------------------------------
10980 TEXT1 .BYT 147,013,013
10990 .ASC "           VERIFY-MASTER V"
11000 .ASC "1.0"
11010 .BYT 013
11020 .ASC "           ---------------"
11030 .ASC "---"
11040 .BYT 013,013
11050 .ASC " FEHLERADRESSE: "
11060 .ASC "SPEICHERWERT: FILEWERT:"
11070 .BYT 013
11080 .ASC " -------------------------"
11090 .ASC "-------------"
11100 .BYT 000
11110 ;--------------------------------
11120 TEXT2 .BYT 013,013,013
11130 .ASC "     STARTADRESSE: "
11140 .ASC "     ENDADRESSE:"
11150 .BYT 013,013,000
11160 ;--------------------------------
11170 TEXT3 .BYT 013,013,013
11180 .ASC "     ERROR - PLEASE CHECK "
11190 .ASC "YOUR DISK"
11200 .BYT 013,000
11210 ;--------------------------------
11220 TEXT4 .BYT 013,013
11230 .ASC "          KEIN VERIFY"
11240 .ASC " ERROR !!!"
11250 .BYT 013,000
11260 ;--------------------------------
11270 MERK1 .BYT 000,000
11280 ;--------------------------------
11290 .END