; This utility patches the prepared 16K SIO driver
; to use other slots. 7/10/07
OCTAL DEFINE SIOPATCH
"Attach sio to PTR, new sio to PTP" $PRINT CRLF
"Press enter when ready..." $PRINT $IN $DROP
ZAM ABSLOAD CRLF
37135 150 #1 A>CCOPY 150 GET 35104 SUB IFNZ
 "Not an sio binary" $PRINT
ELSE
 "TTY? " $PRINT $IN $VAL 151 SWAP PUT
 "PTR? " $PRINT $IN $VAL 152 SWAP PUT
 "PTP? " $PRINT $IN $VAL 153 SWAP PUT
 "Patching..." $PRINT
 37440 37441 37442 37444 37553
 37626 37633 37637 37640 37641
 #1 12 +DO
  DUP 150 #1 A>CCOPY 150 GET 177700 AND 151 GET OR
  150 SWAP PUT 150 SWAP #1 C>ACOPY
 +LOOP
 37255 37256 37260 37365
 #1 4 +DO
  DUP 150 #1 A>CCOPY 150 GET 177700 AND 152 GET OR
  150 SWAP PUT 150 SWAP #1 C>ACOPY
 +LOOP
 37177 37215 37220 37221 37222
 #1 5 +DO
  DUP 150 #1 A>CCOPY 150 GET 177700 AND 153 GET OR
  150 SWAP PUT 150 SWAP #1 C>ACOPY
 +LOOP
 CRLF "Writing new sio binary..." $PRINT
 PTZERO
 4 5 AAOUT
 101 106 AAOUT
 37134 37677 AAOUT
 PTZERO
 CRLF "Done" $PRINT
ENDIF
END

CONSOLE