; CONFIG - sets slots for self-patching drivers
; 1/30/08 - default int vectors now set to 0 (NOP)
; 12/5/07 - renamed USER to LPT
; Expanded for HP-IPL/OS 0.57 1/4/04
; Commented out unimplemented patches 8/1/04
; Added HPIB support 6/13/05
; 6/18/05 if any slots changed all IRQ vect locs
; are reset to 114320 and interrupts turned off.
; added !SDC to set default console
;-------------------------------------------------------
"Loading CONFIG" $PRINT CRLF
OCTAL DEFINE CONFIG
DEC END ;dummy call replained by MAIN
DEFINE CHANGESLOT
$PRINT DUP GET PNUM $IN $LEN
IFNZ -IRQ $VAL PUT DROP #1  ;if anything changed, disables IRQ
ELSE $DROP DROP ENDIF
END
DEFINE MAIN
OCTAL "Enter slots to change..." $PRINT CRLF
#0 ;changed flag
"TTY  " 355 CHANGESLOT
"PTP  " 356 CHANGESLOT
"PTR  " 357 CHANGESLOT
"TBG  " 270 CHANGESLOT
"BACI " 271 CHANGESLOT
"LPT  " 272 CHANGESLOT
"790x " 273 CHANGESLOT
"IDE  " 274 CHANGESLOT
;not imp but reserved "CS80 " 275 CHANGESLOT
"HPIB " 276 CHANGESLOT
; location 277 available for user-written patch code
IFNZ ;if anything changed
 6 47 +DO INDEX 0 PUT +LOOP ;reset slot vectors to 47 to dummies
 "IRQ off, 6-47 set to dummies, 2 RUN to enable" $PRINT CRLF
ENDIF
"Select console A)TTY  B)BACI :" $PRINT
DO
 CHRIN
 CASE
 = 15 #1 ;do nothing if return
 = 101   ;A.. set to TTY console next reboot
   266 471 GET PUT  ;copy chrin address to default in
   267 472 GET PUT  ;copy chrot address to default out
   CRLF "Changing to TTY next reset" $PRINT
   #1  ;exit
 = 102   ;B.. set to BACI console next reboot
   MS_SAVE ;save old MS values
   MSBACI  ;put baci addresses in MS in/out
   266 350 GET PUT ;copy to default in
   267 351 GET PUT ;copy to default out
   MS_RESTORE ;restore original MS values
   CRLF "Changing to BACI next reset" $PRINT
   #1  ;exit
 DEFAULT 10 PCHR #0 ;backspace and get more chars
 ENDCASE
UNTIL
END
;wrap CONFIG around MAIN and link...
"MAIN" $DEFADR DUP DEC GET
"CONFIG" $DUP $DEFADR DEC SWAP PUT
$DEFADR INC SWAP PUT
;-------------------------------------------------------
"Loading !SDC" $PRINT CRLF
OCTAL DEFINE !SDC
72 GET IFNZ               ;if location 72 is not zero
 72 GET 010000 AND IFZ    ;if bit 12 is zero for TTY
  266 471 GET PUT         ;copy chrin to default in
  267 472 GET PUT         ;copy chrot to default out
 ELSE                     ;if bit 12 is set for BACI
  MS_SAVE MSBACI          ;set MS to baci subs
  266 350 GET PUT         ;copy baci in to def. in
  267 351 GET PUT         ;copy baci out to def.out
  MS_RESTORE              ;restore prev. MS
 ENDIF
 72 #0 PUT                ;zero 72 to prevent retrigger!
 2 RUN                    ;run all over again
ENDIF
END
;-------------------------------------------------------
CONSOLE