* Compare files
 XEQ START
 COPY NPTDEFS
START EQU $
 LXI SP,0CBFFH
 CALL CONIN
 MVI B,0BH  ;CLEAR
 CALL SOUT
 LXI D,FN0
 MVI A,PSOPT
 CALL PSCAN  ;OPEN FIRST FILE
 JC ERROR
 LXI D,FN1
 MVI A,PSOPT
 CALL PSCAN  ;OPEN SECOND FILE
 JC ERROR
 CALL CRLF
 LXI H,0
 LXI D,FN0
 CALL SYS
 DB OPEOP
 JMP EXIT
 STA FNR0
 LXI H,0
 LXI D,FN1
 CALL SYS
 DB OPEOP
 JMP EXIT
 STA FNR1
 LXI H,-1
LOOP LDA FNR0
 PUSH H
 CALL RB
 JMP DONE0
 MOV B,A
 PUSH B
 LDA FNR1
 CALL RB
 JMP DONE1
 POP B
 POP H
 INX H
 CMP B
 JZ LOOP
 PUSH B
 CALL HBOUT
 POP B
 MOV A,B
 CALL HBOUT
 CALL ADOUT
 CALL CRLF
 JMP LOOP
DONE1 POP B
DONE0 POP H
 CALL ADOUT
 LXI H,DONMSG
MSGLP MOV A,M
 ORA A
 JZ MSGDN
 MOV B,A
 CALL SOUT
 INX H
 JMP MSGLP
MSGDN CALL CRLF
 CALL CONIN
EXIT MVI A,-1  ;CLOSE ALL FILES
 CALL SYS
 DB CAOP
 JMP ABT
ABT CALL SYS
 DB RETOP
ERROR MOV A,E
 STA ERCODE
 LXI H,-1
 CALL UTIL
 DB UXOP
 JMP EXIT
ERCODE DB -1
 DB -1
 JMP EXIT
*   
DONMSG ASC ' Bytes compared.'
 DB 0
 ORG 500H
FN0 DS 31
 DB 0
FN1 DS 31
 DB 0
FNR0 DS 1
FNR1 DS 1
*