*A03999 01 0011U BUHRMAN -- UTILITY SYSTEM * AUTOCODER 01010 JOB UTILITY SYSTEM -- PROGRAM CALLER USYST 01020* USYST 01030* PROGRAM FINDER ROUTINE USYST 01040* USYST 01050 ORG 81 USYST 01060FLAG CS 299 ERASE TITLE USYST 01070 MLC MESSGE,256 MOVE 'NO-PROGRAM' MESSAGE USYST 01080 MLC ARGMNT,226 USYST 01090 B PRINT USYST 01100TOP BSP 1 USYST 01110 H HALT ON TAPE ERROR USYST 01120GET RTW 1,197 LOAD NEXT PROGRAM USYST 01130 MLCWABLANK DELETE GROUP-MARK USYST 01140 BER TOP USYST 01150 BEF FLAG USYST 01160 S ONE,COUNT DROP AND USYST 01170 BWZ GET,COUNT,B TEST LOCATION COUNTER USYST 01180 MLC 199,LINK+3 SET PROGRAM LINK ADDRESS USYST 01190PRINT CC A USYST 01200 W PRINT PROGRAM TITLE OR MESSAGE USYST 01210 RWD 1 USYST 01220 CS 99 USYST 01230 CS 299 USYST 01240 H USYST 01250LINK CS 0,199 BRANCH TO EXECUTE PROGRAM USYST 01260 NOP USYST 02010* USYST 02020* SWITCH TESTING ROUTINE USYST 02030* USYST 02040MESSGE EQU 60 DEFINE USYST 02050BLANK EQU 62 CONSTANT USYST 02060COUNT EQU 64 LOCATIONS USYST 02070ARGMNT EQU 66 USYST 02075ONE EQU 67 USYST 02080* USYST 02085 ORG 333 USYST 02090START BSS *+5,B READ USYST 02100 B *+8 USYST 02110 A '32',TALLY=2 USYST 02120 BSS *+5,C SENSE USYST 02130 B *+8 USYST 02140 A '16',TALLY USYST 02150 BSS *+5,D SWITCHES USYST 02160 B *+8 USYST 02170 A '8',TALLY USYST 02180 BSS *+5,E AS USYST 02190 B *+8 USYST 02200 A '4',TALLY USYST 02210 BSS *+5,F OCTAL USYST 02220 B *+8 USYST 02230 A '2',TALLY USYST 02240 BSS *+5,G NUMBER USYST 02250 B *+8 USYST 03010 A '1',TALLY USYST 03020 BCE NOSLEK,TALLY, IF NO SWITCHES SET USYST 03030 MLCWATALLY,COUNT STORE USYST 03035 MLCWA+1,ONE USYST 03040 S ONE,COUNT COUNT - 1 USYST 03050 ZA TALLY,WORK=4 DEVELOP USYST 03060 D '8',WORK-1 OCTAL USYST 03070 MN WORK-2,ARGMNT-1 PROGRAM USYST 03080 MN WORK,ARGMNT NUMBER USYST 03090 SW ARGMNT-1,BLANK-1 USYST 03100 MLC 'NOT ON TAPE. RELOAD.',MESSGE USYST 03110 MLC 'PROGRAM NUMBER (OCTAL) ' USYST 03115 C ARGMNT,'77' USYST 03116 BE LOAD37 USYST 03120CLEAR CS 7999 USYST 03130 SBR CLEAR+3 CLEAR USYST 03140 C CLEAR+3,+LIMIT STORAGE USYST 03150 BU CLEAR USYST 03160 B GET USYST 03170NOSLEK MLC 'PROGRAM NUMBER NOT SELECTED.',237 USYST 03180 CC A USYST 03190 W USYST 03200 H START USYST 03205 NOP USYST 04010* USYST 04020* LOAD AUTOCODER USYST 04030* USYST 04040 ORG 1000 USYST LOAD37 CS 332 CS MLC 'AUTOCODER BATCH PROCESSOR SELECTED.',244 W CS 244 MLC 'S E T S W I T C H E S O F F .',242 CC S W CS 242 MLC 'PRESS START TO EXECUTE, OR',235 W MLC 'PRESS START-RESET AND START TO CANCEL.',247 CC K W CC K CS 250 MLC 'PUT SENSE SWITCH C UP FOR AUTOTEST',235 W CC 1 H WIPE * RWD 1 H *-3 * WIPE BSS *+5,C B WIPE1 MCW CCPR+6,CCAA+6 WIPE1 CS 999 SBR WIPE1+3 C WIPE1+3,'I9Z' BU WIPE1 SW 1,999 SW RZZP MLC RZZP,999 RT 1,1 BER *+1 READIT RTW 1,1 BER FAULT CCAA C 8,'.005' BU READIT BSS 94,C C 11,'599' BU READIT B 333 * FAULT BSP 1 B READIT CCPR C 4,'B094' RZZP DC '}' 05170 LTORG* USYST 05180 ORG *+X00 USYST 05190LIMIT EQU * USYST 04010 JOB UTILITY SYSTEM -- SYSTEM TAPE GENERATOR USYST 04020* USYST 04030* ROUTINE TO WRITE PROGRAM CALLER USYST 04040* USYST 04050 BER 10 LINK USYST 04060 B START TO USYST 04070 H 10 PROGRAM USYST 04080STRING NOP CALLER USYST 04090* USYST 04100GO CS 80 USYST 04110 MLCWASTRING,14 LOAD USYST 04120 MLCWA LINK USYST 04130 MLCWA INTO USYST 04140 MLCWA READ USYST 04150 MLCWA'}',LIMIT+1 USYST 04160 RWD 1 WRITE USYST 04170 WTW 1,1 PROGRAM USYST 04180 BER 10 CALLER USYST 04190 OVLAY USYST 04200 EX GO USYST 04210* USYST 04220* ROUTINE TO WRITE INDIVIDUAL PROGRAMS USYST 04230* USYST 04240 ORG 210 USYST 04250 DCW 'PROGRAM LOADED. SET SWITCHES AND PRE' USYST 05010 DC 'SS START.' USYST 05020* USYST 05030 ORG 81 USYST 05040PARAM R READ USYST 05050 MLC 12,229 AND USYST 05060 MLCWA49,199 STORE USYST 05070 MLC 56,MARK+6 PROGRAM USYST 05080 R PARAMETERS USYST 05100LOAD BCE MARK,40,/ EXECUTE USYST 05110 SBR 71,LOAD LOAD USYST 05120 B 40 ROUTINE USYST 05130MARK MLCWA'}',0 WRITE USYST 05140 WTW 1,197 PROGRAM USYST 05145 MLCWA2 USYST 05150 BER STOP SEGMENT USYST 05160 R USYST 05170 BLC *+5 IF HOPPER EMPTY USYST 05180 B PARAM USYST 05190 WTM 1 MARK AND USYST 05200 BER STOP REWIND USYST 05220 CS 299 USYST 05230 MLC 'SWING.',215 USYST 05240CLOSE CC A USYST 05250 W USYST 06010STOP H USYST 06015 RWD 1 SYSTEM TAPE USYST 06016 H USYST 06017 H USYST 06020 EX PARAM USYST 06030 END PARAM USYST