/EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 1 1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB 2 /COPYRIGHT 1975 3 /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 4 / 5 /THIS SECTION DEFINES THE HARDWARE CONFIGURATION ON WHICH INDIVIDUAL 6 /EDUSYSTEM 50 MONITORS ARE TO RUN. 7 /FOR EACH STATEMENT, THE COMMENT INDICATES THE POSSIBLE RESPONSES. 8 9 0000 CPU= 0 /1 IF CPU IS PDP-8; 0 IF CPU IS PDP-8/I; 10 /2 IF CPU IS PDP-8/E 11 12 0070 CORMEM= 70 /HIGHEST DATA FIELD SELECT. FOR 12K SYSTEM, 13 /RESPOND 20, FOR 16K SYSTEM, RESPOND 30, ETC. (70 MAX) 14 15 0000 PHONES= 0 /1 IF DC08 INCLUDES 689AG; 16 /0 IF IT DOES NOT OR IF TTY INTERFACING IS OTHER THAN DC08 17 18 0000 EAE= 0 /20 IF PROCESSOR INCLUDES EAE; 0 IF IT DOES NOT 19 20 0000 RF08= 0 /40 IF SYSTEM DISC IS DF32; 0 IF SYSTEM DISK IS RF08 21 22 0001 RS08= 1 /NUMBER OF DISCS ON THE SYSTEM, WHETHER DF/DS OR RF/RS. 23 /RESPOND WITH 1, 2, 3, OR 4. 24 25 0001 PUNCH= 1 /1 IF SYSTEM INCLUDES PUNCH; 0 IF IT DOES NOT 26 27 0000 TC01= 0 /1 IF SYSTEM INCLUDES DECTAPE(S); 0 IF IT DOES NOT 28 29 0000 RK05= 0 /NUMBER OF RK05 CARTRIDGE DISK DRIVES ON THE SYSTEM; 0 TO 4 30 31 0000 CDR= 0 /1 IF SYSTEM INCLUDES CARD READER; 0 IF IT DOES NOT 32 33 0001 LPT= 1 /1 IF SYSTEM INCLUDES LINE PRINTER; 0 IF NO LINE PRINTER 34 35 DECIMAL /MONITOR CAPACITY FOR THIS SYSTEM 36 37 0024 JOBMAX= 20 /NUMBER OF SIMULTANEOUS USERS (20 MAXIMUM) 38 39 /THE FOLLOWING ENTRIES DEFINE THE NUMBER OF TERMINALS 40 /ATTACHED TO THE SYSTEM, AND ALSO THE METHOD OF INTERFACING 41 42 0001 CONTTY= 1 /WE ALWAYS HAVE A CONSOLE (K00) 43 44 0023 DC08A= 19 /NUMBER OF TERMINALS INTERFACED VIA DC08A (PDP-8/I ONLY, 19 MAX.) 45 46 0000 DC08LO= 0 /LOWEST HARDWARE LINE NUMBER UTILIZED ON DC08A; USUALLY 0 47 48 0010 PT08= 8 /NUMBER OF TERMINALS INTERFACED VIA PT08 (PDP-8 & PDP-8/I ONLY) 49 50 0000 KL8= 0 /NUMBER OF ADDITIONAL TERMINALS INTERFACED VIA KL8 (PDP-8/E ONLY, 19 MAX.) /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 2 51 52 /PARAMETERS VERSION 8.24 (01-JANUARY-75) 53 / 54 / 55 / 56 / 57 /COPYRIGHT (C) 1975 58 /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 59 / 60 / 61 /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 62 /ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 63 /THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 64 /SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO- 65 /VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 66 /EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 67 /THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 68 /SOFTWARE SHALL REMAIN IN DEC. 69 / 70 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 71 /WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 72 /MITMENT BY DIGITAL EQUIPMENT CORPORATION. 73 / 74 /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 75 /RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT 76 /SUPPLIED BY DEC. /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 3 77 78 OCTAL 79 0000 PLT=0 80 IFNZRO CPU < IFNZRO DC08A > 81 IFNZRO 24-JOBMAX&4000 82 IFNZRO 23-KL8-PT08&4000 83 IFNZRO 24-DC08A&4000 84 IFZERO DC08A 85 IFNZRO DC08A < IFNZRO PHONES 86 0000 IFZERO PHONES > 87 0033 NULINE=DC08A+PT08+KL8 /EVERY TERMINAL EXCEPT THE CONSOLE 88 0005 SWDEX=5 /DISK TRACK OF THE FIRST USER SWAP TRACK 89 0005 STOMIN=5 /MINIMUM # FREE STORAGE BLOCK FOR NEWJOB 90 IFZERO RF08-40 < 91 IFZERO RS08-1 92 IFZERO RS08-2 93 IFZERO RS08-3 94 IFZERO RS08-4 95 DSKEXT=DSKSIZ-1> 96 0100 IFZERO RF08 98 0144 CLOCKR=144 /MILLISECONDS PER TICK 99 1130 TICMIN=1130 /600 TICKS PER MINUTE 100 0322 INCLK2=0322 /INITIAL CLOCK 101 7400 INCLK1=7400 102 0012 TICSPS=12 /NUMBER OF SYSTEM TICKS PER SECOND 103 0010 INIDEX=10 /INIT DISC EXTENSION 104 0030 TS8DEX=30 /FIELD 0 DISC EXTENSION*2^3 105 0000 ERPDEX=0 /ERP DISC EXTENSION*4 106 0000 ERPWC=0 /ERP WORD COUNT 107 0004 FIPDEX=4 /FIP DISC EXTENSION*4 108 0000 FIPWC=0 /FIP WORD COUNT 109 0000 SIDEX=ERPDEX /SI DISC EXTENSION*4 110 0000 SIWC=ERPWC /SI WORD COUNT 111 0002 LIBACT=2 /LIBRARY ACCOUNT # 112 4000 BRKINI=4000 /INITIAL USER BREAK MASK 113 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 4 114 115 /IOT DEFINITIONS 116 117 IFNZRO DC08A < /DC08A,DL8I IOTS 118 6401 TTIL=6401 /INCREMENT LINE REGISTER 119 6402 TTI=6402 /TELETYPE INPUT COMMAND 120 6404 TTO=6404 /TELETYPE OUTPUT COMMAND 121 6411 TTCL=6411 /CLEAR LINE REGISTER 122 6412 TTLL=6412 /LOAD LINE REGISTER, CLEAR AC 123 6414 TTRL=6414 /READ LINE REGISTER 124 6421 T1SKP=6421 /SKIP ON CLOCK FLAG 125 6422 T1OFF=6422 /TURN CLOCK OFF 126 6424 T1ON=6424 /TURN CLOCK ON 127 6461 TTIR=6461 /INCREMENT THE R REG. 128 6471 TTCR=6471 /CLEAR THE R REG. 129 6472 TTLR=6472 > /LOAD THE R REG. 130 /EXTENDED MEMORY 131 132 6201 CDF=6201 /CHANGE TO DATA FIELD 0 133 6202 CIF=6202 /CHANGE TO INSTRUCTION FIELD 0 134 6204 CINT=6204 /CLEAR USER IOT 135 136 6214 RDF=6214 /READ DATA FIELD 137 6224 RIF=6224 /READ INSTRUCTION FIELD 138 6234 RIB=6234 /READ INTERRUPT BUFFER 139 6244 RMF=6244 /RESTORE MEMORY FIELD 140 6254 SINT=6254 /SKIP ON USER IOT 141 6264 CUF=6264 /USER FLAG OFF 142 6274 SUF=6274 /USER FLAG ON 143 144 145 /EAE 146 7405 MUY=7405 /MULTIPLY 147 7407 DVI=7407 /DIVIDE 148 7411 NMI=7411 /NORMALIZE 149 7413 SHL=7413 /SHIFT ARITHMETIC LEFT 150 7415 ASR=7415 /ARITHMETIC SHIFT RIGHT 151 7417 LSR=7417 /LOGICAL SHIFT RIGHT 152 7421 MQL=7421 /LOAD MQ 153 7403 SCL=7403 /STEP COUNTER LOAD FROM MEMORY 154 7441 SCA=7441 /STEP COUNTER TO AC 155 7501 MQA=7501 /MQ TO AC 156 157 IFZERO CPU-2 < 158 159 DPSZ=7451 /MODE B ONLY - SKIP IF AC&MQ ARE CLEAR 160 SWBA=7447 /CHANGE MODE TO A 161 SWAB=7431 /CHANGE MODE TO B (ALSO DOES MQL) 162 ACS=7403 /AC(7:11) TO SC; AC CLEARED 163 SGT=6006 /SKIP ON GT FLAG 164 > 165 166 167 168 /LINE PRINTER IOTS 169 6661 LSF=6661 /SKIP ON CHAR FLAG SET 170 6662 LCF=6662 /CLEAR CHAR FLAG /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 5 171 6663 LSRP=6663 /SKIP ON NOT READY OR ON ERROR 172 6664 LLC=6664 /TRANSMIT CHAR TO PRINTER 173 6665 LSP=6665 /SET PROGRAM INTERRUPT; LP08/LE8 174 6666 LPC=6666 /TRANSMIT CHAR &CLEAR FLAG 175 6667 LCP=6667 /CLEAR PROGRAM INTERRUPT 176 6665 LIE=6665 /AC11 TO INTERRUPT ENABLE; LS08/LS8E 177 178 /CTY 179 180 6044 TPC=6044 /LOAD TELEPRINTER AND PRINT 181 182 /DISC (DF32) 183 184 6601 DCMA=6601 /CLEAR 185 6603 DMAR=6603 /READ 186 6605 DMAW=6605 /WRITE 187 6611 DCEA=6611 /CLEAR DISC EXTENDED ADDRESS 188 6615 DEAL=6615 /LOAD EXTENDED ADDRESS 189 6621 DFSE=6621 /SKIP ON ERROR 190 6622 DFSC=6622 /SKIP ON COMPLETION 191 6616 DEAC=6616 /READ EXTENDED ADDRESSES 192 193 /DISC (RF08) 194 195 6612 DSAC=6612 196 6614 DORS=6614 197 6615 DIML=6615 198 6616 DIMA=6616 199 6641 DCXA=6641 200 6643 DXAL=6643 201 202 /CARD READER IOT'S 203 6631 RCSF=6631 204 6632 RCRA=6632 205 6634 RCRB=6634 206 6635 RCNO=6635 /8E ONLY 207 6636 RCRC=6636 /8E ONLY 208 6637 RCNI=6637 /8E ONLY 209 6671 RCSD=6671 210 6672 RCSE=6672 211 6674 RCRD=6674 212 6675 RCSI=6675 /8E ONLY 213 6677 RCTF=6677 /8E ONLY 214 215 /RK05 IOT'S 216 217 IFZERO PHONES< 218 6741 DSKP= 6741 219 6742 DCLR= 6742 220 6743 DLAG= 6743 221 6744 DLCA= 6744 222 6745 DRST= 6745 223 6746 DLDC= 6746 224 6747 DMAINT= 6747 > 225 IFNZRO PHONES < 226 DSKP= 6751 227 DCLR= 6752 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 6 228 DLAG= 6753 229 DLCA= 6754 230 DRST= 6755 231 DLDC= 6756 232 DMAINT= 6757 > 233 234 /DECTAPE 235 236 6761 DTRA=6761 237 6762 DTCA=6762 238 6764 DTXA=6764 239 6771 DTSF=6771 240 6772 DTRB=6772 241 6774 DTLB=6774 242 243 244 IFZERO CPU < 245 /KW8I REAL TIME CLOCK 246 247 6137 CECI=6137 /CLEAR AND ENABLE CLOCK AND INTERRUPT 248 6133 CSCF=6133 /SKIP AND CLEAR FLAG IF FLAG 249 > 250 IFZERO CPU-1 < 251 CECI=6315 /CLOCK ENABLE 252 CSCF=6301 /SKIP ON CLOCK FLAG 253 CCF=6302 /CLEAR CLOCK FLAG, CLEAR ENABLE AND CLEAR BUFFER 254 CLB=6304 > /LOAD BUFFER FROM AC 255 256 IFZERO CPU-2 < 257 CECI=6131 /CLOCK ENABLE 258 CSCF=6133 /SKIP AND CLEAR FLAG IF FLAG 259 260 /POWER FAIL IOT 261 262 SPL=6102 /SKIP IF POWER LOW 263 264 / 8/E PROCESSOR IOT 265 SRQ=6003 /SKIP ON INTERRUPT REQUEST 266 GTF=6004 /LINK TO AC0, GT FLAG TO AC1 267 RTF=6005 /AC0 TO LINK, AC1 TO GT FLAG 268 CAF=6007 > /CLEAR ALL FLAGS 269 270 IFZERO CPU-4 < 271 CLLE=6135 /AC11 TO INTERRUPT ENABLE FOR CLOCK 272 CLCL=6136 /CLEAR CLOCK FLAG 273 CLSK=6137 /SKIP ON CLOCK FLAG 274 SPL=6102 /SKIP POWER LOW 275 CAL=6133 > /CLEAR AC LOW FLAG 276 277 IFNZRO DC08A < 278 279 /689AG 280 6701 SRF=6701 /SKIP IF RING FLAG 281 6711 SCF=6711 /SKIP IF CARRIER FLAG 282 6742 DFCRF=6742 /CLEAR RING FLAG 283 6721 CTG=6721 /CLEAR GROUP COUNTER 284 6702 RRS=6702 /READ RING STATUS /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 7 285 6731 ITG=6731 /INCREMENT GROUP COUNTER 286 6722 STR=6722 /SET TERMINAL READY 287 6704 EDF=6704 /ENABLE DATAPHONE FEATURES 288 6714 DDF=6714 /DISABLE DATAPHONE FEATURES 289 6724 CTR=6724 /CLEAR TERMINAL FLAG 290 6741 CCF=6741 /CLEAR CARRIER FLAG 291 6712 RCS=6712 /READ CARRIER STATUS 292 > /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 8 293 294 295 /FIP IOTS (IN ABBREVIATED FORM) 296 297 0006 SEGS=0006 /RETURN NUMBER OF FREE SEGMENTS ON DISK 298 0040 ASD=0040 /ASSIGN 299 0042 REL=0042 /RELEASE 300 0200 REN=0200 /RENAME 301 0201 OPEN=0201 /OPEN 302 0202 CLOS=0202 /CLOSE 303 6603 RFILE=6603 /READ FILE 304 0204 PROT=0204 /PROTECT 305 6605 WFILE=6605 /WRITE FILE 306 0210 CRF=0210 /CREATE 307 0211 EXT=0211 /EXTEND 308 0212 RED=0212 /REDUCE 309 6613 FINF=6613 /FILE INFORMATION 310 0214 LIN=0214 /LOGIN 311 0215 LOUT=0215 /LOGOUT 312 6616 WHO=6616 /WHO 313 /DEVICE DATA BLOCK 314 315 0000 DDBSTS=0 /WORD 1, STATUS AND UNIT NUMBER 316 2000 DXON=2000 /XOFF SENT FLAG 317 1000 DSI=1000 /DESTINATION IS S.I. FLAG 318 0400 DFULL=400 /KEYBOARD BUFFER IS FULL 319 0200 DUPL=200 /CONSOLE IN DUPLEX MODE 320 0100 SICOM=100 /COMMAND WAITING 321 0040 DECHO=40 /CAUSE SI TO RE-ECHO CURRENT INPUT BUFFER 322 323 /DEVICE UNIT NUMBER IS IN BITS 6-11 324 325 0001 DDBJN=1 /WORD 2, JOB NUMBER IN 7-11 326 0002 DDBBRK=2 /BREAK MASK 327 0003 DDBTIM=3 /TIME THAT DEVICE WAS ASSIGNED 328 0004 DDBINP=4 /BUFFER FILL POINTER 329 0005 DDBINC=5 /BUFFER TOTAL COUNT 330 0006 DDBOUC=6 /BUFFER EMPTY COUNT 331 0007 DDBOUP=7 /BUFFER EMPTY POINTER /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 9 332 333 /JOB DATA AREA 334 335 0000 JOBSTS=0 /STATUS 336 /STR0 337 4000 JSRUN=4000 /RUN BIT 338 2000 JSEREN=2000 /USER ERROR ENABLE 339 1000 JCOMBD=1000 /LAST TIME THE JOB RAN AS COMPUTE BOUND 340 0400 JSPEEK=400 /ALLOW "PEEK" AND "LOGOUT" IOT'S 341 0200 JSACC=200 /JOB LOGGED IN UNDER PRIVILEGED ACCOUNT (1,2 OR 3) 342 0100 JSIOT=100 /NON-RESIDENT IOT 343 0040 JSIOTC=40 /COPY IOT RESULT TO USER 344 0020 JSEXON=20 /EXECUTE ONLY 345 0010 JSINER=10 /INHIBIT ERROR REPORT FROM SI. (UNTIL NEXT COMMAND) 346 /BITS 9-11 ARE SYSTEM ERROR CODE 347 0001 UUOERF=1 /IOT ERROR 348 0002 SWPRER=2 /SWAP READ ERROR 349 0003 SWPWER=3 /SWAP WRITE ERROR 350 0005 DSKERR=5 /DISC ERROR 351 0006 HUNGDV=6 /HUNG DEVICE 352 353 /STR1 354 4000 JSTIME=4000 /TIME IS UP 355 2000 JSF0=2000 /FILE 0 NOT BUSY 356 1000 JSF1=1000 /FILE 1 IS NOT BUSY 357 0400 JSF2=400 /FILE 2 IS NOT BUSY 358 0200 JSF3=200 /FILE 3 IS NOT BUSY 359 0100 JSDEL=100 /KEYBOARD DELIMITER SEEN 360 0040 JSLPT=40 /LINE PRINTER BUFFER IN USE BUT NOT FULL 361 0020 JSTEL=20 /TELEPRINTER OUTPUT BUFFER IN USE BUT NOT FULL 362 0010 JSPTR=10 /CHARACTERS IN READER BUFFER 363 0004 JSPTP=4 /PUNCH BUFFER IN USE BUT IS NOT FULL 364 0002 JSERR=2 /SYSTEM ERROR DETECTED 365 0001 JSWAIT=1 /JOB NOT IN WAIT STATE 366 367 368 0002 JOBSTB=2 /DEVICE STATUS REGISTER (FOR RK05 DECTAPE AND CARD READER) 369 0003 JOBWMK=3 /WAIT MASK 370 0005 JOBSRA=5 /JOB RESTART ADDRESS 371 0006 JOBERR=6 /JOB ERROR RESTART ADDRESS 372 0007 JOBLNK=7 /IOT LINKAGE 373 0010 JOBSWR=10 /SWITCH REGISTER 374 0011 JOBREG=11 /PC LINK AC 375 0014 JOBEAE=14 /MQ MODE GT SC 376 0016 JOBACC=16 /ACCOUNT NUMBER 377 0017 JOBF0=17 /POINTER TO FILE 0 CONTROL 378 0020 JOBF1=20 /POINTER TO FILE 1 CONTROL 379 0021 JOBF2=21 /POINTER TO FILE 2 CONTROL 380 0022 JOBF3=22 /POINTER TO FILE 3 CONTROL 381 0023 JOBRTM=23 /LOW ORDER RUN TIME 382 0024 JOBRTH=24 /HI ORDER RUN TIME /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 10 383 384 /FILE CONTROL BLOCK - POINTED TO BY JOBFX, X=0,1,2,3 385 386 0000 FILWPT=0 /POINTER TO FILE RETRIEVAL WINDOW 387 0001 FILSCT=1 /SEGMENT NUMBER OF FIRST WINDOW ENTRY 388 0002 FILPRO=2 /FILE PROTECTION - BIT 9 389 0003 FILPAR=3 /POINTER TO RFILE OR WFILE PARAMETER BLOCK 390 0004 FILDA=4 /DISC ADDRESS OF RFILE OR WFILE 391 0006 FILWC=6 /-WORD COUNT OF RFILE OR WFILE 392 0007 FILRES=7 /POINTER TO FILPIF IN USER AREA 393 394 /FILE RETRIEVAL WINDOW 395 /WORD 0: UFD LINK TO NEXT GROUP OF 7 SEGMENT POINTERS 396 /WORDS 1-7: SEVEN SEGMENT ADDRESSES 397 398 /RFILE OR WFILE PARAMETER BLOCK - POINTED AT BY FILPAR 399 400 0000 FILPFN=0 /FUNCTION; 0603 OR 0605 401 0001 FILPDX=1 /DISC EXTENSION 402 0002 FILPIF=2 /INTERNAL FILE # (BITS 10-11) AND FIELD # (BITS 7-9) 403 0003 FILPWC=3 /-WORD COUNT FOR THIS TRANSFER 404 0004 FILPCA=4 /CORE ADDRESS FOR THIS TRANSFER 405 0005 FILPDA=5 /DISC ADDRESS 406 0006 FILPRA=6 /EXEC RETURN ADDRESS FOR THIS TRANSFER 407 0007 FILPCT=7 /POINTER TO FILE CONTROL BLOCK 408 409 410 /CORE TABLE CONTROL FLAGS 411 412 4000 SWAP=4000 /SWAP REQUEST 413 2000 LOCK=2000 /LOCK IN CORE 414 1000 NOTRUN=1000 /HAS NOT BEEN SCHEDULED TO RUN 415 0400 FIP=400 /FILE PHANTOM 416 0200 SI=200 /SYSTEM INTERPRETER 417 0140 NOHOLD=140 /INHIBIT "NOTRUN" STATUS AFTER FOUR CONSECUTIVE FILE TRANSFERS 418 0037 CJOB=37 /BITS 7-11 CONTAIN THE JOB # 419 420 421 422 /FIP TABLE DEFINITIONS 423 424 0530 SATSIZ=530 425 6000 JTABLE=6000 426 6025 ENTABL=JTABLE+JOBMAX+1 427 6265 UTABLE=ENTABL+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX 428 6525 RTABLE=UTABLE+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX+JOBMAX 429 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 11 430 431 /TABLES 432 7001 CORTBL=7001 /CORE ASSIGNMENT TABLE 433 7010 L2QTB=CORTBL+7 434 IFZERO DC08A 435 0400 IFNZRO DC08A /SIZE OF FIELD 1 DC08A CODE PLUS 689AG CODE 436 437 0200 OUTREG=200 /ACTIVE OUTPUT REGISTERS (TTY'S, LPT & PTP) 438 0236 SKPTBL=OUTREG+NULINE+3 /START OF IOT SKIP TABLE 439 0327 SKPTP=SKPTBL+NULINE+NULINE+3 /POSITION OF PUNCH SKIP IN SKIP TABLE 440 0332 RINGIN=SKPTP+3 /KEYBOARD INPUT RING BUFFER 441 0400 ENDBUF=OUTREG+200 /END OF KEYBOARD INPUT BUFFER 442 0023 INPUTS=ENDBUF-RINGIN%2 /NUMBER OF POSSIBLE ENTRIES IN THE KEYBOARD RING BUFFER 443 444 6211 DATFLD=CDF 10 /MONITOR DATA FIELD SELECT 445 446 IFZERO EAE-20 447 IFZERO EAE 448 0000 IFZERO CPU&7776 > 449 IFNZRO OUTREG&1 450 /SUPER CRITICAL LOCATIONS 451 /THESE LOCATIONS ARE USED TO LINK TS8, TS8II, FIP, SI AND INIT. 452 453 /IT MAY BE NECESSARY TO ADJUST THEM ACCORDINGLY 454 455 /DEFINED IN TS8: 456 457 2573 WSCHED=2573 /ADDRESS FOR WAIT 458 0401 GETJTB=401 /GETJTA 459 1317 CORSRC=1317 /SEARCH CORE TABLE 460 5171 OVERLA=5171 /FILE STUFF 461 0574 READFI=574 /MORE FILE STUFF 462 0132 CONDBA=132 /DEVTBL POINTER USED BY "PRINT" ETC. 463 0611 RETB=611 /RETURN A BLOCK TO FREE CORE 464 1405 GETB=1405 /GET A BLOCK OF FREE CORE 465 1447 GETDB0=1447 /GET A DDB 466 0051 CLK1=51 /LOW ORDER DAYTIME CLOCK 467 0050 CLK2=50 /HIGH ORDER DAYTIME CLOCK 468 0166 DATE=166 /12 BIT DATE WORD 469 0031 TTCHAR=31 /SAVE REG. FOR CONSOLE CHARACTERS 470 3201 KBD00=3201 /PROCESS KEYBOARD INPUT 471 1205 PRINT0=1205 /TYPE OUT A CHARACTER 472 0562 OVRLA1=562 /MORE FILE STUFF 473 0605 RUNFI=605 /SI FILE TRANSFER INITIALIZER 474 0103 L2SF=103 /LEVEL 2 SAVED MODE AND FIELD 475 6572 SICLR=6572 /SI CLEAR LINKED BUFFER 476 2421 TIMSI=2421 /TIMER FOR SI "COMWAT" 477 1702 SIWAIT=1702 /NUMBER OF SI COMMANDS BEING WAITED ON 478 2423 TIMFIP=2423 /TIMER FOR FIPLOCK 479 2724 FIPLOK=2724 /CORTBL STATUS CHECK FOR FORCE OUT 480 0322 CLKINI=322 /CONVERT HARDWARE CLOCK TO SYSTEM-TICKS (100MS) 481 1602 BLT0=1602 /BLOCK TRANSFER FROM CORE TO CORE 482 3213 KBDSQ=3213 /ADDRESS OF JMS TO ^S/^Q CODE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 12 483 484 485 /DEFINED IN TS8II: 486 487 0175 F1TCNT=175 /SI DDB CHARACTER COUNT 488 0176 F1ECNT=176 /SI DDB EMPTY COUNT 489 0177 F1BUF=177 /SI DDB EMPTY BLOCK POINTER 490 0020 DTJOB=20 /JOB OWNING THE DECTAPE CONTROLLER 491 0054 RKJOB=54 /JOB OWNING RK05 CONTROLLER 492 1175 DTSI=1175 /SI TERMINATE A DECTAPE ON TIMER 493 2600 DATA1=2200+DCSIZE 494 2740 DEVTBL=DATA1+140 495 3030 DEVTBE=DEVTBL+NULINE+NULINE+2 496 3052 JOBTBL=DEVTBE+22 497 3077 CLKTBL=JOBTBL+JOBMAX+1 498 3124 TTYTBL=CLKTBL+JOBMAX+1 499 3151 PRGTBL=TTYTBL+JOBMAX+1 500 3236 DSUTBL=PRGTBL+JOBMAX+JOBMAX+JOBMAX-7 501 7720 FIPBLK=7720 /FIXED BLOCK FOR FIP IO 502 7730 WINBAS=7730 /ADDRESS OF THE BASIC WINDOW 503 2340 OUTDIF=-OUTREG^2+DEVTBL /FOR LINKING BETWEEN OUTREG AND DEVTBL 504 0164 F1OFFJ=164 /FOR OFF /ON COMMANDS USED BY SI 505 IFNZRO DEVTBL&1 506 507 /DEFINED IN SI 508 509 7270 DTSIDT=7270 /RETURNED FROM STOPPING A DECTAPE ON TIMER 510 7600 VERBRK=7600 /START OF INSTALLATION DEFINED LOGIN MESSAGE 511 /SI VERSION 8.24 (01-JANUARY-75) 512 / 513 / 514 / 515 / 516 /COPYRIGHT (C) 1975 517 /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 518 / 519 / 520 /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 521 /ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 522 /THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 523 /SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO- 524 /VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 525 /EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 526 /THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 527 /SOFTWARE SHALL REMAIN IN DEC. 528 / 529 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 530 /WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 531 /MITMENT BY DIGITAL EQUIPMENT CORPORATION. 532 / 533 /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 534 /RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT 535 /SUPPLIED BY DEC. /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 13 536 537 /SI PAGE 0 538 FIELD 0 /SI LOADS ONTO DISK TRACK 0 539 540 0000 *0 541 00000 7300 CLA CLL 542 00001 6201 C6201, CDF /CHANGE TO FIELD ZERO 543 00002 5403 JMP I .+1 544 00003 0202 SI1, COM 545 4404 SKIP= JMS I . 546 00004 1653 SKIPS 547 548 0010 IX1=10 549 0011 IX2=11 550 0012 IX3=12 551 0013 IX4=13 552 0012 IX5=12 553 554 0010 *10 555 00010 0010 . /IX1 556 00011 0011 . /IX2 557 00012 0012 . /IX3 558 00013 0013 . /IX4 559 00014 4000 C4000, 4000 560 00015 0200 C0200, 200 561 NOPUNCH 562 6622 *6622 563 ENPUNCH 564 06622 6603 DMAR /FOR BOOT-STRAPPING 565 06623 5223 JMP . /FOR BOOT-STRAPPING 566 567 0020 SIDATA=20 /SYSTEM INTERPRETER DATA 568 0020 *SIDATA 569 570 00020 0020 COMPTR, . /POINTER TO LAST DEVTBL ENTRY SCANNED, INITIALIZE TO DEVTBL-1 571 00021 0132 CONDVA, CONDBA /DEVTBL POSITION OF OUTPUT SIDE 572 00022 0175 SITCNT, F1TCNT 573 00023 0023 COMDSP, . /FIP RETURN DISPATCH 574 00024 0024 SIFLG, . /COMMAND FLAGS 575 00025 0025 SICHAR, . /SAVE LAST CHAR FROM COMMAND SCAN 576 00026 0026 SIREG, . /USER AC, LINK, PC 577 00027 0027 . 578 00030 0030 . 579 00031 0031 TTCHAR, . /TTY CHARACTER 580 581 0032 CONSTANTS=SIDATA+12 582 0032 *CONSTANTS 583 00032 0002 C0002, 2 584 00033 0003 C0003, 3 585 00034 0004 C0004, 4 586 00035 0007 C0007, 7 587 00036 0037 C0037, 37 588 00037 0100 C0100, 100 589 00040 1000 C1000, 1000 590 00041 7770 C7770, 7770 591 00042 0010 C0010, 10 592 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 14 593 0043 JOBCON=CONSTANTS+11 /JOB CONTROL 594 0043 *JOBCON 595 596 00043 0043 JOBTIM, . /-#TICKS REMAINING TO RUN 597 00044 3052 JOBTBA, JOBTBL /JOB TABLE ADDRESS 598 00045 0006 C0006, 6 599 600 0046 FRSTOR=JOBCON+3 601 0046 *FRSTOR 602 603 00046 0046 FREE, . /POINTER TO HEAD OF FREE STORAGE 604 00047 0047 FRECNT, . /# FREE BLOCKS AVAILABLE 605 606 607 0050 TIMDAT=FRSTOR+2 /CLOCK AND DATE 608 0050 *TIMDAT 609 610 /CLOCK 611 00050 0050 CLK2, . 612 00051 0051 CLK1, . 613 614 615 0052 SCHDAT=TIMDAT+2 616 0052 *SCHDAT /SCHEDULING DATA 617 618 00052 0052 COMCNT, . /NUMBER OF COMMANDS WAITING EXECUTION 619 620 621 622 0155 FIPDAT=155 /DATA REFERENCED BY FIP 623 0156 *FIPDAT+1 624 625 00156 0400 C0400, 400 626 0156 SEGSIZ=C0400 /#WORDS PER SEGMENT 627 00157 0031 FIBASE, SWDEX+JOBMAX /BASE ADDRESS OF ALLOCATABLE DISC STORAGE 628 00160 0160 JOB, . /# OF CURRENT JOB 629 00161 0161 JOBDAT, . /ADDRESS OF CURRENT JOB DATA LIST, MUST RESIDE IN DATA FIELD. 630 00162 7000 CORTBA, CORTBL-1 /CORE ALLOCATION TABLE 631 00163 2740 DEVTBA, DEVTBL /DEVICE TABLE 632 00164 3236 DSUTBA, DSUTBL /USER DISC REQUEST QUEUE 633 00165 0165 DSBUSY, . /DISC BUSY COUNT 634 635 /THE DATE IS KEPT AS A 12 BIT NUMBER IN THE FORMAT 636 /DATE=((YEAR-1974)*12+(MONTH-1))*31+DAY-1 637 638 00166 0166 DATE, . 639 640 641 0400 FISUBL= 400 642 643 00167 1602 BLTA, BLT0 /BLOCK TRANSFER 644 4567 BLT=JMS I BLTA 645 00170 1317 CORSRA, CORSRC 646 4570 CORE=JMS I CORSRA 647 00171 1405 GETBA, GETB 648 4571 GETBLK=JMS I GETBA 649 00172 1447 GETDBA, GETDB0 /GET A DATA BLOCK /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 15 650 4572 GETDDB=JMS I GETDBA 651 00173 1205 PRINTA, PRINT0 /TYPE OUT A CHARACTER 652 4573 PRINT=JMS I PRINTA 653 00174 0401 GETJT0, GETJTB /GET JOB DATA TABLE ADDRESS 654 4574 GETJTA=JMS I GETJT0 655 00175 3201 KBDA, KBD00 /INPUT KEYBOARD CHARACTERS 656 4575 KEY=JMS I KBDA 657 00176 0611 RETBA, RETB /RETURN BLOCK TO FREE STORAGE 658 4576 RETBLK=JMS I RETBA 659 00177 2573 WAITA, WSCHED 660 5577 WAIT=JMP I WAITA 661 662 663 0053 *SCHDAT+1 664 665 00053 0000 SIJOB, 0 666 00054 0000 CHDFA, 0 /TEMP LOC USED BY MANY ROUTINES 667 6221 CHDF=6221 668 00055 0000 COMDB0, 0 /ADDRESS OF COMMAND DDB 669 00056 0000 COMRDB, 0 /RESPONSE DEVTBL ADDRESS 670 00057 6000 COMBFA, COMBUF-1 671 00060 0000 COMTBE, 0 /COMMAND TABLE ENTRY ADDRESS 672 00061 0000 COMFLG, 0 /COMMAND CONTROL FLAGS 673 00062 0062 IOTPAR, . /IOT PARAMETER BLOCK 674 00063 0000 IOTP0, 0 675 00064 0000 IOTP1, 0 676 00065 0000 IOTP2, 0 677 00066 0000 IOTP3, 0 678 00067 0000 IOTP4, 0 679 00070 0000 IOTP5, 0 680 00071 0000 IOTP6, 0 681 00072 0000 IOTP7, 0 682 00073 0000 CHAR, 0 /CURRENT SCAN CHARACTER 683 00074 0000 NUMHO, 0 /HIGH ORDER FOR NUMBIN 684 00075 0000 0 685 00076 0000 0 686 4477 TEXTS=JMS I . 687 00077 1606 CTEXT /ASCII READ 688 00100 2301 DECRCA, DECRC0 /DECREMENT COMCNT 689 00101 2014 NUMBIA, NUMBI0 /NUMBER CONVERT 690 00102 2151 ASCOUA, ASCOU0 /ASCII OUTPUT 691 00103 4200 ENDTSA, ENDTS0 /TEST FOR END OF COMMAND 692 00104 1676 COMGEA, COMGE0 /GET COMMAND STRING CHARACTER 693 00105 1220 COMERA, COMERR /ERROR RETURN 694 00106 1235 COMEXA, COMRET /OK RETURN 695 00107 1235 COMEXP, COMRET /FOR RESETTING COMEXA 696 00110 2401 ASCSIA, ASCSI0 /ASCII TO SIXBIT 697 00111 1751 GETFBA, GETFB0 /GET FREE BLOCK 698 00112 2200 GETBAA, GETTB0 /GET JOB TABLE ADDRESS 699 00113 2442 RETDBA, RETDB0 /RETURN BLOCK 700 00114 2446 RETBKA, RETBK0 /RETURN BLOCKS 701 00115 7202 IOTEND, FIPEND 702 00116 3637 LNGIOT, FOPEN1 /LONG IOT 703 00117 3502 SHTIOT, ACSET /SHORT IOT 704 00120 1112 CALFIA, CALFI0 /FIP OVERLAY 705 00121 2212 RESPDA, RESPDB /GET RESPONSE DDB 706 00122 0237 EXITA, COMEXT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 16 707 5522 EXIT=JMP I EXITA 708 00123 4224 GETWRA, GETWR0 /GET STATUS WORD 709 00124 2454 OCTASA, OCTAS0 /OCTAL TO ASCII 710 00125 2223 BUFDEA, BUFDE0 /BUFFER DELETE 711 00126 2642 RETPAA, RETPA0 /RETURN PARAMETERS 712 4527 CORES=JMS I . 713 00127 1764 CORSER 714 4530 ASSCOR=JMS I . 715 00130 2503 ASSCO0 716 4531 RELCOR=JMS I . 717 00131 2512 RELCO0 718 00132 3124 TTYTBA, TTYTBL /START OF TTY TABLE 719 4533 SIERR=JMS I . 720 00133 7052 SYSER0 721 00134 0005 SWBASE, SWDEX /START OF SWAPPING TRACKS 722 4535 ACCTIN= JMS I . 723 00135 2732 ACC0 724 00136 7777 P7777, -1 725 00137 7700 C7700, 7700 726 00140 7754 JOBONC, -JOBMAX 727 00141 0176 SIECNT, F1ECNT /DDB EMPTY COUNT 728 00142 0177 SIBUF, F1BUF /DDB EMPTY POINTER 729 00143 5734 COMES1, COMLGM 730 00144 0367 COMWAA, COMDEL 731 5544 COMWAT=JMP I COMWAA 732 733 /SI PAGE DIRECTORY 734 735 0200 SCAN=200 736 1600 SUBR=SCAN+1400 737 3000 COMMAN=SUBR+1200 738 6000 CTABLE=COMMAN+3000 739 7000 ERPAGE=CTABLE+1000 740 741 742 /COMMAND CONTROL FLAGS 743 744 4000 NOLOG=4000 /LOGIN NOT REQUIRED 745 2000 USERM=2000 /REFERENCES USER MEMORY 746 1000 USAVE=1000 /SAVE USER REGISTERS 747 0400 UREST=400 /RESTORE USER REGISTERS 748 749 0200 PRBUF=200 /PRINT BUFFER 750 0100 PRQM=100 /PRINT ? 751 0040 PRPER=40 /PRINT . 752 0020 PRCRLF=20 /PRINT CRLF 753 0010 NOMESS=10 /NO MESSAGE 754 /BITS 9-11 CONTAIN # FREE BLOCKS REQUIRED /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 17 755 756 0200 *SCAN 757 758 00200 4751 DEVTND, -DEVTBE+1 759 0037 COMSIC=C0100 /SICOM 760 0072 COMFND=IOTP7 /COUNT OF SEARCH MATCHES 761 0070 COMLNK=IOTP5 762 0071 COMNXT=IOTP6 763 00201 2664 COMSET, RESTBP 764 765 00202 1560 COM, TAD I JOB 766 00203 0036 AND C0037 767 00204 3053 DCA SIJOB 768 00205 1053 TAD SIJOB 769 00206 7640 SZA CLA /FIP RETURN? 770 00207 5332 JMP COMFIP /YES 771 00210 1420 TAD I COMPTR 772 00211 3010 DCA IX1 773 00212 1010 TAD IX1 774 00213 3063 DCA IOTP0 775 00214 6211 DATFLD 776 00215 2010 COM1, ISZ IX1 /DON'T BOTHER LOOKING AT THE OUTPUT SIDE 777 00216 1200 TAD DEVTND 778 00217 1010 TAD IX1 779 00220 7640 SZA CLA /END OF TABLE? 780 00221 5225 JMP COM2 /NO 781 00222 7240 STA 782 00223 1163 TAD DEVTBA /YES, RESET TO BEGIN OF TABLE 783 00224 3010 DCA IX1 784 00225 1410 COM2, TAD I IX1 /GET TABLE ENTRY 785 00226 7440 SZA 786 00227 5245 JMP COM3 787 00230 1010 COM4, TAD IX1 /SCANNED ENTIRE TABLE? 788 00231 7041 CIA 789 00232 1063 TAD IOTP0 790 00233 7640 SZA CLA 791 00234 5215 JMP COM1 /NO 792 00235 6201 CDF 793 00236 3452 DCA I COMCNT 794 00237 4531 COMEXT, RELCOR /RELEASE COR 795 00240 6203 CIF CDF 796 00241 3423 DCA I COMDSP 797 00242 5577 WAIT /RESCHEDULE 798 799 00243 1702 SIWATA, SIWAIT 800 00244 2421 SITIMA, TIMSI 801 802 00245 3055 COM3, DCA COMDB0 803 00246 1455 TAD I COMDB0 /COMMAND WAITING? 804 00247 0037 AND COMSIC 805 00250 7650 SNA CLA 806 00251 5230 JMP COM4 /NO 807 00252 1055 TAD COMDB0 /SET JOB # 808 00253 7001 IAC 809 00254 3060 DCA COMTBE 810 00255 1460 TAD I COMTBE 811 00256 6201 CDF /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 18 812 00257 0036 AND C0037 813 00260 3053 DCA SIJOB 814 00261 1010 TAD IX1 815 00262 3420 DCA I COMPTR 816 00263 1053 TAD SIJOB 817 00264 1560 TAD I JOB 818 00265 3560 DCA I JOB 819 00266 1053 TAD SIJOB 820 00267 6211 DATFLD 821 00270 7450 SNA 822 00271 5275 JMP COM31 823 00272 1044 TAD JOBTBA 824 00273 3054 DCA CHDFA 825 00274 1454 TAD I CHDFA 826 00275 3561 COM31, DCA I JOBDAT 827 00276 1561 TAD I JOBDAT /DO WE HAVE JOB? 828 00277 7450 SNA 829 00300 5307 JMP COM33 /NO 830 00301 7001 IAC 831 00302 3054 DCA CHDFA /ADDRESS OF STR0 832 00303 4730 JMS I COMLRA /CHECK FOR RUBOUT AND LINE-FEED 833 00304 1326 TAD C7367 834 00305 0454 AND I CHDFA /CLEAR OUT THE R PRIVILEGE & ERROR REPORT INHIBIT BITS 835 00306 3454 DCA I CHDFA /SAVE IT 836 00307 4601 COM33, JMS I COMSET /SETUP BUFFER POINTERS 837 00310 3056 DCA COMRDB 838 00311 3061 DCA COMFLG 839 00312 3073 COM32, DCA CHAR 840 00313 1057 TAD COMBFA /GET COMMAND NAME 841 00314 4477 TEXTS 842 00315 7041 CIA 843 00316 1057 TAD COMBFA /NULL? 844 00317 7640 SZA CLA 845 00320 5731 JMP I COM41A 846 00321 1073 TAD CHAR 847 00322 7640 SZA CLA 848 00323 4503 ENDTST /END OF COMMAND? 849 00324 5727 JMP I COM64A /YES 850 00325 5312 JMP COM32 /TRY TO FIND A VALID COMMAND 851 852 00326 7367 C7367, -JSPEEK-JSINER-1 853 00327 1233 COM64A, COM64 854 00330 0450 COMLRA, COMLRB 855 00331 0403 COM41A, COM41 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 19 856 857 00332 1423 COMFIP, TAD I COMDSP 858 00333 7450 SNA 859 00334 5364 JMP COMFI2 860 00335 3063 DCA IOTP0 861 00336 3423 DCA I COMDSP 862 00337 1424 TAD I SIFLG /RESTORE CONTROL FLAGS. 863 00340 3061 DCA COMFLG 864 00341 1425 TAD I SICHAR 865 00342 3073 DCA CHAR 866 00343 1420 TAD I COMPTR 867 00344 3055 DCA COMDB0 868 00345 6211 DATFLD 869 00346 1455 TAD I COMDB0 870 00347 3055 DCA COMDB0 871 00350 1561 TAD I JOBDAT 872 00351 7450 SNA 873 00352 5361 JMP COMFI1 874 00353 7001 IAC 875 00354 3054 DCA CHDFA 876 00355 1033 TAD C0003 877 00356 1454 TAD I CHDFA 878 00357 0035 AND C0007 /WAS THERE A SYSTEM DISK ERROR? 879 00360 7640 SZA CLA 880 00361 2063 COMFI1, ISZ IOTP0 881 00362 6221 CHDF 882 00363 5463 JMP I IOTP0 883 00364 6221 COMFI2, CHDF 884 00365 5766 JMP I .+1 885 00366 7006 SYSERR 886 887 00367 6201 COMDEL, CDF /SI MUST WAIT FOR SOME REASON 888 00370 1452 TAD I COMCNT /NUMBER OF COMMANDS LEFT TO DO 889 00371 1643 TAD I SIWATA /PLUS THOSE ALREADY WAITING 890 00372 3643 DCA I SIWATA 891 00373 3452 DCA I COMCNT /WE'LL RELOAD THE COUNT WHEN THE TIMER RUNS OUT 892 00374 7240 STA 893 00375 3644 DCA I SITIMA /WAIT FOR ONE SECOND 894 00376 5522 EXIT 895 PAGE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 20 896 897 00400 6015 COMTBA, COMTBL 898 00401 0777 COM9A, COM9 899 00402 1005 COM91A, COM91 900 00403 3072 COM41, DCA COMFND /SEARCH COMMAND TABLE 901 00404 1200 TAD COMTBA 902 00405 3070 COM6, DCA COMLNK 903 00406 1470 TAD I COMLNK 904 00407 7450 SNA 905 00410 5601 JMP I COM9A /END OF TABLE 906 00411 3071 DCA COMNXT 907 00412 1070 TAD COMLNK 908 00413 1033 TAD C0003 909 00414 3011 DCA IX2 910 00415 1057 TAD COMBFA 911 00416 3012 DCA IX3 912 00417 1011 COM5, TAD IX2 913 00420 7040 CMA 914 00421 1071 TAD COMNXT 915 00422 7650 SNA CLA 916 00423 5240 JMP COM99 /EXACT MATCH 917 00424 1412 TAD I IX3 918 00425 7450 SNA 919 00426 5233 JMP COM8 920 00427 1411 TAD I IX2 921 00430 7650 SNA CLA 922 00431 5217 JMP COM5 923 00432 5236 JMP COM7 924 00433 2072 COM8, ISZ COMFND /PARTIAL MATCH 925 00434 1070 TAD COMLNK 926 00435 3060 DCA COMTBE 927 00436 1071 COM7, TAD COMNXT 928 00437 5205 JMP COM6 929 930 931 00440 1412 COM99, TAD I IX3 932 00441 7650 SNA CLA 933 00442 5602 JMP I COM91A /EXACT 934 00443 5236 JMP COM7 935 00444 0040 COMECH, DECHO 936 00445 7637 COMLBT, -SICOM-DECHO-1 937 00446 1554 COMPST, STRNG0 938 00447 2664 COMPNT, RESTBP 939 940 00450 0000 COMLRB, 0 941 00451 1455 TAD I COMDB0 942 00452 0244 AND COMECH 943 00453 7650 SNA CLA 944 00454 5650 JMP I COMLRB 945 00455 4647 JMS I COMPNT 946 00456 3073 DCA CHAR 947 00457 3056 DCA COMRDB 948 00460 3061 DCA COMFLG 949 00461 4646 JMS I COMPST 950 00462 4502 ASCOUT 951 00463 6635 CRLF 952 00464 7000 NOP /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 21 953 00465 4523 GETWRD 954 00466 0000 JOBSTS 955 00467 7710 SPA CLA 956 00470 5305 JMP COMLRR 957 00471 4502 ASCOUT 958 00472 5776 PERIOD 959 00473 7000 NOP 960 00474 4502 COMECC, ASCOUT 961 00475 7600 VERBRK 962 00476 7000 NOP 963 00477 6211 DATFLD 964 00500 1245 TAD COMLBT 965 00501 0455 AND I COMDB0 966 00502 3455 DCA I COMDB0 967 00503 4500 DECRCT 968 00504 5522 EXIT 969 00505 4502 COMLRR, ASCOUT 970 00506 0511 CB 971 00507 7000 NOP 972 00510 5274 JMP COMECC 973 00511 0336 CB, "^ 974 00512 0302 "B 975 00513 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 22 976 977 00514 1322 SWITCH, TAD JBSWR 978 00515 1323 RESTRT, TAD JBSRA 979 00516 3320 DCA .+2 980 00517 4512 GETTBA 981 00520 0000 0 982 00521 5326 JMP BRK0 983 984 00522 0003 JBSWR, JOBSWR-JOBSRA 985 00523 0005 JBSRA, JOBSRA 986 987 00524 1055 BREAK, TAD COMDB0 /DDB ADDRESS 988 00525 1032 TAD C0002 989 00526 3064 BRK0, DCA IOTP1 /POINTER TO APPROPRIATE REGISTER 990 00527 4503 ENDTST /ARGUMENT? 991 00530 7410 SKP /NO; TELL HER WHAT IT IS 992 00531 5346 JMP BRK1 /YES, NEW VALUE FOR MASK 993 00532 6211 DATFLD 994 00533 1464 TAD I IOTP1 /GET BREAK MASK 995 00534 6221 CHDF 996 00535 4524 OCTASC /CONVERT TO ASCII 997 00536 0065 IOTP2 /STORE IN IOTP3,4,5,6,7 998 00537 4502 ASCOUT /OUTPUT A CRLF 999 00540 6635 CRLF 1000 00541 7000 NOP 1001 00542 4502 ASCOUT 1002 00543 0066 IOTP3 1003 00544 7000 NOP 1004 00545 5506 JMP I COMEXA 1005 1006 00546 4501 BRK1, NUMBIN 1007 00547 7511 -267 1008 00550 5505 JMP I COMERA /INVALID CHARACTER IN STRING 1009 00551 6211 DATFLD 1010 00552 3464 DCA I IOTP1 1011 00553 5506 JMP I COMEXA 1012 1013 00554 0215 STARS, 215;212;"*;"*;"*;240;0 00555 0212 00556 0252 00557 0252 00560 0252 00561 0240 00562 0000 1014 00563 0302 FM5400, "B;"A;"D;240;"D;"I;"R;"E;"C;"T;"O;"R;"Y;0 00564 0301 00565 0304 00566 0240 00567 0304 00570 0311 00571 0322 00572 0305 00573 0303 00574 0324 00575 0317 00576 0322 00577 0331 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 23 00600 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 24 1015 1016 /ROUTINE TO SEE IF JOB IS RUNNING WHEN COMMAND REQUIRING FIP IS ISSUED. 1017 /IF SO, WE CAN'T HONOR COMMAND 1018 /THE MESSAGE "TYPE ^BS FIRST" IS GIVEN 1019 1020 /CALL TAD IOT ENTRY FROM COMMAND TABLE 1021 / JMS FIPCHK 1022 / RETURN IF OK TO PROCEED [OTHERWISE RETURN IS TO COMEXT] 1023 / IF NOT RUNNING BUT JOB IS BUSY WITH FIP OR FILE I/O, EXIT VIA COMWAT 1024 1025 1026 00601 0000 FIPCHK, 0 1027 00602 3063 DCA IOTP0 /SAVE THE IOT 1028 00603 4523 GETWRD /IT'S A CALL TO FIP; IS HE RUNNING? 1029 00604 0000 JOBSTS /IF SO HER RUN BIT IS ON 1030 00605 7510 SPA 1031 00606 5230 JMP FIPCH2 /HE'S TURNED ON SO DON'T HONOR COMMAND 1032 00607 0244 AND C0140 /DOES HE STILL HAVE A FIP REQUEST IF HER OWN PENDING? 1033 00610 7640 SZA CLA 1034 00611 5544 COMWAT /YES DON'T CONFUSE THE ISSUE 1035 00612 2072 ISZ IOTP7 1036 00613 6211 DATFLD 1037 00614 1472 TAD I IOTP7 /STR1 1038 00615 7010 RAR 1039 00616 7044 CMA RAL 1040 00617 2072 ISZ IOTP7 1041 00620 2072 ISZ IOTP7 1042 00621 0472 AND I IOTP7 /WAIT MASK 1 1043 00622 0246 AND FILES 1044 00623 6221 CHDF 1045 00624 7110 CLL RAR 1046 00625 7670 SNA SZL CLA /IS HE WAITING FOR A FILE TRANSFER? 1047 00626 5601 JMP I FIPCHK /NO; SO LET HER PROCEED 1048 00627 5544 COMWAT /WAIT FOR THINGS TO COOL OFF 1049 1050 00630 7200 FIPCH2, CLA 1051 00631 1063 TAD IOTP0 1052 00632 7510 SPA 1053 00633 0042 AND C0010 /EITHER FINF, DMAR, OR DMAW 1054 00634 7650 SNA CLA 1055 00635 5601 JMP I FIPCHK /WANTS TO EXAMINE OR DEPOSIT 1056 00636 1061 TAD COMFLG 1057 00637 0245 AND P7377 /DON'T RESTORE REGISTERS SINCE THEY ARE NOT SAVED 1058 00640 3061 DCA COMFLG 1059 00641 1243 TAD FIPTCB 1060 00642 5506 JMP I COMEXA /"TYPE ^BS FIRST" 1061 1062 00643 6570 FIPTCB, TYCRLB 1063 00644 0140 C0140, JSIOT JSIOTC 1064 00645 7377 P7377, 7377 1065 00646 3601 FILES, JSF0 JSF1 JSF2 JSF3 JSWAIT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 25 1066 1067 00647 1672 WAIT1, TAD I DTJOBA 1068 00650 7041 CIA 1069 00651 1053 TAD SIJOB /DOES HE CURRENTLY OWN THE CONTROLLER, OR IS HE JUST WAITING IN THE QUEUE 1070 00652 7650 SNA CLA 1071 00653 5506 JMP I COMEXA /HE OWNS IT - DON'T BOTHER HER 1072 1073 00654 5655 JMP I .+1 /GO DO THE STUFF COMMON WITH THE RK05 1074 00655 7270 DTSIDT 1075 1076 00656 0005 K5, 5 1077 1078 00657 1472 WAIT2, TAD I IOTP7 /GET POINTER TO HER TIMER 1079 00660 1256 TAD K5 1080 00661 3054 DCA CHDFA 1081 00662 7240 STA 1082 00663 3454 DCA I CHDFA /SET HER TIMER=1 SECOND 1083 00664 7240 STA 1084 00665 1053 TAD SIJOB 1085 00666 1044 TAD JOBTBA 1086 00667 6213 CIF DATFLD 1087 00670 5671 JMP I .+1 /FORCE THE TIMER TO RUN - JUST FOR HER JOB 1088 00671 1175 DTSI 1089 00672 0020 DTJOBA, DTJOB /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 26 1090 1091 00673 0240 ACCBUF, " ;" ;"[;0;0;0;0;0;"];0 00674 0240 00675 0333 00676 0000 00677 0000 00700 0000 00701 0000 00702 0000 00703 0335 00704 0000 1092 1093 00705 0310 SYSET6, "H /HUNG DEVICE 1094 00706 0325 "U 1095 00707 0316 "N 1096 00710 0307 "G 1097 00711 0240 240 1098 00712 0304 "D 1099 00713 0305 "E 1100 00714 0326 "V 1101 00715 0311 "I 1102 00716 0303 "C 1103 00717 0305 "E 1104 00720 0207 SYRING, 207;207;207 00721 0207 00722 0207 1105 00723 0000 0 1106 1107 0724 *724 /DO NOT MOVE ANYTHING IN THIS AREA 1108 /IT IS VITAL FOR BOOT-STRAPPING 1109 NOPUNCH 1110 7730 *7730 /THIS IS WHERE IT WILL ACTUALLY EXECUTE 1111 ENPUNCH 1112 IFZERO RF08 < 1113 07730 0002 TRBOOT, 2 1114 07731 0020 FLBOOT, 20 1115 07732 6601 GOBOOT, DCMA 1116 07733 7200 CLA 1117 07734 1331 TAD FLBOOT 1118 07735 6615 DIML 1119 07736 1330 TAD TRBOOT 1120 07737 6643 DXAL 1121 > 1122 IFZERO RF08-40 < 1123 NOP;NOP;NOP /FOR SIZE 1124 TRBOOT, 220 1125 GOBOOT, DCMA 1126 CLA 1127 TAD TRBOOT 1128 DEAL 1129 > 1130 07740 7240 STA 1131 07741 3351 DCA CABOOT 1132 07742 3350 DCA WCBOOT 1133 07743 6603 DMAR 1134 07744 6622 DFSC 1135 07745 5344 JMP .-1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 27 1136 07746 6223 CIF CDF 20 1137 07747 5000 JMP 0 1138 07750 7775 WCBOOT, -3 /READ 3 WORDS AFTER OVERLAYING ITSELF 1139 07751 6621 CABOOT, 6621 /OVERLAY OUR CURRENT "JMP ." WE'RE EXECUTING AT 6623 1140 NOPUNCH 1141 6622 *6622 1142 ENPUNCH 1143 06622 7732 GOBOOT 1144 06623 5622 JMP I .-1 1145 0750 *750 1146 00750 0000 GETACC, 0 1147 00751 1044 TAD JOBTBA 1148 00752 6202 CIF 1149 00753 4574 GETJTA 1150 00754 0016 JOBACC 1151 00755 3054 DCA CHDFA 1152 00756 6211 DATFLD 1153 00757 1454 TAD I CHDFA 1154 00760 6221 CHDF 1155 00761 4524 OCTASC 1156 00762 0675 ACCBUF+2 1157 00763 1301 TAD ACCBUF+6 1158 00764 3302 DCA ACCBUF+7 1159 00765 1300 TAD ACCBUF+5 1160 00766 3301 DCA ACCBUF+6 1161 00767 1372 TAD ACOMMA 1162 00770 3300 DCA ACCBUF+5 1163 00771 5750 JMP I GETACC 1164 00772 0254 ACOMMA, ", 1165 00773 4502 SYBELL, ASCOUT 1166 00774 0720 SYRING 1167 00775 7000 NOP 1168 00776 5522 EXIT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 28 1169 1170 7332 CUSERM=CLA CLL CML RTR /AC =2000 1171 1172 00777 7240 COM9, STA 1173 01000 1072 TAD COMFND 1174 01001 7640 SZA CLA 1175 01002 5306 JMP COM99A /NOT UNIQUE OR NOT FOUND 1176 01003 5207 JMP COM91Z 1177 01004 0601 FIPCOM, FIPCHK 1178 01005 1070 COM91, TAD COMLNK 1179 01006 3060 DCA COMTBE 1180 01007 2060 COM91Z, ISZ COMTBE /GET COMMAND FLAGS 1181 01010 1460 TAD I COMTBE 1182 01011 3061 DCA COMFLG 1183 01012 1061 TAD COMFLG /ENOUGH FREE STORE? 1184 01013 0035 AND C0007 1185 01014 7041 CIA 1186 01015 6201 CDF 1187 01016 1447 TAD I FRECNT 1188 01017 6221 CHDF 1189 01020 7710 SPA CLA 1190 01021 5544 COMWAT /NO 1191 01022 7332 CUSERM /AC=2000 1192 01023 0061 AND COMFLG /USER MEMORY REFERENCE? 1193 01024 7650 SNA CLA 1194 01025 5233 JMP COM16 /NO 1195 01026 7130 STL RAR /AC=SWAP 1196 01027 1053 TAD SIJOB /YES, IS USER BEING SWAPPED? 1197 01030 4527 CORES 1198 01031 7640 SZA CLA 1199 01032 5544 COMWAT 1200 01033 2060 COM16, ISZ COMTBE 1201 01034 1053 TAD SIJOB 1202 01035 7640 SZA CLA 1203 01036 1460 TAD I COMTBE /STORE IOT 1204 01037 7440 SZA /NON RESIDENT IOT? 1205 01040 4604 JMS I FIPCOM /YES--IS HE RUNNING A PROGRAM? 1206 01041 1062 TAD IOTPAR 1207 01042 3010 DCA IX1 1208 01043 1041 TAD C7770 1209 01044 3054 DCA CHDFA 1210 01045 1460 TAD I COMTBE /FIX UP IOTP0 1211 01046 3410 DCA I IX1 1212 01047 2054 ISZ CHDFA 1213 01050 5246 JMP .-2 1214 01051 2060 ISZ COMTBE 1215 01052 1460 TAD I COMTBE 1216 01053 3060 DCA COMTBE 1217 01054 1061 TAD COMFLG 1218 01055 7710 SPA CLA /LOGIN REQUIRED? 1219 01056 5460 JMP I COMTBE /NO, DISPATCH 1220 01057 1053 TAD SIJOB 1221 01060 7650 SNA CLA /NULL JOB? 1222 01061 5705 JMP I COM12A 1223 01062 1061 TAD COMFLG /SAVE REGISTERS? 1224 01063 0040 AND C1000 1225 01064 7650 SNA CLA /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 29 1226 01065 5460 JMP I COMTBE /NO, DISPATCH 1227 01066 4512 GETTBA 1228 01067 0011 JOBREG 1229 01070 3274 DCA COMREG 1230 01071 6202 CIF 1231 01072 4567 BLT 1232 01073 6211 DATFLD 1233 01074 0000 COMREG, 0 1234 01075 6201 CDF 1235 01076 0026 SIREG 1236 01077 7775 -3 1237 01100 6211 DATFLD /PC=-1 1238 01101 7240 STA 1239 01102 3674 DCA I COMREG 1240 01103 6221 CHDF 1241 01104 5460 JMP I COMTBE 1242 01105 1214 COM12A, COM12 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 30 1243 1244 01106 1053 COM99A, TAD SIJOB /IS HE LOGGED IN? 1245 01107 7650 SNA CLA 1246 01110 1143 TAD COMES1 /NO, SO SEND "LOGIN PLEASE" 1247 01111 5505 JMP I COMERA 1248 1249 5520 CALFIP=JMP I CALFIA 1250 1251 01112 7344 CALFI0, STA CLL RAL /SAVE RETURN ADDRESS 1252 01113 1060 TAD COMTBE 1253 01114 6201 CDF 1254 01115 3423 DCA I COMDSP 1255 01116 1061 TAD COMFLG /SAVE FLAGS 1256 01117 3424 DCA I SIFLG 1257 01120 1073 TAD CHAR 1258 01121 3425 DCA I SICHAR 1259 01122 1356 TAD CALFBA 1260 01123 3342 LOADUS, DCA CALFI2 1261 01124 6221 CHDF 1262 01125 1361 TAD CALFI4 1263 01126 1164 TAD DSUTBA 1264 01127 4511 GETFBL 1265 01130 5544 COMWAT 1266 01131 3344 DCA CALFI1 1267 01132 4530 ASSCOR 1268 01133 6203 CIF CDF 1269 01134 1053 TAD SIJOB 1270 01135 1015 TAD C0200 1271 01136 3560 DCA I JOB 1272 01137 6221 CHDF 1273 01140 4567 BLT 1274 01141 6221 CHDF 1275 OFF5, /SOURCE FIELD 1276 01142 0000 CALFI2, 0 /SOURCE ADDR 1277 01143 6211 DATFLD /DESTINATION FLD 1278 01144 0000 CALFI1, 0 /DESTINATION ADDR 1279 01145 7770 -10 1280 01146 6203 CIF CDF 1281 01147 2565 ISZ I DSBUSY 1282 01150 5577 WAIT 1283 01151 5752 JMP I .+1 1284 01152 0562 OVRLA1 1285 01153 1355 DEPEXA, TAD CALFI5 1286 01154 5323 JMP LOADUS 1287 01155 0063 CALFI5, IOTP0 1288 1289 01156 1157 CALFBA, .+1 1290 01157 6603 DMAR 1291 01160 0004 FIPDEX 1292 01161 0010 CALFI4, 10 /MEMORY EXT IN 7-9 1293 01162 0000 -FIPWC 1294 01163 7777 -1 1295 01164 0000 0 1296 01165 5171 OVERLA 1297 01166 0000 0 1298 1299 01167 5724 OFF3A, ACTNM1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 31 1300 01170 7774 OFF4, 7774 /ALLOW ONLY ACCOUNTS 1, 2 & 3 TO LOGIN 1301 01171 0164 OFFJOB, F1OFFJ 1302 01172 1370 OFFLIN, TAD OFF4 1303 01173 3342 ON, DCA OFF5 1304 01174 4767 JMS I OFF3A /CHECK ACCOUNT NUMBER 1305 01175 1342 TAD OFF5 /.. 0 IF ON 1306 01176 6211 DATFLD 1307 01177 3771 DCA I OFFJOB /STORE IT IN FIELD 1 1308 01200 5506 JMP I COMEXA /RETURN 1309 01201 0300 COMFLE, PRQM+PRBUF 1310 01202 0200 COPRBF, PRBUF 1311 01203 0010 COMESF, NOMESS 1312 01204 0100 COMQM, PRQM 1313 01205 0020 COMCRF, PRCRLF 1314 01206 0060 COMELF, PRPER+PRCRLF 1315 01207 1411 CO18A, COM18 1316 01210 0400 COMURE, UREST 1317 01211 7377 COMURM, -UREST-1 1318 01212 7505 MSEMI, -273 1319 01213 7563 MCR, -215 1320 1321 01214 1061 COM12, TAD COMFLG 1322 01215 0211 AND COMURM 1323 01216 3061 DCA COMFLG 1324 01217 1143 TAD COMES1 1325 1326 01220 3316 COMERR, DCA COMESA 1327 01221 1061 TAD COMFLG 1328 01222 0137 AND C7700 1329 01223 1206 TAD COMELF /SET FLAGS FOR ERROR MESSAGE 1330 01224 3061 DCA COMFLG 1331 01225 1316 TAD COMESA 1332 01226 7640 SZA CLA 1333 01227 5236 JMP COMRET+1 1334 01230 1201 TAD COMFLE 1335 01231 1061 TAD COMFLG 1336 01232 7410 SKP 1337 01233 1206 COM64, TAD COMELF 1338 01234 3061 DCA COMFLG 1339 1340 01235 3316 COMRET, DCA COMESA 1341 01236 6221 CHDF 1342 01237 1061 TAD COMFLG /RESTORE REGISTERS 1343 01240 0210 AND COMURE 1344 01241 7650 SNA CLA 1345 01242 5255 JMP COMRE0 1346 01243 4512 GETTBA 1347 01244 0011 JOBREG 1348 01245 3253 DCA .+6 1349 01246 6202 CIF 1350 01247 4567 BLT 1351 01250 6201 CDF 1352 01251 0026 SIREG 1353 01252 6211 DATFLD 1354 01253 0000 0 1355 01254 7775 -3 1356 01255 1061 COMRE0, TAD COMFLG /MESSAGE? /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 32 1357 01256 0203 AND COMESF 1358 01257 7640 SZA CLA 1359 01260 5336 JMP COM10 /NO 1360 01261 4502 ASCOUT 1361 01262 6635 CRLF 1362 01263 7000 NOP 1363 01264 1061 TAD COMFLG 1364 01265 0202 AND COPRBF 1365 01266 7650 SNA CLA /PRINT BUFFER? 1366 01267 5307 JMP COMRE3 /NO, DELETE COMMAND 1367 01270 4745 JMS I CORSET /YES, RESTORE BUFFER POINTER 1368 01271 4504 COMRE1, COMGET /GET A CHAR 1369 01272 5307 JMP COMRE3 /NONE 1370 01273 7126 STL RTL 1371 01274 4503 ENDTST /LAST CHARACTER OF COMMAND LINE? 1372 01275 5307 JMP COMRE3 /YES; DON'T ECHO THIS ONE 1373 01276 4521 RESDDB 1374 01277 6203 CIF CDF 1375 01300 3421 DCA I CONDVA 1376 01301 1073 TAD CHAR 1377 01302 3431 DCA I TTCHAR 1378 01303 6221 CHDF 1379 01304 4573 PRINT 1380 01305 5271 JMP COMRE1 1381 01306 5271 JMP COMRE1 1382 01307 4762 COMRE3, SKPCOM /SKIP TO END OF COMMAND 1383 01310 7000 NOP 1384 01311 4525 BUFDEL /DELETE TO CURRENT POINTER 1385 01312 1316 TAD COMESA 1386 01313 7650 SNA CLA 1387 01314 5320 JMP COM11 1388 01315 4502 ASCOUT /OUTPUT MESSAGE 1389 01316 0000 COMESA, 0 1390 01317 5336 JMP COM10 /WON'T FIT 1391 01320 1061 COM11, TAD COMFLG /PRINT ?? 1392 01321 0204 AND COMQM 1393 01322 7650 SNA CLA 1394 01323 5327 JMP COM13 /NO 1395 01324 4502 ASCOUT 1396 01325 5773 QQEST 1397 01326 5336 JMP COM10 1398 01327 1061 COM13, TAD COMFLG /PRINT CRLF? 1399 01330 0205 AND COMCRF 1400 01331 7650 SNA CLA 1401 01332 5336 JMP COM10 1402 01333 4502 ASCOUT 1403 01334 6635 CRLF 1404 01335 7000 NOP 1405 01336 1073 COM10, TAD CHAR 1406 01337 1212 TAD MSEMI 1407 01340 7650 SNA CLA 1408 01341 5744 JMP I COM22A 1409 01342 4500 DECRCT /DECREMENT COMCNT 1410 01343 5607 JMP I CO18A /YES 1411 01344 1521 COM22A, COM22 1412 01345 2664 CORSET, RESTBP 1413 01346 3352 LOGIF2, DCA .+4 /SAVE POINTER TO TIME ASCII STRING /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 33 1414 01347 1107 TAD COMEXP /RESTORE COMRET 1415 01350 3106 DCA COMEXA 1416 01351 4502 ASCOUT /OUTPUT TIME MESSAGE 1417 01352 0000 0 1418 01353 5506 JMP I COMEXA /NO ROOM, SO DON'T PROCEED 1419 01354 1073 TAD CHAR /ENDED WITH RETURN? 1420 01355 1213 TAD MCR 1421 01356 7650 SNA CLA 1422 01357 1361 TAD VERBRA /YES, SO OUTPUT MESSAGE OF THE DAY 1423 01360 5506 JMP I COMEXA /DONE AT LAST 1424 1425 01361 7576 VERBRA, VERBRK-2 1426 01362 2432 SKPCOA, SKPCO0 /SKIP TO END OF COMMAND 1427 4762 SKPCOM=JMS I SKPCOA 1428 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 34 1429 1430 01363 0301 LOGE0, "A;"L;"R;"E;"A;"D;"Y;240;"L;"O;"G;"G;"E;"D;240;"I;"N;0 01364 0314 01365 0322 01366 0305 01367 0301 01370 0304 01371 0331 01372 0240 01373 0314 01374 0317 01375 0307 01376 0307 01377 0305 01400 0304 01401 0240 01402 0311 01403 0316 01404 0000 1431 01405 7637 COMMSI, -SICOM-DECHO-1 1432 01406 0040 COMPF, PRPER 1433 01407 7506 COMCLN, -272 1434 01410 7677 COMKEY, -JSDEL-1 1435 0037 COMKEF= C0100 1436 1437 01411 6211 COM18, DATFLD 1438 01412 1055 TAD COMDB0 /JOB DEFINED? 1439 01413 7450 SNA /HAS HE JUST LOGGED OUT? 1440 01414 5321 JMP COM22 1441 01415 7001 IAC 1442 01416 3054 DCA CHDFA 1443 01417 1455 TAD I COMDB0 1444 01420 0205 AND COMMSI 1445 01421 3455 DCA I COMDB0 1446 01422 1454 TAD I CHDFA 1447 01423 0036 AND C0037 1448 01424 7650 SNA CLA 1449 01425 5340 JMP COM17 /NO 1450 01426 6221 CHDF 1451 01427 4523 GETWRD 1452 01430 0000 JOBSTS 1453 01431 6211 DATFLD 1454 01432 7700 SMA CLA /IS JOB RUNNING? 1455 01433 5333 JMP COM20 /NO 1456 01434 1455 TAD I COMDB0 1457 01435 0337 AND COMSIF 1458 01436 3455 DCA I COMDB0 /SAVE WITH FLAG CLEARED 1459 01437 1206 TAD COMPF 1460 01440 7040 CMA 1461 01441 0061 AND COMFLG 1462 01442 3061 DCA COMFLG 1463 01443 2072 ISZ IOTP7 1464 01444 1073 TAD CHAR 1465 01445 1207 TAD COMCLN 1466 01446 7640 SZA CLA 1467 01447 5254 JMP COM21 1468 01450 1472 TAD I IOTP7 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 35 1469 01451 0210 AND COMKEY 1470 01452 1037 TAD COMKEF 1471 01453 3472 DCA I IOTP7 1472 01454 7126 COM21, STL RTL 1473 01455 1072 TAD IOTP7 1474 01456 3074 DCA NUMHO 1475 01457 7001 IAC 1476 01460 1074 TAD NUMHO 1477 01461 3075 DCA NUMHO+1 1478 01462 1475 TAD I NUMHO+1 1479 01463 7450 SNA 1480 01464 1474 TAD I NUMHO 1481 01465 7640 SZA CLA 1482 01466 5274 JMP COM19 1483 01467 2474 ISZ I NUMHO 1484 01470 1472 TAD I IOTP7 1485 01471 7010 RAR 1486 01472 7124 STL RAL 1487 01473 3472 DCA I IOTP7 1488 01474 1073 COM19, TAD CHAR /GET TERMINATING CHARACTER 1489 01475 1352 TAD MCRS 1490 01476 7640 SZA CLA /WAS IT CR 1491 01477 5321 JMP COM22 /NO; LEAVE OUTPUT MODE AS IS 1492 01500 4521 RESDDB /DETERMINE DEVTBL ADDRESSES FOR THIS TERMINAL 1493 01501 7240 STA 1494 01502 1056 TAD COMRDB 1495 01503 3317 DCA QON /SAVE KEYBOARD DEVTBL POINTER 1496 01504 6211 DATFLD 1497 01505 1456 TAD I COMRDB /GET ADDRESS OF OUTPUT DDB 1498 01506 3072 DCA IOTP7 1499 01507 1472 TAD I IOTP7 1500 01510 7700 SMA CLA /^S MODE? 1501 01511 5321 JMP COM22 /NO 1502 01512 1320 TAD CTRLQ /YES; FORCE A ^Q THROUGH THE INPUT ROUTINES 1503 01513 6203 CIF CDF 00 1504 01514 3431 DCA I TTCHAR 1505 01515 6221 CHDF 1506 01516 4575 KEY /PUSH IT THRU 1507 01517 0000 QON, .-. /DEVTBL ADDRESS 1508 01520 0221 CTRLQ, "Q-100 /"KEY" CAN'T FAIL 1509 01521 7200 COM22, CLA 1510 01522 6221 CHDF 1511 01523 1061 TAD COMFLG 1512 01524 0206 AND COMPF 1513 01525 7650 SNA CLA 1514 01526 5522 EXIT 1515 01527 4502 ASCOUT 1516 01530 5776 PERIOD 1517 01531 5522 EXIT 1518 01532 5522 EXIT 1519 01533 6202 COM20, CIF 00 1520 01534 1055 TAD COMDB0 1521 01535 4753 JMS I SICLRA 1522 01536 5274 JMP COM19 1523 01537 6777 COMSIF, -DSI-1 1524 01540 6203 COM17, CIF CDF 00 1525 01541 1420 TAD I COMPTR /DELETE THE INPUT DDB SINCE WE'RE DONE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 36 1526 01542 3054 DCA CHDFA 1527 01543 6211 DATFLD 1528 01544 3454 DCA I CHDFA 1529 01545 1055 TAD COMDB0 1530 01546 4753 JMS I SICLRA 1531 01547 1055 TAD COMDB0 1532 01550 4513 RETDBL 1533 01551 5321 JMP COM22 1534 1535 01552 7563 MCRS, -215 1536 01553 6572 SICLRA, SICLR /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 37 1537 1538 /ROUTINE TO GET TEXT STRING FROM USERS INPUT BUFFER TO LAST PAGE 1539 /OF SI, WHERE THEY STORE LOGIN MESSAGE 1540 1541 /CALL JMS STRNG0 1542 / RETURN 1543 1544 01554 0000 STRNG0, 0 1545 01555 1375 TAD STRBRK /SET UP POINTERS 1546 01556 3063 DCA IOTP0 /POINTS TO START OF BUFFER 1547 01557 1063 TAD IOTP0 1548 01560 3064 DCA IOTP1 /POINTS TO END OF BUFFER 1549 01561 4404 SKIP /SKIP SPACES AND TABS 1550 01562 5373 JMP STREND /END OF INPUT BUFFER REACHED 1551 01563 1073 STRNG1, TAD CHAR /SAVE CHARACTER IN BUFFER 1552 01564 3464 DCA I IOTP1 1553 01565 2064 ISZ IOTP1 /READY FOR NEXT CHARACTER 1554 01566 7410 SKP 1555 01567 5505 JMP I COMERA /HOW COULD HE TYPE SO MUCH? 1556 01570 4504 COMGET /GET ANOTHER CHARACTER 1557 01571 5373 JMP STREND /NONE 1558 01572 5363 JMP STRNG1 /AND LOOK AT IT 1559 1560 01573 3464 STREND, DCA I IOTP1 /END THE STRING 1561 01574 5754 JMP I STRNG0 /RETURN 1562 1563 01575 7600 STRBRK, VERBRK 1564 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 38 1565 1566 1600 *SUBR 1567 1568 /GET A TEXT STRING 1569 /CALL TAD ADDRESS OF BUFFER -1 1570 / TEXTS 1571 / RETURN WITH POINTER TO LAST CHAR IN AC 1572 1573 01600 7537 CTEXA, -241 1574 01601 7440 CTEXZ, -340 1575 01602 7506 CTEXCN, -272 1576 01603 7772 CTEX6, -6 1577 01604 0000 CTEXBF, 0 /BEGIN OF BUFFER 1578 01605 0000 CTEXNU, 0 /NUMBER OF CHARACTERS 1579 1580 01606 0000 CTEXT, 0 1581 01607 3010 DCA IX1 /INITIALIZE INDEX 1582 01610 1010 TAD IX1 1583 01611 7041 CIA 1584 01612 3204 DCA CTEXBF 1585 01613 3205 DCA CTEXNU 1586 01614 4404 SKIP /SKIP SPACES AND TABS 1587 01615 5245 JMP CTEXT4 1588 01616 1073 CTEXT3, TAD CHAR 1589 01617 1202 TAD CTEXCN 1590 01620 7110 CLL RAR 1591 01621 7650 SNA CLA /COLON OR SEMICOLON? 1592 01622 5245 JMP CTEXT4 /YES 1593 01623 1073 TAD CHAR /NO 1594 01624 1200 TAD CTEXA 1595 01625 7710 SPA CLA 1596 01626 5245 JMP CTEXT4 /NO 1597 01627 1073 TAD CHAR 1598 01630 1201 TAD CTEXZ 1599 01631 7700 SMA CLA 1600 01632 5245 JMP CTEXT4 /NO 1601 01633 1205 TAD CTEXNU /STORE CHARACTER 1602 01634 1203 TAD CTEX6 1603 01635 7700 SMA CLA 1604 01636 5241 JMP .+3 1605 01637 1073 TAD CHAR 1606 01640 3410 DCA I IX1 1607 01641 2205 ISZ CTEXNU 1608 01642 4504 COMGET /GET ANOTHER CHAR 1609 01643 7410 SKP /NONE 1610 01644 5216 JMP CTEXT3 1611 01645 3410 CTEXT4, DCA I IX1 /CLEAR NEXT POSITION 1612 01646 7240 STA 1613 01647 1010 TAD IX1 1614 01650 5606 JMP I CTEXT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 39 1615 1616 /SKIP LEADING SPACES AND TABS 1617 /CALL JMS SKIPS 1618 / BUFFER EMPTY 1619 / NORMAL RETURN 1620 1621 01651 7540 SKISPA, -240 1622 01652 7567 SKITAB, -211 1623 1624 01653 0000 SKIPS, 0 1625 01654 5257 JMP .+3 1626 01655 4504 SKIPS1, COMGET 1627 01656 5653 JMP I SKIPS /NONE LEFT 1628 01657 1073 TAD CHAR 1629 01660 7450 SNA 1630 01661 5255 JMP .-4 1631 01662 1251 TAD SKISPA 1632 01663 7650 SNA CLA 1633 01664 5255 JMP SKIPS1 1634 01665 1252 TAD SKITAB 1635 01666 1073 TAD CHAR 1636 01667 7650 SNA CLA 1637 01670 5255 JMP SKIPS1 1638 01671 2253 ISZ SKIPS 1639 01672 5653 JMP I SKIPS /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 40 1640 1641 /GET A CHARACTER FROM COMMAND STRING 1642 /CALL COMGET 1643 / NONE LEFT 1644 / RETURN WITH CHARACTER IN CHAR 1645 1646 01673 7766 TC7766, 7766 1647 01674 7400 TC7400, 7400 1648 01675 0377 C0377, 377 1649 4504 COMGET=JMS I COMGEA 1650 01676 0000 COMGE0, 0 1651 01677 7200 CLA 1652 01700 6211 DATFLD 1653 01701 1422 TAD I SITCNT 1654 01702 7450 SNA 1655 01703 5347 JMP COMGE3 1656 01704 2276 ISZ COMGE0 1657 01705 7041 CIA 1658 01706 7040 CMA 1659 01707 3422 DCA I SITCNT 1660 01710 2541 ISZ I SIECNT 1661 01711 5320 JMP COMGE1 1662 01712 1273 TAD TC7766 1663 01713 3541 DCA I SIECNT 1664 01714 1542 TAD I SIBUF 1665 01715 3351 DCA COMGT1 1666 01716 1751 TAD I COMGT1 1667 01717 3542 DCA I SIBUF 1668 01720 1541 COMGE1, TAD I SIECNT 1669 01721 1033 TAD C0003 1670 01722 7500 SMA 1671 01723 7124 STL RAL 1672 01724 7510 SPA 1673 01725 7161 STL CIA 1674 01726 1542 TAD I SIBUF 1675 01727 3351 DCA COMGT1 1676 01730 1751 TAD I COMGT1 1677 01731 7430 SZL 1678 01732 5345 JMP COMGE2 1679 01733 0274 AND TC7400 1680 01734 3364 DCA COMGT2 1681 01735 2351 ISZ COMGT1 1682 01736 1751 TAD I COMGT1 1683 01737 0274 AND TC7400 1684 01740 7112 CLL RTR 1685 01741 7012 RTR 1686 01742 1364 TAD COMGT2 1687 01743 7012 RTR 1688 01744 7012 RTR 1689 01745 0275 COMGE2, AND C0377 1690 01746 3073 DCA CHAR 1691 01747 6221 COMGE3, CHDF 1692 01750 5676 JMP I COMGE0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 41 1693 1694 /GET A FREE BLOCK AND RETURN ITS ADDRESS 1695 /CALL TAD FIELD 1 LINK 1696 / GETFBL 1697 / NONE AVAILABLE 1698 / ADDR IN AC 1699 1700 4511 GETFBL=JMS I GETFBA 1701 1702 COMGT1, 1703 01751 0000 GETFB0, 0 1704 01752 3054 DCA CHDFA 1705 01753 1054 TAD CHDFA 1706 01754 6202 CIF 1707 01755 4571 GETBLK 1708 01756 5751 JMP I GETFB0 1709 01757 6211 DATFLD 1710 01760 1454 TAD I CHDFA 1711 01761 6221 CHDF 1712 01762 2351 ISZ GETFB0 1713 01763 5751 JMP I GETFB0 1714 1715 1716 /SEARCH FOR JOB IN CORE 1717 /CALL TAD SEARCH ITEM 1718 / CORES 1719 / RETURN WITH CORE ARG IN AC 1720 1721 COMGT2, 1722 01764 0000 CORSER, 0 1723 01765 6202 CIF 1724 01766 4570 CORE 1725 01767 4237 SWAP SI CJOB 1726 01770 7200 CLA 1727 01771 5764 JMP I CORSER 1728 1729 1730 1731 1732 01772 0312 JOBNO, "J;"O;"B;240;0 01773 0317 01774 0302 01775 0240 01776 0000 1733 01777 0240 KSPACE, 240;240;"K;0 02000 0240 02001 0313 02002 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 42 1734 1735 1736 /NUMBER INPUT 1737 /CALL NUMBIN 1738 / -N N=7,9 IN ASCII 1739 / NOT A NUMBER 1740 / # IN AC 1741 1742 4501 NUMBIN=JMS I NUMBIA 1743 1744 ASCOT0, 1745 02003 0000 NUMSGN, 0 /SIGN 1746 0075 NUMAGN=NUMHO+1 /MAGNITUDE 1747 ASCOT1, 1748 02004 0000 NUMCNT, 0 /DIGIT COUNT 1749 02005 7764 NUMCOM, 240-254 /" "-"," 1750 02006 7525 NUMPLS, -253 /+ 1751 02007 7523 NUMINU, -255 /- 1752 02010 7520 NUMZER, -260 1753 02011 7773 NUMM5, -5 1754 02012 0017 NUMB17, 17 1755 02013 5304 NUMDSP, JMP NUMDEC 1756 1757 02014 0000 NUMBI0, 0 1758 02015 1614 TAD I NUMBI0 /SET CONVERSION DISPATCH 1759 02016 0032 AND C0002 1760 02017 7650 SNA CLA 1761 02020 1042 TAD C0010 1762 02021 1213 TAD NUMDSP 1763 02022 3303 DCA NUMDEC-1 1764 02023 3203 DCA NUMSGN /INITIALIZE 1765 02024 3075 DCA NUMAGN 1766 02025 3074 DCA NUMHO 1767 02026 3204 DCA NUMCNT 1768 02027 4404 SKIP /SKIP SPACES AND TABS 1769 02030 5346 JMP NUMBI4 /BUFFER EMPTY 1770 02031 1073 TAD CHAR 1771 02032 1206 TAD NUMPLS /+? 1772 02033 7650 SNA CLA 1773 02034 5242 JMP NUMBI1 /YES 1774 02035 1073 TAD CHAR 1775 02036 1207 TAD NUMINU /-? 1776 02037 7640 SZA CLA 1777 02040 5244 JMP NUMBI2 /NO 1778 02041 2203 ISZ NUMSGN 1779 02042 4504 NUMBI1, COMGET /GET A CHARACTER 1780 02043 5322 JMP NUMBI3 1781 02044 1073 NUMBI2, TAD CHAR 1782 02045 1210 TAD NUMZER 1783 02046 7710 SPA CLA /DIGIT? 1784 02047 5322 JMP NUMBI3 /NO 1785 02050 1073 TAD CHAR 1786 02051 1614 TAD I NUMBI0 1787 02052 7740 SMA SZA CLA 1788 02053 5322 JMP NUMBI3 1789 02054 1073 TAD CHAR 1790 02055 0212 AND NUMB17 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 43 1791 02056 3054 DCA CHDFA 1792 02057 2204 ISZ NUMCNT 1793 02060 1204 TAD NUMCNT /MORE THAN 4 DIGITS? 1794 02061 1211 TAD NUMM5 1795 02062 7710 SPA CLA 1796 02063 5277 JMP NUMBI5 /NO 1797 02064 1074 TAD NUMHO /SHIFT HIGH ORDER 1798 02065 7106 CLL RTL 1799 02066 7004 RAL 1800 02067 0041 AND C7770 1801 02070 3074 DCA NUMHO 1802 02071 1075 TAD NUMAGN 1803 02072 7106 CLL RTL 1804 02073 7006 RTL 1805 02074 0035 AND C0007 1806 02075 1074 TAD NUMHO 1807 02076 3074 DCA NUMHO 1808 02077 1075 NUMBI5, TAD NUMAGN 1809 02100 7106 CLL RTL 1810 02101 7004 RAL 1811 02102 0041 AND C7770 1812 02103 2103 . 1813 02104 7100 NUMDEC, CLL 1814 02105 1075 TAD NUMAGN 1815 02106 7430 SZL 1816 02107 2074 ISZ NUMHO 1817 02110 7100 CLL 1818 02111 1075 TAD NUMAGN 1819 02112 7430 SZL 1820 02113 2074 ISZ NUMHO 1821 02114 7100 CLL 1822 02115 1054 TAD CHDFA 1823 02116 7430 SZL 1824 02117 2074 ISZ NUMHO 1825 02120 3075 DCA NUMAGN 1826 02121 5242 JMP NUMBI1 1827 1828 02122 1350 NUMBI3, TAD C7540 /-SPACE 1829 02123 1073 TAD CHAR /WAS TERMINATOR A SPACE? 1830 02124 7450 SNA 1831 02125 5334 JMP NUMBI6 /YES, OK 1832 02126 1205 TAD NUMCOM /NO- IS IT A "," 1833 02127 7650 SNA CLA 1834 02130 5334 JMP NUMBI6 /YES 1835 02131 4503 ENDTST /NO--WAS IT AN ACCEPTABLE END CHAR? 1836 02132 7410 SKP /YES, OK 1837 02133 5346 JMP NUMBI4 /NO, COMPLAIN 1838 1839 02134 1204 NUMBI6, TAD NUMCNT /ANY VALID DIGITS IN STRING? 1840 02135 7650 SNA CLA 1841 02136 5346 JMP NUMBI4 /NOPE 1842 02137 2214 ISZ NUMBI0 /YES, IT WAS A VALID STRING. 1843 02140 1203 TAD NUMSGN 1844 02141 7110 CLL RAR 1845 02142 7200 CLA 1846 02143 1075 TAD NUMAGN 1847 02144 7430 SZL /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 44 1848 02145 7041 CIA 1849 02146 2214 NUMBI4, ISZ NUMBI0 1850 02147 5614 JMP I NUMBI0 1851 02150 7540 C7540, -240 /-SPACE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 45 1852 1853 /OUTPUT ASCII MESSAGE 1854 /CALL TAD ADDR OF DEVTBL ENTRY OR 0 IF RESPONSE DDB 1855 / ASCOUT 1856 / POINTER TO MESSAGE (TERMINATED BY 0 1857 / WON'T FIT 1858 / OK 1859 1860 4502 ASCOUT=JMS I ASCOUA 1861 1862 1863 02151 0000 ASCOU0, 0 1864 02152 7450 SNA 1865 02153 4521 RESDDB 1866 02154 6201 ASCOU3, CDF 1867 02155 3421 DCA I CONDVA 1868 02156 6221 CHDF 1869 02157 1751 TAD I ASCOU0 1870 02160 3204 DCA ASCOT1 1871 02161 2351 ISZ ASCOU0 1872 02162 1604 ASCOU1, TAD I ASCOT1 /GET NEXT CHAR 1873 02163 7450 SNA /END OF STRING 1874 02164 5374 JMP ASCOU2 /YES 1875 02165 6203 CIF CDF /NO, STORE IT IN BUFFER 1876 02166 3431 DCA I TTCHAR 1877 02167 6221 CHDF 1878 02170 4573 PRINT 1879 02171 5751 JMP I ASCOU0 /WON'T FIT 1880 02172 2204 ISZ ASCOT1 1881 02173 5362 JMP ASCOU1 1882 02174 2351 ASCOU2, ISZ ASCOU0 1883 02175 5751 JMP I ASCOU0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 46 1884 1885 2200 *SUBR+400 1886 1887 /GET JOB TABLE ADDRESS 1888 /CALL GETTBA 1889 / RELATIVE ADDRESS 1890 / RETURN 1891 1892 4512 GETTBA=JMS I GETBAA 1893 1894 02200 0000 GETTB0, 0 1895 02201 6221 CHDF 1896 02202 1600 TAD I GETTB0 1897 02203 3210 DCA GETTB1 1898 02204 2200 ISZ GETTB0 1899 02205 1161 TAD JOBDAT 1900 02206 6202 CIF 1901 02207 4574 GETJTA 1902 02210 0000 GETTB1, 0 1903 02211 5600 JMP I GETTB0 1904 /GET RESPONSE DEVTBL ADDRESS 1905 /CALL RESDDB 1906 / ADDR IN AC AND COMRDB 1907 1908 4521 RESDDB=JMS I RESPDA 1909 1910 02212 0000 RESPDB, 0 1911 02213 6201 CDF 1912 02214 7001 IAC 1913 02215 1420 TAD I COMPTR 1914 02216 3056 DCA COMRDB 1915 02217 1056 TAD COMRDB 1916 02220 6221 CHDF 1917 02221 5612 JMP I RESPDB /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 47 1918 1919 /DELETE BUFFER TO CURRENT POINTER 1920 /CALL JMS BUFDEL 1921 / RETURN 1922 1923 4525 BUFDEL=JMS I BUFDEA 1924 1925 02222 0000 BUFDT0, 0 1926 02223 0000 BUFDE0, 0 1927 02224 1055 TAD COMDB0 1928 02225 7450 SNA 1929 02226 5623 JMP I BUFDE0 /NO, NOTHING TO DELETE 1930 02227 1034 TAD C0004 1931 02230 3222 DCA BUFDT0 1932 02231 6211 DATFLD 1933 02232 1622 TAD I BUFDT0 1934 02233 7650 SNA CLA 1935 02234 5265 JMP BUFDE3 1936 02235 1055 TAD COMDB0 1937 02236 1035 TAD C0007 1938 02237 3222 DCA BUFDT0 1939 02240 1542 BUFDE1, TAD I SIBUF 1940 02241 7041 CIA 1941 02242 1622 TAD I BUFDT0 1942 02243 7650 SNA CLA 1943 02244 5253 JMP BUFDE2 1944 02245 1622 TAD I BUFDT0 1945 02246 6221 CHDF 1946 02247 4513 RETDBL 1947 02250 6211 DATFLD 1948 02251 3622 DCA I BUFDT0 1949 02252 5240 JMP BUFDE1 1950 02253 1033 BUFDE2, TAD C0003 1951 02254 1055 TAD COMDB0 1952 02255 3010 DCA IX1 1953 02256 1422 TAD I SITCNT 1954 02257 7450 SNA 1955 02260 5267 JMP BUFDE4 1956 02261 2010 ISZ IX1 1957 02262 3410 DCA I IX1 1958 02263 1541 TAD I SIECNT 1959 02264 3410 DCA I IX1 1960 02265 6221 BUFDE3, CHDF 1961 02266 5623 JMP I BUFDE0 1962 1963 02267 1622 BUFDE4, TAD I BUFDT0 1964 02270 6221 CHDF 1965 02271 4514 RETBKS 1966 02272 6211 DATFLD 1967 02273 3410 DCA I IX1 1968 02274 3410 DCA I IX1 1969 02275 3410 DCA I IX1 1970 02276 3410 DCA I IX1 1971 02277 6221 CHDF 1972 02300 5623 JMP I BUFDE0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 48 1973 1974 /DECREMENT COMCNT 1975 /CALL DECRCT 1976 / RETURN 1977 1978 4500 DECRCT=JMS I DECRCA 1979 1980 02301 0000 DECRC0, 0 1981 02302 6201 CDF 1982 02303 7240 STA 1983 02304 1452 TAD I COMCNT 1984 02305 7510 SPA 1985 02306 7200 CLA 1986 02307 3452 DCA I COMCNT 1987 02310 6221 CHDF 1988 02311 5701 JMP I DECRC0 1989 02312 0301 ASSIND, "A;"S;"S;"I;"G;"N;"E;"D;0 02313 0323 02314 0323 02315 0311 02316 0307 02317 0316 02320 0305 02321 0304 02322 0000 1990 02323 3757 S3757, 3757 1991 1992 02324 4523 S, GETWRD 1993 02325 0000 JOBSTS 1994 02326 6211 DATFLD 1995 02327 0323 AND S3757 /TURN OFF HER RUN BIT 1996 02330 3472 DCA I IOTP7 1997 02331 6221 CHDF 1998 1999 IFNZRO TC01+RK05+CDR < 2000 GETWRD 2001 JOBWMK+1 2002 DATFLD 2003 AND C0007 2004 TAD .+3 2005 DCA .+1 2006 .-.> 2007 02332 5733 JMP I .+1 2008 02333 2334 SEXIT /NO WAIT 2 CONDITIONS TAKE S EXIT 2009 IFNZRO TC01+RK05+CDR < 2010 IFNZRO TC01 < 2011 WAIT1 /DECTAPE CONTROLLER WAIT 2012 WAIT2> /DECTAPE TIMER WAIT 2013 IFZERO TC01< 2014 SEXIT 2015 SEXIT> 2016 IFNZRO RK05 < 2017 WAIT3> /WAITING FOR THE RK05 2018 IFZERO RK05 < 2019 SEXIT> 2020 IFNZRO CDR < 2021 SEXIT> /NOTHING SPECIAL FOR THE CARD READER AT THIS TIME /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 49 2022 IFZERO CDR < 2023 SEXIT> 2024 SEXIT 2025 SEXIT 2026 SEXIT> 2027 02334 5506 SEXIT, JMP I COMEXA 2028 02335 0240 SPACES, " ;" ;" ;" ;0 02336 0240 02337 0240 02340 0240 02341 0000 2029 2030 IFZERO MQREG-1 < 2031 2032 WHERMQ, 240 /SP MQ= 2033 315 2034 321 2035 275 2036 0 > 2037 2038 2039 2040 /RUN USER PROGRAM "LOGOUT" TO DELETE FILES FOR THIS GUY 2041 /"LOGOUT" ISSUES USER LOUT IOT TO MAKE JOB GO AWAY 2042 2043 02342 5747 JMP I LOGRER /SYSTEM ERROR ON OPEN 2044 02343 5750 JMP I LOGR1 /"LOGOUT" SAVE FILE OPENED 2045 2046 02344 1351 LOGOUT, TAD LOGMA /GET POINTER TO "LOGOUT" STRING 2047 02345 5746 JMP I .+1 /USER CODE FROM "SYSTAT" TO FINISH UP 2048 02346 4712 SYSTAT+1 2049 2050 02347 4614 LOGRER, RERR 2051 02350 4623 LOGR1, R1 2052 02351 6753 LOGMA, LOGOMA-1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 50 2053 2054 2400 *SUBR+600 2055 2056 /ASCII TO SIXBIT CONVERT 2057 /CALL ASCSIX 2058 / SOURCE-1 (TERMINATED BY 0) 2059 / DESTINATION-1 2060 / RETURN 2061 2062 4510 ASCSIX=JMS I ASCSIA 2063 2064 02400 7540 ASC240, -240 2065 2066 02401 0000 ASCSI0, 0 2067 02402 1601 TAD I ASCSI0 2068 02403 3010 DCA IX1 2069 02404 2201 ISZ ASCSI0 2070 02405 1601 TAD I ASCSI0 2071 02406 3011 DCA IX2 2072 02407 2201 ISZ ASCSI0 2073 02410 1410 ASCSI1, TAD I IX1 2074 02411 7450 SNA 2075 02412 5601 JMP I ASCSI0 /THAT'S ALL 2076 02413 1200 TAD ASC240 /CONVERT TO SIXBIT 2077 02414 7106 CLL RTL /NO 2078 02415 7006 RTL 2079 02416 7006 RTL 2080 02417 3054 DCA CHDFA 2081 02420 1410 TAD I IX1 2082 02421 7450 SNA 2083 02422 5227 JMP ASCSI2 2084 02423 1200 TAD ASC240 2085 02424 1054 TAD CHDFA 2086 02425 3411 DCA I IX2 2087 02426 5210 JMP ASCSI1 2088 02427 1054 ASCSI2, TAD CHDFA 2089 02430 3411 DCA I IX2 2090 02431 5601 JMP I ASCSI0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 51 2091 2092 /SKIP TO END OF COMMAND 2093 /CALL SKPCOM 2094 / EMPTY BUFFER 2095 / NORMAL RETURN 2096 2097 2098 02432 0000 SKPCO0, 0 2099 02433 4503 SKPCO1, ENDTST /END? 2100 02434 5240 JMP SKPCO2 /YES 2101 02435 4504 COMGET /NO, GET NEXT CHAR 2102 02436 5632 JMP I SKPCO0 /NONE 2103 02437 5233 JMP SKPCO1 2104 02440 2232 SKPCO2, ISZ SKPCO0 2105 02441 5632 JMP I SKPCO0 2106 2107 2108 /RETURN BLOCK TO FREE STORAGE 2109 /CALL TAD ADDR OF BLOCK 2110 / RETDBL 2111 / RETURN 2112 2113 4513 RETDBL=JMS I RETDBA 2114 2115 02442 0000 RETDB0, 0 2116 02443 6202 CIF 2117 02444 4576 RETBLK 2118 02445 5642 JMP I RETDB0 2119 2120 /RETURN LINKED BLOCKS TO FREE STORAGE 2121 /CALL TAD ADDRESS OF BLOCK 2122 / RETBKS 2123 / RETURN 2124 2125 4514 RETBKS=JMS I RETBKA 2126 2127 02446 0000 RETBK0, 0 2128 02447 7450 SNA 2129 02450 5646 JMP I RETBK0 2130 02451 4513 RETDBL 2131 02452 5247 JMP .-3 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 52 2132 2133 /OCTAL TO ASCII CONVERT 2134 /CALL TAD OCTAL # 2135 / OCTASC 2136 / BUFFER ADDR-1 2137 / RETURN 2138 2139 4524 OCTASC=JMS I OCTASA 2140 2141 2503 OCTASN=ASSCO0 2142 2512 OCTACT=RELCO0 2143 02453 0260 OCT260, 260 2144 2145 02454 0000 OCTAS0, 0 2146 02455 3303 DCA OCTASN 2147 02456 1034 TAD C0004 2148 02457 7041 CIA 2149 02460 3312 DCA OCTACT 2150 02461 1654 TAD I OCTAS0 2151 02462 3010 DCA IX1 2152 02463 2254 ISZ OCTAS0 2153 02464 1303 TAD OCTASN 2154 02465 7104 CLL RAL 2155 02466 7410 SKP 2156 02467 1303 OCTAS1, TAD OCTASN 2157 02470 7006 RTL 2158 02471 7004 RAL 2159 02472 3303 DCA OCTASN 2160 02473 1303 TAD OCTASN 2161 02474 0035 AND C0007 2162 02475 1253 TAD OCT260 2163 02476 3410 DCA I IX1 2164 02477 2312 ISZ OCTACT 2165 02500 5267 JMP OCTAS1 2166 02501 3410 DCA I IX1 2167 02502 5654 JMP I OCTAS0 2168 2169 /ASSIGN THIS FIELD TO JOB 2170 /CALL ASSCOR 2171 2172 02503 0000 ASSCO0, 0 2173 02504 6201 CDF 2174 02505 1560 TAD I JOB 2175 02506 3711 DCA I SICORE 2176 02507 6221 CHDF 2177 02510 5703 JMP I ASSCO0 2178 2179 /RELEASE THIS FIELD 2180 /CALL RELCOR 2181 2182 02511 7002 SICORE, CORTBL+1 2183 2184 02512 0000 RELCO0, 0 2185 02513 6201 CDF 2186 02514 1015 TAD C0200 2187 02515 3711 DCA I SICORE 2188 02516 6221 CHDF /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 53 2189 02517 5712 JMP I RELCO0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 54 2190 2191 02520 4502 ASSIG9, ASCOUT /TELL USER WHAT HE GOT 2192 02521 6635 CRLF 2193 02522 7000 NOP 2194 02523 4337 JMS ASSUNI 2195 02524 4502 ASCOUT 2196 02525 2312 ASSIND /TYPE "ASSIGNED" 2197 02526 0260 C0260, 260 2198 02527 5506 JMP I COMEXA /AND LEAVE 2199 2200 02530 0000 ASSOUT, 0 /TYPE CHARACTER IN AC OUT; 2201 02531 7041 CIA /FOLLOWED BY SPACE 2202 02532 3374 DCA ASSBUF /CALLED WITH - CHAR IN AC 2203 02533 4502 ASCOUT 2204 02534 2574 ASSBUF /TYPE STRING 2205 02535 7000 NOP 2206 02536 5730 JMP I ASSOUT 2207 2208 02537 0000 ASSUNI, 0 /ROUTINE TO TYPE OUT UNIT NAME 2209 02540 4523 GETWRD /FIRST FIGURE OUT WHAT HE WANTED 2210 02541 0011 JOBREG /PC CONTAINS ORIGINAL REQUEST 2211 02542 0036 AND C0037 2212 02543 3063 DCA IOTP0 /DEVICE # 2213 02544 1063 TAD IOTP0 /WHAT KIND OF DEVICE 2214 02545 1372 TAD C7773 /-5 2215 02546 7510 SPA /DEVICE #'S .GE. 5 ARE DTA 2216 02547 5365 JMP ASSG10 /NOT DTA 2217 02550 3063 DCA IOTP0 /UNIT # 2218 02551 1063 TAD IOTP0 2219 02552 0041 AND C7770 2220 02553 7650 SNA CLA 2221 02554 1035 TAD C0007 2222 02555 1371 TAD ASSDK 2223 02556 4330 JMS ASSOUT /TYPE "D SPACE" (or K space) 2224 02557 1063 TAD IOTP0 2225 02560 0035 AND C0007 2226 02561 1326 TAD C0260 2227 02562 7041 CIA 2228 02563 4330 ASSG11, JMS ASSOUT /TYPE "N SPACE"; N=0,1,...,7 2229 02564 5737 JMP I ASSUNI /RETURN 2230 2231 02565 1373 ASSG10, TAD ASSTBZ /END OF ASSIGNMENT TABLE 2232 02566 3063 DCA IOTP0 / +UNIT # -5 = PTR TO ASSTBL 2233 02567 1463 TAD I IOTP0 2234 02570 5363 JMP ASSG11 /TYPE OUT DEVICE ASSIGNED 2235 2236 02571 7465 ASSDK, -"K 2237 02572 7773 C7773, 7773 2238 02573 3406 ASSTBZ, ASSD 2239 02574 0000 ASSBUF, 0 2240 02575 0240 240 2241 02576 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 55 2242 2243 2600 *SUBR+1000 2244 2245 /SIXBIT TO ASCII CONVERT 2246 /CALL JMS SIXASC 2247 / SIXBIT ADDR (TERMINATED BY 0 OR SIXTH CHAR) 2248 / ASCII BUFFER-1 2249 / RETURN 2250 2251 02600 7775 SIXM6, -3 2252 02601 0000 SIXCNT, 0 2253 02602 0000 SIXADR, 0 2254 2762 SIX240=WHERLK 2255 02603 0077 C0077, 77 2256 2257 02604 0000 SIXASC, 0 2258 02605 7450 SNA 2259 02606 1200 TAD SIXM6 /COUNT 2260 02607 3201 DCA SIXCNT 2261 02610 1604 TAD I SIXASC 2262 02611 3202 DCA SIXADR 2263 02612 2204 ISZ SIXASC 2264 02613 1604 TAD I SIXASC 2265 02614 3011 DCA IX2 2266 02615 2204 ISZ SIXASC 2267 02616 1602 SIXAS2, TAD I SIXADR 2268 02617 0137 AND C7700 2269 02620 7450 SNA 2270 02621 5240 JMP SIXAS1 2271 02622 7112 CLL RTR 2272 02623 7012 RTR 2273 02624 7012 RTR 2274 02625 1362 TAD SIX240 2275 02626 3411 DCA I IX2 2276 02627 1602 TAD I SIXADR 2277 02630 0203 AND C0077 2278 02631 7450 SNA 2279 02632 5240 JMP SIXAS1 2280 02633 1362 TAD SIX240 2281 02634 3411 DCA I IX2 2282 02635 2202 ISZ SIXADR 2283 02636 2201 ISZ SIXCNT 2284 02637 5216 JMP SIXAS2 2285 02640 3411 SIXAS1, DCA I IX2 /CLEAR LAST WORD 2286 02641 5604 JMP I SIXASC /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 56 2287 2288 /RETURN PARAMETERS 2289 /CALL RETPAR 2290 / RETURN 2291 2292 4526 RETPAR=JMS I RETPAA 2293 2294 2295 02642 0000 RETPA0, 0 2296 02643 4523 GETWRD 2297 02644 0007 JOBLNK 2298 02645 7001 IAC 2299 02646 3252 DCA RETPA1 2300 02647 6202 CIF 2301 02650 4567 BLT 2302 02651 6211 DATFLD /SOURCE FLD 2303 02652 0000 RETPA1, 0 /SOURCE ADDR 2304 02653 6221 CHDF /DESTINATION FIELD 2305 02654 0063 IOTP0 /DEST ADDR 2306 02655 7771 -7 /-COUNT 2307 02656 7240 STA /RETURN PARAMETER LBLOCK TO FREE STORAGE 2308 02657 1252 TAD RETPA1 2309 02660 6202 CIF 2310 02661 4576 RETBLK 2311 02662 7200 CLA 2312 02663 5642 JMP I RETPA0 2313 /SAVE/RESTORE BUFFER POINTERS 2314 /CALL JMS RESTBP 2315 / RETURN 2316 2317 2318 02664 0000 RESTBP, 0 2319 02665 1055 TAD COMDB0 2320 02666 1034 TAD C0004 2321 02667 3010 DCA IX1 2322 02670 6211 DATFLD 2323 02671 1410 TAD I IX1 2324 02672 3422 DCA I SITCNT 2325 02673 1410 TAD I IX1 2326 02674 3541 DCA I SIECNT 2327 02675 1410 TAD I IX1 2328 02676 3542 DCA I SIBUF 2329 02677 6221 CHDF 2330 02700 5664 JMP I RESTBP /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 57 2331 2332 02701 1053 SAVNAM, TAD SIJOB /PRGTBL INDEX=3*JOB 2333 02702 1053 TAD SIJOB 2334 02703 1053 TAD SIJOB 2335 02704 1321 TAD PRGTBA /START OF PRGTBL-3 (NO ENTRY FOR JOB 0) 2336 02705 3010 DCA IX1 2337 02706 6211 DATFLD 2338 02707 1066 TAD IOTP3 /TRANSFER 3 WORD BLOCK 2339 02710 3410 DCA I IX1 2340 02711 1067 TAD IOTP4 2341 02712 3410 DCA I IX1 2342 02713 1070 TAD IOTP5 2343 02714 3410 DCA I IX1 2344 02715 6221 CHDF 2345 02716 1033 TAD C0003 /FILE 3 2346 02717 3064 DCA IOTP1 2347 02720 5516 JMP I LNGIOT /GO DO OPEN 2348 2349 02721 3145 PRGTBA, PRGTBL-3-1 2350 2351 2352 02722 0240 HASITM, " ;" ;"H;"A;"S;" ;" ;0 02723 0240 02724 0310 02725 0301 02726 0323 02727 0240 02730 0240 02731 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 58 2353 2354 /ROUTINE TO GET USER'S ACCOUNT # IN FORM M,N OR M 2355 /CALL 2356 / ACCTIN 2357 / ILLEGAL CHARACTER IN STRING 2358 / RETURN WITH ACCOUNT # IN AC 2359 2360 02732 0000 ACC0, 0 2361 02733 3360 DCA ACC1 /CLEAR # 2362 02734 4501 ACC3, NUMBIN /GET ONE COMPONENT 2363 02735 7511 -"7 2364 02736 5347 JMP ACC4 /COULDN'T DO IT 2365 02737 1360 TAD ACC1 /ACCUMULATE INTO TOTAL 2366 02740 3360 DCA ACC1 2367 02741 1073 TAD CHAR /TERMINATOR A COMMA 2368 02742 1361 TAD ACCOMA 2369 02743 7650 SNA CLA 2370 02744 5350 JMP ACC2 /YES-- SO SHIFT NUMBER THUS FAR INTO LEFT HALF OF WORD 2371 02745 1360 TAD ACC1 /NO- RETURN WHOLE # 2372 02746 2332 ISZ ACC0 /SKIP TO INDICATE GOODNESS 2373 02747 5732 ACC4, JMP I ACC0 2374 2375 02750 1360 ACC2, TAD ACC1 /SHIFT IT LEFT 6 PLACES 2376 02751 7106 CLL RTL 2377 02752 7006 RTL 2378 02753 7006 RTL 2379 02754 3360 DCA ACC1 /SAVE IT 2380 02755 4504 COMGET /GET PAST THE OFFENDING COMMA 2381 02756 5347 JMP ACC4 /NONE LEFT, BUT WE NEED ONE--ERROR 2382 02757 5334 JMP ACC3 /GET NEXT PART OF NUMBER 2383 2384 02760 0000 ACC1, 0 2385 02761 7524 ACCOMA, -", 2386 02762 0240 WHERLK, 240 /SP L= 2387 02763 0314 314 2388 02764 0275 275 2389 02765 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 59 2390 2391 3000 *COMMAN 2392 2393 03000 4203 LOGINE, JMS LOGIE0 2394 03001 4533 SIERR 2395 03002 5506 JMP I COMEXA 2396 2397 03003 0000 LOGIE0, 0 2398 03004 1055 TAD COMDB0 2399 03005 7450 SNA 2400 03006 5216 JMP LOGIE1 2401 03007 7001 IAC 2402 03010 3063 DCA IOTP0 2403 03011 6211 DATFLD 2404 03012 1463 TAD I IOTP0 2405 03013 0137 AND C7700 2406 03014 3463 DCA I IOTP0 2407 03015 6221 CHDF 2408 03016 4521 LOGIE1, RESDDB 2409 03017 6211 DATFLD 2410 03020 7200 CLA 2411 03021 1456 TAD I COMRDB 2412 03022 7450 SNA 2413 03023 5227 JMP LOGIE2 2414 03024 7001 IAC 2415 03025 3063 DCA IOTP0 2416 03026 3463 DCA I IOTP0 2417 03027 6201 LOGIE2, CDF 2418 03030 1560 TAD I JOB /SET JOB = 0 2419 03031 0137 AND C7700 2420 03032 3560 DCA I JOB 2421 03033 1053 TAD SIJOB 2422 03034 1044 TAD JOBTBA /SET JOBTBL ENTRY=0 2423 03035 3054 DCA CHDFA 2424 03036 6211 DATFLD 2425 03037 3454 DCA I CHDFA 2426 03040 1561 TAD I JOBDAT /RETURN JOB STATUS BLOCKS 2427 03041 6221 CHDF 2428 03042 4514 RETBKS 2429 03043 6211 DATFLD 2430 03044 3561 DCA I JOBDAT 2431 03045 6221 CHDF 2432 03046 5603 JMP I LOGIE0 2433 03047 6513 LOGUNA, UNACCT 2434 2435 03050 4523 LOGINF, GETWRD 2436 03051 0013 JOBREG+2 2437 03052 7650 SNA CLA 2438 03053 5257 JMP LOGIF1 /HOW DID HE TERMINATE COMMAND 2439 03054 4203 JMS LOGIE0 2440 03055 1247 TAD LOGUNA 2441 03056 5506 JMP I COMEXA 2442 03057 4502 LOGIF1, ASCOUT /FINISH TYPING MESSAGES ON LOGIN 2443 03060 7546 VERSMA, VERSIM /FIRST OUTPUT VERSION # 2444 03061 5506 JMP I COMEXA 2445 03062 1053 TAD SIJOB /NOW OUTPUT JOB# 2446 03063 4715 JMS I LOGJPR /PRINT #JOB, ACCOUNT & CONSOLE# /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 60 2447 03064 4502 ASCOUT 2448 03065 2335 SPACES 2449 03066 5506 JMP I COMEXA 2450 03067 1316 TAD LOGFA2 /FUDGE COMRET TO GO TO LOGIF2 ON COMPLETION 2451 03070 3106 DCA COMEXA / OF TIME EVALUATION 2452 03071 1053 TAD SIJOB /PUT "LOGIN" IN PRGTBL FOR THIS JOB 2453 03072 1053 TAD SIJOB 2454 03073 1053 TAD SIJOB /PRGTBL INDEX IS 3*JOB# 2455 03074 1307 TAD LOGPRG /START OF PRGTBL-3-1 2456 03075 3010 DCA IX1 2457 03076 6211 DATFLD 2458 03077 1310 TAD LOGN5A /LO 2459 03100 3410 DCA I IX1 2460 03101 1311 TAD LOGN5B /GI 2461 03102 3410 DCA I IX1 2462 03103 1312 TAD LOGN5C /N 2463 03104 3410 DCA I IX1 2464 03105 5706 JMP I .+1 /NOW GO DO TIME EVALUATION 2465 03106 5451 TIME3 2466 2467 03107 3145 LOGPRG, PRGTBL-3-1 2468 03110 5457 LOGN5A, 5457 /LO 2469 03111 4751 LOGN5B, 4751 /GI 2470 03112 5600 LOGN5C, 5600 /N 2471 2472 2473 2474 03113 1260 VERSIN, TAD VERSMA /TYPE OUT VERSION # 2475 03114 5506 JMP I COMEXA 2476 2477 03115 4533 LOGJPR, USRJPR /PRINT USER # 2478 03116 1346 LOGFA2, LOGIF2 2479 2480 2481 2482 2483 03117 4512 IOTSET, GETTBA 2484 03120 0007 JOBLNK 2485 03121 3054 DCA CHDFA 2486 03122 1063 TAD IOTP0 2487 03123 6211 DATFLD 2488 03124 3454 DCA I CHDFA 2489 03125 6221 CHDF 2490 03126 5520 CALFIP /EXECUTE IOT 2491 03127 1363 LOGME0, LOGE0 2492 03130 6541 LOGME1, LOGE1 2493 03131 5751 LOGME2, ILLREQ 2494 03132 5200 JMP LOGINE /FIP ERROR RETURN 2495 03133 5250 JMP LOGINF /OK RETURN 2496 03134 1053 LOGIN, TAD SIJOB 2497 03135 7640 SZA CLA 2498 03136 5363 JMP LOGIN2 2499 03137 1044 TAD JOBTBA /JOB # AVAILABLE? 2500 03140 3013 DCA IX4 2501 03141 6211 DATFLD 2502 03142 1140 TAD JOBONC 2503 03143 3054 DCA CHDFA /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 61 2504 03144 1413 LOGIN1, TAD I IX4 2505 03145 7650 SNA CLA 2506 03146 5365 JMP LOGIN4 /GOT A JOB # 2507 03147 2054 ISZ CHDFA 2508 03150 5344 JMP LOGIN1 2509 03151 1330 LOGIN3, TAD LOGME1 /CAPACITY EXCEEDED 2510 03152 7410 SKP 2511 03153 1331 LOGIN6, TAD LOGME2 /NUMBER REQUIRED 2512 03154 3063 DCA IOTP0 2513 03155 6201 CDF 2514 03156 1560 TAD I JOB 2515 03157 0137 AND C7700 2516 03160 3560 DCA I JOB 2517 03161 1063 TAD IOTP0 2518 03162 5505 JMP I COMERA 2519 03163 1327 LOGIN2, TAD LOGME0 /CONSOLE IN USE 2520 03164 5505 JMP I COMERA 2521 03165 1044 LOGIN4, TAD JOBTBA /SAVE JOB # 2522 03166 7041 CIA 2523 03167 1013 TAD IX4 2524 03170 3053 DCA SIJOB 2525 03171 1053 TAD SIJOB 2526 03172 6201 CDF 2527 03173 1560 TAD I JOB 2528 03174 3560 DCA I JOB 2529 03175 6221 CHDF 2530 03176 4535 ACCTIN /GET ACCT # 2531 03177 5353 JMP LOGIN6 /NOT A NUMBER 2532 03200 3065 DCA IOTP2 2533 03201 6211 DATFLD 2534 03202 1065 TAD IOTP2 2535 03203 0676 AND I OFFMSK 2536 03204 6221 CHDF 2537 03205 7640 SZA CLA 2538 03206 5727 JMP I LOGI3A 2539 03207 1057 TAD COMBFA /GET PASSWORD IN ASCII 2540 03210 4477 TEXTS 2541 03211 7200 CLA 2542 03212 4510 ASCSIX /CONVERT TO SIXBIT 2543 03213 6000 COMBUF-1 2544 03214 0065 IOTP3-1 2545 03215 6201 CDF 2546 03216 1447 TAD I FRECNT 2547 03217 1274 TAD LOGMIN 2548 03220 7710 SPA CLA 2549 03221 5727 JMP I LOGI3A 2550 03222 1053 TAD SIJOB /PUT ENTRY IN TTYTBL 2551 03223 1132 TAD TTYTBA 2552 03224 3072 DCA IOTP7 2553 03225 4521 RESDDB 2554 03226 7240 STA 2555 03227 1055 TAD COMDB0 2556 03230 3010 DCA IX1 2557 03231 1163 TAD DEVTBA 2558 03232 7041 CIA 2559 03233 1056 TAD COMRDB 2560 03234 6211 DATFLD /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 62 2561 03235 7110 CLL RAR 2562 03236 3472 DCA I IOTP7 2563 03237 1472 TAD I IOTP7 2564 03240 1455 TAD I COMDB0 2565 03241 3410 DCA I IX1 2566 03242 1053 TAD SIJOB 2567 03243 3410 DCA I IX1 2568 03244 7130 STL RAR 2569 03245 3410 DCA I IX1 2570 03246 1456 TAD I COMRDB 2571 03247 7440 SZA 2572 03250 5255 JMP LOGIN5 2573 03251 1056 TAD COMRDB 2574 03252 6221 CHDF 2575 03253 4511 GETFBL 2576 03254 0000 LOGDDB, 0 2577 03255 3254 LOGIN5, DCA LOGDDB 2578 03256 6211 DATFLD 2579 03257 1472 TAD I IOTP7 2580 03260 3654 DCA I LOGDDB 2581 03261 2254 ISZ LOGDDB 2582 03262 1053 TAD SIJOB 2583 03263 3654 DCA I LOGDDB 2584 03264 6221 CHDF 2585 03265 1013 TAD IX4 /INITIALIZE JOB STATUS 2586 03266 4511 GETFBL 2587 03267 0000 0 2588 03270 3010 DCA IX1 2589 03271 1010 TAD IX1 2590 03272 2010 ISZ IX1 2591 03273 4511 GETFBL 2592 03274 7773 LOGMIN, -STOMIN /MINIMUM FREE STORAGE FOR NEW JOB 2593 03275 4511 GETFBL 2594 03276 0164 OFFMSK, F1OFFJ 2595 03277 7240 STA 2596 03300 1010 TAD IX1 2597 03301 6211 DATFLD 2598 03302 3561 DCA I JOBDAT 2599 IFZERO CPU+EAE-22 < /8E WITH EAE: 2600 CHDF 2601 GETWRD /SC IS BUMPED OVER 2 BITS AND MODE AND GT ARE 2602 JOBEAE+1 /IN BITS 10 AND 11 2603 CLA CLL CML RTL 2604 DATFLD 2605 DCA I IOTP7 > /SET TO MODE A, GT OFF. 2606 03303 3072 DCA IOTP7 2607 03304 6221 CHDF 2608 03305 4512 GETTBA 2609 03306 0007 JOBLNK 2610 03307 4511 GETFBL 2611 03310 7000 NOP 2612 03311 3324 DCA LOGPMA 2613 03312 6211 DATFLD 2614 03313 2410 ISZ I IX1 /SET JSWAIT IN STR1 2615 03314 2010 ISZ IX1 2616 03315 2410 ISZ I IX1 /SET JSWAIT IN WAIT MASK 2617 03316 6221 CHDF /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 63 2618 03317 6202 CIF 2619 03320 4567 BLT 2620 03321 6221 CHDF /SOURCE FLD 2621 03322 0063 IOTPAR+1 /SOURCE ADDR 2622 03323 6211 DATFLD /DEST FLD 2623 03324 0000 LOGPMA, 0 /DEST ADDR 2624 03325 7770 -10 /-COUNT 2625 03326 5520 CALFIP 2626 03327 3151 LOGI3A, LOGIN3 2627 2628 03330 6221 EXAMI1, CHDF 2629 03331 4502 ASCOUT 2630 03332 6635 CRLF 2631 03333 5756 JMP I EXAMI5 2632 03334 1066 TAD IOTP3 2633 03335 3074 DCA NUMHO 2634 03336 1057 TAD COMBFA 2635 03337 3011 DCA IX2 2636 03340 3067 DCA IOTP4 2637 03341 1411 EXAMI3, TAD I IX2 2638 03342 4524 OCTASC 2639 03343 0062 IOTPAR 2640 03344 4502 ASCOUT 2641 03345 0063 IOTP0 2642 03346 5756 JMP I EXAMI5 2643 03347 2074 ISZ NUMHO 2644 03350 7410 SKP 2645 03351 5756 JMP I EXAMI5 2646 03352 4502 ASCOUT 2647 03353 6775 SPACE 2648 03354 5756 JMP I EXAMI5 2649 03355 5341 JMP EXAMI3 2650 2651 03356 5262 EXAMI5, DEPOS3 2652 2653 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 64 2654 2655 3400 *COMMAN+400 2656 2657 03400 3400 ASSTBL, . 2658 03401 7456 -"R 2659 03402 7460 -"P 2660 03403 7467 -"I 2661 03404 7464 -"L 2662 03405 7475 -"C 2663 03406 7474 ASSD, -"D 2664 03407 7465 ASSK, -"K /****** THIS TABLE MUST BE FOLLOWED BY A POSITIVE NUMBER 2665 03410 3117 ASSCAL, IOTSET 2666 03411 1777 ASSBFA, -COMBUF 2667 2668 03412 4533 SIERR 2669 03413 5371 JMP ASSIGF 2670 03414 4361 ASSIGN, JMS W2BUSY /SEE IF WAIT 2 IS BUSY 2671 03415 1057 TAD COMBFA 2672 03416 4477 TEXTS 2673 03417 3054 DCA CHDFA /POINTER TO LAST CHAR IN AC 2674 03420 1211 TAD ASSBFA /ONE CHARACTER ONLY? 2675 03421 1054 TAD CHDFA 2676 03422 7640 SZA CLA 2677 03423 5356 JMP ASSIG4 /NO 2678 03424 1200 TAD ASSTBL 2679 03425 3065 DCA IOTP2 2680 03426 2065 ASSIG2, ISZ IOTP2 2681 03427 1465 TAD I IOTP2 2682 03430 7500 SMA 2683 03431 5355 JMP ASSIG4-1 2684 03432 1454 TAD I CHDFA 2685 03433 7640 SZA CLA /MATCH? 2686 03434 5226 JMP ASSIG2 /NO 2687 03435 1454 TAD I CHDFA /YES, RK05? 2688 03436 1207 TAD ASSK 2689 03437 7440 SZA 2690 03440 5261 JMP ASSIGD /NO, CHECK FOR DECTAPE? 2691 03441 4501 NUMBIN 2692 03442 7511 -"7 2693 03443 5253 JMP ASSGK2 /WE MUST FIND A DRIVE 2694 03444 3064 ASSGK1, DCA IOTP1 2695 03445 1064 TAD IOTP1 2696 03446 0320 AND C7774 2697 03447 7640 SZA CLA 2698 03450 5356 JMP ASSIG4 2699 03451 1317 TAD C0015 2700 03452 5300 JMP ASSG3K 2701 2702 03453 1347 ASSGK2, TAD ASSRK5 2703 03454 3011 DCA IX2 2704 03455 1320 TAD C7774 2705 03456 4327 JMS ASSSUB 2706 03457 0033 AND C0003 2707 03460 5244 JMP ASSGK1 2708 03461 1035 ASSIGD, TAD C0007 /"K-"D 2709 03462 7640 SZA CLA 2710 03463 5274 JMP ASSIG3 /NO, MUST BE SOME OTHER DEVICE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 65 2711 03464 4501 NUMBIN /YES, GET UNIT # 2712 03465 7511 -"7 2713 03466 5321 JMP ASSIG6 /HE WANTS US TO CHOOSE FOR HER 2714 03467 3064 ASSIG7, DCA IOTP1 2715 03470 1064 TAD IOTP1 /IS UNIT # .LE. 7? 2716 03471 0041 AND C7770 2717 03472 7640 SZA CLA 2718 03473 5356 JMP ASSIG4 /NO...ERROR 2719 03474 1200 ASSIG3, TAD ASSTBL 2720 03475 7001 IAC 2721 03476 7041 CIA 2722 03477 1065 TAD IOTP2 2723 03500 1064 ASSG3K, TAD IOTP1 2724 03501 1014 TAD C4000 2725 03502 3064 ACSET, DCA IOTP1 /SAVE AC IN BOTH USER'S AC AND PC 2726 03503 4512 GETTBA 2727 03504 0011 JOBREG 2728 03505 3054 DCA CHDFA 2729 03506 1064 TAD IOTP1 2730 03507 6211 DATFLD 2731 03510 3454 DCA I CHDFA 2732 03511 2054 ISZ CHDFA 2733 03512 2054 ISZ CHDFA /NOW POINTS TO USERS AC 2734 03513 1064 TAD IOTP1 2735 03514 3454 DCA I CHDFA 2736 03515 6221 CHDF 2737 03516 5610 JMP I ASSCAL 2738 2739 03517 0015 C0015, 15 2740 03520 7774 C7774, 7774 2741 2742 03521 1346 ASSIG6, TAD ASSDTA /POSITION OF DTA IN DRVTBL-1 2743 03522 3011 DCA IX2 2744 03523 1041 TAD C7770 /ONLY EIGHT POSSIBILITIES 2745 03524 4327 JMS ASSSUB 2746 03525 0035 AND C0007 2747 03526 5267 JMP ASSIG7 2748 2749 03527 0000 ASSSUB, 0 2750 03530 3010 DCA IX1 2751 03531 6211 DATFLD 2752 03532 1411 TAD I IX2 /PICK UP DEVTBL ENTRY 2753 03533 7650 SNA CLA /AVAILABLE? 2754 03534 5342 JMP ASSG60 /YES 2755 03535 2010 ISZ IX1 /NO...TRY THE NEXT ONE 2756 03536 5332 JMP .-4 2757 03537 7200 ASSIG8, CLA /NO MORE TO TRY 2758 03540 1344 TAD ASSNON 2759 03541 5506 JMP I COMEXA /"NO SUCH DEVICE" 2760 2761 03542 1010 ASSG60, TAD IX1 /GOT ONE; UNIT # IN BITS 8-11 IF IX1 2762 03543 5727 JMP I ASSSUB 2763 2764 2765 2766 03544 6611 ASSNON, NONSUC /NO SUCH DEVICE 2767 03545 2520 ASSG9A, ASSIG9 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 66 2768 03546 3034 ASSDTA, DEVTBE+5-1 2769 03547 3044 ASSRK5, DEVTBE+5+10-1 2770 2771 2772 2773 03550 4533 SIERR 2774 03551 5353 JMP RELF 2775 03552 5214 RELEAS, JMP ASSIGN 2776 2777 03553 4523 RELF, GETWRD 2778 03554 0013 JOBREG+2 2779 03555 7640 SZA CLA 2780 03556 1360 ASSIG4, TAD .+2 2781 03557 5506 JMP I COMEXA 2782 03560 5751 ILLREQ 2783 2784 2785 03561 0000 W2BUSY, 0 2786 03562 4523 GETWRD 2787 03563 0004 JOBWMK+1 /GET JOB WAIT MASK 2 2788 03564 7650 SNA CLA /IS HE WAITING FOR ANYTHING???? 2789 03565 5761 JMP I W2BUSY /NO BACK TO WHATEVER 2790 03566 1370 TAD WAITMS /WAIT FOR I/O COMPLETION 2791 03567 5506 JMP I COMEXA 2792 03570 7304 WAITMS, WAITIO 2793 2794 03571 4523 ASSIGF, GETWRD /HOW DID WE FARE IN FIP 2795 03572 0013 JOBREG+2 2796 03573 7450 SNA 2797 03574 5745 JMP I ASSG9A /WE GOT IT TELL THE USER 2798 03575 7510 SPA 2799 03576 5337 JMP ASSIG8 /FAILED 2800 03577 3063 DCA IOTP0 2801 03600 4502 ASCOUT 2802 03601 6635 CRLF 2803 03602 7000 NOP 2804 03603 1063 TAD IOTP0 /OWNER 2805 03604 4615 JMS I ASSUPN 2806 03605 4502 ASCOUT 2807 03606 2722 HASITM 2808 03607 7000 NOP 2809 03610 4616 JMS I ASSUNA 2810 03611 4502 ASCOUT 2811 03612 6635 CRLF 2812 03613 7000 NOP 2813 03614 5506 JMP I COMEXA 2814 2815 03615 4533 ASSUPN, USRJPR 2816 03616 2537 ASSUNA, ASSUNI /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 67 2817 2818 2819 03617 4533 SIERR 2820 03620 5515 JMP I IOTEND 2821 03621 4501 FOPEN, NUMBIN /FILE # 2822 03622 7511 -267 2823 03623 5505 JMP I COMERA 2824 03624 0033 AND C0003 2825 03625 3064 DCA IOTP1 2826 03626 4313 JMS NULLNA 2827 03627 4510 ASCSIX 2828 03630 6000 COMBUF-1 2829 03631 0065 IOTP3-1 2830 03632 4503 ENDTST 2831 03633 5237 JMP FOPEN1 2832 03634 4535 ACCTIN /ACCOUNT # 2833 03635 7410 SKP 2834 03636 3065 DCA IOTP2 2835 03637 4512 FOPEN1, GETTBA 2836 03640 0007 JOBLNK 2837 03641 4511 GETFBL 2838 03642 5544 COMWAT /NONE, TRY LATER 2839 03643 3251 DCA FOPEN2 2840 03644 6202 CIF 2841 03645 4567 BLT 2842 03646 6221 CHDF /SOURCE FLD 2843 03647 0063 IOTPAR+1 /SOURCE ADDR 2844 03650 6211 DATFLD /DEST FLD 2845 03651 0000 FOPEN2, 0 /DEST ADDR 2846 03652 7770 -10 /-COUNT 2847 03653 5520 CALFIP /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 68 2848 2849 03654 4533 SIERR 2850 03655 5515 JMP I IOTEND 2851 03656 4501 CLOSE, NUMBIN 2852 03657 7511 -267 2853 03660 5300 JMP CLOSE2 2854 03661 0033 AND C0003 2855 03662 7040 CMA 2856 03663 3065 DCA IOTP2 2857 03664 7120 STL 2858 03665 7010 RAR 2859 03666 2065 ISZ IOTP2 2860 03667 5265 JMP .-2 2861 03670 3065 DCA IOTP2 2862 03671 1064 TAD IOTP1 2863 03672 0065 AND IOTP2 2864 03673 7650 SNA CLA 2865 03674 1065 TAD IOTP2 2866 03675 1064 TAD IOTP1 2867 03676 3064 DCA IOTP1 2868 03677 5256 JMP CLOSE 2869 03700 1064 CLOSE2, TAD IOTP1 2870 03701 7450 SNA 2871 03702 1014 TAD C4000 2872 03703 5517 JMP I SHTIOT 2873 2874 2875 03704 4533 SIERR 2876 03705 5515 JMP I IOTEND 2877 03706 4313 CREATE, JMS NULLNA 2878 03707 4510 ASCSIX 2879 03710 6000 COMBUF-1 2880 03711 0063 IOTP1-1 2881 03712 5516 JMP I LNGIOT 2882 03713 0000 NULLNA, 0 2883 03714 1057 TAD COMBFA 2884 03715 4477 TEXTS /READ IN THE NAME 2885 03716 7041 CIA 2886 03717 1057 TAD COMBFA /WAS IT A NULL NAME 2887 03720 7650 SNA CLA 2888 03721 5505 JMP I COMERA /YES 2889 03722 5713 JMP I NULLNA 2890 2891 2892 03723 4533 SIERR 2893 03724 5515 JMP I IOTEND 2894 03725 4501 RENAME, NUMBIN /FILE # 2895 03726 7511 -267 2896 03727 5505 JMP I COMERA 2897 03730 0033 AND C0003 2898 03731 3064 DCA IOTP1 2899 03732 4313 JMS NULLNA 2900 03733 4510 ASCSIX 2901 03734 6000 COMBUF-1 2902 03735 0064 IOTP2-1 2903 03736 5516 JMP I LNGIOT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 69 2904 2905 03737 4533 SIERR 2906 03740 5515 JMP I IOTEND 2907 EXTEND, 2908 03741 4501 REDUCE, NUMBIN /FILE # 2909 03742 7511 -267 2910 03743 5505 JMP I COMERA 2911 03744 0033 AND C0003 2912 03745 3064 DCA IOTP1 2913 03746 4501 NUMBIN 2914 03747 7507 -271 2915 03750 5505 JMP I COMERA 2916 03751 3065 DCA IOTP2 2917 03752 5516 JMP I LNGIOT 2918 2919 2920 2921 03753 7637 C7637, 7637 2922 2923 03754 4533 SIERR 2924 03755 5515 JMP I IOTEND 2925 03756 4501 PROTEC, NUMBIN /FILE # 2926 03757 7511 -267 2927 03760 5505 JMP I COMERA 2928 03761 0033 AND C0003 2929 03762 7106 CLL RTL 2930 03763 7006 RTL 2931 03764 7004 RAL 2932 03765 3064 DCA IOTP1 2933 03766 4501 NUMBIN 2934 03767 7511 -267 2935 03770 5505 JMP I COMERA 2936 03771 0353 AND C7637 2937 03772 1064 TAD IOTP1 2938 03773 5517 JMP I SHTIOT 2939 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 70 2940 2941 4000 *COMMAN+1000 2942 2943 04000 3770 ST3770, 3770 2944 04001 7377 ST7377, 7377 2945 04002 7674 STERF, -JSWAIT-JSERR-JSDEL-1 2946 04003 3561 STACHK, W2BUSY 2947 2948 04004 4603 START, JMS I STACHK /CAN'T START IKF I/O IN PROGRESS 2949 04005 4503 ENDTST /END OF COMMAND? 2950 04006 5245 JMP START1 /YES 2951 04007 4512 START0, GETTBA /NO, SET STARTING ADDRESS 2952 04010 0011 JOBREG 2953 04011 3065 DCA IOTP2 2954 04012 4503 ENDTST 2955 04013 5225 JMP START2 /NO STARTING ADDRESS FOR "R" OR "RUN" ASSUME 0 2956 04014 4523 GETWRD 2957 04015 0000 JOBSTS 2958 04016 0201 AND ST7377 /CLEAR "R PRIV. BIT" 2959 04017 6211 DATFLD 2960 04020 3472 DCA I IOTP7 2961 04021 6221 CHDF 2962 04022 4501 NUMBIN 2963 04023 7511 -267 2964 04024 5505 JMP I COMERA /NON-ACTAL ADDRESS 2965 04025 6211 START2, DATFLD 2966 04026 3465 DCA I IOTP2 2967 04027 2065 ISZ IOTP2 /CLEAR LINK & AC 2968 04030 3465 DCA I IOTP2 2969 04031 2065 ISZ IOTP2 2970 04032 3465 DCA I IOTP2 2971 IFZERO CPU+EAE-22 < 2972 CHDF 2973 GETWRD 2974 JOBEAE+1 2975 RTR 2976 STL RAL 2977 CLL RAL 2978 DATFLD 2979 DCA I IOTP7 > /ZERO OUT GT, AND SET MODE A 2980 04033 6221 CHDF 2981 04034 4512 GETTBA /RESET STATUS 2982 04035 0000 JOBSTS 2983 04036 3010 DCA IX1 2984 04037 6211 DATFLD 2985 04040 3410 DCA I IX1 2986 04041 3410 DCA I IX1 /THIS IS CLEARING OUT PART OF JOB STATUS BLOCK 1 2987 04042 3410 DCA I IX1 2988 04043 3410 DCA I IX1 2989 04044 6221 CHDF 2990 04045 4523 START1, GETWRD /JSRUN=1 2991 04046 0000 JOBSTS 2992 04047 0200 AND ST3770 /CLEAR ERROR FLAGS + JSSTOP 2993 04050 1014 TAD C4000 2994 04051 6211 DATFLD 2995 04052 3472 DCA I IOTP7 2996 04053 2072 ISZ IOTP7 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 71 2997 04054 1472 TAD I IOTP7 2998 04055 0202 AND STERF 2999 04056 7001 IAC /JSWAIT=1 3000 04057 3472 DCA I IOTP7 3001 04060 2072 ISZ IOTP7 3002 04061 2072 ISZ IOTP7 3003 04062 7344 CLL CLA CMA RAL 3004 04063 0472 AND I IOTP7 3005 04064 7001 IAC 3006 04065 3472 DCA I IOTP7 3007 04066 6221 CHDF 3008 04067 5506 JMP I COMEXA /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 72 3009 3010 / 3011 0042 JOBS10=C0010 3012 3013 04070 4272 WHERE, JMS WHEPRT /ANSWER TO WHERE COMMAND 3014 04071 5506 JMP I COMEXA 3015 3016 04072 0000 WHEPRT, 0 3017 04073 1311 TAD WHEVEC /SET POINTER TO WHLST 3018 04074 3011 DCA IX2 3019 04075 1042 TAD JOBS10 /INITIALIZE WHERE3 TO SWITCH REG 3020 04076 3307 DCA WHERE3 3021 3022 04077 1411 WHERE1, TAD I IX2 /GET TEXT ADDRESS 3023 04100 7450 SNA 3024 04101 5672 JMP I WHEPRT /DONE 3025 04102 3304 DCA WHERE2 3026 04103 4502 ASCOUT /PRINT TEXT 3027 04104 0000 WHERE2, 0 3028 04105 7000 NOP 3029 04106 4523 GETWRD /GET JSB WORD 3030 04107 0000 WHERE3, 0 3031 04110 5411 JMP I IX2 /JUMP TO PROCESS JSB WORD 3032 04111 4125 WHEVEC, WHLST-1 3033 3034 04112 4524 WHERE4, OCTASC /PRINT 4 OCTAL DIGITS 3035 04113 6000 COMBUF-1 3036 04114 4502 ASCOUT 3037 04115 6001 COMBUF 3038 04116 7000 NOP 3039 04117 2307 WHERE5, ISZ WHERE3 /GO TO NEXT JSB WORD 3040 04120 5277 JMP WHERE1 3041 3042 04121 7710 WHERE6, SPA CLA 3043 04122 7001 IAC 3044 04123 1340 TAD K0260 3045 04124 3734 DCA I WHACA /SAVE WHERE IT WILL BE PRINTED 3046 04125 5317 JMP WHERE5 3047 3048 IFZERO CPU+EAE-22 < /ON 8E WITH EAE: 3049 WHERE7, RTR /GT FLAG IFF BIT 10=0, 11=0 3050 SMA SNL CLA 3051 IAC 3052 TAD K0260 3053 DCA I GT /SAVE WHERE IT WILL BE PRINTED 3054 CML RAL /LINK HAS EAE MODE, SET FOR MODE A 3055 TAD C0301 3056 DCA I WHSCA /SAVE WHERE IT WILL BE PRINTED 3057 JMP WHERE1 3058 GT, WHERSC+5 3059 3060 WHERE8, RAR CLL /8E WITH EAE: SC IS BUMPED 2 BITS 3061 RAR CLL 3062 JMP WHERE4 > 3063 3064 3065 04126 6561 WHLST, WHERSW /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 73 3066 04127 5312 JMP WHERE4 3067 04130 6546 WHERPC 3068 04131 5312 JMP WHERE4 3069 04132 2762 WHERLK 3070 04133 5321 JMP WHERE6 3071 04134 6553 WHACA, WHERAC 3072 04135 5312 JMP WHERE4 3073 IFZERO MQREG-1 < 3074 WHERMQ 3075 JMP WHERE4 3076 IFZERO CPU+EAE-22 < 3077 WHERGT 3078 JMP WHERE7 > 3079 IFNZRO EAE < 3080 WHSCA, WHERSC 3081 IFZERO CPU-2 3082 IFNZRO CPU-2 > > 3083 04136 0000 0 3084 3085 04137 0301 C0301, 301 3086 04140 0260 K0260, 260 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 74 3087 3088 4200 *4200 3089 /TEST FOR END OF COMMAND STRING 3090 /CALL ENDTST WITH CHARACTER IN CHAR 3091 / END RETURN 3092 / NOT END 3093 3094 4503 ENDTST=JMS I ENDTSA 3095 3096 04200 0000 ENDTS0, 0 3097 04201 1214 TAD ENDTBA 3098 04202 3012 DCA IX5 3099 04203 1412 TAD I IX5 3100 04204 7450 SNA 3101 04205 5212 JMP .+5 3102 04206 1073 TAD CHAR 3103 04207 7640 SZA CLA 3104 04210 5203 JMP .-5 3105 04211 7410 SKP 3106 04212 2200 ISZ ENDTS0 3107 04213 5600 JMP I ENDTS0 3108 3109 04214 4214 ENDTBA, . 3110 04215 7505 -273 /; 3111 04216 7506 -272 /: 3112 04217 7563 -215 /CR 3113 04220 7566 -212 /LF 3114 04221 7565 -213 /VT 3115 04222 7564 -214 /FF 3116 04223 0000 0 3117 3118 3119 /GET USER STATE WORD 3120 /CALL GETWRD 3121 / RELATIVE ADDRESS 3122 / RETURN WITH USER WORD IN AC, ADDRESS IN IOTP7 3123 3124 4523 GETWRD=JMS I Z GETWRA 3125 3126 04224 0000 GETWR0, 0 3127 04225 1624 TAD I GETWR0 3128 04226 3231 DCA GETWR1 3129 04227 2224 ISZ GETWR0 3130 04230 4512 GETTBA 3131 04231 0000 GETWR1, 0 3132 04232 3072 DCA IOTP7 3133 04233 6211 DATFLD 3134 04234 7430 SZL 3135 04235 1472 TAD I IOTP7 3136 04236 6221 CHDF 3137 04237 5624 JMP I GETWR0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 75 3138 3139 /ROUTINE TO FORCE A STRING INTO AN INPUT BUFFER 3140 /USER MUST BE LOGGED IN AS ACCOUNT 1 OR 3 TO SUCCEED 3141 3142 04240 4731 FORSE, JMS I ACCNT1 /IS THIS ACCOUNT # 1 OR 3 3143 04241 4501 NUMBIN /GET CONSOLE # 3144 04242 7511 -"7 3145 04243 5505 JMP I COMERA /BAD CONVERSION, QUIT 3146 04244 7104 CLL RAL /*2 FOR DEVTBL INDEX 3147 04245 1163 TAD DEVTBA /+START OF DEVTBL 3148 04246 3314 DCA FORDEV 3149 04247 1314 TAD FORDEV 3150 04250 1325 TAD FOR5 3151 04251 7700 SMA CLA 3152 04252 5505 JMP I COMERA 3153 04253 6211 DATFLD 3154 04254 1714 TAD I FORDEV /DOES HE HAVE A DDB? 3155 04255 6221 CHDF 3156 04256 7640 SZA CLA 3157 04257 5272 JMP FOR0 /YES 3158 04260 1314 TAD FORDEV /NO; GET ONE 3159 04261 6202 CIF 3160 04262 4572 GETDDB 3161 04263 5505 JMP I COMERA /NONE TO GET- NEVER HAPPENS 3162 04264 6211 DATFLD 3163 04265 1714 TAD I FORDEV 3164 04266 3361 DCA BRO8 3165 04267 1040 TAD C1000 3166 04270 3761 DCA I BRO8 3167 04271 6221 CHDF 3168 04272 4775 FOR0, JMS I FORSTG /GET INPUT STRING 3169 04273 1463 FOR7, TAD I IOTP0 3170 04274 1327 TAD FORFOR /CHECK FOR FORM FEED 3171 04275 7450 SNA 3172 04276 5506 JMP I COMEXA /IT IS; SO EXIT 3173 04277 1330 TAD FORARW /NO, MAYBE IT'S A ^? 3174 04300 7640 SZA CLA 3175 04301 5304 JMP FOR2 3176 04302 2063 ISZ IOTP0 /IT IS SO MAKE THE NEXT CHARACTER A CONTROL CHARACTER 3177 04303 1037 TAD C0100 3178 04304 7040 FOR2, CMA 3179 04305 0463 AND I IOTP0 /GET CHARACTER 3180 04306 7450 SNA /END OF STRING? 3181 04307 5506 JMP I COMEXA /YES, FINISH UP 3182 04310 6203 CIF CDF 3183 04311 3431 DCA I TTCHAR /SET UP GIR CALL 3184 04312 6221 CHDF /BACK UP HERE, SO GIR WILL RETURN PROPERLY 3185 04313 4575 KEY /PUSH CHARACTER THRU PROPER CHANNELS 3186 BROAD4, 3187 04314 0000 FORDEV, 0 /DEVTBL ADDRESS 3188 04315 5320 JMP FOR3 /DIDN'T FIT FOR SOME REASON 3189 04316 2063 ISZ IOTP0 /NEXT CHARACTER 3190 04317 5273 JMP FOR7 3191 04320 4525 FOR3, BUFDEL /DELETE FORCE COMMAND 3192 04321 1326 TAD FOR6 3193 04322 3061 DCA COMFLG /PRINT ?? AT END OF FAILED TEXT STRING 3194 04323 1063 TAD IOTP0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 76 3195 04324 5505 JMP I COMERA /EXIT; PRINT THE PORTION OF THE COMMAND THAT DIDN'T FIT 3196 04325 4750 FOR5, -DEVTBE 3197 04326 0167 FOR6, 167 3198 04327 7564 FORFOR, -"L+100 /-FORM FEED 3199 04330 7656 FORARW, "L-100-"^ 3200 04331 5724 ACCNT1, ACTNM1 3201 3202 3203 3204 /ROUTINE TO TYPE A MESSAGE ON EVERYBODY'S CONSOLE AT ONCE 3205 /THE USER MUST BE LOGGED IN UNDER ACCOUNT 1 OR 3 3206 3207 04332 4731 BROAD, JMS I ACCNT1 /ONLY ACCOUNT 1 OR 3 3208 04333 4775 JMS I FORSTG /GET STRING INPUT 3209 04334 1374 TAD BROLN /INITIALIZE FOR ALL CONSOLES 3210 04335 3066 DCA IOTP3 3211 04336 1163 TAD DEVTBA /GET POINTER TO FIRST OUTPUT DDB 3212 04337 7001 IAC 3213 04340 3067 DCA IOTP4 3214 04341 3314 DCA BROAD4 /TO REMEMBER WHETEHR WE SUCCEED 3215 3216 04342 4361 BROAD3, JMS BRO8 /PUSH STRING CR-LF STARS THRU 3217 04343 0554 STARS 3218 04344 4361 JMS BRO8 /OUTPUT MESSAGE 3219 04345 7600 VERBRK 3220 04346 4361 JMS BRO8 /CR-LF 3221 04347 6635 CRLF 3222 04350 2067 BROAD2, ISZ IOTP4 /ON TO NEXT CONSOLE 3223 04351 2067 ISZ IOTP4 3224 04352 2066 ISZ IOTP3 /ARE WE DONE? 3225 04353 5342 JMP BROAD3 /NO, CONTINUE 3226 04354 1314 TAD BROAD4 3227 04355 7640 SZA CLA /DID ANY FAIL? 3228 04356 1372 TAD BROBUS /YES 3229 04357 1373 TAD BROOK 3230 04360 5506 JMP I COMEXA 3231 3232 04361 0000 BRO8, 0 3233 04362 1761 TAD I BRO8 3234 04363 3366 DCA .+3 3235 04364 1067 TAD IOTP4 3236 04365 4502 ASCOUT 3237 04366 0000 0 3238 04367 2314 ISZ BROAD4 3239 04370 2361 ISZ BRO8 3240 04371 5761 JMP I BRO8 3241 3242 04372 7773 BROBUS, BUSY-OK 3243 04373 6773 BROOK, OK 3244 04374 7744 BROLN, -NULINE-1 3245 04375 1554 FORSTG, STRNG0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 77 3246 3247 4400 *COMMAN+1400 3248 04400 2604 FSIXAS, SIXASC 3249 04401 5600 FDECOU, DECOUT 3250 3251 04402 4533 SIERR 3252 04403 5212 JMP F2 3253 04404 4501 F, NUMBIN /INTERNAL FILE # 3254 04405 7511 -267 3255 04406 5505 JMP I COMERA 3256 04407 0033 AND C0003 3257 04410 3064 DCA IOTP1 3258 04411 5516 JMP I LNGIOT 3259 04412 4526 F2, RETPAR 3260 04413 4502 ASCOUT 3261 04414 6635 CRLF 3262 04415 7000 NOP 3263 04416 1064 TAD IOTP1 /ACCT # 3264 04417 7450 SNA 3265 04420 5506 JMP I COMEXA /FILE NOT OPEN 3266 04421 4524 OCTASC 3267 04422 6000 COMBUF-1 3268 04423 4270 JMS FOUT 3269 04424 7240 STA 3270 04425 1064 TAD IOTP1 3271 04426 7650 SNA CLA 3272 04427 5264 JMP F4 /DON'T GIVE AWAY A PASSWORD 3273 04430 4600 JMS I FSIXAS /FILE NAME 3274 04431 0065 IOTP2 3275 04432 6000 COMBUF-1 3276 04433 4270 JMS FOUT 3277 04434 1070 TAD IOTP5 /PROTECTION 3278 04435 7106 CLL RTL 3279 04436 7006 F3, RTL 3280 04437 7006 RTL 3281 04440 4363 JMS USRPR 3282 04441 4502 ASCOUT 3283 04442 6775 SPACE 3284 04443 5506 JMP I COMEXA 3285 04444 1070 TAD IOTP5 3286 04445 4363 JMS USRPR 3287 04446 4502 ASCOUT 3288 04447 6775 SPACE 3289 04450 5506 JMP I COMEXA 3290 04451 7240 STA 3291 04452 1064 TAD IOTP1 3292 04453 7650 SNA CLA 3293 04454 5506 JMP I COMEXA /UFD; SIZE NOT RETURNED 3294 04455 1057 TAD COMBFA 3295 04456 3010 DCA IX1 3296 04457 1071 TAD IOTP6 /SIZE 3297 04460 4601 JMS I FDECOU 3298 04461 3410 DCA I IX1 3299 04462 4270 JMS FOUT 3300 04463 5506 JMP I COMEXA 3301 3302 04464 1070 F4, TAD IOTP5 /LOGOUT QUOTA /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 78 3303 04465 7104 CLL RAL 3304 04466 7006 RTL 3305 04467 5236 JMP F3 /SHIFT AN EXTRA PLACE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 79 3306 3307 04470 0000 FOUT, 0 3308 04471 4502 ASCOUT 3309 04472 6001 COMBUF 3310 04473 5670 JMP I FOUT 3311 04474 4502 ASCOUT 3312 04475 6775 SPACE 3313 04476 5670 JMP I FOUT 3314 04477 5670 JMP I FOUT 3315 3316 3317 04500 4502 USER, ASCOUT /TELL USER WHERE HE IS 3318 04501 6635 CRLF 3319 04502 5506 JMP I COMEXA /NO ROOM, SO SKIP IT 3320 04503 4503 ENDTST /THIS JOB? 3321 04504 5307 JMP USER1 /YES 3322 04505 4501 NUMBIN /NO; WHAT JOB THEN? 3323 04506 7511 -267 /OCTAL JOB # 3324 04507 1053 USER1, TAD SIJOB /ASSUME THIS JOB 3325 04510 7510 USER2, SPA 3326 04511 7041 CIA 3327 04512 3063 DCA IOTP0 /SAVE JOB # 3328 04513 1063 TAD IOTP0 /VALID JOB #? 3329 04514 1332 TAD USEMAX /-HIGHEST JOB # - 1 3330 04515 7700 SMA CLA 3331 04516 5505 JMP I COMERA /NO SUCH JOB 3332 04517 6211 DATFLD /IS THE JOB LOGGED IN? 3333 04520 1063 TAD IOTP0 3334 04521 1044 TAD JOBTBA 3335 04522 3064 DCA IOTP1 /POINTER TO JOBTBL 3336 04523 1464 TAD I IOTP1 /ADDRESS OF JOB STATUS 3337 04524 7650 SNA CLA 3338 04525 5506 JMP I COMEXA /NOT LOGGED IN; SAY NOTHING 3339 04526 6221 CHDF /BACK UP HERE 3340 04527 1063 TAD IOTP0 /JOB # 3341 04530 4333 JMS USRJPR /PRINT "JOB ACCOUNT & CONSOLE" 3342 04531 5506 JMP I COMEXA 3343 3344 04532 7753 USEMAX, -JOBMAX-1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 80 3345 3346 04533 0000 USRJPR, 0 /PRINT "JOB NN" 3347 04534 3072 DCA IOTP7 /SAVE # 3348 04535 4502 ASCOUT 3349 04536 1772 JOBNO 3350 04537 5733 JMP I USRJPR /NO ROOM 3351 04540 1072 TAD IOTP7 /JOB # 3352 04541 4363 JMS USRPR /PRINT # 3353 04542 1072 TAD IOTP7 3354 04543 4762 JMS I USRACC /FIND HER ACCOUNT NUMBER 3355 04544 4502 ASCOUT 3356 04545 0673 ACCBUFF 3357 04546 5733 JMP I USRJPR 3358 04547 4502 ASCOUT 3359 04550 1777 KSPACE 3360 04551 5733 JMP I USRJPR 3361 04552 6211 DATFLD 3362 04553 1072 TAD IOTP7 /GET HER TTY # 3363 04554 1132 TAD TTYTBA /POINTS TO ENTRY IN TTYTBL 3364 04555 3064 DCA IOTP1 3365 04556 1464 TAD I IOTP1 /GET TTY # 3366 04557 6221 CHDF 3367 04560 4363 JMS USRPR 3368 04561 5733 JMP I USRJPR 3369 04562 0750 USRACC, GETACC 3370 3371 04563 0000 USRPR, 0 /PRINT OCTAL # AS MM 3372 04564 4524 OCTASC 3373 04565 6000 COMBUF-1 /SNEAKY WAY TO SUPPRESS LEADING 00 3374 04566 4502 ASCOUT 3375 04567 6003 COMBUF+2 3376 04570 7000 NOP 3377 04571 5763 JMP I USRPR /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 81 3378 3379 4600 *COMMAN+1600 3380 3381 04600 5175 R4A, R4 3382 04601 4637 R6A, R6 3383 04602 0237 R6B, COMEXT 3384 04603 4007 STARTA, START0 3385 04604 6603 RRFILE, RFILE 3386 04605 5133 RLSA, RLS 3387 04606 5011 RUNLOD, LOAD 3388 04607 5013 RUNSAV, SAVE1 3389 04610 5544 SETPRA, SETPRV 3390 3391 04611 5214 JMP RERR 3392 04612 5223 JMP R1 3393 04613 5606 RUN, JMP I RUNLOD 3394 04614 4533 RERR, SIERR 3395 04615 5505 JMP I COMERA 3396 3397 3398 04616 5214 JMP RERR 3399 04617 5223 JMP R1 3400 04620 4610 R, JMS I SETPRA /SET THE R PRIVILEGE BIT 3401 04621 7126 STL RTL /AC=LIBACT 3402 04622 5607 JMP I RUNSAV 3403 3404 04623 4523 R1, GETWRD /RETURN FROM OPEN 3405 04624 0013 JOBREG+2 3406 04625 7640 SZA CLA 3407 04626 5515 JMP I IOTEND 3408 04627 4512 GETTBA 3409 04630 0007 JOBLNK 3410 04631 4511 GETFBL 3411 04632 5544 COMWAT 3412 04633 3600 DCA I R4A 3413 04634 1201 TAD R6A 3414 04635 3122 DCA EXITA 3415 04636 5603 JMP I STARTA 3416 04637 1202 R6, TAD R6B /RESTORE NORMAL EXIT 3417 04640 3122 DCA EXITA 3418 04641 1033 TAD C0003 3419 04642 1014 TAD C4000 3420 04643 3065 DCA IOTP2 /FILE 3 3421 04644 7240 STA 3422 04645 3067 DCA IOTP4 /CORE ADDRESS 3423 04646 1204 TAD RRFILE 3424 04647 3063 DCA IOTP0 3425 04650 7001 IAC /CALL RLS WITH NONZERO AC FOR R AND RUN 3426 04651 4605 JMS I RLSA /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 82 3427 3428 04652 1053 TAD SIJOB 3429 04653 4527 CORES 3430 04654 7440 SZA 3431 04655 5270 JMP R8 3432 04656 4527 CORES 3433 04657 7440 SZA 3434 04660 5270 JMP R8 3435 04661 4530 ASSCOR 3436 04662 1306 TAD C0122 /USER MODE, FIELD 2 3437 04663 6203 R7, CIF CDF 3438 04664 3705 DCA I RL2SF /FIELD OF JOB 3439 04665 1053 TAD SIJOB 3440 04666 5667 JMP I .+1 3441 04667 0605 RUNFI 3442 3443 04670 3074 R8, DCA NUMHO /SAVE FIELD INFO 3444 04671 1202 TAD R6B /RESTORE EXIT 3445 04672 3122 DCA EXITA 3446 04673 4531 RELCOR 3447 04674 1074 TAD NUMHO 3448 04675 0035 AND C0007 3449 04676 1162 TAD CORTBA 3450 04677 3063 DCA IOTP0 3451 04700 6201 CDF 3452 04701 1053 TAD SIJOB 3453 04702 3463 DCA I IOTP0 3454 04703 1074 TAD NUMHO 3455 04704 5263 JMP R7 3456 04705 0103 RL2SF, L2SF 3457 04706 0122 C0122, 122 3458 3459 3460 3461 04707 5214 JMP RERR 3462 04710 5223 JMP R1 3463 04711 1326 SYSTAT, TAD SYSMA /SYSTAT COMMAND 3464 04712 3010 DCA IX1 /POINTER TO FILE NAME 3465 04713 4610 JMS I SETPRA /SET THE R PRIVILEGE BIT 3466 04714 1410 TAD I IX1 /PUT "SYSTAT" OR "LOGOUT" IN IOTP3,4,5 3467 04715 3066 DCA IOTP3 3468 04716 1410 TAD I IX1 3469 04717 3067 DCA IOTP4 3470 04720 1410 TAD I IX1 3471 04721 3070 DCA IOTP5 3472 04722 7126 STL RTL /AC=LIBACT 3473 04723 3065 DCA IOTP2 3474 04724 5725 JMP I .+1 3475 04725 2701 SAVNAM /GO SAVE NAME; THEN OPEN FILE 3476 3477 04726 5557 SYSMA, SYSM-1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 83 3478 3479 04727 6605 SWFILE, WFILE 3480 3481 04730 5214 JMP RERR 3482 04731 5334 JMP SAVE2 3483 04732 5733 SAVE, JMP I .+1 3484 04733 5011 SAVE3 3485 04734 4523 SAVE2, GETWRD 3486 04735 0022 JOBF3 /WRITE PROTECTED? 3487 04736 1032 TAD C0002 3488 04737 3063 DCA IOTP0 3489 04740 6211 DATFLD 3490 04741 1463 TAD I IOTP0 /POINTS TO PROTECTION WORD IN FILE CONTROL BLOCK 3491 04742 0034 AND C0004 3492 04743 6221 CHDF 3493 04744 7640 SZA CLA 3494 04745 5351 JMP SAVPRO /WRITE PROTECTED 3495 04746 1327 TAD SWFILE 3496 04747 5750 JMP I .+1 3497 04750 5030 LOAD2 3498 3499 04751 1353 SAVPRO, TAD SFMS 3500 04752 5505 JMP I COMERA 3501 3502 04753 7463 SFMS, FM6000 /"PROTECTION VIOLATION" 3503 3504 IFZERO CPU+EAE-22 < 3505 WHERGT, 240 /SP MODE= 3506 315 3507 317 3508 304 3509 305 3510 275 3511 0 3512 WHERSC, 240 /SP SP GT=X SC= 3513 240 3514 307 3515 324 3516 275 3517 330 3518 240 3519 323 3520 303 3521 275 3522 0 > 3523 IFZERO CPU+EAE-20 < 3524 WHERSC, 240 /SP SC= 3525 323 3526 303 3527 275 3528 0 > /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 84 3529 3530 5003 *COMMAN+2003 3531 3532 05003 4614 LOADER, RERR 3533 05004 6603 LRFILE, RFILE 3534 05005 1123 LOADUA, LOADUS 3535 05006 3561 SAVCHK, W2BUSY 3536 3537 05007 5603 JMP I LOADER 3538 05010 5227 JMP LOAD1 3539 LOAD, 3540 05011 4535 SAVE3, ACCTIN 3541 05012 7410 SKP 3542 05013 3065 SAVE1, DCA IOTP2 /ACCOUNT # 3543 05014 4503 ENDTST 3544 05015 5505 JMP I COMERA 3545 05016 4606 JMS I SAVCHK /SEE IF I/O IN PROGRESS 3546 05017 1057 TAD COMBFA 3547 05020 4477 TEXTS 3548 05021 7200 CLA 3549 05022 4510 ASCSIX 3550 05023 6000 COMBUF-1 3551 05024 0065 IOTP3-1 /FILE NAME 3552 05025 5626 JMP I .+1 /SAVE PROGRAM NAME IN PRGTBL 3553 05026 2701 SAVNAM 3554 3555 05027 1204 LOAD1, TAD LRFILE 3556 05030 3063 LOAD2, DCA IOTP0 3557 05031 4523 GETWRD /ERROR? 3558 05032 0013 JOBREG+2 3559 05033 7640 SZA CLA 3560 05034 5515 JMP I IOTEND /YES 3561 05035 4512 GETTBA /NO, SET UP RFILE OR WFILE 3562 05036 0007 JOBLNK 3563 05037 4511 GETFBL 3564 05040 5544 COMWAT 3565 05041 3375 DCA R4 3566 05042 7132 CLL CML RTR /AC=2000 3567 05043 1033 TAD C0003 /FILE # 3568 05044 3065 DCA IOTP2 3569 05045 7240 STA /DEFAULT CORE ADDRESS 3570 05046 3067 DCA IOTP4 3571 05047 4503 ENDTST /ANY PARAMETERS? 3572 05050 5276 JMP LOAD4 /NO 3573 05051 4501 NUMBIN /YES, FILE ADDRESS 02 CAN BE 6 DIGITS! 3574 05052 7511 -267 3575 05053 5276 JMP LOAD4 3576 05054 3070 DCA IOTP5 /LEAST SIGN, 12 BITS 3577 05055 1074 TAD NUMHO 3578 05056 3064 DCA IOTP1 /HIGH ORDER 3579 05057 4503 ENDTST 3580 05060 5276 JMP LOAD4 3581 05061 4501 NUMBIN /STARTING CORE ADDRESS 3582 05062 7511 -267 3583 05063 5276 JMP LOAD4 3584 05064 1067 TAD IOTP4 3585 05065 3067 DCA IOTP4 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 85 3586 05066 4503 ENDTST 3587 05067 5276 JMP LOAD4 3588 05070 4501 NUMBIN /LAST CORE ADDRESS 3589 05071 7511 -267 3590 05072 7240 CLA CMA 3591 05073 7041 CIA 3592 05074 1067 TAD IOTP4 3593 05075 3066 DCA IOTP3 /WORD COUNT 3594 05076 1053 LOAD4, TAD SIJOB /SET UP XFER BLOCK TO LOAD USER AREA 3595 05077 1325 TAD LOADM1 3596 05100 1134 TAD SWBASE 3597 05101 6221 CHDF 3598 05102 7106 CLL RTL 3599 05103 3322 DCA LOADEX 3600 05104 1317 TAD LOAD5A 3601 05105 3122 DCA EXITA 3602 05106 5506 JMP I COMEXA 3603 05107 4333 LOAD5, JMS RLS 3604 05110 1053 TAD SIJOB 3605 05111 4527 CORES 3606 05112 7440 SZA 3607 05113 5716 JMP I LOAD6A /JOB IS IN CORE 3608 05114 1320 TAD LOADUB 3609 05115 5605 JMP I LOADUA 3610 3611 05116 4670 LOAD6A, R8 3612 05117 5107 LOAD5A, LOAD5 3613 05120 5121 LOADUB, .+1 3614 05121 6603 DMAR 3615 05122 0000 LOADEX, 0 3616 05123 0010 10 3617 05124 0000 0 3618 05125 7777 LOADM1, -1 3619 05126 0000 0 3620 05127 5171 OVERLA 3621 05130 0574 READFI /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 86 3622 3623 05131 0201 RJSF3, JSF3+1 3624 05132 5600 C5600, 5600 3625 3626 05133 0000 RLS, 0 3627 05134 7650 SNA CLA /CALLED FROM RUN? 3628 05135 5352 JMP RLS1 /NO 3629 05136 4523 GETWRD /YES; INITIALIZE JOB STATUS 3630 3631 05137 0000 JOBSTS 3632 05140 0332 AND C5600 /CLEAR ERROR FLAGS 3633 05141 6211 DATFLD 3634 05142 3472 DCA I IOTP7 /POINTS TO STR0 3635 05143 2072 ISZ IOTP7 3636 05144 1472 TAD I IOTP7 /GET STR1 3637 05145 0037 AND C0100 /SAVE DELIMITER BIT IF SET 3638 05146 7001 IAC /TURN ON THE DUMMY WAIT BIT 3639 05147 3472 DCA I IOTP7 /POINTS TO STR1 3640 05150 2072 ISZ IOTP7 3641 05151 3472 DCA I IOTP7 /POINTS TO JOBSTB 3642 05152 6221 RLS1, CHDF 3643 05153 4523 GETWRD /F3 WAIT 3644 05154 0003 JOBWMK 3645 05155 7200 CLA 3646 05156 1331 TAD RJSF3 3647 05157 6211 DATFLD 3648 05160 3472 DCA I IOTP7 3649 05161 2072 ISZ IOTP7 /CLEAR WAIT MASK 2 AS WELL 3650 05162 3472 DCA I IOTP7 3651 05163 1053 TAD SIJOB 3652 05164 6203 CIF CDF 3653 05165 3426 DCA I SIREG 3654 05166 1426 TAD I SIREG 3655 05167 3560 DCA I JOB 3656 05170 6221 CHDF 3657 05171 4567 BLT 3658 05172 6221 6221 /SOURCE FIELD (ALWAYS 2) 3659 05173 0063 IOTP0 3660 05174 6211 DATFLD 3661 05175 0000 R4, 0 3662 05176 7772 -6 3663 05177 5733 JMP I RLS /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 87 3664 3665 5200 *COMMAN+2200 3666 3667 05200 7766 C7766, 7766 3668 05201 5262 DEPO3A, DEPOS3 3669 3670 05202 4501 DEPOSI, NUMBIN /STARTING ADDRESS 3671 05203 7511 -267 3672 05204 5505 JMP I COMERA 3673 05205 3070 DCA IOTP5 /LOW ORDER DISC ADDRESS 3674 05206 1200 TAD C7766 3675 05207 3064 DCA IOTP1 3676 05210 1057 TAD COMBFA 3677 05211 3010 DCA IX1 3678 05212 4501 DEPOS2, NUMBIN /CONVERT ARGUMENT LIST 3679 05213 7511 -267 3680 05214 5220 JMP DEPOS1 3681 05215 3410 DCA I IX1 3682 05216 2064 ISZ IOTP1 3683 05217 5212 JMP DEPOS2 3684 05220 1010 DEPOS1, TAD IX1 3685 05221 7041 CIA 3686 05222 1057 TAD COMBFA 3687 05223 7450 SNA 3688 05224 5505 JMP I COMERA /NOTHING TO DEPOSIT 3689 05225 3066 DCA IOTP3 /-WORD COUNT 3690 05226 1053 TAD SIJOB 3691 05227 4527 CORES 3692 05230 7440 SZA 3693 05231 5270 JMP DEPOS4 3694 05232 1201 TAD DEPO3A /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 88 3695 3696 05233 3003 EXAMI2, DCA SI1 /RETURN ADDRESS 3697 05234 1057 TAD COMBFA 3698 05235 3067 DCA IOTP4 /CORE ADDRESS-1 3699 05236 7240 CLA CMA /-1 IN AC 3700 05237 1053 TAD SIJOB 3701 05240 1134 TAD SWBASE 3702 05241 7106 CLL RTL 3703 05242 3064 DCA IOTP1 /DISC EXTENSION 3704 05243 1042 TAD C0010 3705 05244 3065 DCA IOTP2 3706 05245 1261 TAD DEPEX2 3707 05246 3071 DCA IOTP6 3708 05247 3072 DCA IOTP7 3709 05250 1066 TAD IOTP3 /ARE WE GOING INTO NEXT JOB'S DISK IMAGE? 3710 05251 7140 CLL CMA /WORD COUNT -1 3711 05252 1070 TAD IOTP5 /WC+ADDRESS>7777? 3712 05253 7620 SNL CLA 3713 05254 5660 JMP I DEPEX /OK TO PROCEED 3714 05255 1266 TAD COMA /RESET DISPATCH ADDRESS 3715 05256 3003 DCA SI1 3716 05257 5505 JMP I COMERA /EVIL ONCE AGAIN AVERTED 3717 05260 1153 DEPEX, DEPEXA 3718 05261 5171 DEPEX2, OVERLA 3719 3720 /RETURN AFTER READING OR WRITING USER AREA 3721 3722 05262 1266 DEPOS3, TAD COMA 3723 05263 3003 DCA SI1 3724 05264 5506 JMP I COMEXA 3725 3726 05265 6221 COMF, CHDF 3727 3728 05266 0202 COMA, COM 3729 05267 0070 C0070, 70 3730 3731 05270 0267 DEPOS4, AND C0070 3732 05271 1001 TAD C6201 3733 05272 3312 DCA DEDEF 3734 05273 1070 TAD IOTP5 3735 05274 3313 DCA DEDEA 3736 05275 1265 TAD COMF 3737 05276 3310 DCA DESRF 3738 05277 1350 TAD BUFFER 3739 05300 3311 DCA DESRA 3740 05301 4303 JMS DEMOVE 3741 05302 5506 JMP I COMEXA 3742 3743 05303 0000 DEMOVE, 0 3744 05304 1066 TAD IOTP3 3745 05305 3314 DCA DECNT 3746 05306 6202 CIF 3747 05307 4567 BLT 3748 05310 0000 DESRF, 0 /FROM FLD 3749 05311 0000 DESRA, 0 /FROM ADDR 3750 05312 0000 DEDEF, 0 /TO FLD 3751 05313 0000 DEDEA, 0 /TO ADDR /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 89 3752 05314 0000 DECNT, 0 /-COUNT 3753 05315 5703 JMP I DEMOVE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 90 3754 3755 05316 4501 EXAMIN, NUMBIN /STARTING ADDRESS 3756 05317 7511 -267 3757 05320 5505 JMP I COMERA 3758 05321 3070 DCA IOTP5 3759 05322 4501 NUMBIN 3760 05323 7507 -271 3761 05324 7001 IAC 3762 05325 7450 SNA 3763 05326 7001 IAC 3764 05327 7041 CIA 3765 05330 3066 DCA IOTP3 3766 05331 1066 TAD IOTP3 /IS COUNT WAY OUT OF LINE? 3767 05332 7700 SMA CLA 3768 05333 5505 JMP I COMERA /YES 3769 05334 1066 TAD IOTP3 3770 05335 7041 CIA 3771 05336 1200 TAD C7766 3772 05337 7740 SMA SZA CLA 3773 05340 5505 JMP I COMERA 3774 05341 1053 TAD SIJOB 3775 05342 4527 CORES 3776 05343 7440 SZA 3777 05344 5351 JMP EXAMI4 3778 05345 1347 TAD EXAM1A 3779 05346 5233 JMP EXAMI2 3780 3781 05347 3330 EXAM1A, EXAMI1 3782 05350 6001 BUFFER, COMBUF 3783 3784 05351 0267 EXAMI4, AND C0070 3785 05352 1001 TAD C6201 3786 05353 3310 DCA DESRF 3787 05354 1070 TAD IOTP5 3788 05355 3311 DCA DESRA 3789 05356 1265 TAD COMF 3790 05357 3312 DCA DEDEF 3791 05360 1350 TAD BUFFER 3792 05361 3313 DCA DEDEA 3793 05362 4303 JMS DEMOVE 3794 05363 5747 JMP I EXAM1A 3795 3796 3797 05364 0240 FORJOB, 240 3798 05365 0306 306 /F 3799 05366 0317 317 /O 3800 05367 0322 322 /R 3801 05370 0240 240 3802 05371 0312 312 /J 3803 05372 0317 317 /O 3804 05373 0302 302 /B 3805 05374 0240 240 3806 05375 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 91 3807 3808 5400 *COMMAN+2400 3809 3810 3811 05400 0322 TICLK2, INCLK2 3812 05401 7400 TICLK1, INCLK1 3813 05402 5665 JOBRSA, JOBRES /RESTORE JOBDAT 3814 3815 05403 4503 TIME, ENDTST /ARGUMENT? 3816 05404 5246 JMP TIME1 /NO, THIS JOB 3817 05405 4501 NUMBIN 3818 05406 7511 -267 3819 05407 5246 JMP TIME1 3820 05410 3063 DCA IOTP0 /LEGAL JOB #? 3821 05411 1063 TAD IOTP0 3822 05412 1140 TAD JOBONC 3823 05413 7740 SMA SZA CLA 3824 05414 5505 JMP I COMERA /NO 3825 05415 1063 TAD IOTP0 /JOB 0? 3826 05416 7650 SNA CLA 3827 05417 5251 JMP TIME3 /YES, TIME OF DAY 3828 05420 6211 DATFLD 3829 05421 1063 TAD IOTP0 3830 05422 1044 TAD JOBTBA 3831 05423 3063 DCA IOTP0 3832 05424 1463 TAD I IOTP0 3833 05425 7450 SNA /LOGGED IN? 3834 05426 5244 JMP TIME5 /NO 3835 05427 6211 DATFLD 3836 05430 3561 DCA I JOBDAT 3837 3838 05431 6221 TIME2, CHDF 3839 05432 4523 GETWRD 3840 05433 0023 JOBRTM 3841 05434 3075 DCA NUMHO+1 3842 05435 4523 GETWRD 3843 05436 0024 JOBRTH /HI ORDER TIME 3844 05437 3074 TIME4, DCA NUMHO 3845 05440 4264 JMS PTIME 3846 05441 4602 JMS I JOBRSA /RESTORE JOBDAT IF ALTERED 3847 05442 1057 TAD COMBFA 3848 05443 7001 IAC 3849 05444 6221 TIME5, CHDF 3850 05445 5506 JMP I COMEXA 3851 3852 05446 1053 TIME1, TAD SIJOB 3853 05447 7640 SZA CLA 3854 05450 5231 JMP TIME2 3855 3856 05451 6201 TIME3, CDF 3857 05452 1451 TAD I CLK1 3858 05453 7100 CLL 3859 05454 1201 TAD TICLK1 3860 05455 3075 DCA NUMHO+1 3861 05456 7430 SZL 3862 05457 7001 IAC 3863 05460 1450 TAD I CLK2 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 92 3864 05461 1200 TAD TICLK2 3865 05462 6221 CHDF 3866 05463 5237 JMP TIME4 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 93 3867 3868 /ROUTINE TO CONVERT VALUE IN NUMHO AND NUMHO+1 (IN TICKS) 3869 /TO HOURS, MINUTES AND SECONDS. 3870 /THE RESULT IS STORED IN COMBUF AS HH:MM:SS 3871 3872 05464 0000 PTIME, 0 /ENTER WITH AC=0 3873 05465 1057 TAD COMBFA /START OF OUTPUT BUFFER 3874 05466 3010 DCA IX1 3875 05467 1334 TAD PTABX /SET UP TABLE FETCH (LOW) 3876 05470 3301 DCA PTIMX 3877 05471 1335 TAD PTABX1 /SET UP TABLE FETCH (HIGH) 3878 05472 3305 DCA PTIMX1 3879 3880 05473 1336 TAD PTFORM /FORMAT MASK 3881 05474 3342 DCA PTCONT 3882 3883 05475 1337 PTLOOP, TAD PT0260 /INITIALIZE DIGIT COUNTER 3884 05476 3341 DCA PTDIGI 3885 05477 7100 CLL /DIVIDE LOOP 3886 05500 1075 TAD NUMHO+1 /DOUBLE PRECISION ADD 3887 05501 7000 PTIMX, NOP /(TAD PTAB1+N) 3888 05502 3076 DCA NUMHO+2 /SAVE LOW ORDER REMAINDER 3889 05503 7004 RAL /GET OVERFLOW 3890 05504 1074 TAD NUMHO /ADD HIGH ORDER 3891 05505 7000 PTIMX1, NOP /(TAD PTAB+N) 3892 05506 7420 SNL 3893 05507 5315 JMP PTIMA /DIVIDE OVERFLOW 3894 05510 3074 DCA NUMHO /RESTORE REMAINDER 3895 05511 1076 TAD NUMHO+2 /LOW ORDER RESTORE 3896 05512 3075 DCA NUMHO+1 3897 05513 2341 ISZ PTDIGI /COUNT THIS SUBTRACTION 3898 05514 5277 JMP PTIMX-2 /CONTINUE LOOP 3899 3900 3901 3902 05515 2301 PTIMA, ISZ PTIMX /ADVANCE TABLE FETCH 3903 05516 2305 ISZ PTIMX1 /ADVANCE TABLE FETCH 3904 05517 7200 CLA /CLEAR OUT REMAINDER 3905 05520 1341 TAD PTDIGI 3906 05521 3410 DCA I IX1 /STORE ASCII DIGIT 3907 05522 1342 TAD PTCONT 3908 05523 7450 SNA /TEST FOR ALL DONE 3909 05524 5664 JMP I PTIME /EXIT 3910 05525 7104 RAL CLL /TEST FOR COLON PRINT 3911 05526 3342 DCA PTCONT /RESTORE FORMAT 3912 05527 7430 SZL /PRINT COLON? 3913 05530 5275 JMP PTLOOP /CONTINUE LOOP 3914 05531 1340 TAD PTCOLN /ADD COLON TO OUTPUT 3915 05532 3410 DCA I IX1 3916 05533 5275 JMP PTLOOP /CONTINUE LOOP 3917 3918 3919 3920 05534 1371 PTABX, TAD PTAB1 /TABLE FETCH LOW 3921 05535 1363 PTABX1, TAD PTAB /TABLE FETCH HIGH 3922 05536 5200 PTFORM, 5200 /FORMAT FOR OUTPUT 3923 05537 0260 PT0260, 260 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 94 3924 05540 0272 PTCOLN, 272 /ASCII COLON 3925 3926 05541 0000 PTDIGI, 0 /ASCII DIGIT BUILT HERE 3927 05542 0000 PTCONT, 0 /LOOP CONTROL 3928 05543 0005 C0005, 5 3929 3930 /SUBROUTINE TO SET R PRIVILEGE BIT 3931 /SET BY R COMMAND, AND IN ADDITION K, LOGOUT, AND SYSTAT COMMANDS 3932 /ALLOWS PRIVILEGED IOT'S; IE LOGOUT, PEEK 3933 3934 05544 0000 SETPRV, 0 3935 05545 4523 GETWRD 3936 05546 0000 JOBSTS 3937 05547 6211 DATFLD 3938 05550 1156 TAD C0400 /PRIVILEGE BIT 3939 05551 3472 DCA I IOTP7 /SAVE IT 3940 05552 1343 TAD C0005 3941 05553 1072 TAD IOTP7 3942 05554 3072 DCA IOTP7 3943 05555 3472 DCA I IOTP7 /CLEAR HER RESTART ADDRESS 3944 05556 6221 CHDF 3945 05557 5744 JMP I SETPRV /AND RETURN 3946 3947 05560 6371 SYSM, 6371 /SY 3948 05561 6364 6364 /ST 3949 05562 4164 4164 /AT 3950 3951 3952 /DOUBLE PRECISION WORDS...HIGH ORDER BITS 3953 05563 7650 PTAB, 7650 /-TICKS PER 10 HRS 3954 05564 7767 7767 /-TICKS PER 1 HR 3955 05565 7776 7776 /-TICKS PER 10 MIN 3956 05566 7777 7777 /-TICKS PER 1 MIN 3957 05567 7777 7777 /-TICKS PER 10 SEC 3958 05570 7777 7777 /-TICKS PER 1 SEC 3959 3960 /DOUBLE PRECISION WORDS...LOW ORDER BITS 3961 05571 0700 PTAB1, 0700 /-TICKS PER 10 HRS 3962 05572 1540 1540 /-TICKS PER 1 HR 3963 05573 4220 4220 /-TICKS PER 10 MIN 3964 05574 6650 6650 /-TICKS PER 1 MIN 3965 05575 7634 7634 /-TICKS PER 10 SEC 3966 05576 7766 7766 /-TICKS PER 1 SEC /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 95 3967 3968 5600 *5600 3969 3970 /ROUTINE TO CONVERT CONTENTS OF AC INTO DECIMAL CHARACTER STRING 3971 /STORE STRING USING IX1 AS BUFFER POINTER 3972 /ONLY DECIMAL VALUES <4000 (DECIMAL) ARE VALID 3973 3974 05600 0000 DECOUT, 0 3975 05601 3250 DCA BCDI /SAVE VALUE 3976 05602 1247 TAD BCDC 3977 05603 3213 DCA BCDP /RESET TABLE POINTER 3978 05604 7146 CLL CMA RTL /AC:=-3 3979 05605 3074 DCA NUMHO /SET DIGIT COUNTER 3980 05606 3265 DCA JOBRES /CLEAR OUTPUT FLAG 3981 05607 1252 TAD BCDT 3982 05610 3251 DCA BCDN /SET MAGIC BIT 3983 05611 1250 TAD BCDI /RECALL CURRENT VALUES 3984 05612 7100 CLL 3985 05613 1253 BCDP, TAD BCDTB /SUBTRACT BIT VALUE 3986 05614 7430 SZL /SKIP IF TOO LARGE 3987 05615 3250 DCA BCDI /SAVE NEW VALUE 3988 05616 7200 CLA 3989 05617 1251 TAD BCDN /RECALL CONSTRUCTION WORD 3990 05620 7004 RAL 3991 05621 2213 ISZ BCDP /ADVANCE TABLE POINTER 3992 05622 7420 SNL /SKIP IF CHARACTER ASSEMBLED 3993 05623 5210 JMP BCDP-3 /KEEP AT IT 3994 05624 3251 DCA BCDN /SAVE CURRENT ASSEMBLY WORD 3995 05625 1251 TAD BCDN 3996 05626 0246 AND DEC17 /MASK OUT BCD CHARACTER 3997 05627 7440 SZA /ZERO SUPPRESSION? 3998 05630 5234 JMP .+4 /NON ZERO- PROCEED 3999 05631 1265 TAD JOBRES /PRECEDING OUTPUT? 4000 05632 7650 SNA CLA 4001 05633 5237 JMP .+4 /NO; DON'T TYPE THE 0 4002 05634 1245 TAD DEC260 4003 05635 3410 DCA I IX1 /STORE IN BUFFER 4004 05636 2265 ISZ JOBRES /SET OUTPUT FLAG 4005 05637 2074 ISZ NUMHO /3 DIGITS ASSEMBLED? 4006 05640 5211 JMP BCDP-2 /NO, REPEAT 4007 05641 1250 TAD BCDI /NOW GET LAST DIGIT 4008 05642 1245 TAD DEC260 /CONVERT TO ASCII 4009 05643 3410 DCA I IX1 /STORE IN BUFFER 4010 05644 5600 JMP I DECOUT /RETURN 4011 4012 05645 0260 DEC260, 260 4013 05646 0017 DEC17, 17 4014 05647 1253 BCDC, TAD BCDTB 4015 05650 0000 BCDI, 0 4016 05651 0000 BCDN, 0 4017 05652 2104 BCDT, 2104 /MAGIC BITS 4018 05653 4060 BCDTB, -3720 /-2000 DECIMAL 4019 05654 6030 -1750 /-1000 DECIMAL 4020 05655 6340 -1440 /-800 4021 05656 7160 -0620 /-400 4022 05657 7470 -0310 /-200 4023 05660 7634 -0144 /-100 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 96 4024 05661 7660 -0120 /-80 4025 05662 7730 -0050 /-40 4026 05663 7754 -0024 /-20 4027 05664 7766 -0012 /-10 4028 4029 4030 /ROUTINE TO RESTORE JOBDAT IF IT HAS BEEN KLUGED 4031 4032 05665 0000 JOBRES, 0 4033 05666 1053 TAD SIJOB 4034 05667 7450 SNA /IS HE LOGGED IN? 4035 05670 5277 JMP .+7 /NO; JOBDAT IS NOT RELEVANT 4036 05671 6211 DATFLD /YES 4037 05672 1044 TAD JOBTBA /START OF JOBTBL 4038 05673 3072 DCA IOTP7 4039 05674 1472 TAD I IOTP7 4040 05675 3561 DCA I JOBDAT /NOW JOB AND JOBDAT AGREE 4041 05676 6221 CHDF 4042 05677 5665 JMP I JOBRES /RETURN /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 97 4043 4044 /ROUTINE TO SEE IF A CONSOLE IS "ACTIVE" 4045 /ACTIVE IS DEFINED AS HAVING A NONZERO 4046 /FILL OR EMPTY POINTER ON INPUT OR OUTPUT SIDES 4047 /CALL TAD DEVTBL POINTER 4048 / JMS TALK1 4049 / RETURN IF ACTIVE 4050 / RETURN IF NOT ACTIVE 4051 / IF INPUT DDB DOES NOT EXIST, CONSOLE IS INACTIVE 4052 4053 05700 0000 TALK1, 0 4054 05701 3065 DCA IOTP2 /DEVTBL POINTER 4055 05702 6211 DATFLD 4056 05703 1465 TAD I IOTP2 /DDB ADDRESS 4057 05704 7450 SNA /EXISTING? 4058 05705 5313 JMP TALK12 /NOT YET 4059 05706 1034 TAD C0004 4060 05707 3065 DCA IOTP2 /POINTS TO FILL PTR 4061 05710 1465 TAD I IOTP2 /FILL PTR 4062 05711 7640 SZA CLA / =0? 4063 05712 5315 JMP TALK13 /NO - SEE IF HE IS UNDER A PRIVILEGED ACCOUNT 4064 05713 2300 TALK12, ISZ TALK1 /YES; CONSOLE IS THUS INACTIVE 4065 05714 5700 JMP I TALK1 /RETURN 4066 4067 05715 6221 TALK13, CHDF 4068 05716 4523 GETWRD 4069 05717 0000 JOBSTS 4070 05720 0015 AND C0200 4071 05721 7640 SZA CLA 4072 05722 5313 JMP TALK12 /HE IS - LET HER DO THE TALK 4073 05723 5700 JMP I TALK1 4074 4075 05724 0000 ACTNM1, 0 4076 05725 4523 GETWRD /CHECK ACCOUNT # 4077 05726 0016 JOBACC 4078 05727 1136 TAD P7777 4079 05730 7112 CLL RTR /ALLOW EITHER ACCOUNT 1 OR ACCOUNT 3; NOONE ELSE!!!! 4080 05731 7640 SZA CLA 4081 05732 5505 JMP I COMERA /NOT ACCOUNT #; ERROR 4082 05733 5724 JMP I ACTNM1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 98 4083 4084 05734 0314 COMLGM, 314 /L 4085 05735 0317 317 /O 4086 05736 0307 307 /G 4087 05737 0311 311 /I 4088 05740 0316 316 /N 4089 05741 0240 240 4090 05742 0320 320 /P 4091 05743 0314 314 /L 4092 05744 0305 305 /E 4093 05745 0301 301 /A 4094 05746 0323 323 /S 4095 05747 0305 305 /E 4096 05750 0000 0 4097 05751 0311 ILLREQ, 311 /I 4098 05752 0314 314 /L 4099 05753 0314 314 /L 4100 05754 0305 305 /E 4101 05755 0307 307 /G 4102 05756 0301 301 /A 4103 05757 0314 314 /L 4104 05760 0240 240 4105 05761 0322 322 /R 4106 05762 0305 305 /E 4107 05763 0321 321 /Q 4108 05764 0325 325 /U 4109 05765 0305 305 /E 4110 05766 0323 323 /S 4111 05767 0324 324 /T 4112 05770 0215 215 4113 05771 0212 212 4114 05772 0000 0 4115 05773 0277 QQEST, 277 /? 4116 05774 0277 277 /? 4117 05775 0000 0 4118 05776 0256 PERIOD, 256 /. 4119 05777 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 99 4120 4121 6000 *CTABLE 4122 4123 06000 0000 0 4124 06001 0000 COMBUF, 0 4125 06002 0000 0 4126 06003 0000 0 4127 06004 0000 0 4128 06005 0000 0 4129 06006 0000 0 4130 06007 0000 0 4131 06010 0000 0 4132 06011 0000 0 4133 06012 0000 0 4134 06013 0000 0 4135 06014 0000 0 4136 4137 4138 1440 FIPFLS=PRPER+USAVE+UREST 4139 4140 06015 6026 COMTBL, CL1 /LOGIN O1 S1; 4141 06016 4060 NOLOG+PRPER+PRCRLF /IOTP2:=O1 ACCOUNT # 4142 06017 0214 LIN /IOTP3-4:=S1 PASSWORD 4143 06020 3134 LOGIN /RESP: VERSION # HR:MIN 4144 06021 7464 -314 /. 4145 06022 7461 -317 4146 06023 7471 -307 4147 06024 7467 -311 4148 06025 7462 -316 4149 06026 6040 CL1, CL2 /LOGOUT; 4150 06027 2002 USERM+2 /RESP: . 4151 06030 0201 OPEN /. 4152 06031 2344 LOGOUT 4153 06032 7464 -314 4154 06033 7461 -317 4155 06034 7471 -307 4156 06035 7461 -317 4157 06036 7453 -325 4158 06037 7454 -324 4159 06040 6050 CL2, CL3 /TIME; 4160 06041 4060 NOLOG+PRPER+PRCRLF /RESP: HR:MIN 4161 06042 0000 0 /. 4162 06043 5403 TIME 4163 06044 7454 -324 4164 06045 7467 -311 4165 06046 7463 -315 4166 06047 7473 -305 4167 06050 6062 CL3, CL4 /ASSIGN L1 O1; 4168 06051 1442 FIPFLS+2 /AC0-5:=DEVICE # OF L1 4169 06052 0040 ASD /AC6-11:=O1 UNIT # 4170 06053 3414 ASSIGN /ERROR: AC NOT 0 4171 06054 7477 -301 /RESP: 4172 06055 7455 -323 /. 4173 06056 7455 -323 4174 06057 7467 -311 4175 06060 7471 -307 4176 06061 7462 -316 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 100 4177 06062 6075 CL4, CL5 /RELEASE L1 O1; 4178 06063 1442 FIPFLS+2 /SAME AS ASSIGN 4179 06064 0042 REL 4180 06065 3552 RELEAS 4181 06066 7456 -322 4182 06067 7473 -305 4183 06070 7464 -314 4184 06071 7473 -305 4185 06072 7477 -301 4186 06073 7455 -323 4187 06074 7473 -305 4188 06075 6105 CL5, CL7 /TALK C1 S1 4189 06076 4060 NOLOG+PRPER+PRCRLF /C1=CONSOLE TO TALK TO 4190 06077 0000 0 /S1=MESSAGE TO TRANSMIT 4191 06100 6640 TALK /RESP: BUSY IF TARGET TTY IS ACTIVE 4192 06101 7454 -"T / OTHERWISE CRLF 4193 06102 7477 -"A 4194 06103 7464 -"L 4195 06104 7465 -"K 4196 06105 6115 CL7, CL8 /OPEN O1 S1 O2; 4197 06106 1442 FIPFLS+2 /IOTP1:=O1 INTERNAL FILE # 4198 06107 0201 OPEN /IOTP2:=O2 ACCOUNT # 4199 06110 3621 FOPEN /IOTP3-5:=S1 FILE NAME 4200 06111 7461 -317 /ERROR: AC NOT 0 4201 06112 7460 -320 /RESP: 4202 06113 7473 -305 /. 4203 06114 7462 -316 4204 06115 6126 CL8, CL9 /CLOSE S1; 4205 06116 1442 FIPFLS+2 /ACI:=1 I=0,1,2,3 4206 06117 0202 CLOS /ERROR: AC NOT 0 4207 06120 3656 CLOSE /RESP: 4208 06121 7475 -303 /. 4209 06122 7464 -314 4210 06123 7461 -317 4211 06124 7455 -323 4212 06125 7473 -305 4213 06126 6140 CL9, CL10 /CREATE S1; 4214 06127 1442 FIPFLS+2 /IOTP1-3:=S1 FILE NAME 4215 06130 0210 CRF /ERROR: AC NOT 0 4216 06131 3706 CREATE /RESP: 4217 06132 7475 -303 /. 4218 06133 7456 -322 4219 06134 7473 -305 4220 06135 7477 -301 4221 06136 7454 -324 4222 06137 7473 -305 4223 06140 6152 CL10, CL12 /RENAME O1 S1; 4224 06141 1442 FIPFLS+2 /IOTP1:=O1 INTERNAL FILE # 4225 06142 0200 REN /IOTP2-4:=S1 NEW NAME 4226 06143 3725 RENAME /ERROR: AC NOT 0 4227 06144 7456 -322 /RESP; 4228 06145 7473 -305 /. 4229 06146 7462 -316 4230 06147 7477 -301 4231 06150 7463 -315 4232 06151 7473 -305 4233 06152 6164 CL12, CL13 /REDUCE O1 D1; /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 101 4234 06153 1442 FIPFLS+2 /IOTP1:=O1 INTERNAL FILE # 4235 06154 0212 RED /IOTP2:=D1 # SEGMENTS TO REMOVE 4236 06155 3741 REDUCE /ERROR: AC NOT 0 4237 06156 7456 -322 /RESP: 4238 06157 7473 -305 /. 4239 06160 7474 -304 4240 06161 7453 -325 4241 06162 7475 -303 4242 06163 7473 -305 4243 06164 6176 CL13, CL14 /EXTEND O1 D1; 4244 06165 1442 FIPFLS+2 /SAME AS REDUCE 4245 06166 0211 EXT 4246 06167 3741 EXTEND 4247 06170 7473 -305 4248 06171 7450 -330 4249 06172 7454 -324 4250 06173 7473 -305 4251 06174 7462 -316 4252 06175 7474 -304 4253 06176 6211 CL14, CL15 /PROTECT O1 O2; 4254 06177 1442 FIPFLS+2 /AC5-6:=O1 INTERNAL FILE # 4255 06200 0204 PROT /AC7-11:=O2 NEW PROTECTION 4256 06201 3756 PROTEC /ERROR: AC NOT 0 4257 06202 7460 -320 /RESP: 4258 06203 7456 -322 /. 4259 06204 7461 -317 4260 06205 7454 -324 4261 06206 7473 -305 4262 06207 7475 -303 4263 06210 7454 -324 4264 06211 6216 CL15, CL17 /F O1; 4265 06212 1443 FIPFLS+3 /IOTP1:=O1 INTERNAL FILE # 4266 06213 6613 FINF /ERROR: AC NOT 0 4267 06214 4404 F /RESP: ACCT # FILE NAME PROT SIZE 4268 06215 7472 -306 /. 4269 06216 6226 CL17, CL18 /SAVE S1 O1 O2 O3; 4270 06217 3442 USAVE+UREST+PRPER+2+USERM 4271 06220 0201 OPEN 4272 06221 4732 SAVE 4273 06222 7455 -323 4274 06223 7477 -301 4275 06224 7452 -326 4276 06225 7473 -305 4277 06226 6236 CL18, CL19 /LOAM0G1 S1 O2 O3 O4 4278 06227 3442 USAVE+UREST+PRPER+USERM+2 4279 06230 0201 OPEN 4280 06231 5011 LOAD 4281 06232 7464 -314 4282 06233 7461 -317 4283 06234 7477 -301 4284 06235 7474 -304 4285 06236 6247 CL19, CL20 /START O1; 4286 06237 0000 0 4287 06240 0001 1 /FORCE IT THROUGH "FIPCHK" 4288 06241 4004 START 4289 06242 7455 -323 4290 06243 7454 -324 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 102 4291 06244 7477 -301 4292 06245 7456 -322 4293 06246 7454 -324 4294 06247 6254 CL20, CL21 /S; 4295 06250 0040 PRPER 4296 06251 0000 0 4297 06252 2324 S 4298 06253 7455 -323 4299 06254 6265 CL21, CL22 /WHERE; 4300 06255 0043 PRPER+3 4301 06256 0000 0 4302 06257 4070 WHERE 4303 06260 7451 -327 4304 06261 7470 -310 4305 06262 7473 -305 4306 06263 7456 -322 4307 06264 7473 -305 4308 06265 6275 CL22, CL23 /USER O1; 4309 06266 4043 NOLOG+PRPER+3 4310 06267 0000 0 4311 06270 4500 USER 4312 06271 7453 -325 4313 06272 7455 -323 4314 06273 7473 -305 4315 06274 7456 -322 4316 06275 6307 CL23, CL29 /SWITCH O1; 4317 06276 0040 PRPER 4318 06277 0000 0 4319 06300 0514 SWITCH 4320 06301 7455 -323 4321 06302 7451 -327 4322 06303 7467 -311 4323 06304 7454 -324 4324 06305 7475 -303 4325 06306 7470 -310 4326 06307 6321 CL29, CL32 /DUPLEX; 4327 06310 0060 PRPER+PRCRLF 4328 06311 0000 0 4329 06312 7250 DUPLEX 4330 06313 7474 -304 4331 06314 7453 -325 4332 06315 7460 -320 4333 06316 7464 -314 4334 06317 7473 -305 4335 06320 7450 -330 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 103 4336 4337 06321 6326 CL32, CL33 /R S1 O1 4338 06322 2002 USERM+2 /S1=FILE NAME 4339 06323 0201 OPEN /O1=STARTING ADDRESS; 0000 IF OMITTED 4340 06324 4620 R 4341 06325 7456 -322 4342 06326 6335 CL33, CL34 /RUN C1 S1 O1 4343 06327 2002 USERM+2 /C1=ACCOUNT OF FILE OWNER (OPTIONAL) 4344 06330 0201 OPEN /S1=FILE NAME 4345 06331 4613 RUN /O1=STARTING ADDRESS; 0000 IF OMITTED 4346 06332 7456 -322 4347 06333 7453 -325 4348 06334 7462 -316 4349 06335 6347 CL34, CL35 /EXAMINE C1 D1 4350 06336 2041 PRPER+USERM+1 /C1=STARTING ADDRESS 4351 06337 6603 DMAR 4352 06340 5316 EXAMIN /D1=# OF LOCATIONS TO EXAMINE 4353 06341 7473 -305 4354 06342 7450 -330 4355 06343 7477 -301 4356 06344 7463 -315 4357 06345 7467 -311 4358 06346 7462 -316 4359 06347 6361 CL35, CL36 /DEPOSIT C1 C2 C3 ... C13 4360 06350 2041 PRPER+USERM+1 /C1=STARTING ADDRESS 4361 06351 6605 DMAW /C2,...,C13=NEW VALUES 4362 06352 5202 DEPOSI 4363 06353 7474 -304 4364 06354 7473 -305 4365 06355 7460 -320 4366 06356 7461 -317 4367 06357 7455 -323 4368 06360 7467 -311 /no ending T??? PROTECT has one! 4369 06361 6373 CL36, CL37 /VERSION 4370 06362 4060 NOLOG+PRPER+PRCRLF /RESP: TSS8/.C1 4371 06363 0000 0 4372 06364 3113 VERSIN /C1=VERSION # 4373 06365 7452 -326 4374 06366 7473 -305 4375 06367 7456 -322 4376 06370 7455 -323 4377 06371 7467 -311 4378 06372 7461 -317 4379 06373 6404 CL37, CL38 /BREAK O1 4380 06374 0060 PRPER+PRCRLF 4381 06375 0000 0 4382 06376 0524 BREAK 4383 06377 7476 -"B 4384 06400 7456 -"R 4385 06401 7473 -"E 4386 06402 7477 -"A 4387 06403 7465 -"K 4388 4389 06404 6416 CL38, CL39 /RESTART O1 4390 06405 0040 PRPER 4391 06406 0000 0 4392 06407 0515 RESTRT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 104 4393 06410 7456 -"R 4394 06411 7473 -"E 4395 06412 7455 -"S 4396 06413 7454 -"T 4397 06414 7477 -"A 4398 06415 7456 -"R 4399 06416 6430 CL39, CL40 /UNDUPLEX 4400 06417 0060 PRPER+PRCRLF 4401 06420 0000 0 4402 06421 7251 UNDUPL 4403 06422 7453 -"U 4404 06423 7462 -"N 4405 06424 7474 -"D 4406 06425 7453 -"U 4407 06426 7460 -"P 4408 06427 7464 -"L 4409 06430 6442 CL40, CL41 /SYSTAT 4410 06431 2002 USERM+2 4411 06432 0201 OPEN 4412 06433 4711 SYSTAT 4413 06434 7455 -"S 4414 06435 7447 -"Y 4415 06436 7455 -"S 4416 06437 7454 -"T 4417 06440 7477 -"A 4418 06441 7454 -"T 4419 06442 6452 CL41, CL42 /KJOB 4420 06443 2002 USERM+2 /EQUIVALENT TO .R LOGOUT 4421 06444 0201 OPEN 4422 06445 2344 LOGOUT 4423 06446 7465 -"K 4424 06447 7466 -"J 4425 06450 7461 -"O 4426 06451 7476 -"B 4427 06452 6464 CL42, CL43 /BROADCAST S1 4428 06453 0067 PRPER+PRCRLF+7 /SEND MESSAGE TO ALL CONSOLES 4429 06454 0000 0 /MUST BE LOGGED IN AS ACCT 1 OR 3 4430 06455 4332 BROAD 4431 06456 7476 -"B 4432 06457 7456 -"R 4433 06460 7461 -"O 4434 06461 7477 -"A 4435 06462 7474 -"D 4436 06463 7475 -"C 4437 06464 6475 CL43, CL44 /FORCE C1 S1 4438 06465 0067 PRPER+PRCRLF+7 /FORCE STRING S1 INTO INPUT BUFFER OF CONSOLE C1 4439 06466 0000 0 /USER MUST BE LOGGED IN AS ACCT 1 OR 3 4440 06467 4240 FORSE /ANY "LETTER" PRECEEDED BY "^" WILL BECOME A CONTROL CHARACTER 4441 06470 7472 -"F /"^S", "^Q", "^B" OR "^C" ARE THE MOST USEFUL 4442 06471 7461 -"O 4443 06472 7456 -"R 4444 06473 7475 -"C 4445 06474 7473 -"E 4446 06475 6503 CL44, CL45 /ON LINE 4447 06476 0060 PRPER+PRCRLF 4448 06477 0000 0 4449 06500 1173 ON /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 105 4450 06501 7461 -"O 4451 06502 7462 -"N 4452 06503 6512 CL45, CL46 /OFFLINE 4453 06504 0060 PRPER+PRCRLF 4454 06505 0000 0 4455 06506 1172 OFFLIN 4456 06507 7461 -"O 4457 06510 7472 -"F 4458 06511 7472 -"F 4459 06512 0000 CL46, 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 106 4460 4461 06513 0325 UNACCT, 325 /U 4462 06514 0316 316 /N 4463 06515 0301 301 /A 4464 06516 0325 325 /U 4465 06517 0324 324 /T 4466 06520 0310 310 /H 4467 06521 0317 317 /O 4468 06522 0322 322 /R 4469 06523 0311 311 /I 4470 06524 0332 332 /Z 4471 06525 0305 305 /E 4472 06526 0304 304 /D 4473 06527 0240 240 4474 06530 0301 301 /A 4475 06531 0303 303 /C 4476 06532 0303 303 /C 4477 06533 0317 317 /O 4478 06534 0325 325 /U 4479 06535 0316 316 /N 4480 06536 0324 324 /T 4481 06537 0240 240 4482 06540 0000 0 4483 4484 06541 0306 LOGE1, 306 /FULL 4485 06542 0325 325 4486 06543 0314 314 4487 06544 0314 314 4488 06545 0000 0 4489 4490 06546 0240 WHERPC, 240 /SP PC= 4491 06547 0320 320 4492 06550 0303 303 4493 06551 0275 275 4494 06552 0000 0 4495 06553 0240 WHERAC, 240 /SP SP AC= 4496 06554 0240 240 4497 06555 0301 301 4498 06556 0303 303 4499 06557 0275 275 4500 06560 0000 0 4501 06561 0215 WHERSW, 215 /CR LF SW= 4502 06562 0212 212 4503 06563 0240 240 4504 06564 0323 323 4505 06565 0327 327 4506 06566 0275 275 4507 06567 0000 0 4508 4509 06570 0324 TYCRLB, "T;"Y;"P;"E;240;"^;"B;"S;240;"F;"I;"R;"S;"T;215;212;0 06571 0331 06572 0320 06573 0305 06574 0240 06575 0336 06576 0302 06577 0323 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 107 06600 0240 06601 0306 06602 0311 06603 0322 06604 0323 06605 0324 06606 0215 06607 0212 06610 0000 4510 06611 0304 NONSUC, "D;"E;"V;"I;"C;"E;240;;"N;"O;"T;240;"A;"V;"A;"I;"L;"A;"B;"L;"E 06612 0305 06613 0326 06614 0311 06615 0303 06616 0305 06617 0240 06620 0316 06621 0317 06622 0324 06623 0240 06624 0301 06625 0326 06626 0301 06627 0311 06630 0314 06631 0301 06632 0302 06633 0314 06634 0305 4511 06635 0215 CRLF, 215 4512 06636 0212 212 4513 06637 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 108 4514 4515 06640 4503 TALK, ENDTST /END OF COMMAND 4516 06641 5505 JMP I COMERA /YES 4517 06642 4501 NUMBIN /GET CONSOLE # 4518 06643 7511 -267 4519 06644 5327 JMP TALK6 /IGNORE "K" 4520 06645 7510 TALK7, SPA 4521 06646 7041 CIA /MAKE SURE IT'S POSITIVE 4522 06647 3063 DCA IOTP0 4523 06650 1063 TAD IOTP0 /VALIDITY CHECK 4524 06651 1353 TAD TALKMX /-HIGHEST CONSOLE # 4525 06652 7700 SMA CLA 4526 06653 5505 JMP I COMERA 4527 06654 1063 TAD IOTP0 4528 06655 7104 CLL RAL 4529 06656 1163 TAD DEVTBA /POINTER TO DEVTBL 4530 06657 3067 DCA IOTP4 4531 06660 1067 TAD IOTP4 4532 06661 4752 JMS I TALK1A /INPUT SIDE INACTIVE? 4533 06662 5325 JMP TALKNO /NO 4534 06663 2067 ISZ IOTP4 /POINTS TO OUTPUT SIDE 4535 06664 1067 TAD IOTP4 4536 06665 4752 JMS I TALK1A /OUTPUT SIDE INACTIVE? 4537 06666 5325 JMP TALKNO /NO 4538 06667 6201 CDF /GET # OF CALLING CONSOLE 4539 06670 1420 TAD I COMPTR 4540 06671 1324 TAD TALKXX 4541 06672 7110 CLL RAR 4542 06673 6221 CHDF 4543 06674 4524 OCTASC 4544 06675 6000 COMBUF-1 /AND PUT IN COMBUF 4545 06676 4337 JMS TALK5 /"CRLF** K" 4546 06677 6757 TALKM1 4547 06700 4337 JMS TALK5 /"MM" 4548 06701 6003 COMBUF+2 4549 06702 1053 TAD SIJOB 4550 06703 7450 SNA 4551 06704 5310 JMP .+4 4552 06705 4723 JMS I TALKAC 4553 06706 4337 JMS TALK5 /OUTPUT HER ACCOUNT NUMBER 4554 06707 0673 ACCBUF 4555 06710 4337 JMS TALK5 /" ** " 4556 06711 7540 TALKM2 4557 06712 3074 DCA NUMHO /MAKE CHAR,NUMHO TWO WORD VECTOR 4558 06713 4337 TALK2, JMS TALK5 /PUT CHAR IN DESTINATION BUFFER 4559 06714 0073 CHAR 4560 06715 4504 COMGET /GET NEXT CHARACTER 4561 06716 5320 JMP TALK4 /END OF MESSAGE 4562 06717 5313 JMP TALK2 4563 4564 06720 4337 TALK4, JMS TALK5 4565 06721 6635 CRLF 4566 06722 5506 JMP I COMEXA 4567 4568 06723 0750 TALKAC, GETACC 4569 06724 5040 TALKXX, -DEVTBL 4570 06725 1350 TALKNO, TAD TABSYM /"BUSY" /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 109 4571 06726 5506 JMP I COMEXA 4572 4573 4574 4575 06727 1073 TALK6, TAD CHAR /WAS IT A K? 4576 06730 1336 TAD TALKMK 4577 06731 7640 SZA CLA 4578 06732 5245 JMP TALK7 /NO, ASSUME OPR 4579 06733 1351 TAD TALKZE /MAKE CHARACTER A "0" 4580 06734 3073 DCA CHAR 4581 06735 5242 JMP TALK+2 4582 4583 06736 7465 TALKMK, -"K 4584 4585 4586 06737 0000 TALK5, 0 /OUTPUT A CHARACTER 4587 06740 1737 TAD I TALK5 /BUFFER ADDRESS 4588 06741 3344 DCA .+3 4589 06742 1067 TAD IOTP4 /DEVTBL ADDRESS 4590 06743 4502 ASCOUT 4591 06744 0000 0 4592 06745 5325 JMP TALKNO /NO ROOM...INDICATE BUSY 4593 06746 2337 ISZ TALK5 /SKIP ARGUMENT 4594 06747 5737 JMP I TALK5 4595 4596 06750 6766 TABSYM, BUSY 4597 06751 0260 TALKZE, "0 4598 06752 5700 TALK1A, TALK1 4599 06753 7744 TALKMX, -NULINE-1 4600 4601 4602 06754 5457 LOGOMA, 5457 /LO 4603 06755 4757 4757 /GO 4604 06756 6564 6564 /UT 4605 4606 06757 0215 TALKM1, 215;212;"*;"*;240;"K;0 06760 0212 06761 0252 06762 0252 06763 0240 06764 0313 06765 0000 4607 06766 0302 BUSY, "B;"U;"S;"Y;0 06767 0325 06770 0323 06771 0331 06772 0000 4608 06773 0317 OK, "O;"K 06774 0313 4609 06775 0240 SPACE, 240 4610 06776 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 110 4611 4612 7000 *ERPAGE 4613 4614 07000 1000 SYSDSI, DSI 4615 07001 4072 SYSPRT, WHEPRT 4616 07002 0773 SYDING, SYBELL 4617 07003 3760 SY3760, 3760 4618 07004 6572 CONCLR, SICLR 4619 07005 4563 SYSEJN, USRPR 4620 4621 07006 1053 SYSERR, TAD SIJOB 4622 07007 1132 TAD TTYTBA 4623 07010 3055 DCA COMDB0 /POINTER TO TTYTBL 4624 07011 6211 DATFLD 4625 07012 1455 TAD I COMDB0 4626 07013 7104 CLL RAL /UNIT*2= POSITION IN DEVTBL 4627 07014 1163 TAD DEVTBA 4628 07015 3055 DCA COMDB0 4629 07016 1055 TAD COMDB0 4630 07017 6201 CDF 4631 07020 3420 DCA I COMPTR 4632 07021 3056 DCA COMRDB 4633 07022 6211 DATFLD 4634 07023 1455 TAD I COMDB0 4635 07024 3055 DCA COMDB0 4636 07025 1200 TAD SYSDSI 4637 07026 7040 CMA 4638 07027 0455 AND I COMDB0 4639 07030 1200 TAD SYSDSI 4640 07031 3455 DCA I COMDB0 4641 07032 6221 CHDF 4642 07033 4252 JMS SYSER0 4643 07034 1071 TAD IOTP6 4644 07035 0042 AND C0010 4645 07036 7640 SZA CLA 4646 07037 5602 JMP I SYDING 4647 07040 1071 TAD IOTP6 4648 07041 7710 SPA CLA 4649 07042 4601 JMS I SYSPRT 4650 07043 4502 ASCOUT 4651 07044 6635 CRLF 4652 07045 7000 NOP 4653 07046 4502 ASCOUT 4654 07047 5776 PERIOD 4655 07050 7000 NOP 4656 07051 5522 EXIT 4657 4658 07052 0000 SYSER0, 0 4659 07053 4523 GETWRD 4660 07054 0000 JOBSTS 4661 07055 0035 AND C0007 4662 07056 1327 TAD SYSETB 4663 07057 3314 DCA SYSER1 4664 07060 6211 DATFLD 4665 07061 1472 TAD I IOTP7 4666 07062 3071 DCA IOTP6 4667 07063 1071 TAD IOTP6 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 111 4668 07064 0203 AND SY3760 4669 07065 1042 TAD C0010 4670 07066 3472 DCA I IOTP7 4671 07067 2072 ISZ IOTP7 /POINTS TO STR1 4672 07070 7346 CLL STA RTL 4673 07071 0472 AND I IOTP7 4674 07072 3472 DCA I IOTP7 4675 07073 6221 CHDF 4676 07074 1071 TAD IOTP6 4677 07075 0042 AND C0010 4678 07076 7640 SZA CLA 4679 07077 5652 JMP I SYSER0 4680 07100 1714 TAD I SYSER1 4681 07101 3314 DCA SYSER1 4682 07102 4521 RESDDB 4683 07103 6211 DATFLD 4684 07104 3054 DCA CHDFA 4685 07105 1454 TAD I CHDFA 4686 07106 6202 CIF 4687 07107 4604 JMS I CONCLR /MAKE ROOM FOR THE ERROR MESSAGE 4688 07110 4502 ASCOUT 4689 07111 6635 CRLF 4690 07112 5316 JMP SYSER2 4691 07113 4502 ASCOUT 4692 07114 0000 SYSER1, 0 4693 07115 7000 NOP 4694 07116 4502 SYSER2, ASCOUT 4695 07117 5364 FORJOB 4696 07120 5326 JMP SYSER4 4697 07121 1053 TAD SIJOB 4698 07122 4605 JMS I SYSEJN 4699 07123 4502 ASCOUT 4700 07124 6635 CRLF 4701 07125 7000 NOP 4702 07126 5652 SYSER4, JMP I SYSER0 4703 4704 07127 7130 SYSETB, .+1 4705 07130 5773 QQEST 4706 07131 7140 SYSET1 4707 07132 7154 SYSET2 4708 07133 7154 SYSET3 4709 07134 5773 QQEST 4710 07135 7167 SYSET5 4711 07136 0705 SYSET6 4712 07137 5773 QQEST 4713 4714 07140 0311 SYSET1, 311 /ILLEGAL IOT 4715 07141 0314 314 4716 07142 0314 314 4717 07143 0305 305 4718 07144 0307 307 4719 07145 0301 301 4720 07146 0314 314 4721 07147 0240 240 4722 07150 0311 311 4723 07151 0317 317 4724 07152 0324 324 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 112 4725 07153 0000 0 4726 SYSET2, 4727 07154 0323 SYSET3, 323 /SWAP ERROR 4728 07155 0327 327 4729 07156 0301 301 4730 07157 0320 320 4731 07160 0240 240 4732 07161 0305 305 4733 07162 0322 322 4734 07163 0322 322 4735 07164 0317 317 4736 07165 0322 322 4737 07166 0000 0 4738 07167 0304 SYSET5, 304 /DISK ERROR 4739 07170 0311 311 4740 07171 0323 323 4741 07172 0313 313 4742 07173 0240 240 4743 07174 0305 305 4744 07175 0322 322 4745 07176 0322 322 4746 07177 0317 317 4747 07200 0322 322 4748 07201 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 113 4749 4750 4751 /RETURN FOR FILE COMMANDS 4752 4753 07202 4523 FIPEND, GETWRD 4754 07203 0013 JOBREG+2 4755 07204 7450 SNA 4756 07205 5506 JMP I COMEXA 4757 07206 7041 CIA 4758 07207 3064 DCA IOTP1 4759 07210 1350 TAD FIPETB 4760 07211 3010 DCA IX1 4761 07212 1410 FIPEN1, TAD I IX1 4762 07213 7450 SNA 4763 07214 5225 JMP FIPEN2 /NOT IN TABLE 4764 07215 1064 TAD IOTP1 4765 07216 7640 SZA CLA 4766 07217 5212 JMP FIPEN1 4767 07220 1010 TAD IX1 /GET MESSAGE ADDRESS 4768 07221 1362 TAD FIPMTB 4769 07222 3064 DCA IOTP1 4770 07223 1464 TAD I IOTP1 4771 07224 5505 JMP I COMERA 4772 4773 07225 4502 FIPEN2, ASCOUT 4774 07226 6635 CRLF 4775 07227 7000 NOP 4776 07230 4502 ASCOUT 4777 07231 7323 FAILBY 4778 07232 7000 NOP 4779 07233 1057 TAD COMBFA 4780 07234 3010 DCA IX1 4781 07235 1064 TAD IOTP1 4782 07236 7041 CIA 4783 07237 4661 JMS I FIPDEC 4784 07240 3410 DCA I IX1 4785 07241 4502 ASCOUT 4786 07242 6001 COMBUF 4787 07243 7000 NOP 4788 07244 4502 ASCOUT 4789 07245 7336 SEGMTA 4790 07246 7000 NOP 4791 07247 5506 JMP I COMEXA 4792 07250 1015 DUPLEX, TAD C0200 /DUPLEX BIT 4793 07251 3063 UNDUPL, DCA IOTP0 4794 07252 6211 DATFLD 4795 07253 1455 TAD I COMDB0 /WORD 1 OF DDB 4796 07254 0260 AND P7577 /CLEAR BIT 4797 07255 1063 TAD IOTP0 /SET BIT 4798 07256 3455 DCA I COMDB0 /SAVE IT 4799 07257 5506 JMP I COMEXA 4800 07260 7577 P7577, 7577 4801 4802 07261 5600 FIPDEC, DECOUT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 114 4803 4804 07262 0054 RKJOBA, RKJOB 4805 4806 07263 1662 WAIT3, TAD I RKJOBA 4807 07264 7041 CIA 4808 07265 1053 TAD SIJOB 4809 07266 7650 SNA CLA /DOES HE OWN THE RK05 CONTROLLER? 4810 07267 5506 JMP I COMEXA /YES - LET HER FINISH 4811 07270 3472 DTSIDT, DCA I IOTP7 /CLEAR OUT WAIT 2 MASK 4812 07271 7344 CLL STA RAL 4813 07272 1072 TAD IOTP7 4814 07273 3072 DCA IOTP7 4815 07274 7240 STA 4816 07275 3472 DCA I IOTP7 /-1 TO DEV. STATUS REG 4817 07276 6221 CHDF 4818 07277 4523 GETWRD 4819 07300 0013 JOBREG+2 4820 07301 6211 DATFLD 4821 07302 3472 DCA I IOTP7 /CLEAR HER AC 4822 07303 5506 JMP I COMEXA 4823 4824 07304 0327 WAITIO, "W;"A;"I;"T;" ;"F;"O;"R;" ;"I;"/;"O;215;212;0 07305 0301 07306 0311 07307 0324 07310 0240 07311 0306 07312 0317 07313 0322 07314 0240 07315 0311 07316 0257 07317 0317 07320 0215 07321 0212 07322 0000 4825 07323 0306 FAILBY, 306 /F 4826 07324 0301 301 /A 4827 07325 0311 311 /I 4828 07326 0314 314 /L 4829 07327 0305 305 /E 4830 07330 0304 304 /D 4831 07331 0240 240 4832 07332 0302 302 /B 4833 07333 0331 331 /Y 4834 07334 0240 240 4835 07335 0000 0 4836 4837 07336 0240 SEGMTA, 240 4838 07337 0323 323 /S 4839 07340 0305 305 /E 4840 07341 0307 307 /G 4841 07342 0315 315 /M 4842 07343 0305 305 /E 4843 07344 0316 316 /N 4844 07345 0324 324 /T 4845 07346 0323 323 /S /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 115 4846 07347 0000 0 4847 4848 07350 7350 FIPETB, . 4849 07351 4000 4000 /FILE NOT OPEN 4850 07352 4400 4400 /FILE IN USE 4851 07353 5000 5000 /DIRECTORY FULL 4852 07354 5400 5400 /BAD DIRECTORY 4853 07355 6000 6000 /PROTECTION VIOLATION 4854 07356 6400 6400 /BAD FILE NAME 4855 07357 7000 7000 /FILE NOT FOUND 4856 07360 7400 7400 /DISK FULL 4857 07361 0000 0 4858 07362 0012 FIPMTB, .-FIPETB 4859 07363 7510 FM4000 4860 07364 7430 FM4400 4861 07365 7444 FM5000 4862 07366 0563 FM5400 4863 07367 7463 FM6000 4864 07370 7373 FM6400 4865 07371 7411 FM7000 4866 07372 7526 FM7400 4867 4868 07373 0302 FM6400, "B;"A;"D;240;"F;"I;"L;"E;240;"N;"A;"M;"E;0 07374 0301 07375 0304 07376 0240 07377 0306 07400 0311 07401 0314 07402 0305 07403 0240 07404 0316 07405 0301 07406 0315 07407 0305 07410 0000 4869 4870 07411 0306 FM7000, 306 4871 07412 0311 311 4872 07413 0314 314 4873 07414 0305 305 4874 07415 0240 240 4875 07416 0316 316 4876 07417 0317 317 4877 07420 0324 324 4878 07421 0240 240 4879 07422 0306 306 4880 07423 0317 317 4881 07424 0325 325 4882 07425 0316 316 4883 07426 0304 304 4884 07427 0000 0 4885 07430 0306 FM4400, 306 4886 07431 0311 311 4887 07432 0314 314 4888 07433 0305 305 4889 07434 0240 240 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 116 4890 07435 0311 311 4891 07436 0316 316 4892 07437 0240 240 4893 07440 0325 325 4894 07441 0323 323 4895 07442 0305 305 4896 07443 0000 0 4897 07444 0304 FM5000, 304 4898 07445 0311 311 4899 07446 0322 322 4900 07447 0305 305 4901 07450 0303 303 4902 07451 0324 324 4903 07452 0317 317 4904 07453 0322 322 4905 07454 0331 331 4906 07455 0240 240 4907 07456 0306 306 4908 07457 0325 325 4909 07460 0314 314 4910 07461 0314 314 4911 07462 0000 0 4912 07463 0320 FM6000, 320 4913 07464 0322 322 4914 07465 0317 317 4915 07466 0324 324 4916 07467 0305 305 4917 07470 0303 303 4918 07471 0324 324 4919 07472 0311 311 4920 07473 0317 317 4921 07474 0316 316 4922 07475 0240 240 4923 07476 0326 326 4924 07477 0311 311 4925 07500 0317 317 4926 07501 0314 314 4927 07502 0301 301 4928 07503 0324 324 4929 07504 0311 311 4930 07505 0317 317 4931 07506 0316 316 4932 07507 0000 0 4933 07510 0306 FM4000, 306 4934 07511 0311 311 4935 07512 0314 314 4936 07513 0305 305 4937 07514 0240 240 4938 07515 0316 316 4939 07516 0317 317 4940 07517 0324 324 4941 07520 0240 240 4942 07521 0317 317 4943 07522 0320 320 4944 07523 0305 305 4945 07524 0316 316 4946 07525 0000 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 117 4947 07526 0304 FM7400, 304 4948 07527 0311 311 4949 07530 0323 323 4950 07531 0313 313 4951 07532 0240 240 4952 07533 0306 306 4953 07534 0325 325 4954 07535 0314 314 4955 07536 0314 314 4956 07537 0000 0 4957 07540 0240 TALKM2, 240;"*;"*;215;212;0 07541 0252 07542 0252 07543 0215 07544 0212 07545 0000 4958 07546 0215 VERSIM, 215;212;"T;"S;"S;"/;"8;".;"2;"4;"+;207;240;240;0 07547 0212 07550 0324 07551 0323 07552 0323 07553 0257 07554 0270 07555 0256 07556 0262 07557 0264 07560 0253 07561 0207 07562 0240 07563 0240 07564 0000 4959 4960 7576 *VERBRK-2 4961 07576 0215 215 4962 07577 0212 212 4963 /VERBRK, 4964 07600 0000 ZBLOCK 200 /LOGIN MESSAGE GOES HERE 07601 0000 07602 0000 07603 0000 07604 0000 07605 0000 07606 0000 07607 0000 07610 0000 07611 0000 07612 0000 07613 0000 07614 0000 07615 0000 07616 0000 07617 0000 07620 0000 07621 0000 07622 0000 07623 0000 07624 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 118 07625 0000 07626 0000 07627 0000 07630 0000 07631 0000 07632 0000 07633 0000 07634 0000 07635 0000 07636 0000 07637 0000 07640 0000 07641 0000 07642 0000 07643 0000 07644 0000 07645 0000 07646 0000 07647 0000 07650 0000 07651 0000 07652 0000 07653 0000 07654 0000 07655 0000 07656 0000 07657 0000 07660 0000 07661 0000 07662 0000 07663 0000 07664 0000 07665 0000 07666 0000 07667 0000 07670 0000 07671 0000 07672 0000 07673 0000 07674 0000 07675 0000 07676 0000 07677 0000 07700 0000 07701 0000 07702 0000 07703 0000 07704 0000 07705 0000 07706 0000 07707 0000 07710 0000 07711 0000 07712 0000 07713 0000 07714 0000 07715 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 119 07716 0000 07717 0000 07720 0000 07721 0000 07722 0000 07723 0000 07724 0000 07725 0000 07726 0000 07727 0000 07730 0000 07731 0000 07732 0000 07733 0000 07734 0000 07735 0000 07736 0000 07737 0000 07740 0000 07741 0000 07742 0000 07743 0000 07744 0000 07745 0000 07746 0000 07747 0000 07750 0000 07751 0000 07752 0000 07753 0000 07754 0000 07755 0000 07756 0000 07757 0000 07760 0000 07761 0000 07762 0000 07763 0000 07764 0000 07765 0000 07766 0000 07767 0000 07770 0000 07771 0000 07772 0000 07773 0000 07774 0000 07775 0000 07776 0000 07777 0000 4965 4966 No detected errors