>LIST
 1000 REM "RSutils"
 1010osascii = &FFE3
 1011OSWRCH = &FFEE
 1020GOTO 1040
 1030DEFFNosbyte7(A,X,Y):[OPT Pass:Lda #A:Ldx #X:Ldy #Y:Jsr &FFF4:]:=Pass
 1040[OPT Pass
 1050.SendCom
 1060   Tax:Tya:Pha:Txa
 1070   Pha
 1071   OPT FNosbyte7(2,2,0)      \****** APPALLing frig for BCPL
 1072                             \ which turns off RS423 EVERY COMMAND!!!
 1073                             \ in its CLI.   Curse you Richards.!
 1080   OPT FNosbyte7(3,16+3,0)
 1090   Pla
 1100   Jsr OSWRCH
 1110   OPT FNosbyte7(3,0,0)
 1120   Pla:tay
 1130   Rts
 1140 
 1150 
 1160.CopyAll
 1180   OPT FNosbyte7(&91,1,0)
 1190   Bcs CopyAll
 1200   Cpy #27
 1210   Beq CopyDone
 1220   Tya
 1221   Cmp #10: Bne asc1
 1222   Lda #13
 1223.asc1
 1230   Jsr osascii
 1240   Jmp CopyAll
 1250.CopyDone
 1251   Sec  \ *********** COMMANDS RETURN VIA HERE...
 1270   Rts
 1280 
 1290.verify
 1300  OPT FNosbyte7(&91,1,0)
 1310   bcs verify
 1320   Cpy #27:Beq ver_ok
 1321   CPY #ASC("*"): Bne ver_err
 1324   Jmp ver_err
 1331.ver_ok
 1340   rts
 1350.ver_err
 1360   Jsr CopyAll
 1370   Jsr dobrk
 1380   EQUB 1: EQUS "General error trap": EQUB 0
 1390 
 1400.GetHex
 1410   OPT FNosbyte7(&91,1,0)
 1420   Bcs GetHex
 1421   Cpy #27: Beq get_err
 1422   CPY #ASC("*"): BEQ ver_err
 1430   Tya
 1440   Sec: Sbc #ASC("0")
 1450   Asl A:Asl A:Asl A: Asl A
 1460   Pha
 1470.NextHex
 1480   OPT FNosbyte7(&91,1,0)
 1490   Bcs NextHex
 1500   Tya
 1510   Sec: Sbc #ASC("0"): Sta work2
 1520   pla: Ora work2
 1530   Clc
 1540   Rts
 1550.get_err
 1560   Lda #&FE
 1570   Sec
 1580   Rts
 1590]
 1600RETURN
>*spool