/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 /INIT 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 /RIM AUTO-LOADER FOR TSS/8 INIT 538 7757 RIM1= 7757 539 7760 RIM2= 7760 540 7400 *7400 541 07400 3250 FIX, DCA RD1 /SAVE SKIP IOT 542 7401 *7401 543 07401 1245 TAD K5 544 7402 *7402 545 07402 1250 TAD RD1 546 7403 *7403 547 07403 3252 DCA RD2 /SAVE READ IOT 548 7404 *7404 549 07404 6224 RIF /CURRENT FIELD 550 7405 *7405 551 07405 7040 CMA 552 7406 *7406 553 07406 0210 AND KCDF /CREATE CDF FOR FIELD 0 OR 2 554 7407 *7407 555 07407 3210 DCA KCDF 556 7410 *7410 557 07410 6221 KCDF, CDF 20 558 7411 *7411 559 07411 4256 JMS FRM /READ NEXT FRAME; SKIP ON RETURN 560 7412 *7412 561 07412 3301 LOOP, DCA SUM /SAVE NEW CHECKSUM 562 7413 *7413 563 07413 1276 TAD CHAR0 564 7414 *7414 565 07414 3277 DCA CHAR1 /SAVE LEFT BYTE 566 7415 *7415 567 07415 4247 JMS READ 568 7416 *7416 569 07416 3300 DCA CHAR2 /SAVE RIGHT BYTE 570 7417 *7417 571 07417 4256 JMS FRM /LOOK AHEAD 572 7420 *7420 573 07420 5235 JMP CHKSUM /WE HAVE THE CHECKSUM 574 7421 *7421 575 07421 4266 JMS ASSMBL /ASSEMBLE BOTH BYTES 576 7422 *7422 577 07422 7420 SNL /DATA OR ORIGIN? 578 7423 *7423 579 07423 5231 JMP OSAVE /DATA 580 7424 *7424 581 07424 3275 DCA ORG /SAVE NEW ORIGIN 582 7425 *7425 583 07425 1277 ADD, TAD CHAR1 584 7426 *7426 585 07426 1300 TAD CHAR2 /SUM BOTH BYTES 586 7427 *7427 587 07427 1301 TAD SUM /WITH THE OLD SUM 588 7430 *7430 589 07430 5212 JMP LOOP 590 7431 *7431 591 07431 3675 OSAVE, DCA I ORG /SAVE DATA 592 7432 *7432 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 14 593 07432 2275 ISZ ORG /INCREMENT ADDRESS 594 7433 *7433 595 07433 7600 RM200, 7600 /COVER SKIP WITH CONSTANT 596 7434 *7434 597 07434 5225 JMP ADD 598 7435 *7435 599 07435 4266 CHKSUM, JMS ASSMBL /ASSEMBLE CHECKSUM BYTES 600 7436 *7436 601 07436 7041 CIA 602 7437 *7437 603 07437 1301 TAD SUM /SUBTRACT CALCULATED SUM 604 7440 *7440 605 07440 7440 SZA /OK? 606 7441 *7441 607 07441 7402 HLT /NO; ERROR 608 7442 *7442 609 07442 7126 STL RTL /AC=2 610 7443 *7443 611 07443 1210 TAD KCDF /PLUS CDF TO "INIT'S" FIELD 612 7444 *7444 613 07444 3245 DCA K5 /SAVE 614 7445 *7445 615 07445 0005 K5, 5 /CIF CDF TO FIELD 0 OR 2 616 7446 *7446 617 07446 5000 JMP 0 /JUMP INTO INIT 618 7447 *7447 619 07447 0000 READ, 0 620 7450 *7450 621 07450 7402 RD1, HLT /SKIP IOT 622 7451 *7451 623 07451 5250 JMP .-1 624 7452 *7452 625 07452 7402 RD2, HLT /READ IOT 626 7453 *7453 627 07453 3276 DCA CHAR0 628 7454 *7454 629 07454 1276 TAD CHAR0 630 7455 *7455 631 07455 5647 JMP I READ 632 7456 *7456 633 07456 0000 FRM, 0 634 7457 *7457 635 07457 4247 JMS READ /READ A FRAME 636 7460 *7460 637 07460 1233 TAD RM200 638 7461 *7461 639 07461 7510 SPA /IS IT DATA/ORIGIN? 640 7462 *7462 641 07462 2256 ISZ FRM /YES; SKIP ON RETURN 642 7463 *7463 643 07463 7750 SPA SNA CLA /FIELD SETTING? 644 7464 *7464 645 07464 5656 JMP I FRM /NO 646 7465 *7465 647 07465 5257 JMP FRM+1 /YES; IGNORE IT 648 7466 *7466 649 07466 0000 ASSMBL, 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 15 650 7467 *7467 651 07467 1277 TAD CHAR1 /LEFT BYTE 652 7470 *7470 653 07470 7106 CLL RTL 654 7471 *7471 655 07471 7006 RTL 656 7472 *7472 657 07472 7006 RTL /SHIFTED INTO POSITION 658 7473 *7473 659 07473 1300 TAD CHAR2 /PLUS RIGHT BYTE 660 7474 *7474 661 07474 5666 JMP I ASSMBL 662 7475 *7475 663 07475 0000 ORG, 0 664 7476 *7476 665 07476 0024 CHAR0, 24 /CHECKSUM CORRECTION; RIGHT BYTE 666 7477 *7477 667 07477 0000 CHAR1, 0 668 7500 *7500 669 07500 0000 CHAR2, 0 670 7501 *7501 671 07501 6000 SUM, 6000 /CHECKSUM CORRECTION; LEFT BYTE 672 7601 *7601 673 07601 1205 RIMJMP, TAD RIMFIX 674 7602 *7602 675 07602 3360 DCA RIM2 /RESTORE RIM LOADER 676 7603 *7603 677 07603 1357 TAD RIM1 /GET SKIP IOT 678 7604 *7604 679 07604 5606 JMP I FIXA 680 7605 *7605 681 07605 5357 RIMFIX, JMP RIM1 682 7606 *7606 683 07606 7400 FIXA, FIX 684 7760 *RIM2 685 07760 5201 JMP RIMJMP /EXIT FROM RIM /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 16 686 687 /PAGE 0 688 689 FIELD 2 /INIT LOADS ONTO DISK TRACK 2 690 0000 *0 691 20000 5401 JMP I SUPERA /JUST IN CASE!! 692 20001 4200 SUPERA, SUPER 693 694 695 0010 *10 696 20010 0010 AXS1, . 697 20011 0011 AXS2, . 698 699 0020 SIDATA= 20 /SYSTEM INTERPRETER DATA 700 701 0032 CONSTANTS=SIDATA+12 702 0032 *CONSTANTS 703 20032 0002 C0002, 2 704 20033 0003 C0003, 3 705 20034 0004 C0004, 4 706 20035 0007 C0007, 7 707 20036 0037 C0037, 37 708 20037 0100 C0100, 100 709 20040 1000 C1000, 1000 710 20041 7770 C7770, 7770 711 20042 7600 C7600, 7600 712 20043 7763 C7763, 7763 713 DM32, 714 20044 7740 C7740, 7740 715 716 0043 JOBCON= CONSTANTS+11 /JOB CONTROL 717 718 0046 FRSTOR= JOBCON+3 719 0046 *FRSTOR 720 721 20046 0046 FREE, . /POINTER TO HEAD OF FREE STORAGE 722 20047 0047 FRECNT, . /# FREE BLOCKS AVAILABLE 723 724 725 0050 TIMDAT= FRSTOR+2 /CLOCK AND DATE 726 0050 *TIMDAT 727 728 /CLOCK 729 20050 0050 CLK2, . 730 20051 0051 CLK1, . 731 732 733 0052 SCHDAT= TIMDAT+2 734 735 0060 DATEND= 60 /END OF FIELD 0 PAGE 0 DATA 736 737 738 739 0155 FIPDAT= 155 /DATA REFERENCED BY FIP 740 0156 *FIPDAT+1 741 742 20156 0400 C0400, 400 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 17 743 0156 SEGSIZ= C0400 /# WORDS PER SEGMENT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 18 744 745 20157 7000 CORTBA, CORTBL-1 /CORE ALLOCATION TABLE 746 20160 3236 DSUTBA, DSUTBL /USER DISC REQUEST QUEUE 747 748 /THE DATE IS KEPT AS A 12 BIT NUMBER IN THE FORMAT 749 /DATE=((YEAR-1974)*12+(MONTH-1))*31+DAY-1 750 751 0166 *DATE 752 20166 0166 DATE, . 753 754 20167 1317 CORSRA, CORSRC 755 20170 2573 WAITA, WSCHED 756 5570 WAIT= JMP I WAITA 757 758 759 /SUBROUTINE DISPATCHES 760 761 0060 SUBDSP= DATEND 762 0060 *SUBDSP 763 764 20060 0000 CHDFA, 0 765 20061 7402 INIF, HLT 766 20062 5460 JMP I CHDFA 767 768 4060 CHDF= JMS CHDFA 769 770 20063 7754 CJOBMX, -JOBMAX 771 20064 2555 INBUF, INBUFA 772 20065 1200 NUMBIA, NUMBI0 773 20066 0000 CHAR, 0 774 20067 0000 NUMHO, 0 775 20070 0000 0 776 20071 0000 0 777 20072 0000 CORCNT, 0 778 779 20073 0010 C0010, 10 780 20074 6201 C6201, 6201 781 20075 0200 C0200, 0200 782 20076 0177 C0177, 0177 783 784 20077 2136 COMGEA, COMGE0 785 20100 3300 DISCA, DISC0 786 20101 3335 DISCHA, DISCH0 787 4502 YESNO= JMS I . 788 20102 2153 YESNO0 789 4503 MESSAG= JMS I . 790 20103 1615 MESSA0 791 4504 OCTIN= JMS I . 792 20104 0654 OCTIN0 793 4505 GETIN= JMS I . 794 20105 1667 GETIN0 795 4506 OUTTLS= JMS I . 796 20106 0534 OUTA, OUT 797 4507 INKRB= JMS I . 798 20107 0510 IN 799 4510 ZERO1= JMS I . 800 20110 3043 ZERO /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 19 801 4511 CHEKCC= JMS I . 802 20111 0520 CCCHEK 803 20112 0005 SWBASE, SWDEX /SWAP TRACK FOR JOB 1 804 20113 7777 C7777, -1 805 20114 7401 MC0377, -377 806 20115 0136 OSF, OSTRAP 807 20116 7607 OST, 7607 808 20117 7762 OSC, -16 809 20120 7607 OSA, 7607 810 20121 0121 OSTAB, . 811 20122 0705 RBOOT 812 20123 7746 7746 813 20124 7771 -7 814 20125 7746 7746 815 20126 0132 KBOOT 816 20127 0026 26 817 20130 7774 -4 818 20131 0026 26 819 20132 6744 KBOOT, DLCA 820 20133 6746 DLDC 821 20134 6743 DLAG 822 20135 5031 JMP 31 823 OSTRAP, 824 NOPUNCH 825 7607 *7607 826 ENPUNCH 827 27607 1222 TAD KA 828 27610 3354 DCA 7754 829 27611 1222 TAD KA 830 27612 3355 DCA 7755 831 27613 6774 DTLB 832 27614 1223 TAD KB 833 27615 6766 DTLA 834 27616 6771 DTSF 835 27617 5216 JMP .-1 836 27620 1224 TAD KC 837 27621 5215 JMP .-4 838 27622 7577 KA, 7577 839 27623 0600 KB, 600 840 27624 0220 KC, 220 841 /PAGE ASSIGNMENTS 842 843 1000 INIP= 1000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 20 844 845 /PROGRAM TO OPEN AND MODIFY SINGLE DISC REGISTERS 846 847 0200 *0200 848 20200 1263 DISCLK, TAD KCR /PUT OUT A CR, LF 849 20201 4506 OUTTLS 850 20202 1264 TAD KLF 851 20203 4506 OUTTLS 852 / NOW GET AN ADDRESS FROM THE KEYBOARD 853 20204 4273 JMS OTIN 854 20205 5200 JMP DISCLK /: IS ONLY VALID TERMINATOR 855 20206 5200 JMP DISCLK / " " 856 /DISC ADDRESS FOLLOWED BY ":" HAS BEEN ENTERED 857 20207 4253 DISPLA, JMS SPACE /PROVIDE ELEGANT FORMAT 858 20210 4665 JMS I POPEN /GET REG FROM DISC 859 20211 1366 TAD OPNREG /GET THIS VALUE 860 20212 4672 JMS I PHACK /DISPLAY IT 861 20213 4253 JMS SPACE /CONTINUE POLICY OF ELEGANT FORMATING 862 20214 4670 JMS I PSAVE /SAVE VALUE, VALUE1 863 /REGISTER IS OPEN ---- WAIT FOR A MODIFY 864 20215 4273 JMS OTIN 865 20216 5221 JMP SHUT /TERMINATOR WAS CR 866 20217 5230 JMP CLSOPN /TERMINATOR WAS LF 867 868 /: WAS TYPED ---- MUST BE NEW DISC ADDRESS 869 20220 5207 JMP DISPLAY 870 871 /CARRIAGE RETURN MEANS CLOSE REGISTER 872 /FIRST, SEE IF IT WAS MODIFIED 873 20221 1371 SHUT, TAD INPUT 874 20222 7710 SPA CLA 875 20223 5200 JMP DISCLK /NO MODIFY 876 /OPEN REGISTER WAS MODIFIED, SO CHANGE ON THE DISC 877 20224 1365 TAD VALUE1 878 20225 3366 DCA OPNREG 879 20226 4666 JMS I PCLOSE /WRITE VALUE OUT 880 /NOW SEND OUT LF AND START AGAIN 881 20227 5200 JMP DISCLK 882 /LINE FEED MEANS CLOSE REGISTER AND OPEN THE NEXT ONE 883 20230 1371 CLSOPN, TAD INPUT 884 20231 7710 SPA CLA 885 20232 5236 JMP .+4 /NO MODIFY 886 /VALUE WAS MODIFIED, SO WRITE OUT NEW ONE 887 20233 1365 TAD VALUE1 888 20234 3366 DCA OPNREG 889 20235 4666 JMS I PCLOSE 890 /RESPOND TO LF WITH CR 891 20236 1263 TAD KCR 892 20237 4506 OUTTLS 893 20240 1263 TAD KCR 894 20241 4506 OUTTLS /FOR TIMING (??) 895 896 /NOW RESTORE ADDR WORD TO VALUE1 897 20242 4671 JMS I PRESTOR 898 /NOW INCREMENT ADDRESS IN VALUE, VALUE1 899 20243 4667 JMS I PNEXTAD 900 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 21 901 /NOW TYPE OUT THIS NEW ADDRESS 902 20244 1364 TAD VALUE 903 20245 4672 JMS I PHACK 904 20246 1365 TAD VALUE1 905 20247 4672 JMS I PHACK 906 20250 1262 TAD KCOLON 907 20251 4506 OUTTLS 908 20252 5207 JMP DISPLAY 909 910 /TYPE TWO SPACES 911 912 20253 0000 SPACE, 0 913 20254 1261 TAD KSPACE 914 20255 4506 OUTTLS 915 20256 1261 TAD KSPACE 916 20257 4506 OUTTLS 917 20260 5653 JMP I SPACE 918 20261 0240 KSPACE, 0240 919 920 20262 0272 KCOLON, 0272 921 20263 0215 KCR, 0215 922 20264 0212 KLF, 0212 923 20265 0400 POPEN, XOPEN 924 20266 0406 PCLOSE, CLOSE 925 20267 0546 PNEXTAD, NEXTAD 926 20270 0554 PSAVE, SAVE 927 20271 0562 PRESTOR, RESTOR 928 20272 0462 PHACK, HACK 929 /ROUTINE TO INPUT AN OCTAL NUMBER 930 /ECHOES INPUT IF IT WAS VALID 931 /CALL: JMS OTIN 932 / CR TERMINATOR 933 / LF TERMINATOR 934 / : TERMINATOR 935 / 936 /RETURNS WITH "DOUBLE PRECISION" INPUT IN 937 /VALUE AND VALUE1 938 /INPUT=0 IF THERE WAS ANY, ELSE -1 939 940 20273 0000 OTIN, 0 941 20274 7240 CLA CMA 942 20275 3371 DCA INPUT /NO INPUT YET 943 20276 3364 DCA VALUE /SUBTOTAL 944 20277 3365 DCA VALUE1 945 20300 7410 SKP 946 947 20301 4506 OUTTLS 948 20302 4507 LISTEN, INKRB 949 20303 3367 DCA YCHAR 950 /IS THE INPUT A VALID TERMINATOR? 951 20304 1367 TAD YCHAR 952 20305 1372 TAD KMCOLON /COLON? 953 20306 7450 SNA 954 20307 5351 JMP COEXIT /YES 955 20310 1373 TAD KMLF /LF? 956 20311 7450 SNA 957 20312 5352 JMP LFEXIT /YES /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 22 958 20313 1374 TAD KMCR /CR? 959 20314 7450 SNA 960 20315 5353 JMP CREXIT /YES 961 /NOT A VALID TERMINATOR --- IS IT A VALID OCTAL DIGIT? 962 20316 1375 TAD KMEIGHT 963 20317 7120 STL 964 20320 1073 TAD C0010 965 20321 7430 SZL /IS IT A VALID OCTAL DIGIT? 966 20322 5356 JMP NOTOK /NO 967 /COMES HERE WITH A VALID OCTAL DIGIT 968 20323 2371 ISZ INPUT /REMEMBER THAT THERE IS INPUT 969 20324 7000 NOP 970 /NOW ADD THIS DIGIT TO THE DOUBLE PRECISION TOTAL 971 20325 3370 DCA XCHAR 972 /FIRST, SHIFT HIGH-ORDER WORD LEFT ONE PLACE 973 20326 1364 TAD VALUE 974 20327 7104 CLL RAL 975 20330 7104 CLL RAL 976 20331 7104 CLL RAL 977 20332 3364 DCA VALUE 978 /NOW GET LEFT-MOST LOW-ORDER DIGIT 979 20333 1365 TAD VALUE1 980 20334 7006 RTL 981 20335 7006 RTL 982 20336 0035 AND C0007 983 /MOVE THIS DIGIT INTO THE HIGH ORDER WORD 984 20337 1364 TAD VALUE 985 20340 3364 DCA VALUE 986 /NOW ADD NEW INPUT DIGIT 987 20341 1365 TAD VALUE1 988 20342 7104 CLL RAL 989 20343 7104 CLL RAL 990 20344 7104 CLL RAL 991 20345 1370 TAD XCHAR 992 20346 3365 DCA VALUE1 993 20347 1367 TAD YCHAR 994 20350 5301 JMP LISTEN-1 /NOW GO ECHO INPUT 995 996 20351 2273 COEXIT, ISZ OTIN 997 20352 2273 LFEXIT, ISZ OTIN 998 20353 1367 CREXIT, TAD YCHAR 999 20354 4506 OUTTLS /ECHO TERMINATOR 1000 20355 5673 JMP I OTIN 1001 1002 20356 7200 NOTOK, CLA 1003 20357 4503 MESSAG 1004 20360 0362 NOTOK1 1005 20361 5274 JMP OTIN+1 1006 20362 4077 NOTOK1, TEXT " ?_" 20363 3700 1007 1008 1009 20364 0000 VALUE, 0 1010 20365 0000 VALUE1, 0 1011 20366 0000 OPNREG, 0 1012 20367 0000 YCHAR, 0 1013 20370 0000 XCHAR, 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 23 1014 20371 7777 INPUT, -1 1015 1016 20372 7506 KMCOLON, -0272 1017 20373 0060 KMLF, -0212+": 1018 20374 7775 KMCR, -0215+212 1019 20375 7725 KMEIGHT, -0270+215 1020 1021 0400 *0400 1022 20400 0000 XOPEN, 0 1023 20401 4251 JMS CONVERT /MAKE A DISC ADDRESS OUT OF VALUE, VALUE1 1024 20402 1205 TAD READCOM /WE ARE READING 1025 20403 4213 JMS DISK 1026 20404 5600 JMP I XOPEN 1027 20405 6603 READCOM, 6603 /DMAR 1028 1029 /ROUTINE TO CLOSE A DISC REGISTER 1030 20406 0000 CLOSE, 0 1031 20407 1212 TAD WRITECOM 1032 20410 4213 JMS DISK 1033 20411 5606 JMP I CLOSE 1034 20412 6605 WRITECOM, 6605 /DMAW 1035 1036 /DISC TRANSFER ROUTINE 1037 20413 0000 DISK, 0 1038 20414 3234 DCA DISCIOT /READ IOT OR WRITE IOT 1039 /NOW HAVE TO SET UP 7750,7751 IN FIELD 0 1040 /REMEMBER WHAT FIELD WE'RE IN NOW 1041 /SO WE CAN RESTORE 1042 20415 6224 RIF 1043 20416 1220 TAD .+2 1044 20417 3225 DCA XFIELD 1045 20420 6201 CDF /NOW GO TO DATA FIELD 0 1046 20421 7240 CLA CMA 1047 20422 3644 DCA I P7750 /LOOKING FOR ONE WORD 1048 20423 1250 TAD POPNREG 1049 20424 3645 DCA I P7751 /READ INTO OPNREG 1050 /7750, 7751 ARE SET --- RESTORE DATA FIELD 1051 /ALSO, SET DISC TO TRANSFER INTO THIS FIELD 1052 20425 0000 XFIELD, 0 1053 20426 6224 RIF 1054 IFZERO RF08-40 1055 20427 6615 6615 /DIML; FIELD , NO INTERRUPTS 1056 20430 1646 IFZERO RF08 1058 20432 7200 CLA /DEAL DOESN'T CLEAR AC 1059 20433 1647 TAD I PDISCLO /PICK UP LOW ADDRESS 1060 20434 0000 DISCIOT, 0 /DMAR OR DMAW 1061 20435 6621 6621 /DFSE -- ANY ERRORS? 1062 20436 7610 IFZERO RF08 1066 IFZERO RF08-40 1069 20442 6601 DCMA /DON'T LEAVE DISK FLAG UP 1070 20443 5613 JMP I DISK /YES /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 24 1071 1072 20444 7750 P7750, 7750 1073 20445 7751 P7751, 7751 1074 1075 20446 0503 PDISCHI, DISCHI 1076 20447 0504 PDISCLO, DISCLO 1077 20450 0365 POPNREG, OPNREG-1 1078 1079 1080 1081 /ROUTINE TO CONVERT THE DOUBLE PRECISION NUMBER 1082 /IN VALUE, VALUE1 INTO AN RF08 DISC ADDRESS 1083 /PUT IT IN DISCHI, DISCLO 1084 1085 20451 0000 CONVERT, 0 1086 20452 7200 CLA 1087 20453 1660 TAD I PVALUE 1088 IFZERO RF08-40 1092 20454 3646 DCA I PDISCHI 1093 20455 1661 TAD I PVALU1 1094 20456 3647 DCA I PDISCLO 1095 20457 5651 JMP I CONVERT 1096 20460 0364 PVALUE, VALUE 1097 20461 0365 PVALU1, VALUE1 1098 1099 /ROUTINE TO TYPE THE 4 OCTAL DIGITS IN THE AC 1100 /ON THE TELEPRINTER 1101 1102 20462 0000 HACK, 0 1103 20463 7104 CLL RAL 1104 20464 3305 DCA XHACK 1105 20465 1306 TAD KM4 1106 20466 3302 DCA XCNT /4 DIGITS 1107 20467 1305 YHACK, TAD XHACK 1108 20470 7006 RTL 1109 20471 7004 RAL 1110 20472 3305 DCA XHACK 1111 20473 1305 TAD XHACK 1112 20474 0035 AND C0007 1113 20475 1307 TAD K260 1114 20476 4506 OUTTLS 1115 20477 2302 ISZ XCNT 1116 20500 5267 JMP YHACK 1117 20501 5662 JMP I HACK 1118 20502 0000 XCNT, 0 1119 20503 0000 DISCHI, 0 1120 20504 0000 DISCLO, 0 1121 20505 0000 XHACK, 0 1122 20506 7774 KM4, -4 1123 20507 0260 K260, 260 1124 1125 /ROUTINE TO GET A CHAR FROM THE KEYBOARD 1126 20510 0000 IN, 0 1127 20511 6031 KSF /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 25 1128 20512 5311 JMP .-1 1129 20513 4320 JMS CCCHEK /IS IT A CONTROL-C? 1130 20514 6036 KRB 1131 20515 0076 AND C0177 1132 20516 1075 TAD C0200 /IN CASE OF PARITY TERMINALS 1133 20517 5710 JMP I IN /RETURN 1134 1135 20520 0000 CCCHEK, 0 1136 20521 6031 KSF 1137 20522 5720 JMP I CCCHEK 1138 20523 6034 KRS /WHAT'S THE CHARACTER? 1139 20524 0076 AND C0177 /PARITY TERMINAL? 1140 20525 1333 TAD KCRC 1141 20526 7500 SMA 1142 20527 7020 CML 1143 20530 7650 SNA CLA 1144 20531 5401 JMP I SUPERA /HE WANTS TO RESTART - ^C 1145 20532 5720 JMP I CCCHEK /NO ^C 1146 1147 20533 7775 KCRC, -3 /- ^C, STRIPPED OF PARITY BIT 1148 1149 /ROUTINE TO TELEPRINT A CHAR 1150 1151 20534 0000 OUT, 0 1152 20535 7000 NOP /CHANGE TO "KSF" IF DESIRED TO TERMINATE PRINT-OUT UPON TYPE-AHEAD 1153 20536 7410 SKP /NO 1154 20537 5343 JMP OUT0 /YES; DON'T WASTE TIME WITH FURTHER PRINTING 1155 20540 6046 TLS 1156 20541 6041 TSF 1157 20542 5341 JMP .-1 1158 20543 7200 OUT0, CLA 1159 20544 4511 CHEKCC 1160 20545 5734 JMP I OUT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 26 1161 1162 /ROUTINE TO INCREMENT THE DOUBLE-PRECISION VALUE 1163 /IN VALUE, VALUE1 1164 1165 20546 0000 NEXTAD, 0 1166 20547 7200 CLA 1167 20550 2661 ISZ I PVALU1 1168 20551 5746 JMP I NEXTAD 1169 20552 2660 ISZ I PVALUE 1170 20553 5746 JMP I NEXTAD 1171 1172 /ROUTINE TO SAVE VALUE, VALUE1 1173 20554 0000 SAVE, 0 1174 20555 1660 TAD I PVALUE 1175 20556 3370 DCA SAVE1 1176 20557 1661 TAD I PVALU1 1177 20560 3371 DCA SAVE2 1178 20561 5754 JMP I SAVE 1179 1180 /ROUTINE TO RESTORE VALUE, VALUE1 1181 20562 0000 RESTOR, 0 1182 20563 1370 TAD SAVE1 1183 20564 3660 DCA I PVALUE 1184 20565 1371 TAD SAVE2 1185 20566 3661 DCA I PVALU1 1186 20567 5762 JMP I RESTOR 1187 20570 0000 SAVE1, 0 1188 20571 0000 SAVE2, 0 1189 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 27 1190 1191 0600 *600 1192 20600 0000 LOGMES, 0 /PUT MESSAGE OF THE DAY IN SI 1193 20601 4502 YESNO 1194 20602 1531 LOGM1 /"PROMO?" 1195 20603 5600 JMP I LOGMES /NO 1196 20604 4500 DISC /YES, READ SI INTO FIELD 1 1197 20605 6603 6603 1198 20606 0001 SIDEX+1 1199 20607 4501 DISCHK /CHECK FOR DISK OK 1200 20610 4503 LOG2LG, MESSAG /MESSAGE TOO LONG 1201 20611 0714 LOGM2 /"END WITH ALTMODE" 1202 20612 7240 STA 1203 20613 1247 TAD LOGST /VERBRK 1204 20614 3010 DCA AXS1 1205 20615 1247 TAD LOGST 1206 20616 3067 DCA NUMHO /FOR GETCH 1207 20617 7001 IAC 1208 20620 3070 DCA NUMHO+1 1209 20621 6211 DATFLD /LOGIN MESSAGE TO FIELD 1 1210 20622 4650 LOGNEX, JMS I GETCHA /GET A CHARACTER INTO BUFFER 1211 20623 5210 JMP LOG2LG /MESSAGE TOO LONG 1212 20624 1114 TAD MC0377 /IS IT AN ESCAPE OR ALTMODE? 1213 20625 7001 IAC /TEST FOR MODEL 35 ALTMODE 1214 20626 7440 SZA 1215 20627 7001 IAC /TEST FOR ALTMODE 1216 20630 7440 SZA 1217 20631 1251 TAD LOGESC /TEST FOR ESCAPE 1218 20632 7640 SZA CLA 1219 20633 5222 JMP LOGNEX /NOT ESCAPE OR ALTMODE, GET ANOTHER CHAR 1220 20634 1010 TAD AXS1 1221 20635 3066 DCA CHAR 1222 20636 3466 DCA I CHAR /A 0 ENDS THE MESSAGE IN SI 1223 20637 4060 CHDF 1224 20640 4503 MESSAG /ECHO $CR-LF 1225 20641 0725 LOGM3 1226 20642 4500 DISC /WRITE OUT SI 1227 20643 6605 6605 1228 20644 0001 SIDEX+1 1229 20645 4501 DISCHK /CHECK FOR DISK OK 1230 20646 5600 JMP I LOGMES 1231 1232 20647 7600 LOGST, VERBRK /START OF INSTALLATION MESSAGE OF THE DAY 1233 20650 1711 GETCHA, GETCH 1234 20651 0142 LOGESC, 375-233 /ALT MODE MINUS ESCAPE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 28 1235 1236 20652 7520 OCI260, -260 1237 20653 0000 OCTINT, 0 1238 1239 20654 0000 OCTIN0, 0 1240 20655 3253 DCA OCTINT 1241 20656 7240 STA 1242 20657 1064 TAD INBUF 1243 20660 3010 DCA AXS1 1244 20661 1410 OCTIN1, TAD I AXS1 1245 20662 3011 DCA AXS2 1246 20663 1011 TAD AXS2 1247 20664 1252 TAD OCI260 1248 20665 7510 SPA 1249 20666 5302 JMP OCTIN2 1250 20667 1041 TAD C7770 1251 20670 7500 SMA 1252 20671 5302 JMP OCTIN2 1253 20672 1073 TAD C0010 1254 20673 3011 DCA AXS2 1255 20674 1253 TAD OCTINT 1256 20675 7106 CLL RTL 1257 20676 7004 RAL 1258 20677 1011 TAD AXS2 1259 20700 3253 DCA OCTINT 1260 20701 5261 JMP OCTIN1 1261 20702 7300 OCTIN2, CLL CLA 1262 20703 1253 TAD OCTINT 1263 20704 5654 JMP I OCTIN0 1264 1265 /AFTER LOAD OR DUMP, BOOT BACK TO WHATEVER OPERATING SYSTEM IS ON THE RF08. 1266 /THIS WAY, INIT CAN BE USED TO LOAD/DUMP OS/8. 1267 20705 6641 RBOOT, 6641 /DCXA /CLEAR RF08 EXTENDED DISK ADDRESS 1268 20706 6611 DCEA /AND EVERYTHING ELSE 1269 20707 7600 -200 /CLA 1270 20710 6603 DMAR 1271 20711 6622 DFSC 1272 20712 5352 5352 /JMP . 1273 20713 5752 5752 /JMP I .-1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 29 1274 1275 0724 CRLF= LOGM2+10 1276 20714 0516 LOGM2, TEXT "END WITH ALTMODE_" 20715 0440 20716 2711 20717 2410 20720 4001 20721 1424 20722 1517 20723 0405 20724 3700 1277 20725 4437 LOGM3, TEXT "$_" 20726 0000 1278 20727 2331 SYSTEM, TEXT "SYSTEM" 20730 2324 20731 0515 20732 0000 1279 20733 1411 LIBARY, TEXT "LIBRARY" 20734 0222 20735 0122 20736 3100 1280 20737 1720 OPRAT, TEXT "OPERATOR" 20740 0522 20741 0124 20742 1722 20743 0000 1281 20744 4020 PASWRD, TEXT " PASSWORD? " 20745 0123 20746 2327 20747 1722 20750 0477 20751 4000 1282 20752 7777 TAB, -01 1283 20753 7767 -11 1284 20754 7757 -21 1285 20755 7737 -41 1286 20756 7727 -51 /THE NEXT WORD MUST BE POSITIVE 1287 20757 3723 MSG, TEXT "_SI" 20760 1100 1288 20761 3706 TEXT "_FIP" 20762 1120 20763 0000 1289 20764 3711 TEXT "_INIT" 20765 1611 20766 2400 1290 20767 3724 TEXT "_TS8" 20770 2370 20771 0000 1291 20772 3720 TEXT "_PUTR" 20773 2524 20774 2200 1292 20775 4040 UPAROW, TEXT " ^ " 20776 3640 20777 4000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 30 1293 1294 1000 *INIP 1295 1296 /ZERO OUT FIRST 6 TRACKS IN PREPARATION FOR BUILDING NEW SYSTEM 1297 1298 21000 4502 SBUILD, YESNO 1299 21001 1263 REALLY 1300 21002 5401 JMP I SUPERA /LUCKILY WE CAUGHT HIM/HER 1301 21003 4510 ZERO1 /ZERO FIELD 1 1302 21004 1243 TAD C0051 /START AT TRACK 5, FIELD 1 1303 21005 3210 SB2, DCA SB3 1304 21006 4500 DISC 1305 21007 6605 DMAW /WRITE A FIELD OF ZEROES TO DISK 1306 21010 0000 SB3, .-. 1307 21011 4501 DISCHK /MAKE SURE DISK IS OK 1308 21012 1210 TAD SB3 1309 21013 1041 TAD C7770 /GO TO PREVIOUS TRACK 1310 21014 7500 SMA /ARE WE THROUGH? 1311 21015 5205 JMP SB2 /NO 1312 21016 1304 TAD MSGA /INITIALIZE ADDRESS OF MESSAGES 1313 21017 3223 DCA MSGB 1314 21020 1305 TAD TABA /INITIALIZE TABLE POINTER 1315 21021 3307 DCA TABB 1316 21022 4503 BUILD1, MESSAG /ASK FOR A TAPE 1317 21023 0000 MSGB, .-. 1318 21024 1703 TAD I PATXAD 1319 21025 3210 DCA SB3 1320 21026 4503 MESSAG 1321 21027 0775 UPAROW /" ^ " 1322 SB4, 1323 IFNZRO CPU&7776 <6030> /ON 8E, CLEAR FLAG, BUT NO READER RUN 1324 21030 6032 IFZERO CPU&7776 /CLEAR FLAG 1325 21031 4507 INKRB /WAIT FOR A KEY TO BE PRESSED 1326 21032 1042 TAD C7600 /LEADER? 1327 21033 7440 SZA 1328 21034 1043 TAD C7763 /CARRIAGE RETURN? 1329 21035 7640 SZA CLA 1330 21036 5230 JMP SB4 /NO 1331 21037 7240 STA 1332 21040 3306 DCA FLAG 1333 1334 /ROUTINE TO PATCH THE DISK. A BINARY TAPE IS READ, AND THE CORRESPONDING 1335 /WORDS ON A DISK TRACK ARE PATCHED. THE FIELD SETTING ON THE TAPE 1336 /DETERMINES WHICH TRACK WILL BE PATCHED. A TAPE WITHOUT A FIELD SETTING 1337 /WILL PATCH TRACK 5. A TAPE WITHOUT AN ORIGIN WILL LOAD STARTING AT 0 1338 /HENCE A SAVE FORMAT TAPE WILL LOAD PROPERLY INTO THE SWAP TRACK FOR 1339 /JOB NUMBER 1. 1340 1341 21041 4500 PATCH, DISC 1342 21042 6603 DMAR /READ TRACK 5 INTO CORE 1343 21043 0051 C0051, 0051 /TO PATCH IT IF NO FIELD SETTING 1344 21044 4501 DISCHK /MAKE SURE THE DISK IS OK 1345 21045 1243 TAD .-2 /NOW REMEMBER WHAT IS IN FIELD 1 1346 21046 3321 DCA PATW /SO IT WILL BE PROPERLY RE-WRITTEN 1347 21047 1321 TAD PATW 1348 21050 3325 DCA PATR 1349 21051 6211 CDF 10 /USE FIELD 1 AS BUFFER /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 31 1350 21052 4715 JMS I BINTA /READ THE BINARY TAPE 1351 21053 5310 JMP PATFLD /A FIELD SETTING HAS BEEN ENCOUNTERED 1352 21054 7450 SNA /END OF TAPE - WAS THERE A CHECKSUM ERROR? 1353 21055 4316 JMS PATRW /NO, SO WRITE OUT FIELD 1 1354 21056 2306 ISZ FLAG /WHERE DID WE COME FROM? 1355 21057 5401 JMP I SUPERA /BACK TO SUPERVISOR 1356 21060 4060 CHDF 1357 21061 7640 SZA CLA /CONTINUE BUILDING - WAS THERE ERROR? 1358 21062 5300 JMP BHUH /YES - TRY AGAIN 1359 21063 1707 TAD I TABB /NO - WAS RIGHT TAPE LOADED? 1360 21064 1325 TAD PATR 1361 21065 7640 SZA CLA 1362 21066 5300 JMP BHUH /NO - TRY AGAIN 1363 21067 7001 IAC 1364 21070 1210 TAD SB3 /ADDRESS OF LAST CHARACTER TYPED + 1 1365 21071 3223 DCA MSGB /SET UP FOR NEXT MESSAGE 1366 21072 2307 ISZ TABB 1367 21073 1707 TAD I TABB /ARE WE THROUGH? 1368 21074 7710 SPA CLA 1369 21075 5222 JMP BUILD1 /NO 1370 21076 5677 JMP I .+1 /YES 1371 21077 2014 SUPREF 1372 1373 21100 4503 BHUH, MESSAG 1374 21101 3553 HUH2 1375 21102 5222 JMP BUILD1 1376 1377 21103 1664 PATXAD, BUFPTR 1378 21104 0766 MSGA, MSG+7 /AC IS -7 WHEN THIS IS TADDED 1379 21105 0752 TABA, TAB 1380 21106 0000 FLAG, 0 1381 21107 0000 TABB, 0 1382 1383 21110 7001 PATFLD, IAC /TRACK IS IN BITS 6-8, MAKE IT FIELD 1 1384 21111 3325 DCA PATR /AND SAVE IT 1385 21112 4316 JMS PATRW /WRITE PREVIOUS TRACK; READ NEW ONE 1386 21113 5714 JMP I BINT3A /AND CONTINUE 1387 21114 7732 BINT3A, BINT3 1388 21115 7600 BINTA, BINTAP 1389 1390 21116 0000 PATRW, 0 1391 21117 4500 DISC 1392 21120 6605 DMAW /WRITE THE PREVIOUS TRACK 1393 21121 0000 PATW, .-. /TRACK FOR PREVIOUS PATCHING 1394 21122 4501 DISCHK /MAKE SURE THE DISK IS OK 1395 21123 4500 DISC 1396 21124 6603 DMAR /READ IN NEW TRACK 1397 21125 0001 PATR, 1 /TRACK FOR UPCOMING PATCHING 1398 21126 4501 DISCHK /MAKE SURE THE DISK IS OK 1399 21127 1325 TAD PATR 1400 21130 3321 DCA PATW /REMEMBER WHICH TRACK WE'RE WORKING ON 1401 21131 5716 JMP I PATRW /AND RETURN 1402 1403 /SYSTEM INITIALIZATION 1404 21132 4500 SYSINI, DISC /READ INIT INTO FIELD 2 1405 21133 6603 DMAR 1406 21134 0022 0022 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 32 1407 21135 4501 DISCHK /MAKE SURE DISK IS OK 1408 21136 6223 CIF CDF 20 /NOW GO THERE 1409 21137 5340 JMP .+1 1410 21140 1336 TAD .-2 1411 21141 3061 DCA INIF /SET UP CHDF 1412 21142 4756 JMS I SYSPER /INITIALIZE FIP 1413 21143 4500 DISC /LOAD FIELD 0 1414 21144 6603 6603 1415 21145 0030 TS8DEX 1416 21146 4501 DISCHK /CHECK FOR DISK OK 1417 21147 1360 TAD DVTBA 1418 21150 3357 DCA INIT0 1419 21151 1757 SYSI1, TAD I INIT0 1420 21152 3060 DCA CHDFA 1421 21153 4460 JMS I CHDFA 1422 21154 2357 ISZ INIT0 1423 21155 5351 JMP SYSI1 1424 1425 21156 4122 SYSPER, PERSET 1426 21157 0000 INIT0, 0 /VARIABLE DVTB POINTER 1427 21160 1172 DVTBA, DVTB /ADDRESS OF DVTB 1428 21161 3705 XTELL, TEXT "_EXEC DDT LOADED_" 21162 3005 21163 0340 21164 0404 21165 2440 21166 1417 21167 0104 21170 0504 21171 3700 1429 1430 21172 3031 DVTB, CLEAR /READ MONITOR II INTO DATFLD 1431 21173 1407 CORINI 1432 21174 2124 DSKINI 1433 21175 2034 DATEIN 1434 21176 2413 TIMEIN 1435 21177 1246 START /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 33 1436 1437 1200 *INIP+200 1438 /NUMBER INPUT 1439 /CALL NUMBIN 1440 / NOT A NUMBER 1441 / # IN AC 1442 1443 4465 NUMBIN= JMS I NUMBIA 1444 1445 21200 0000 NUMBI0, 0 1446 21201 3070 DCA NUMAGN /NUMBER MAGNITUDE 1447 21202 7346 CLL STA RTL /MAXIMUM OF TWO DIGITS IN NUMBER 1448 21203 3242 DCA NUMCNT 1449 21204 4643 JMS I NUMSKP /SKIP LEADING TABS AND SPACES 1450 21205 5600 JMP I NUMBI0 /NOTHING THERE 1451 21206 1066 NUMBI1, TAD CHAR 1452 21207 1244 TAD NUMM9 1453 21210 7540 SMA SZA 1454 21211 5232 JMP NUMBI3 /NOT A NUMBER 1455 21212 1245 TAD NUMP9 1456 21213 7510 SPA 1457 21214 5232 JMP NUMBI3 /NOT A NUMBER 1458 21215 3066 DCA CHAR 1459 21216 2242 ISZ NUMCNT 1460 21217 7410 SKP 1461 21220 5600 JMP I NUMBI0 /TOO MANY DIGITS 1462 21221 1070 TAD NUMAGN / * 1 1463 21222 7106 CLL RTL / * 4 1464 21223 1070 TAD NUMAGN / * 5 1465 21224 7004 RAL / * 10 1466 21225 1066 TAD CHAR 1467 21226 3070 DCA NUMAGN 1468 21227 4477 COMGET 1469 21230 5232 JMP NUMBI3 /NO MORE CHARACTERS 1470 21231 5206 JMP NUMBI1 1471 1472 21232 7200 NUMBI3, CLA 1473 21233 1033 TAD C0003 /HAVE ANY DIGITS BEEN FOUND? 1474 21234 1242 TAD NUMCNT 1475 21235 7650 SNA CLA 1476 21236 5600 JMP I NUMBI0 /NO 1477 21237 2200 ISZ NUMBI0 1478 21240 1070 TAD NUMAGN 1479 21241 5600 JMP I NUMBI0 1480 1481 0070 NUMAGN= NUMHO+1 1482 21242 0000 NUMCNT, 0 1483 21243 1602 NUMSKP, SKIPS 1484 21244 7507 NUMM9, -"9 1485 21245 0011 NUMP9, 11 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 34 1486 1487 21246 0000 START, 0 1488 21247 6762 DTCA 1489 21250 6022 PCF 1490 1491 IFZERO D689-4 < 1492 EDF /TURN ON DATA PHONES 1493 DFCRF 1494 CCF > 1495 1496 21251 6041 TSF /WAIT FOR CONSOLE FLAG FROM DIALOG 1497 21252 5251 JMP .-1 1498 21253 6042 TCF 1499 21254 6012 RRB 1500 21255 6032 KCC 1501 21256 6203 CIF CDF 1502 IFNZRO DC08A < 1503 21257 6424 T1ON > 1504 IFZERO DC08A < 1505 IFZERO CPU-1 < 1506 CLL CMA /LOAD CLOCK BUFFER 1507 CCF CLB > 1508 > 1509 IFZERO DC08A < 1510 IFNZRO CPU-4 1511 IFZERO CPU-4 1514 > 1515 1516 21260 6667 IFZERO LPT-1 /CLEAR INTERRUPT FOR LPT 1517 1518 21261 6001 ION 1519 21262 5570 WAIT 1520 1521 1522 21263 0225 REALLY, TEXT "BUILD? " 21264 1114 21265 0477 21266 4000 1523 1524 /ASK WHETHER TO READ OR WRITE 1525 21267 0000 RW, 0 1526 21270 7300 CLA CLL 1527 21271 6224 RIF 1528 21272 1074 TAD C6201 1529 21273 3061 DCA INIF /INITIALIZE CHDF 1530 21274 4060 CHDF 1531 21275 1667 TAD I RW 1532 21276 3300 DCA .+2 1533 21277 4503 RW1, MESSAG 1534 21300 0000 .-. /CRLF OR "TAPE " 1535 21301 4503 MESSAG 1536 21302 3224 RDORWT /READ OR WRITE? 1537 21303 4505 GETIN 1538 21304 1464 TAD I INBUF /FIRST CHARACTER 1539 21305 1316 TAD RWMR /R? /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 35 1540 21306 7100 CLL 1541 21307 7440 SZA /YES 1542 21310 1317 TAD RWMW /W? SET LINK 1543 21311 7640 SZA CLA 1544 21312 5277 JMP RW1 /NOT R OR W 1545 21313 7006 RTL /0 FOR R, 2 FOR W 1546 21314 2267 ISZ RW 1547 21315 5667 JMP I RW 1548 21316 7456 RWMR, -"R 1549 21317 7773 RWMW, "R-"W 1550 1551 21320 7001 KEBOOT, IAC 1552 21321 7106 CLL RTL 1553 21322 1121 RFBOOT, TAD OSTAB 1554 21323 3010 DCA AXS1 1555 21324 1410 TAD I AXS1 1556 21325 3115 DCA OSF 1557 21326 1410 TAD I AXS1 1558 21327 3116 DCA OST 1559 21330 1410 TAD I AXS1 1560 21331 3117 DCA OSC 1561 21332 1410 TAD I AXS1 1562 21333 3120 DCA OSA 1563 /BOOTWTRAP FOR DEVICE OF YOUR CHOICE -- SET FOR DECTAPE HERE 1564 21334 4060 OSB, CHDF 1565 21335 1515 TAD I OSF 1566 21336 6201 CDF 1567 21337 3516 DCA I OST 1568 21340 2115 ISZ OSF 1569 21341 2116 ISZ OST 1570 21342 2117 ISZ OSC 1571 21343 5334 JMP OSB 1572 21344 6765 DTRA DTXA /MAKE LAST TAPE FLAP (LOAD/DUMP) 1573 21345 6203 CDF CIF 1574 21346 5520 JMP I OSA /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 36 1575 1576 1400 *INIP+400 1577 1578 21400 0060 FREND, -FIPBLK /END OF FREE CORE 1579 21401 3054 LODDTA, LODDT /LOAD XDDT INTO FIELD 1 1580 21402 7777 XDDFLG, -1 1581 21403 0000 CORFLD, 0 1582 21404 0000 CORLNK, 0 1583 21405 0000 CORJMS, 0 /ISZ I CONDBA IF ^S/^Q FEATURE DISABLED 1584 21406 3213 CORCSQ, KBDSQ /LOCATION OF JMS FOR ^S FEATURE 1585 1586 21407 0000 CORINI, 0 1587 21410 2202 ISZ XDDFLG /DID HE WANT EXEC DDT? 1588 21411 4601 JMS I LODDTA /YES 1589 21412 1205 TAD CORJMS 1590 21413 6201 CDF 1591 21414 7440 SZA 1592 21415 3606 DCA I CORCSQ /NO! 1593 21416 1203 TAD CORFLD /HOW MANY USER FIELDS DID HE SAY 1594 21417 7450 SNA /NO RESPONSE 1595 21420 7001 IAC /ASSUME 1 USER FIELD 1596 21421 3072 DCA CORCNT 1597 21422 1072 TAD CORCNT 1598 21423 7040 CMA /INIT CORE SEARCH ROUTINE 1599 21424 3010 DCA AXS1 1600 21425 7146 CLL CMA RTL 1601 21426 1167 TAD CORSRA 1602 21427 3011 DCA AXS2 1603 21430 7001 IAC 1604 21431 1010 TAD AXS1 1605 21432 3411 DCA I AXS2 1606 21433 1157 TAD CORTBA 1607 21434 7040 CMA 1608 21435 1010 TAD AXS1 1609 21436 3411 DCA I AXS2 1610 21437 1157 TAD CORTBA 1611 21440 3011 DCA AXS2 1612 21441 7132 CLL CML RTR /ASSIGN AND LOCK DATFLD 1613 21442 3411 DCA I AXS2 /NOW UNLOCK ALL USER FIELDS 1614 21443 2010 ISZ AXS1 1615 21444 5242 JMP .-2 1616 21445 7126 STL RTL 1617 21446 1072 TAD CORCNT 1618 21447 7106 CLL RTL 1619 21450 3072 DCA CORCNT 1620 21451 1072 TAD CORCNT 1621 21452 1160 TAD DSUTBA 1622 21453 1073 TAD C0010 /MUST START IN MULTIPLE OF 8 1623 21454 0041 AND C7770 1624 21455 3446 DCA I FREE 1625 21456 1446 TAD I FREE 1626 21457 6211 DATFLD 1627 21460 3204 DCA CORLNK 1628 21461 1323 TAD CORGEA 1629 21462 3322 DCA CORF1 1630 21463 1204 CORIN1, TAD CORLNK 1631 21464 1073 TAD C0010 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 37 1632 21465 3011 DCA AXS2 1633 21466 1011 CORIN4, TAD AXS2 1634 21467 1200 TAD FREND 1635 21470 7650 SNA CLA 1636 21471 5301 JMP CORIN2 /DONE 1637 21472 1011 TAD AXS2 1638 21473 3604 DCA I CORLNK 1639 21474 1011 TAD AXS2 1640 21475 3204 DCA CORLNK 1641 21476 2010 ISZ AXS1 1642 21477 5263 JMP CORIN1 1643 21500 7402 HLT /OOPS!!! 1644 21501 1722 CORIN2, TAD I CORF1 /ANY EXTRA FREE CORE TO BE GENERATED? 1645 21502 7450 SNA 1646 21503 5313 JMP CORIN3 1647 21504 3011 DCA AXS2 1648 21505 2322 ISZ CORF1 1649 21506 1722 TAD I CORF1 1650 21507 7041 CIA 1651 21510 3200 DCA FREND 1652 21511 2322 ISZ CORF1 1653 21512 5266 JMP CORIN4 1654 21513 3604 CORIN3, DCA I CORLNK /LAST LINK IS ZERO 1655 21514 1010 TAD AXS1 1656 21515 7001 IAC 1657 21516 6201 CDF 1658 21517 3447 DCA I FRECNT 1659 21520 4060 CHDF 1660 21521 5607 JMP I CORINI 1661 1662 1663 1664 1665 21522 0000 CORF1, 0 1666 21523 0332 CORGEA, RINGIN 1667 21524 0000 FRETEL, 0 1668 21525 4503 MESSAG 1669 21526 1555 CY50 1670 21527 7001 IFNZRO CPU-2 1671 IFZERO CPU-2 1672 21530 5724 JMP I FRETEL 1673 21531 3716 LOGM1, TEXT "_NEW LOGIN MESSAGE? " 21532 0527 21533 4014 21534 1707 21535 1116 21536 4015 21537 0523 21540 2301 21541 0705 21542 7740 21543 0000 1674 21544 6660 FREQUE, TEXT "60 HERTZ POWER? " 21545 4010 21546 0522 21547 2432 21550 4020 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 38 21551 1727 21552 0522 21553 7740 21554 0000 1675 21555 6560 CY50, TEXT "50 HERTZ ASSUMED_" 21556 4010 21557 0522 21560 2432 21561 4001 21562 2323 21563 2515 21564 0504 21565 3700 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 39 1676 1677 1600 *INIP+600 1678 1679 /SKIP LEADING SPACES AND TABS 1680 /CALL JMS SKIPS 1681 / BUFFER EMPTY 1682 / NORMAL RETURN 1683 1684 21600 7540 SKISPA, -240 1685 21601 0027 SKITAB, 240-211 1686 1687 21602 0000 SKIPS, 0 1688 21603 4477 SKIPS1, COMGET 1689 21604 5602 JMP I SKIPS /NONE LEFT 1690 21605 1200 TAD SKISPA 1691 21606 1066 TAD CHAR 1692 21607 7440 SZA 1693 21610 1201 TAD SKITAB 1694 21611 7650 SNA CLA 1695 21612 5203 JMP SKIPS1 1696 21613 2202 ISZ SKIPS 1697 21614 5602 JMP I SKIPS 1698 1699 21615 0000 MESSA0, 0 1700 21616 6214 RDF 1701 21617 1074 TAD C6201 1702 21620 3243 DCA MESSA2 1703 21621 4060 CHDF 1704 21622 1615 TAD I MESSA0 1705 21623 3264 DCA BUFPTR 1706 21624 2215 ISZ MESSA0 1707 21625 1664 MESSA1, TAD I BUFPTR /PICK UP NEXT WORD 1708 21626 7450 SNA /DONE? 1709 21627 5243 JMP MESSA2 /YES 1710 21630 7012 RTR /GET LEFT HALF OF WORD 1711 21631 7012 RTR 1712 21632 7012 RTR 1713 21633 4245 JMS PRINTI /PRINT IT 1714 21634 1664 TAD I BUFPTR 1715 21635 0265 AND K0077 1716 21636 7450 SNA /DONE? 1717 21637 5243 JMP MESSA2 /YES 1718 21640 4245 JMS PRINTI /PRINT IT 1719 21641 2264 ISZ BUFPTR /NEXT WORD 1720 21642 5225 JMP MESSA1 1721 1722 21643 0000 MESSA2, .-. /CDF TO RESTORE DATA FIELD 1723 21644 5615 JMP I MESSA0 /RETURN 1724 1725 1726 21645 0000 PRINTI, 0 1727 21646 0265 AND K0077 1728 21647 1266 TAD K7741 1729 21650 7450 SNA /BACKARROW? 1730 21651 5257 JMP PRCRLF /YUP - TIME FOR CARRIAGE RETURN, LINE FEED 1731 21652 7510 SPA 1732 21653 1037 TAD C0100 /RESTORE BIT 5 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 40 1733 21654 1036 TAD C0037 1734 21655 4506 PRINT2, OUTTLS /PRINT THE CHARACTER 1735 21656 5645 JMP I PRINTI /RETURN 1736 1737 21657 1307 PRCRLF, TAD CM215 /GET A CARRIAGE RETURN 1738 21660 7041 CIA 1739 21661 4506 OUTTLS 1740 21662 1310 TAD C0212 /AND NOW LINE FEED 1741 21663 5255 JMP PRINT2 1742 1743 21664 0000 BUFPTR, 0 1744 21665 0077 K0077, 0077 1745 21666 7741 K7741, 7741 1746 1747 21667 0000 GETIN0, 0 1748 21670 7240 GETIN1, STA 1749 21671 1064 TAD INBUF 1750 21672 3010 DCA AXS1 /FOR GETCH 1751 21673 1064 TAD INBUF 1752 21674 3067 DCA NUMHO 1753 21675 1305 TAD GETIN3 /MINUS THE LAST LOCATION IN THE BUFFER 1754 21676 3070 DCA NUMHO+1 1755 21677 4311 GETIN2, JMS GETCH /GET A CHARACTER INTO THE BUFFER 1756 21700 5270 JMP GETIN1 /BUFFER FULL; TRY AGAIN 1757 21701 1306 TAD CM212 /HAS HE TYPED A CR (OR LINE FEED)? 1758 21702 7650 SNA CLA 1759 21703 5667 JMP I GETIN0 /YES, WE'RE ALL THROUGH HERE 1760 21704 5277 JMP GETIN2 /NO, GET ANOTHER CHARACTER 1761 1762 21705 5203 GETIN3, -INBUFA-20 1763 21706 7566 CM212, -212 1764 21707 7563 CM215, -215 1765 21710 0212 C0212, 212 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 41 1766 1767 /SUBROUTINE TO GET A CHARACTER, AND PUT IT IN THE BUFFER. 1768 /RETURN CALL PLUS 1 IF TOO MANY CHARACTERS WERE TYPED. 1769 /RETURN CALL PLUS 2 WITH CHARACTER IN AC IS THE NORMAL RETURN. 1770 /UPON RUBOUT, ECHOES RUBBED CHARACTERS, BUT NOT PAST BEGINNING OF BUFFER. 1771 1772 21711 0000 GETCH, 0 1773 21712 0144 GETESC, 377-233 1774 21713 4507 GETCH1, INKRB 1775 21714 3066 GETCH2, DCA CHAR 1776 21715 1066 TAD CHAR 1777 21716 1114 TAD MC0377 1778 21717 7450 SNA /IS IT A RUBOUT? 1779 21720 5341 JMP GETCH3 /YES, GO WORRY ABOUT IT 1780 21721 1312 TAD GETESC /IS IT ESCAPE? 1781 21722 7640 SZA CLA /YES; DON'T ECHO 1782 21723 1066 TAD CHAR 1783 21724 4506 OUTTLS /ECHO CHARACTER 1784 21725 1010 TAD AXS1 1785 21726 1070 TAD NUMHO+1 /THIS SHOULD BE MINUS THE LAST ADDRESS IN THE BUFFER 1786 21727 7700 SMA CLA /HAVE WE OVERRUN THE END OF THE BUFFER? 1787 21730 5361 JMP GETCH5 /YES 1788 21731 1066 TAD CHAR 1789 21732 3410 DCA I AXS1 /ALL OK, NOW SAVE THE CHAR IN THE BUFFER 1790 21733 1066 TAD CHAR 1791 21734 1307 TAD CM215 1792 21735 7640 SZA CLA /WAS THAT A CARRIAGE RETURN? 1793 21736 5356 JMP GETCH4 /NO 1794 21737 1310 TAD C0212 /GET LINE FEED AND ECHO, STORE IT 1795 21740 5314 JMP GETCH2 1796 1797 21741 1010 GETCH3, TAD AXS1 /HE TYPED A RUBOUT 1798 21742 3066 DCA CHAR /SAVE BUFFER POINTER 1799 21743 1010 TAD AXS1 1800 21744 7041 CIA 1801 21745 1067 TAD NUMHO /THIS SHOULD BE THE INITIAL VALUE OF AXS1 1802 21746 7740 SMA SZA CLA /IS HE BACKING UP TOO FAR? 1803 21747 5313 JMP GETCH1 /YES, JUST IGNORE THE RUBOUT 1804 21750 1466 TAD I CHAR /GOT GET THE RUBBED-OUT CHARACTER 1805 21751 4506 OUTTLS /AND ECHO IT 1806 21752 7240 STA 1807 21753 1010 TAD AXS1 /NOW BACK UP AXS1 1808 21754 3010 DCA AXS1 1809 21755 5313 JMP GETCH1 1810 1811 21756 1066 GETCH4, TAD CHAR /PUT CHAR IN AC FOR RETURN 1812 21757 2311 ISZ GETCH //SKIP ON RETURN 1813 21760 5711 JMP I GETCH /AND RETURN 1814 1815 21761 4503 GETCH5, MESSAG /THE DUMMY IS TOO PROLIFIC WITH THE TYPING!! 1816 21762 3550 HUH 1817 21763 5711 JMP I GETCH /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 42 1818 1819 2000 *INIP+1000 1820 1821 /INIT BOOTSTRAP - LOAD TRACK 2 INTO FIELD 0 1822 1823 1824 22000 3234 INBOOT, DCA DATEIN /SAVE AC 1825 22001 4500 DISC 1826 22002 6603 DMAR /READ TRACK 2 TO FIELD 0 1827 22003 0020 0020 1828 22004 1234 TAD DATEIN /RESTORE AC 1829 22005 6622 DFSC 1830 22006 5205 JMP .-1 1831 22007 6203 CIF CDF /AWAY TO FIELD 0, IF WE AREN'T THERE ALREADY 1832 22010 3060 DCA CHDFA /AC SAYS WHERE TO JUMP 1833 22011 1074 TAD C6201 1834 22012 3617 DCA I INIFA 1835 22013 5460 JMP I CHDFA /SO JUMP THERE 1836 1837 22014 1221 SUPREF, TAD SUPFUG /REFRESH 1838 22015 1220 SUPST, TAD SYSINA /START 1839 22016 5200 JMP INBOOT /BOOT IN FRESH COPY OF INIT 1840 1841 22017 0061 INIFA, INIF 1842 22020 1132 SYSINA, SYSINI 1843 22021 3134 SUPFUG, REFCO0-SYSINI /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 43 1844 1845 /DATE INPUT 1846 /DATE=((YEAR-1974)*12+(MONTH-1))*31+DAY-1 1847 1848 22022 2471 DATMUL, DMUL 1849 22023 7563 CMCR, -215 1850 22024 0014 C0012, 14 1851 22025 0037 C0031, 37 1852 DECIMAL 1853 22026 7763 DM13, -13 1854 22027 0013 D11, 11 1855 22030 0037 D31, 31 1856 22031 7666 DM74, -74 1857 OCTAL 1858 22032 0000 DATMON, 0 1859 22033 0000 DATDAY, 0 1860 1861 22034 0000 DATEIN, 0 1862 22035 7300 CLA CLL 1863 22036 4503 MESSAG /MONTH-DAY-YEAR: 1864 22037 2113 DATMES 1865 22040 4505 GETIN 1866 22041 7240 STA 1867 22042 1064 TAD INBUF 1868 22043 3010 DCA AXS1 1869 22044 4465 NUMBIN /MONTH 1870 22045 5235 JMP DATEIN+1 1871 22046 1226 TAD DM13 1872 22047 7121 STL IAC 1873 22050 1227 TAD D11 1874 22051 7430 SZL /0 /55 TICKS PER SYSTEM TICK IF DC08A; INITIALIZED AT REFRESH TIME 2099 IFZERO DC08A <-12> /IN CASE OF PDP-8/A 2100 22403 0322 CLKINA, CLKINI 2101 22404 7455 TIMCK2, -INCLK2-1 2102 22405 0400 TIMCK1, -INCLK1 2103 22406 1130 C660, TICMIN /TICKS PER MINUTE 2104 DECIMAL 2105 22407 7750 DM24, -24 2106 22410 0030 D24, 24 2107 22411 7704 DM60, -60 2108 22412 0074 D60, 60 2109 OCTAL 2110 2111 22413 0000 TIMEIN, 0 2112 22414 7300 CLA CLL 2113 22415 4503 MESSAG 2114 22416 3261 TIMESS /TIME: 2115 22417 4505 GETIN 2116 22420 7240 STA 2117 22421 1064 TAD INBUF 2118 22422 3010 DCA AXS1 2119 22423 3066 DCA CHAR 2120 22424 4465 NUMBIN 2121 22425 5214 JMP TIMEIN+1 2122 22426 1207 TAD DM24 2123 22427 7120 STL 2124 22430 1210 TAD D24 2125 22431 7430 SZL /HOURS BETWEEN 0 AND 23? 2126 22432 5214 JMP TIMEIN+1 /NO 2127 22433 3070 DCA NUMHO+1 2128 22434 3067 DCA NUMHO 2129 22435 1212 TAD D60 2130 22436 4271 JMS DMUL 2131 22437 3066 DCA CHAR 2132 22440 4465 NUMBIN 2133 22441 5214 JMP TIMEIN+1 2134 22442 1211 TAD DM60 2135 22443 7120 STL 2136 22444 1212 TAD D60 2137 22445 7430 SZL /MINUTES BETWEEN 0 AND 59? 2138 22446 5214 JMP TIMEIN+1 /NO 2139 22447 1071 TAD NUMHO+2 2140 22450 3070 DCA NUMHO+1 2141 22451 3067 DCA NUMHO 2142 22452 1206 TAD C660 2143 22453 4271 JMS DMUL 2144 22454 7100 CLL 2145 22455 6201 CDF 2146 22456 1071 TAD NUMHO+2 2147 22457 1205 TAD TIMCK1 2148 22460 3451 DCA I CLK1 2149 22461 7004 RAL 2150 22462 1070 TAD NUMHO+1 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 50 2151 22463 1204 TAD TIMCK2 2152 22464 3450 DCA I CLK2 2153 22465 1202 TAD FREQ 2154 22466 3603 DCA I CLKINA 2155 22467 4060 CHDF 2156 22470 5613 JMP I TIMEIN 2157 2158 22471 0000 DMUL, 0 2159 22472 3341 DCA MP2 /MULTIPLIER 2160 22473 1070 TAD NUMHO+1 /LOW ORDER MULTIPLICAND 2161 22474 4312 JMS MP4 2162 22475 3071 DCA NUMHO+2 /LOW ORDER 2163 22476 1060 TAD MP5 2164 22477 3070 DCA NUMHO+1 /HIGH ORDER 2165 22500 1067 TAD NUMHO /HIGH ORDER MULTIPLICAND 2166 22501 7450 SNA 2167 22502 5671 JMP I DMUL 2168 22503 4312 JMS MP4 2169 22504 1070 TAD NUMHO+1 2170 22505 3070 DCA NUMHO+1 2171 22506 7004 RAL /GET CARRY 2172 22507 1060 TAD MP5 2173 22510 3067 DCA NUMHO 2174 22511 5671 JMP I DMUL 2175 2176 2177 22512 0000 MP4, 0 2178 22513 3340 DCA MP1 2179 22514 3060 DCA MP5 2180 22515 1343 TAD M12 2181 22516 3342 DCA MP3 2182 22517 7100 CLL 2183 22520 1340 TAD MP1 2184 22521 7010 RAR 2185 22522 3340 DCA MP1 2186 22523 1060 TAD MP5 2187 22524 7420 SNL 2188 22525 5330 JMP .+3 2189 22526 7100 CLL 2190 22527 1341 TAD MP2 2191 22530 7010 RAR 2192 22531 3060 DCA MP5 2193 22532 2342 ISZ MP3 2194 22533 5320 JMP MP4+6 2195 22534 1340 TAD MP1 2196 22535 7010 RAR 2197 22536 7100 CLL 2198 22537 5712 JMP I MP4 2199 2200 22540 0000 MP1, 0 2201 22541 0000 MP2, 0 2202 22542 0000 MP3, 0 2203 0060 MP5= CHDFA 2204 22543 7764 M12, -14 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 51 2205 2206 22544 4340 CORMES, TEXT "# USER FIELDS - " 22545 2523 22546 0522 22547 4006 22550 1105 22551 1404 22552 2340 22553 5540 22554 0000 2207 2208 2209 22555 INBUFA= . 2210 22555 0000 ZBLOCK 20 /INPUT BUFFER FOR INIT INPUT 22556 0000 22557 0000 22560 0000 22561 0000 22562 0000 22563 0000 22564 0000 22565 0000 22566 0000 22567 0000 22570 0000 22571 0000 22572 0000 22573 0000 22574 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 52 2211 2212 2600 *INIP+1600 2213 2214 /DECTAPE - READ OR WRITE ONE FIELD 2215 /JMS TO DTRORW WITH DESIRED FIELD IN DTFLD, BEGINNING BLOCK MINUS 2216 /ONE IN DTBLOK, DESIRED DRIVE IN CONTROLLER, AND DTFUNC 2217 /0050 FOR A WRITE OR 0030 FOR A READ. 2218 2219 22600 0000 DTRORW, 0 2220 22601 7240 STA 2221 22602 3327 DCA DTCAS /START CA AT -1 2222 22603 1044 TAD C7740 2223 22604 3323 DCA DTBLCT /40 BLOCKS PER FIELD 2224 22605 6761 DTRA 2225 22606 0075 AND C0200 /IS TAPE MOVING?? 2226 22607 7650 SNA CLA 2227 22610 1364 TAD C0600 /NO - START IT THE OTHER WAY 2228 22611 6764 DTXA 2229 22612 1330 DTSR1, TAD C7773 2230 22613 3322 DCA DTRY /TRY 5 TIMES UPON ERROR 2231 22614 6774 DTSR2, DTLB /BLOCK NUMBERS TO THIS FIELD 2232 22615 3732 DCA I C7755 /AT LOCATION 0 2233 22616 1073 TAD C0010 /START SEARCHING 2234 22617 6764 DTSR3, DTXA 2235 22620 4337 JMS DTWAIT /WAIT 2236 22621 6761 DTRA 2237 22622 7006 RTL 2238 22623 7006 RTL /DIRECTION BIT TO LINK 2239 22624 7200 CLA 2240 22625 1324 TAD DTBLOK /DESIRED BLOCK - 1 2241 22626 7040 CMA /-DESIRED BLOCK 2242 22627 7430 SZL /FUDGE IF GOING IN REVERSE 2243 22630 1033 TAD C0003 2244 22631 1000 TAD 0 /REAL BLOCK - DESIRED BLOCK (+3?) 2245 22632 7650 SNA CLA /WHAT DO WE DO NOW? 2246 22633 7420 SNL 2247 22634 5300 JMP DTSR7 /KEEP GOING, MAYBE REVERSE DIRECTION 2248 22635 1042 TAD C7600 /WE'RE THERE, MAKE WC=-200 2249 22636 3731 DCA I C7754 2250 22637 1327 TAD DTCAS 2251 22640 3732 DCA I C7755 /SET UP CA 2252 22641 1325 TAD DTFLD 2253 22642 6774 DTLB /SET UP FIELD FOR TRANSFER 2254 22643 1326 TAD DTFUNC 2255 22644 6764 DTXA /SET UP FOR READ OR WRITE 2256 22645 4337 JMS DTWAIT /WAIT 2257 22646 1732 TAD I C7755 /SAVE NEW CURRENT ADDRESS 2258 22647 3327 DCA DTCAS 2259 22650 6761 DTRA /REMOVE ANY FUNCTION FROM CONTROLLER 2260 22651 0334 AND C0077 2261 22652 6764 DTXA 2262 22653 2324 ISZ DTBLOK /TIME FOR NEXT BLOCK 2263 22654 2323 ISZ DTBLCT /ARE WE THROUGH? 2264 22655 5212 JMP DTSR1 /NO 2265 22656 1324 TAD DTBLOK /YES - 2266 22657 1333 TAD CM2677 /END OF TAPE?? 2267 22660 7710 SPA CLA /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 53 2268 22661 5600 JMP I DTRORW /NO 2269 22662 1156 TAD C0400 /YES 2270 22663 6764 DTXA /REWIND TAPE 2271 22664 6761 DTRA 2272 22665 1040 TAD C1000 /GO TO NEXT DRIVE 2273 22666 0335 AND C7000 2274 22667 3324 DCA DTBLOK 2275 22670 4511 CHEKCC /STALL 2276 22671 6765 DTRA DTXA 2277 22672 4511 CHEKCC /STALL 2278 22673 1324 TAD DTBLOK 2279 22674 6764 DTXA /REMEMBER IT IN THE CONTROLLER 2280 22675 3324 DCA DTBLOK /START AT BLOCK 1 2281 22676 4511 CHEKCC /STALL 2282 22677 5600 JMP I DTRORW /RETURN 2283 22700 7420 DTSR7, SNL /REVERSE DIRECTION? 2284 22701 5217 JMP DTSR3 /NO 2285 22702 1156 TAD C0400 2286 22703 2322 ISZ DTRY /COUNT AN ERROR 2287 22704 5217 JMP DTSR3 /AND GO REVERSE DIRECTION 2288 22705 1042 TAD C7600 /AC=200 2289 22706 6764 DTXA /STOP THE TAPE 2290 22707 4503 MESSAG 2291 22710 2712 TAPMIS 2292 22711 5401 JMP I SUPERA 2293 2294 22712 3704 TAPMIS, TEXT "_DECTAPE ERROR" 22713 0503 22714 2401 22715 2005 22716 4005 22717 2222 22720 1722 22721 0000 2295 2296 22722 0000 DTRY, 0 2297 22723 0000 DTBLCT, 0 /COUNT OF BLOCKS TO R/W FOR ONE FIELD 2298 22724 0000 DTBLOK, 0 /CURRENT DESIRED BLOCK MINUS ONE 2299 22725 0000 DTFLD, 0 /DECTAPE FIELD IN BITS 6-8 2300 22726 0000 DTFUNC, 0 /DECTAPE FUNCTION, 30 FOR READ, 50 FOR WRITE 2301 6766 DTLA= 6766 /SHOULDN'T BE HERE, BUT PUT IT IN WHILE I REMEMBER 2302 22727 0000 DTCAS, 0 2303 22730 7773 C7773, 7773 2304 22731 7754 C7754, 7754 2305 22732 7755 C7755, 7755 2306 22733 5101 CM2677, -2677 2307 22734 0077 C0077, 0077 2308 22735 7000 C7000, 7000 2309 22736 0000 STATB, 0 /FOR DIAGNOSTIC PURPOSES 2310 /MOST RECENT DECTAPE STATUS B ON ERROR 2311 2312 /DTWAIT - SUBROUTINE TO WAIT FOR DECTAPE COMPLETION FLAG 2313 2314 22737 0000 DTWAIT, 0 2315 22740 6771 DTSF 2316 22741 5340 JMP .-1 /WAIT FOR FLAG 2317 22742 4511 CHEKCC /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 54 2318 22743 6772 DTRB 2319 22744 7700 SMA CLA /ANY ERROR? 2320 22745 5737 JMP I DTWAIT /NO 2321 22746 6772 DTRB 2322 22747 3336 DCA STATB /FOR DIAGNOSTIC PURPOSES 2323 22750 1336 TAD STATB 2324 22751 0156 AND C0400 /SELECT ERROR? 2325 22752 7640 SZA CLA 2326 22753 5362 JMP DTWSEL /YES 2327 22754 6761 DTWGOR, DTRA 2328 22755 0365 AND C0377 /REMOVE FUNCTION FROM CONTROLLER 2329 22756 6764 DTXA 2330 22757 1364 TAD C0600 /GO IN REVERSE 2331 22760 6764 DTXA 2332 22761 5214 JMP DTSR2 2333 22762 3000 DTWSEL, DCA 0 2334 22763 6764 DTXA /SELECT ERROR! 2335 22764 0600 C0600, 0600 /WASTE TIME - SELECT ERROR RETURNS AFTER 2336 22765 0377 C0377, 0377 /WASTE TIME - 5 MICROSECONDS AFTER DTXA 2337 22766 4511 CHEKCC 2338 22767 6772 DTRB /IS IT STILL THERE? 2339 22770 7710 SPA CLA 2340 22771 5362 JMP DTWSEL /YES, TRY AGAIN 2341 22772 2000 ISZ 0 /NO, WAIT A WHILE 2342 22773 5363 JMP DTWSEL+1 2343 22774 5354 JMP DTWGOR /OK, IT SEEMS TO BE GONE 2344 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 55 2345 2346 3000 *INIP+2000 2347 2348 /4K DISK READ OR WRITE 2349 2350 2351 23000 4630 LOAD, JMS I RWB /GO TO INITIALIZE CHDF, PRINT MESSAGE, 2352 23001 0724 CRLF /AND DETERMINE READ OR WRITE 2353 23002 1227 TAD C6603 /MAKE A DMAW OR A DMAR 2354 2355 23003 3223 DCA RORW 2356 23004 4503 MESSAG 2357 23005 3235 FIELD1 2358 23006 4505 GETIN 2359 23007 1464 TAD I INBUF 2360 23010 0035 AND C0007 2361 23011 3224 DCA FLDNUM 2362 23012 4503 MESSAG 2363 23013 3245 TRACK 2364 23014 4505 GETIN 2365 23015 4504 OCTIN 2366 23016 7106 CLL RTL 2367 23017 7004 RAL 2368 23020 1224 TAD FLDNUM 2369 23021 3224 DCA FLDNUM 2370 23022 4500 DISC 2371 23023 0000 RORW, 0 2372 23024 0000 FLDNUM, 0 2373 23025 4501 DISCHK /CHECK FOR DISK OK 2374 23026 5200 JMP LOAD 2375 2376 23027 6603 C6603, 6603 2377 23030 1267 RWB, RW /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 56 2378 2379 ASCI7, 2380 23031 0000 CLEAR, 0 2381 23032 7200 CLA 2382 23033 4500 DISC /READ MONITOR II INTO FIELD 1 2383 23034 6603 6603 2384 23035 0041 TS8DEX+11 2385 23036 4501 DISCHK /CHECK FOR OK DISK COMPLETION 2386 23037 1242 TAD CLR1 2387 23040 4243 JMS ZERO /ZERO OUT FREE CORE 2388 23041 5631 JMP I CLEAR 2389 2390 23042 3052 CLR1, JOBTBL 2391 2392 ASCI6, 2393 23043 0000 ZERO, 0 /CLEAR FIELD 1 FROM C(AC) TO 7777 2394 23044 3253 DCA CLR2 /BEGINNING ADDRESS 2395 23045 6211 DATFLD 2396 23046 3653 DCA I CLR2 2397 23047 2253 ISZ CLR2 2398 23050 5246 JMP .-2 2399 23051 4060 CHDF 2400 23052 5643 JMP I ZERO 2401 ASCNT, 2402 23053 0000 CLR2, 0 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 57 2403 2404 /ROUTINE TO MOVE XDDT INTO DATFLD 2405 2406 23054 0000 LODDT, 0 2407 23055 1301 TAD KM4400 2408 23056 3702 DCA I FRENDA /MAKE FRECORE STOP AT 4400 2409 23057 7240 STA 2410 23060 1300 TAD K4400 2411 23061 3010 DCA AXS1 /POINTS TO ORIGINAL 2412 23062 1010 TAD AXS1 2413 23063 3011 DCA AXS2 /POINTS TO COPY 2414 23064 4060 LODDT1, CHDF 2415 23065 1410 TAD I AXS1 2416 23066 6211 DATFLD 2417 23067 3411 DCA I AXS2 2418 23070 2303 ISZ DDTSIZ /ARE WE DONE YET? 2419 23071 5264 JMP LODDT1 2420 23072 3677 DCA I XOPA /CHANGE ^C TO JUMP TO FIELD 0 2421 23073 4060 CHDF 2422 23074 4503 MESSAG 2423 23075 1161 XTELL 2424 23076 5654 JMP I LODDT /YES 2425 2426 23077 5006 XOPA, XOP 2427 23100 4400 K4400, 4400 2428 23101 3400 KM4400, -4400 2429 23102 1400 FRENDA, FREND 2430 23103 4601 DDTSIZ, 4400-7577 /THIS GETS DESTROYED, BUT WHAT THE HECK 2431 2432 23104 1417 DDTMES, TEXT "LOAD EXEC DDT AT START-UP? " 23105 0104 23106 4005 23107 3005 23110 0340 23111 0404 23112 2440 23113 0124 23114 4023 23115 2401 23116 2224 23117 5525 23120 2077 23121 4000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 58 2433 2434 /ROUTINE TO CONVERT ASCII TO TSS/8 SIXBIT 2435 2436 23122 0000 ASCSIX, 0 2437 23123 7344 CLL STA RAL /SET AC=-2 2438 23124 3253 DCA ASCNT 2439 23125 1064 TAD INBUF 2440 23126 3243 DCA ASCI6 /INPUT BUFFER 2441 23127 1722 TAD I ASCSIX 2442 23130 3231 DCA ASCI7 /POINTER TO OUTPUT VECTOR 2443 23131 2322 ISZ ASCSIX 2444 23132 4351 ASCI1, JMS ASCGET /GET ONE CHARACTER 2445 23133 7106 CLL RTL 2446 23134 7006 RTL 2447 23135 7006 RTL /SHIFT TO HIGH ORDER 2448 23136 3631 DCA I ASCI7 /SAVE THE CHARACTER 2449 23137 4060 CHDF 2450 23140 4351 JMS ASCGET /GO GET ANOTHER CHARACTER 2451 23141 1631 TAD I ASCI7 /PACK IT IN WITH THE LAST ONE 2452 23142 3631 DCA I ASCI7 /AND SAVE IT 2453 23143 2231 ISZ ASCI7 2454 23144 4060 CHDF 2455 23145 2253 ISZ ASCNT /DONE? 2456 23146 5332 JMP ASCI1 /NO 2457 23147 5722 JMP I ASCSIX /YES, EXIT 2458 2459 23150 7540 ASC240, -240 2460 2461 23151 0000 ASCGET, 0 /GET A PASSWORD CHARACTER, EXIT UPON CARRIAGE RETURN 2462 23152 1643 TAD I ASCI6 /GET NEXT CHARACTER 2463 23153 1363 TAD ASCCR 2464 23154 7650 SNA CLA /IS IT CR? 2465 23155 5722 JMP I ASCSIX /YES, RETURN 2466 23156 1643 TAD I ASCI6 2467 23157 2243 ISZ ASCI6 2468 23160 1350 TAD ASC240 /PASSWORDS ARE STORED IN EXCESS 240 CODE 2469 23161 6211 DATFLD 2470 23162 5751 JMP I ASCGET 2471 2472 23163 7563 ASCCR, -215 2473 23164 0516 CSQ, TEXT "ENABLE ^S FEATURE? " 23165 0102 23166 1405 23167 4036 23170 2340 23171 0605 23172 0124 23173 2522 23174 0577 23175 4000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 59 2474 2475 3200 *INIP+2200 2476 2477 /USES INIT'S BINARY LOADER TO LOAD INTO FIELD 1 2478 23200 4510 ZERO1 /ZERO FIELD 1 2479 23201 6211 DATFLD 2480 23202 4617 Y1, JMS I BINLD /GO LOAD BINARY TAPE 2481 23203 7410 SKP /FIELD SETTING ENCOUNTERED 2482 23204 5401 JMP I SUPERA /END OF TAPE 2483 23205 3300 DCA DISC0 /SAVE IT 2484 23206 6214 RDF 2485 23207 7041 CIA 2486 23210 1300 TAD DISC0 /IS IT THE CURRENT FIELD ANYWAY? 2487 23211 7650 SNA CLA 2488 23212 5620 JMP I BINT3B /YES - SO IT'S OK 2489 23213 1300 TAD DISC0 /NO - LET HIM/HER KNOW ABOUT IT 2490 23214 7402 HLT 2491 23215 7200 CLA /IGNORE FIELD SETTING 2492 23216 5620 JMP I BINT3B 2493 2494 23217 7600 BINLD, BINTAP 2495 23220 7732 BINT3B, BINT3 2496 2497 23221 4623 Y, JMS I STFLDA 2498 23222 5202 JMP Y1 2499 2500 23223 4241 STFLDA, STFLD 2501 2502 23224 2205 RDORWT, TEXT "READ OR WRITE - " 23225 0104 23226 4017 23227 2240 23230 2722 23231 1124 23232 0540 23233 5540 23234 0000 2503 23235 0611 FIELD1, TEXT "FIELD NUMBER - " 23236 0514 23237 0440 23240 1625 23241 1502 23242 0522 23243 4055 23244 4000 2504 23245 2422 TRACK, TEXT "TRACK NUMBER - " 23246 0103 23247 1340 23250 1625 23251 1502 23252 0522 23253 4055 23254 4000 2505 23255 3724 TAPMES, TEXT "_TAPE " 23256 0120 23257 0540 23260 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 60 2506 23261 1022 TIMESS, TEXT "HR:MIN - " 23262 7215 23263 1116 23264 4055 23265 4000 2507 23266 4340 NUMBLK, TEXT "# - " 23267 5540 23270 0000 2508 23271 3105 YN, TEXT "YES OR NO... " 23272 2340 23273 1722 23274 4016 23275 1756 23276 5656 23277 4000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 61 2509 2510 /DISK READ OR WRITE 2511 /CALL DISC 2512 / FUNCTION 2513 / DEAL ARGUMENTS (DISC EXTENSION IN BITS 1-8; MEMORY FIELD IN BITS 9-11) 2514 / DISCHK 2515 / RETURN HERE WHEN OK 2516 2517 4500 DISC= JMS I DISCA 2518 4501 DISCHK= JMS I DISCHA 2519 2520 2521 23300 0000 DISC0, 0 2522 23301 6214 RDF 2523 23302 1074 TAD C6201 2524 23303 3351 DCA DISC2 2525 23304 4060 CHDF 2526 23305 1700 TAD I DISC0 2527 23306 3330 DCA DISROW 2528 23307 2300 ISZ DISC0 2529 23310 1700 TAD I DISC0 2530 23311 3363 DCA DEALSV /SAVE THE DEAL ARGUMENTS 2531 23312 1363 TAD DEALSV 2532 IFZERO RF08-40 < ISZ DISC0 2533 CLL RTL 2534 RAL 2535 DEAL 2536 CLA CLL> 2537 23313 7006 IFZERO RF08 < RTL 2538 23314 7004 RAL 2539 23315 0332 AND C0070 2540 23316 6615 DIML 2541 23317 1700 TAD I DISC0 2542 23320 7112 CLL RTR 2543 23321 2300 ISZ DISC0 2544 23322 7010 RAR 2545 23323 6643 DXAL> 2546 23324 6201 CDF 2547 23325 3733 DCA I C7750 2548 23326 7240 STA 2549 23327 3734 DCA I C7751 2550 23330 0000 DISROW, 0 2551 23331 5700 JMP I DISC0 2552 2553 23332 0070 C0070, 70 2554 23333 7750 C7750, 7750 2555 23334 7751 C7751, 7751 2556 2557 2558 /SUBROUTINE TO WAIT FOR DISK COMPLETION, CHECK FOR ERRORS, AND 2559 /IF THERE ARE ANY ERRORS, RETRY THE OPERATION. 2560 2561 23335 0000 DISCH0, 0 2562 23336 7346 CLL STA RTL 2563 23337 3366 DCA RFTRY /TRY 3 TIMES 2564 23340 6623 IFZERO RF08 2565 IFNZRO RF08 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 62 2566 23341 5340 JMP .-1 /WAIT FOR THE DISK TO FINISH 2567 23342 6621 DFSE /ERROR? 2568 IFZERO RF08-40 /DF32 SKIPS BACKWARDS 2569 23343 5351 JMP DISC2 /NO 2570 23344 6616 DIMA 2571 23345 0365 AND DSKFLG /CHECK WLS, DRL, PER 2572 23346 6201 CDF 2573 23347 7450 SNA 2574 23350 1733 TAD I C7750 /MAYBE NXD - IS WC=0? 2575 23351 0000 DISC2, .-. /CDF -- RESTORE DATA FIELD 2576 23352 7450 SNA /OK? 2577 23353 5735 JMP I DISCH0 /I GUESS SO 2578 23354 2366 ISZ RFTRY /3 TRIES YET? 2579 23355 7610 CLA SKP 2580 23356 5367 JMP DISERR /DISK WRITE LOCKED, PARITY ERROR, OR DRL 2581 23357 1330 TAD DISROW /GET OLD DMAR OR DMAW 2582 23360 3362 DCA .+2 2583 23361 4500 DISC 2584 23362 0000 0 2585 23363 0000 DEALSV, 0 /DEAL ARGUMENTS SAVED BY LAST DISC CALL 2586 23364 5340 JMP DISCH0+3 2587 2588 23365 1005 DSKFLG, IFZERO RF08 <1005> 2589 IFZERO RF08-40 <0007> 2590 23366 0000 RFTRY, 0 /RETRY COUNT FOR DISK ERRORS 2591 2592 23367 4503 DISERR, MESSAG 2593 23370 3372 DISKER 2594 23371 5401 JMP I SUPERA 2595 23372 3704 DISKER, TEXT "_DISK ERROR" 23373 1123 23374 1340 23375 0522 23376 2217 23377 2200 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 63 2596 2597 3400 *INIP+2400 2598 2599 /DISC DUMP ON DTA1 2600 /DECTAPE BLOCK 40N+1=DISC TRACK N 2601 2602 23400 4736 DSKDMP, JMS I RWA /GO TO INITIALIZE CHDF, PRINT MESSAGE, 2603 23401 3255 TAPMES /AND DETERMINE READ OR WRITE 2604 23402 3325 DCA DTA 2605 23403 4503 MESSAG 2606 23404 3266 NUMBLK 2607 23405 4505 GETIN 2608 23406 4504 OCTIN 2609 23407 7041 CIA 2610 23410 7450 SNA 2611 23411 1326 DSKSUP, TAD DSKSZ 2612 23412 3327 DCA LDFCNT /SAVE DISK TRACK COUNT 2613 23413 3261 DCA RFFUNC /WELL, FOLKS, THE FOLLOWING ROUTINE 2614 23414 4060 CHDF /ONLY WORKS IN FIELD 0, SO HERE 2615 23415 1661 TAD I RFFUNC /WE GO, MOVING EVERYTHING DOWN TO 2616 23416 6201 CDF /FIELD 0 SO THAT IT WILL BE HAPPY 2617 23417 3661 DCA I RFFUNC 2618 23420 2261 ISZ RFFUNC 2619 23421 5214 JMP .-5 2620 23422 6203 CIF CDF /AND DOWN TO FIELD 0! 2621 23423 5224 JMP .+1 2622 23424 1222 TAD .-2 2623 23425 3061 DCA INIF /SET UP CHDF FOR FIELD 0 2624 23426 1325 TAD DTA /IS IT LOAD OR DUMP?? 2625 23427 7100 CLL 2626 23430 7650 SNA CLA 2627 23431 7120 STL 2628 23432 7420 SNL /SKIP IF READ 2629 23433 1334 TAD C0020 2630 23434 1335 TAD C0030 2631 23435 3730 DCA I DTFUNA /SAVE FUNCTION FOR DECTAPE 2632 23436 1317 TAD RFDMAR 2633 23437 7430 SZL /SKIP IF DISK READ 2634 23440 1032 TAD C0002 /MAKE IT DMAW 2635 23441 3261 DCA RFFUNC /SAVE DMAR OR DMAW 2636 23442 1327 TAD LDFCNT 2637 23443 7004 RAL 2638 23444 3327 DCA LDFCNT /FUDGE LDFCNT SO THAT IT ISZES TO 0 AT THE RIGHT TIME 2639 23445 3731 DCA I DTBLKA /START AT DECTAPE BLOCK 1 2640 23446 1040 TAD C1000 2641 23447 6766 DTLA /START WITH DECTAPE DRIVE 1 2642 23450 7001 IAC 2643 23451 3262 DCA RFTRAK /START WITH RF08/DF32 TRACK 0 FIELD 1 2644 23452 1073 TAD C0010 2645 23453 3732 DCA I DTFLDA /START WITH DECTAPE FIELD 1 2646 23454 1325 TAD DTA 2647 23455 7640 SZA CLA /LOAD OR DUMP? 2648 23456 5316 JMP DMPINI /MUST BE DUMP 2649 23457 4733 JMS I DTRWA /READ FIRST TRACK FROM DECTAPE 2650 23460 4500 DISC /READ OR WRITE - START OPERATION ONLY 2651 23461 0000 RFFUNC, 0 /DMAR OR DMAW 2652 23462 0000 RFTRAK, 0 /BITS 1-8=TRACK, 9-11=FIELD /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 64 2653 23463 2327 ISZ LDFCNT /DONE LOADING? 2654 23464 5267 JMP LD2 /NO 2655 23465 4501 DISCHK /YES - LAST WRITE OK?? 2656 23466 5301 JMP LDSTOP 2657 23467 1262 LD2, TAD RFTRAK /WHAT FIELD DOES DECTAPE GO TO NOW? 2658 23470 7012 RTR 2659 23471 7710 SPA CLA 2660 23472 1073 TAD C0010 2661 23473 1073 TAD C0010 2662 23474 3732 DCA I DTFLDA 2663 23475 4733 JMS I DTRWA /READ/WRITE DECTAPE 2664 23476 2327 ISZ LDFCNT /DONE DUMPING??? 2665 23477 5305 JMP DMPJMP /NO 2666 23500 6601 DCMA /MAKE SURE THE DISK IS STOPPED 2667 23501 1156 LDSTOP, TAD C0400 /YES - REWIND LAST DECTAPE 2668 23502 6764 DTXA 2669 23503 5704 JMP I .+1 2670 23504 1322 RFBOOT /NOW GO BOOT WHATEVER IS ON RF08/DF32 2671 23505 4501 DMPJMP, DISCHK /DISK OK?? 2672 23506 1262 TAD RFTRAK 2673 23507 7010 RAR 2674 23510 7630 SZL CLA 2675 23511 1032 TAD C0002 2676 23512 1035 TAD C0007 2677 23513 1262 TAD RFTRAK 2678 23514 3262 DCA RFTRAK 2679 23515 5260 JMP RFFUNC-1 2680 23516 4500 DMPINI, DISC 2681 23517 6603 RFDMAR, DMAR 2682 23520 0001 1 2683 23521 5305 JMP DMPJMP 2684 2685 23522 7240 SUPDMP, STA 2686 23523 3325 SUPLOD, DCA DTA /SET DTA NON-0 FOR LOAD, 0 FOR DUMP 2687 23524 5211 JMP DSKSUP /AND GO LOAD OR DUMP 2688 2689 23525 0000 DTA, 0 2690 23526 7700 DSKSZ, -DSKSIZ 2691 23527 0000 LDFCNT, 0 2692 23530 2726 DTFUNA, DTFUNC 2693 23531 2724 DTBLKA, DTBLOK 2694 23532 2725 DTFLDA, DTFLD 2695 23533 2600 DTRWA, DTRORW 2696 23534 0020 C0020, 0020 2697 23535 0030 C0030, 0030 2698 23536 1267 RWA, RW 2699 23537 3724 TAPERR, TEXT "_TAPE READ ERROR" 23540 0120 23541 0540 23542 2205 23543 0104 23544 4005 23545 2222 23546 1722 23547 0000 2700 23550 3727 HUH, TEXT "_WHAT?_PLEASE TRY AGAIN_" 23551 1001 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 65 23552 2477 23553 3720 23554 1405 23555 0123 23556 0540 23557 2422 23560 3140 23561 0107 23562 0111 23563 1637 23564 0000 2701 3553 HUH2= HUH+3 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 66 2702 2703 /FILE PHANTOM AND DISK REFRESHER 2704 2705 /WRITE NEW MFD ON DISC DIRECTLY ABOVE THE SWAPPING AREA 2706 PAGE 2707 23600 0000 FIPR4, 0 2708 23601 3122 FIPASC, ASCSIX 2709 23602 4054 MFD1, MFDT-1 2710 2711 23603 4510 FIPREF, ZERO1 /ZERO FIELD 1 2712 23604 4503 MESSAG /"SYSTEM" 2713 23605 0727 SYSTEM 2714 23606 4503 MESSAG /"PASSWORD" 2715 23607 0744 PASWRD 2716 23610 4505 GETIN 2717 23611 4601 JMS I FIPASC /CONVERT PASSWORD TO SIXBIT 2718 23612 0011 0011 /GOOES AT WORD 11, 12 OF MFD 2719 23613 4503 MESSAG /"LIBRARY" 2720 23614 0733 LIBARY 2721 23615 4503 MESSAG /"PASSWORD" 2722 23616 0744 PASWRD 2723 23617 4505 GETIN 2724 23620 4601 JMS I FIPASC /CONVERT PASSWORD TO SIXBIT 2725 23621 0041 0041 /AND PUT IT AT WORDS 41,42 OF MFD 2726 23622 4503 MESSAG /"OPERATOR" 2727 23623 0737 OPRAT 2728 23624 4503 MESSAG /"PASSWORD" 2729 23625 0744 PASWRD 2730 23626 4505 GETIN 2731 23627 4601 JMS I FIPASC /CONVERT PASSWORD TO SIXBIT 2732 23630 0061 0061 /AND PUT IT AT WORDS 61,62 OF MFD 2733 23631 1202 TAD MFD1 /INITIALIZE POINTER 2734 23632 3010 DCA AXS1 2735 23633 1410 FIPR2, TAD I AXS1 /GET ADDRESS OF DATA TO BE STORED IN MFD 2736 23634 7450 SNA /ARE WE THROUGH? 2737 23635 5244 JMP FIPR3 /YES 2738 23636 3200 DCA FIPR4 /SAVE IT 2739 23637 1410 TAD I AXS1 /GET DATA TO STORE 2740 23640 6211 DATFLD 2741 23641 3600 DCA I FIPR4 /STORE IT IN THE MFD 2742 23642 4060 CHDF 2743 23643 5233 JMP FIPR2 /GO FOR MORE 2744 2745 23644 1112 FIPR3, TAD SWBASE 2746 23645 1342 TAD JBMXP /"JOBMAX" 2747 23646 7106 CLL RTL 2748 23647 7124 STL RAL /MAKE IT FIELD 1 2749 23650 3253 DCA .+3 2750 23651 4500 DISC 2751 23652 6605 DMAW /WRITE OUT THE MFD 2752 23653 0000 .-. 2753 23654 4501 DISCHK /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 67 2754 2755 /INITIALIZE STORAGE ALLOCATION TABLE "SAT" 2756 /THE SAT TABLE RESIDES IN FIP AT 7777 AND EXTENDS 2757 /DOWN THROUGH 7777-(SATSIZ-1). EACH BIT POSITION REPRESENTS 1 SEGMENT 2758 /OF FILE STORAGE. 2759 /SEGMENT 0 IS BIT 0 OF 7252, 2760 /SEGMENT 1 IS BIT 1 OF 7252, ETC. 7252=7777-(SATSIZ+2). 2761 /LOCATION SATCNT=7777-(SATSIZ-1)+1 CONTAINS THE COUNT OF AVAILABLE 2762 /SEGMENTS. A SEGMENT IS AVAILABLE IF ITS SAT BIT HAS THE 2763 /VALUE 0. 2764 2765 23655 4746 JMS I FIPRFD /FIP TO FIELD 1 2766 23656 1347 TAD CJTABL 2767 23657 4510 ZERO1 /CLEAR ALL FIP TABLES AND RETRIEVAL INFORMATION 2768 23660 1341 TAD SWDEXP 2769 23661 1063 TAD CJOBMX 2770 23662 1344 TAD DSKSZP /"DSKSIZ" 2771 23663 7106 CLL RTL 2772 23664 7006 RTL 2773 23665 1113 TAD C7777 /CAN'T USE LAST SEGMENT ON DF32 2774 23666 3345 DCA STORE0 /NUMBER OF DISK SEGMENTS 2775 23667 7240 CLA CMA 2776 23670 6211 DATFLD 2777 23671 3750 DCA I SATBOT /"-255" 2778 23672 7346 CLL STA RTL /SUBTRACT THREE SEGMENTS (FOR 1,2,3 UFD'S) 2779 23673 1345 TAD STORE0 /SET SATCNT TO # DISC SEGMENTS-2 2780 23674 3751 DCA I SATCNT /"-254" 2781 23675 1337 TAD K7000 /MARK SEGMENTS 1,2,3 FOR MFD, UFD USAGE 2782 23676 3736 DCA I SATTBL 2783 23677 1345 TAD STORE0 /MORE THAN 4000 SEGMENTS. 2784 23700 7500 SMA 2785 23701 5307 JMP .+6 /NO OK 2786 23702 1353 TAD CM4004 /SUBTRACT 4004 2787 23703 3345 DCA STORE0 2788 23704 1352 TAD C0253 /253 WORDS=4004 SEGS 2789 23705 3340 DCA COUNT 2790 23706 1345 TAD STORE0 2791 23707 1343 TAD C7764 /-14 2792 23710 2340 ISZ COUNT /COUNT # ZERO WORDS IN SAT 2793 23711 7500 SMA 2794 23712 5307 JMP .-3 2795 23713 3345 DCA STORE0 2796 23714 7240 STA 2797 23715 1340 TAD COUNT 2798 23716 1336 TAD SATTBL 2799 23717 3340 DCA COUNT 2800 23720 7124 STL RAL 2801 23721 2345 ISZ STORE0 2802 23722 5320 JMP .-2 2803 23723 3740 DCA I COUNT /MARK END OF FILE STORAGE AS ALLOCATED 2804 23724 5327 JMP FIPRF5 2805 23725 7240 FIPRF4, CLA CMA 2806 23726 3740 DCA I COUNT 2807 23727 2340 FIPRF5, ISZ COUNT 2808 23730 5325 JMP FIPRF4 2809 23731 4500 DISC 2810 23732 6605 DMAW /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 68 2811 23733 0011 0011 /FIP IS TRACK 1, FIELD 1 2812 23734 4501 DISCHK /MAKE SURE THE DISK IS OK 2813 23735 5401 JMP I SUPERA 2814 23736 7252 SATTBL, -SATSIZ+2 2815 23737 7000 K7000, 7000 2816 2817 23740 0000 COUNT, 0 2818 23741 7773 SWDEXP, -SWDEX 2819 23742 0024 JBMXP, JOBMAX 2820 23743 7764 C7764, -14 2821 23744 0100 DSKSZP, DSKSIZ 2822 23745 0000 STORE0, 0 2823 23746 4040 FIPRFD, FIPRD 2824 23747 6000 CJTABL, JTABLE 2825 23750 7250 SATBOT, -SATSIZ 2826 23751 7251 SATCNT, -SATSIZ+1 2827 23752 0253 C0253, 253 2828 23753 3774 CM4004, -4004 2829 23754 3727 FIPREM, TEXT "_WRITE ZERO SYSTEM DIRECTORY? " 23755 2211 23756 2405 23757 4032 23760 0522 23761 1740 23762 2331 23763 2324 23764 0515 23765 4004 23766 1122 23767 0503 23770 2417 23771 2231 23772 7740 23773 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 69 2830 2831 4000 *INIP+3000 2832 24000 5601 JMP I .+1 2833 24001 2000 INBOOT 2834 2835 2836 /MFD SEGMENT #S TO INBUF 2837 2838 24002 0000 FRD0, 0 2839 24003 1112 TAD SWBASE 2840 24004 1235 TAD JBMAX 2841 24005 7106 CLL RTL 2842 24006 7124 STL RAL 2843 24007 3212 DCA FRD1 2844 24010 4500 DISC 2845 24011 6603 DMAR 2846 24012 0000 FRD1, 0 2847 24013 4501 DISCHK /MAKE SURE THE DISK IS OK 2848 24014 1237 TAD K0020 2849 24015 3010 DCA AXS1 2850 24016 1064 TAD INBUF 2851 24017 3011 DCA AXS2 2852 24020 1372 TAD K7771 2853 24021 3240 DCA Z1 2854 24022 6211 FRD2, DATFLD 2855 24023 1410 TAD I AXS1 2856 24024 4060 CHDF 2857 24025 3411 DCA I AXS2 2858 24026 2240 ISZ Z1 2859 24027 5222 JMP FRD2 2860 24030 6211 DATFLD 2861 24031 1636 TAD I FGRACE /FETCH SIZE OF "GRACE SPACE" 2862 24032 4060 CHDF 2863 24033 3411 DCA I AXS2 2864 24034 5602 JMP I FRD0 2865 2866 24035 0024 JBMAX, JOBMAX 2867 24036 0014 FGRACE, 0014 2868 24037 0020 K0020, 0020 2869 2870 Z1, 2871 24040 0000 FIPRD, 0 2872 24041 4500 DISC 2873 24042 6603 DMAR 2874 24043 0011 0011 /FIP IS TRACK 1, READ INTO FIELD 1 2875 24044 4501 DISCHK /MAKE SURE THE DISK IS OK 2876 24045 5640 JMP I FIPRD 2877 2878 24046 4654 Z0, JMS I STFLDB /SET DATA FIELD TYPED 2879 24047 3240 DCA Z1 2880 24050 3640 DCA I Z1 /ZERO OUT A FIELD 2881 24051 2240 ISZ Z1 2882 24052 5250 JMP .-2 2883 24053 5401 JMP I SUPERA 2884 2885 24054 4241 STFLDB, STFLD /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 70 2886 2887 /TABLE USED TO CONSTRUCT VIRGIN MFD 2888 /INCLUDES ENTRIES FOR ACCOUNTS 1, 2, 3 2889 /EACH PAIR OF NUMBERS INCLUDES FIRST THE MFD ADDRESS, THEN ITS CONTENTS 2890 2891 24055 0003 MFDT, 3;10 /DUMMY POINTER 24056 0010 2892 24057 0010 10;1 /ACCOUNT NUMBER 1 24060 0001 2893 24061 0013 13;40 /NEXT ACCOUNT STARTS AT 40; LINK TO IT 24062 0040 2894 24063 0014 14;12 /DEFAULT "GRACE SPACE" OF 10 SEGMENTS PAST QUOTA 24064 0012 2895 24065 0017 17;20 /SEGMENT LIST IS AT 20 24066 0020 2896 24067 0021 21;1 /MFD STARTS WITH SEGMENT 1 ONLY 24070 0001 2897 24071 0030 30 /AN EXTRA BLOCK IS USED HERE. THE REASON IS SO THAT THE 2898 24072 7777 7777 /LAST ACCOUNT IN A SEGMENT WON'T HAVE ITS RETRIEVAL 2899 /BLOCK IN THE NEXT SEGMENT. 2900 24073 0040 40;2 /ACCOUNT 2 24074 0002 2901 24075 0043 43;60 /LINK TO NEXT ACCOUNT AT 60 24076 0060 2902 24077 0044 44;7777 /NO LIMIT ON DISK SEGMENTS 24100 7777 2903 24101 0047 47;50 /SEGMENT LIST IS AT 50 24102 0050 2904 24103 0051 51;2 /ACCOUNT 2 UFD STARTS WITH ONLY SEGMENT 2 24104 0002 2905 24105 0060 60;3 /ACCOUNT 3 24106 0003 2906 24107 0064 64;7777 /NO LIMIT ON DISK SEGMENTS 24110 7777 2907 24111 0067 67;70 /SEGMENT LIST IS AT 70 24112 0070 2908 24113 0071 71;3 /ACC. 3 UFD OWNS SEGMENT 3 ONLY, INITIALLY 24114 0003 2909 24115 0000 0 /TABLE TERMINATOR /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 71 2910 2911 24116 6524 CRTABL, RTABLE-1 /MFD SEGMENT #S 2912 24117 6265 CUTABL, UTABLE 2913 24120 0531 SATCON, SATSIZ+1 2914 24121 5777 CJOBTB, JTABLE-1 /START OF AREA TO CLEAR IN FIP 2915 2916 24122 0000 PERSET, 0 2917 24123 4202 JMS FRD0 /MFD SEGMENT #S TO INBUF 2918 24124 4240 JMS FIPRD /FIP TO FIELD 1 2919 24125 1321 TAD CJOBTB /CLEAR FIP TABLES 2920 24126 3010 DCA AXS1 2921 24127 6211 DATFLD 2922 24130 3410 DCA I AXS1 2923 24131 1010 TAD AXS1 /HAVE WE REACHED BOTTOM OF SAT? 2924 24132 1320 TAD SATCON 2925 24133 7640 SZA CLA 2926 24134 5330 JMP .-4 /NO 2927 24135 1316 TAD CRTABL /MOVE MFD SEGMENT #S TO RTABLE 2928 24136 3010 DCA AXS1 2929 24137 1064 TAD INBUF 2930 24140 3011 DCA AXS2 2931 24141 1372 TAD K7771 2932 24142 3240 DCA Z1 2933 24143 4060 PERSE3, CHDF 2934 24144 1411 TAD I AXS2 2935 24145 6211 DATFLD 2936 24146 3410 DCA I AXS1 2937 24147 2240 ISZ Z1 2938 24150 5343 JMP PERSE3 2939 24151 7324 CLL CLA CML RAL 2940 24152 3717 DCA I CUTABL /UTABLE=1 2941 24153 7040 CMA 2942 24154 2317 ISZ CUTABL 2943 24155 3717 DCA I CUTABL /UTABLE+1=-1 2944 24156 2317 ISZ CUTABL 2945 24157 4060 CHDF 2946 24160 1411 TAD I AXS2 2947 24161 6211 DATFLD 2948 24162 7041 CIA 2949 24163 3717 DCA I CUTABL /UTABLE+2=-"GRACE SPACE" 2950 24164 4060 CHDF 2951 24165 4500 DISC 2952 24166 6605 DMAW 2953 24167 0011 0011 /WRITE FIP FROM FIELD 1, TO TRACK 1 2954 24170 4501 DISCHK /MAKE SURE THE DISK IS OK 2955 24171 5722 JMP I PERSET 2956 2957 24172 7771 K7771, 7771 2958 2959 /THERE'S ALWAYS SOMEONE WHO WILL TRY TO LOAD INIT INTO THE SAME FIELD AS 2960 /THE BINARY LOADER. GIVE HIM/HER A MESSAGE IF HE DOES!! 2961 2962 4200 *4200 2963 24200 7200 CLA 2964 24201 6224 RIF 2965 24202 1074 TAD C6201 2966 24203 3061 DCA INIF /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 72 2967 24204 4503 MESSAG 2968 24205 4210 OOPS 2969 24206 7402 HLT 2970 24207 5203 JMP .-4 2971 24210 3720 OOPS, TEXT "_PLEASE DON'T TRY TO LOAD INIT WITH THE BINARY LOADER " 24211 1405 24212 0123 24213 0540 24214 0417 24215 1647 24216 2440 24217 2422 24220 3140 24221 2417 24222 4014 24223 1701 24224 0440 24225 1116 24226 1124 24227 4027 24230 1124 24231 1040 24232 2410 24233 0540 24234 0211 24235 1601 24236 2231 24237 4014 24240 1701 24241 0405 24242 2240 24243 0000 2972 4243 *.-1 2973 24243 1417 TEXT "LOCATED IN FIELD 2!" 24244 0301 24245 2405 24246 0440 24247 1116 24250 4006 24251 1105 24252 1404 24253 4062 24254 4100 2974 7632 *7632 2975 27632 5401 JMP I SUPERA /THIS INSTRUCTION SHOULD INTERCEPT ANY BINARY 2976 /LOADER IN PROGRESS IN THIS FIELD. /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 73 2977 2978 /INIT SUPERVISOR 2979 /OVERLAYS XDDT PERMANENT SYMBOL TABLE 2980 2981 4200 *4200 2982 24200 7200 SUPER, CLA /SET DATA FIELD 2983 24201 6224 RIF 2984 24202 1074 TAD C6201 2985 24203 3061 DCA INIF 2986 24204 4060 CHDF 2987 24205 6761 DTRA 2988 24206 0075 AND C0200 2989 24207 6764 DTXA /STOP ANY DECTAPE WHICH MAY BE MOVING AFTER AN ERROR 2990 24210 1240 TAD OUT1 2991 24211 3106 DCA OUTA /RESTORE TTY OUTPUT 2992 IFZERO CPU-2 <6030> /DO HIM/HER A FAVOR IF IT'S AN 8/E 2993 24212 6032 IFNZRO CPU-2 <6032> /NOT QUITE AS HELPFUL, BUT NECESSARY 2994 2995 24213 4503 MESSAG 2996 24214 2365 LDXRS /LOAD, DUMP, START AND OTHER THINGS IN THE LIST OF COMMANDS?? 2997 24215 4505 GETIN /WAIT FOR REPLY 2998 24216 1237 TAD SUPTBA /ADDRESS OF TABLE OF LETTERS 2999 24217 3010 DCA AXS1 /SAVE IT AUTO-INDEX 3000 24220 1410 SUPER2, TAD I AXS1 /GET A LETTER FROM TABLE 3001 24221 7450 SNA /END OF TABLE? 3002 24222 5233 JMP SUPHUH /YES - LET HIM/HER TRY AGAIN 3003 24223 1464 TAD I INBUF /ADD ON FIRST CHARACTER TYPED 3004 24224 7650 SNA CLA /THIS ONE? 3005 24225 5230 JMP SUPER3 /YES - DISPATCH 3006 24226 2010 ISZ AXS1 /NO - PASS UP DISPATCH ADDRESS 3007 24227 5220 JMP SUPER2 /NEXT 3008 3009 24230 1410 SUPER3, TAD I AXS1 /GET DISPATCH ADDRESS 3010 24231 3060 DCA CHDFA 3011 24232 5460 JMP I CHDFA /AND DISPATCH 3012 3013 24233 7200 SUPHUH, CLA 3014 24234 4503 MESSAG 3015 24235 3550 HUH 3016 24236 5200 JMP SUPER 3017 3018 24237 4333 SUPTBA, SUPTBL-1 3019 24240 0534 OUT1, OUT /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 74 3020 3021 24241 0000 STFLD, 0 3022 24242 4060 CHDF 3023 24243 1657 TAD I STFAD /WHAT WAS THE SECOND CHARACTER TYPED? 3024 24244 1260 TAD STFM8 3025 24245 7100 CLL 3026 24246 1073 TAD C0010 3027 24247 7420 SNL 3028 24250 5233 JMP SUPHUH 3029 24251 7106 CLL RTL 3030 24252 7004 RAL 3031 24253 1074 TAD C6201 3032 24254 3255 DCA .+1 3033 24255 0000 .-. 3034 24256 5641 JMP I STFLD 3035 24257 2556 STFAD, INBUFA+1 3036 24260 7510 STFM8, -"8 3037 /REFRESHER CONTROL 3038 3039 24261 0600 LOGSMA, LOGMES 3040 24262 1403 REFFLD, CORFLD 3041 24263 1402 REFDDT, XDDFLG 3042 24264 2132 NOCSQ, ISZ CONDBA 3043 24265 1405 REFCSQ, CORJMS 3044 IFZERO DC08A < 3045 REFREQ, FREQ 3046 CYC50, FRETEL 3047 CYC60, 3048 IFNZRO CPU-2 <-6> 3049 IFZERO CPU-2 <-14> > 3050 3051 24266 4661 REFCO0, JMS I LOGSMA /CHECK FOR NEW SI LOGIN MESSAGE 3052 24267 4500 DISC /READ INIT INTO FIELD 1 3053 24270 6603 DMAR 3054 24271 0021 21 3055 24272 4501 DISCHK /IS IT OK? 3056 24273 4502 YESNO /LAOD XDDT? 3057 24274 3104 DDTMES 3058 24275 7240 STA 3059 24276 6211 DATFLD 3060 24277 3663 DCA I REFDDT /INITIALIZE XDDT LOAD FLAG 3061 24300 4060 REFCO1, CHDF 3062 24301 4503 MESSAG /# USER FIELDS - 3063 24302 2544 CORMES 3064 24303 4505 GETIN 3065 24304 4504 OCTIN 3066 24305 6211 DATFLD 3067 24306 3662 DCA I REFFLD /INITIALIZE NUMBER OF USER FIELDS 3068 24307 1662 TAD I REFFLD 3069 24310 7101 CLL IAC 3070 24311 1041 TAD C7770 3071 24312 7630 SZL CLA /IS HIS/HER ANSWER REASONABLE? 3072 24313 5300 JMP REFCO1 /NO 3073 24314 4060 CHDF 3074 24315 4502 YESNO 3075 24316 3164 CSQ /DOES HE WANT ^S FEATURE? 3076 24317 1264 TAD NOCSQ /NO /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 75 3077 24320 6211 DATFLD 3078 24321 3665 DCA I REFCSQ 3079 IFZERO DC08A < IFNZRO CPU-4 < 3080 CHDF 3081 YESNO 3082 FREQUE /60 HERTZ? 3083 JMS I CYC50 3084 TAD CYC60 3085 DATFLD 3086 DCA I REFREQ > > 3087 24322 4060 CHDF 3088 24323 4500 DISC /WRITE OUT INIT 3089 24324 6605 DMAW 3090 24325 0021 21 3091 24326 4501 DISCHK /MAKE SURE IT'S OK 3092 24327 4502 YESNO /DO YOU WANT TO REFRESH? 3093 24330 3754 FIPREM 3094 24331 5401 JMP I SUPERA /NO 3095 24332 5733 JMP I .+1 3096 24333 3603 FIPREF /GO REFRESH 3097 3098 24334 7464 SUPTBL, -"L 3099 24335 3523 SUPLOD /LOAD 3100 24336 7474 -"D 3101 24337 3522 SUPDMP /DUMP 3102 24340 7467 -"I 3103 24341 2014 SUPREF /INITIALIZE 3104 24342 7455 -"S 3105 24343 2015 SUPST /START 3106 24344 7450 -"X 3107 24345 7000 7000 /XDDT 3108 24346 7476 -"B 3109 24347 1000 SBUILD /BUILD 3110 24350 7460 -"P 3111 24351 0200 DISCLK /PATCH 3112 24352 7454 -"T 3113 24353 3400 DSKDMP /LOAD OR DUMP; YOU CHOOSE HOW MANY TRACKS 3114 24354 7461 -"O 3115 24355 1041 PATCH /LOAD AN OVERLAY TAPE 3116 24356 7475 -"C 3117 24357 3000 LOAD /READ OR WRITE 4K TO "C" OR 3118 24360 7447 -"Y 3119 24361 3221 Y /READ BINARY TAPE TO A SELECTED FIELD 3120 24362 7446 -"Z 3121 24363 4046 Z0 /ZERO A SELECTED FIELD 3122 24364 7463 -"M 3123 24365 2227 MF0 /MATCH A SELECT FIELD WITH FIELD 1 3124 24366 7451 -"W 3125 24367 2200 CD0 /DUMP A SELECTED FIELD 3126 24370 7473 -"E 3127 24371 1334 OSB /EXIT TO SOME OPERATING SYSTEM 3128 24372 7456 -"R 3129 24373 1322 RFBOOT /BOOT TO OPERATING SYSTEM ON RF08/DF32 3130 24374 7465 -"K 3131 24375 1320 KEBOOT /ROOT TO RK8E 3132 24376 0000 0 /TABLE TERMINATOR 3133 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 76 3134 /FOLLOWING THIS COMMENT, YOU WILL FIND XDDT. ONLY IT MIGHT BE A 3135 /LITTLE HARD TO SEE, SINCE IT'S XLISTED. 3136 /XLIST 3137 4434 *4434 / VRS: Reconstructed from working binary. 3138 24434 1117 1117 / VRS: Need to disassemble this! 3139 24435 2400 2400 3140 24436 0000 0000 3141 24437 6000 6000 3142 24440 1720 1720 3143 24441 2200 2200 3144 24442 0000 0000 3145 24443 7000 7000 3146 24444 7000 7000 3147 24445 6202 6202 3148 24446 0000 0000 3149 24447 7001 7001 3150 24450 1350 1350 3151 24451 7001 7001 3152 24452 1351 1351 3153 24453 3346 3346 3154 24454 7630 7630 3155 24455 5264 5264 3156 24456 1746 1746 3157 24457 3754 3754 3158 24460 4755 4755 3159 24461 1754 1754 3160 24462 4756 4756 3161 24463 5757 5757 3162 24464 4760 4760 3163 24465 1754 1754 3164 24466 3746 3746 3165 24467 5757 5757 3166 24470 1347 1347 3167 24471 4761 4761 3168 24472 3762 3762 3169 24473 5757 5757 3170 24474 0000 0000 3171 24475 7000 7000 3172 24476 6041 6041 3173 24477 5276 5276 3174 24500 6046 6046 3175 24501 7200 7200 3176 24502 5674 5674 3177 24503 1246 1246 3178 24504 7640 7640 3179 24505 5313 5313 3180 24506 7630 7630 3181 24507 5321 5321 3182 24510 4755 4755 3183 24511 4763 4763 3184 24512 5757 5757 3185 24513 1764 1764 3186 24514 7640 7640 3187 24515 7001 7001 3188 24516 3765 3765 3189 24517 7420 7420 3190 24520 5757 5757 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 77 3191 24521 1352 1352 3192 24522 5253 5253 3193 24523 1244 1244 3194 24524 3766 3766 3195 24525 1767 1767 3196 24526 0353 0353 3197 24527 7640 7640 3198 24530 5335 5335 3199 24531 1770 1770 3200 24532 3766 3766 3201 24533 1244 1244 3202 24534 3770 3770 3203 24535 1771 1771 3204 24536 3772 3772 3205 24537 6224 6224 3206 24540 1245 1245 3207 24541 3773 3773 3208 24542 1774 1774 3209 24543 7510 7510 3210 24544 5775 5775 3211 24545 5776 5776 3212 24546 0000 0000 3213 24547 0070 0070 3214 24550 0144 0144 3215 24551 5554 5554 3216 24552 5551 5551 3217 24553 4400 4400 3218 24554 7143 7143 3219 24555 6360 6360 3220 24556 7333 7333 3221 24557 5222 5222 3222 24560 4645 4645 3223 24561 5116 5116 3224 24562 5553 5553 3225 24563 5711 5711 3226 24564 6553 6553 3227 24565 5552 5552 3228 24566 5532 5532 3229 24567 5350 5350 3230 24570 5544 5544 3231 24571 5227 5227 3232 24572 5563 5563 3233 24573 5407 5407 3234 24574 5557 5557 3235 24575 5503 5503 3236 24576 5464 5464 3237 3238 PAGE 3239 24600 0000 0000 3240 24601 2342 2342 3241 24602 1762 1762 3242 24603 7650 7650 3243 24604 5234 5234 3244 24605 1347 1347 3245 24606 3352 3352 3246 24607 1357 1357 3247 24610 4271 4271 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 78 3248 24611 5216 5216 3249 24612 1346 1346 3250 24613 3343 3343 3251 24614 2341 2341 3252 24615 5600 5600 3253 24616 1346 1346 3254 24617 7640 7640 3255 24620 5763 5763 3256 24621 7040 7040 3257 24622 1764 1764 3258 24623 3352 3352 3259 24624 1764 1764 3260 24625 7041 7041 3261 24626 1765 1765 3262 24627 7112 7112 3263 24630 7041 7041 3264 24631 4271 4271 3265 24632 5763 5763 3266 24633 3345 3345 3267 24634 1345 1345 3268 24635 7000 7000 3269 24636 1344 1344 3270 24637 3344 3344 3271 24640 5600 5600 3272 24641 7040 7040 3273 24642 0344 0344 3274 24643 1345 1345 3275 24644 5237 5237 3276 24645 0000 0000 3277 24646 4200 4200 3278 24647 7300 7300 3279 24650 3766 3766 3280 24651 1341 1341 3281 24652 7650 7650 3282 24653 5266 5266 3283 24654 2766 2766 3284 24655 1344 1344 3285 24656 1257 1257 3286 24657 7600 7600 3287 24660 1344 1344 3288 24661 0360 0360 3289 24662 1343 1343 3290 24663 7430 7430 3291 24664 1361 1361 3292 24665 7410 7410 3293 24666 1344 1344 3294 24667 3767 3767 3295 24670 5645 5645 3296 24671 0000 0000 3297 24672 3351 3351 3298 24673 2352 2352 3299 24674 7146 7146 3300 24675 3353 3353 3301 24676 7146 7146 3302 24677 3354 3354 3303 24700 1350 1350 3304 24701 3355 3355 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 79 3305 24702 1752 1752 3306 24703 2352 2352 3307 24704 7041 7041 3308 24705 1755 1755 3309 24706 2355 2355 3310 24707 7640 7640 3311 24710 5316 5316 3312 24711 2353 2353 3313 24712 5316 5316 3314 24713 1752 1752 3315 24714 2271 2271 3316 24715 5671 5671 3317 24716 2354 2354 3318 24717 5302 5302 3319 24720 2351 2351 3320 24721 5273 5273 3321 24722 5671 5671 3322 24723 2770 2770 3323 24724 0000 0000 3324 24725 5771 5771 3325 24726 0000 0000 3326 24727 7430 7430 3327 24730 5773 5773 3328 24731 1774 1774 3329 24732 3764 3764 3330 24733 5772 5772 3331 24734 1356 1356 3332 24735 1340 1340 3333 24736 3775 3775 3334 24737 5772 5772 3335 24740 7640 7640 3336 24741 0000 0000 3337 24742 0000 0000 3338 24743 0000 0000 3339 24744 0000 0000 3340 24745 0000 0000 3341 24746 0000 0000 3342 24747 5773 5773 3343 24750 6561 6561 3344 24751 0000 0000 3345 24752 0000 0000 3346 24753 0000 0000 3347 24754 0000 0000 3348 24755 0000 0000 3349 24756 7750 7750 3350 24757 7772 7772 3351 24760 0177 0177 3352 24761 0200 0200 3353 24762 6564 6564 3354 24763 5635 5635 3355 24764 6400 6400 3356 24765 6552 6552 3357 24766 7352 7352 3358 24767 7143 7143 3359 24770 7141 7141 3360 24771 7343 7343 3361 24772 5222 5222 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 80 3362 24773 7465 7465 3363 24774 6401 6401 3364 24775 6665 6665 3365 3366 PAGE 3367 25000 7020 7020 3368 25001 4743 4743 3369 25002 7100 7100 3370 25003 5744 5744 3371 25004 0000 0000 3372 25005 0000 0000 3373 25006 0000 0000 3374 25007 0000 0000 3375 25010 0000 0000 3376 25011 0000 0000 3377 25012 5613 5613 3378 25013 7777 7777 3379 25014 7420 7420 3380 25015 5747 5747 3381 25016 4750 4750 3382 25017 1751 1751 3383 25020 3752 3752 3384 25021 2753 2753 3385 25022 5754 5754 3386 25023 0000 0000 3387 25024 3755 3755 3388 25025 1756 1756 3389 25026 3757 3757 3390 25027 1756 1756 3391 25030 7041 7041 3392 25031 1760 1760 3393 25032 7112 7112 3394 25033 7041 7041 3395 25034 3761 3761 3396 25035 4762 4762 3397 25036 5240 5240 3398 25037 5623 5623 3399 25040 1755 1755 3400 25041 7006 7006 3401 25042 7700 7700 3402 25043 1335 1335 3403 25044 1336 1336 3404 25045 4763 4763 3405 25046 1341 1341 3406 25047 4764 4764 3407 25050 1755 1755 3408 25051 0342 0342 3409 25052 4765 4765 3410 25053 5623 5623 3411 25054 3755 3755 3412 25055 1766 1766 3413 25056 3757 3757 3414 25057 1766 1766 3415 25060 7041 7041 3416 25061 1756 1756 3417 25062 7112 7112 3418 25063 7041 7041 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 81 3419 25064 3761 3761 3420 25065 4762 4762 3421 25066 5270 5270 3422 25067 5767 5767 3423 25070 1755 1755 3424 25071 4765 4765 3425 25072 5767 5767 3426 25073 1770 1770 3427 25074 1340 1340 3428 25075 7650 7650 3429 25076 5771 5771 3430 25077 1772 1772 3431 25100 4316 4316 3432 25101 3745 3745 3433 25102 6224 6224 3434 25103 7041 7041 3435 25104 1745 1745 3436 25105 7650 7650 3437 25106 5311 5311 3438 25107 1337 1337 3439 25110 5313 5313 3440 25111 7040 7040 3441 25112 1773 1773 3442 25113 3774 3774 3443 25114 3775 3775 3444 25115 5776 5776 3445 25116 0000 0000 3446 25117 3334 3334 3447 25120 4750 4750 3448 25121 1751 1751 3449 25122 7104 7104 3450 25123 7104 7104 3451 25124 7104 7104 3452 25125 7161 7161 3453 25126 1334 1334 3454 25127 7430 7430 3455 25130 5747 5747 3456 25131 7041 7041 3457 25132 1334 1334 3458 25133 5716 5716 3459 25134 0000 0000 3460 25135 7774 7774 3461 25136 4440 4440 3462 25137 7577 7577 3463 25140 0007 0007 3464 25141 0240 0240 3465 25142 0777 0777 3466 25143 7105 7105 3467 25144 7010 7010 3468 25145 6367 6367 3469 25146 6317 6317 3470 25147 5635 5635 3471 25150 4645 4645 3472 25151 7143 7143 3473 25152 6553 6553 3474 25153 4446 4446 3475 25154 5605 5605 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 82 3476 25155 6773 6773 3477 25156 6402 6402 3478 25157 6775 6775 3479 25160 6552 6552 3480 25161 6776 6776 3481 25162 6600 6600 3482 25163 7220 7220 3483 25164 4474 4474 3484 25165 7333 7333 3485 25166 6401 6401 3486 25167 6736 6736 3487 25170 7537 7537 3488 25171 5723 5723 3489 25172 5400 5400 3490 25173 6400 6400 3491 25174 5722 5722 3492 25175 5721 5721 3493 25176 5222 5222 3494 3495 PAGE 3496 25200 6002 6002 3497 25201 7600 7600 3498 25202 6046 6046 3499 25203 4754 4754 3500 25204 1755 1755 3501 25205 7650 7650 3502 25206 5220 5220 3503 25207 3756 3756 3504 25210 3757 3757 3505 25211 3760 3760 3506 25212 3755 3755 3507 25213 4227 4227 3508 25214 5217 5217 3509 25215 1351 1351 3510 25216 3750 3750 3511 25217 4754 4754 3512 25220 1337 1337 3513 25221 3761 3761 3514 25222 4754 4754 3515 25223 5762 5762 3516 25224 1226 1226 3517 25225 5221 5221 3518 25226 5301 5301 3519 25227 0000 0000 3520 25230 1763 1763 3521 25231 3350 3350 3522 25232 1764 1764 3523 25233 7500 7500 3524 25234 4765 4765 3525 25235 7700 7700 3526 25236 2227 2227 3527 25237 5627 5627 3528 25240 4766 4766 3529 25241 1767 1767 3530 25242 4770 4770 3531 25243 1771 1771 3532 25244 3350 3350 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 83 3533 25245 1772 1772 3534 25246 7510 7510 3535 25247 5773 5773 3536 25250 4765 4765 3537 25251 1750 1750 3538 25252 5254 5254 3539 25253 1351 1351 3540 25254 4754 4754 3541 25255 3350 3350 3542 25256 1350 1350 3543 25257 0353 0353 3544 25260 3227 3227 3545 25261 1350 1350 3546 25262 7004 7004 3547 25263 7430 7430 3548 25264 7500 7500 3549 25265 5270 5270 3550 25266 7010 7010 3551 25267 5774 5774 3552 25270 7004 7004 3553 25271 7006 7006 3554 25272 7700 7700 3555 25273 5300 5300 3556 25274 1771 1771 3557 25275 0201 0201 3558 25276 1227 1227 3559 25277 3227 3227 3560 25300 7420 7420 3561 25301 5315 5315 3562 25302 1772 1772 3563 25303 4765 4765 3564 25304 1227 1227 3565 25305 0311 0311 3566 25306 1311 1311 3567 25307 7650 7650 3568 25310 2627 2627 3569 25311 7770 7770 3570 25312 1627 1627 3571 25313 3227 3227 3572 25314 4754 4754 3573 25315 1350 1350 3574 25316 0337 0337 3575 25317 1352 1352 3576 25320 3775 3775 3577 25321 7130 7130 3578 25322 1350 1350 3579 25323 0337 0337 3580 25324 7640 7640 3581 25325 5776 5776 3582 25326 1771 1771 3583 25327 3341 3341 3584 25330 1772 1772 3585 25331 4765 4765 3586 25332 1341 1341 3587 25333 7001 7001 3588 25334 3627 3627 3589 25335 4754 4754 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 84 3590 25336 2227 2227 3591 25337 7000 7000 3592 25340 5777 5777 3593 25341 0000 0000 3594 25342 4227 4227 3595 25343 5346 5346 3596 25344 1750 1750 3597 25345 3351 3351 3598 25346 4754 4754 3599 25347 5741 5741 3600 25350 0000 0000 3601 25351 0000 0000 3602 25352 0763 0763 3603 25353 0177 0177 3604 25354 6324 6324 3605 25355 5407 5407 3606 25356 5551 5551 3607 25357 5552 5552 3608 25360 5554 5554 3609 25361 4475 4475 3610 25362 5600 5600 3611 25363 5560 5560 3612 25364 5557 5557 3613 25365 6317 6317 3614 25366 4645 4645 3615 25367 7143 7143 3616 25370 5672 5672 3617 25371 5562 5562 3618 25372 5561 5561 3619 25373 5635 5635 3620 25374 7324 7324 3621 25375 5544 5544 3622 25376 4523 4523 3623 25377 7323 7323 3624 25400 0000 0000 3625 25401 2355 2355 3626 25402 5250 5250 3627 25403 5253 5253 3628 25404 6324 6324 3629 25405 5702 5702 3630 25406 6317 6317 3631 25407 0000 0000 3632 25410 3351 3351 3633 25411 7204 7204 3634 25412 3352 3352 3635 25413 6214 6214 3636 25414 3353 3353 3637 25415 1360 1360 3638 25416 3362 3362 3639 25417 1357 1357 3640 25420 3361 3361 3641 25421 3355 3355 3642 25422 7001 7001 3643 25423 3354 3354 3644 25424 2356 2356 3645 25425 5603 5603 3646 25426 6201 6201 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 85 3647 25427 1773 1773 3648 25430 3342 3342 3649 25431 1774 1774 3650 25432 3343 3343 3651 25433 1372 1372 3652 25434 3344 3344 3653 25435 1364 1364 3654 25436 3207 3207 3655 25437 1365 1365 3656 25440 3774 3774 3657 25441 7201 7201 3658 25442 2330 2330 3659 25443 5250 5250 3660 25444 2344 2344 3661 25445 5250 5250 3662 25446 7200 7200 3663 25447 6046 6046 3664 25450 6041 6041 3665 25451 5242 5242 3666 25452 3354 3354 3667 25453 1342 1342 3668 25454 3773 3773 3669 25455 1343 1343 3670 25456 3774 3774 3671 25457 4604 4604 3672 25460 1361 1361 3673 25461 7112 7112 3674 25462 7010 7010 3675 25463 5605 5605 3676 25464 4606 4606 3677 25465 1365 1365 3678 25466 3760 3760 3679 25467 1200 1200 3680 25470 3330 3330 3681 25471 1330 1330 3682 25472 4606 4606 3683 25473 1207 1207 3684 25474 3766 3766 3685 25475 1367 1367 3686 25476 3770 3770 3687 25477 1330 1330 3688 25500 1314 1314 3689 25501 7500 7500 3690 25502 5270 5270 3691 25503 7201 7201 3692 25504 1226 1226 3693 25505 1361 1361 3694 25506 3342 3342 3695 25507 1361 1361 3696 25510 4606 4606 3697 25511 7130 7130 3698 25512 3361 3361 3699 25513 2362 2362 3700 25514 7770 7770 3701 25515 1354 1354 3702 25516 7650 7650 3703 25517 1371 1371 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 86 3704 25520 3330 3330 3705 25521 1355 1355 3706 25522 7640 7640 3707 25523 0000 0000 3708 25524 1347 1347 3709 25525 3343 3343 3710 25526 1352 1352 3711 25527 7110 7110 3712 25530 0000 0000 3713 25531 1351 1351 3714 25532 0000 0000 3715 25533 5336 5336 3716 25534 2362 2362 3717 25535 7000 7000 3718 25536 3351 3351 3719 25537 1353 1353 3720 25540 4606 4606 3721 25541 1351 1351 3722 25542 0000 0000 3723 25543 0000 0000 3724 25544 0000 0000 3725 25545 5762 5762 3726 25546 2362 2362 3727 25547 0000 0000 3728 25550 5762 5762 3729 25551 0000 0000 3730 25552 0000 0000 3731 25553 0000 0000 3732 25554 0000 0000 3733 25555 0000 0000 3734 25556 0000 0000 3735 25557 4000 4000 3736 25560 0000 0000 3737 25561 4000 4000 3738 25562 0000 0000 3739 25563 0000 0000 3740 25564 5201 5201 3741 25565 5006 5006 3742 25566 0006 0006 3743 25567 5407 5407 3744 25570 0007 0007 3745 25571 6042 6042 3746 25572 0000 0000 3747 25573 0000 0000 3748 25574 0001 0001 3749 3750 PAGE 3751 25600 7240 7240 3752 25601 3734 3734 3753 25602 3735 3735 3754 25603 4736 4736 3755 25604 3737 3737 3756 25605 1326 1326 3757 25606 4224 4224 3758 25607 1325 1325 3759 25610 3740 3740 3760 25611 7240 7240 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 87 3761 25612 1327 1327 3762 25613 3741 3741 3763 25614 1327 1327 3764 25615 4224 4224 3765 25616 3742 3742 3766 25617 1330 1330 3767 25620 3743 3743 3768 25621 3744 3744 3769 25622 3745 3745 3770 25623 5746 5746 3771 25624 0000 0000 3772 25625 3271 3271 3773 25626 1331 1331 3774 25627 3242 3242 3775 25630 3671 3671 3776 25631 2271 2271 3777 25632 2242 2242 3778 25633 5230 5230 3779 25634 5624 5624 3780 25635 7200 7200 3781 25636 1332 1332 3782 25637 4747 4747 3783 25640 4750 4750 3784 25641 5205 5205 3785 25642 0000 0000 3786 25643 1322 1322 3787 25644 7160 7160 3788 25645 1321 1321 3789 25646 7420 7420 3790 25647 5235 5235 3791 25650 3270 3270 3792 25651 1321 1321 3793 25652 5642 5642 3794 25653 4751 4751 3795 25654 1752 1752 3796 25655 3271 3271 3797 25656 4242 4242 3798 25657 3242 3242 3799 25660 1753 1753 3800 25661 4754 4754 3801 25662 1271 1271 3802 25663 3642 3642 3803 25664 2242 2242 3804 25665 2270 2270 3805 25666 5262 5262 3806 25667 5755 5755 3807 25670 0000 0000 3808 25671 0000 0000 3809 25672 0000 0000 3810 25673 7450 7450 3811 25674 7001 7001 3812 25675 7041 7041 3813 25676 3756 3756 3814 25677 6041 6041 3815 25700 5277 5277 3816 25701 5672 5672 3817 25702 4757 4757 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 88 3818 25703 1760 1760 3819 25704 4761 4761 3820 25705 1333 1333 3821 25706 4762 4762 3822 25707 4311 4311 3823 25710 5763 5763 3824 25711 0000 0000 3825 25712 1764 1764 3826 25713 4757 4757 3827 25714 1765 1765 3828 25715 4766 4766 3829 25716 1765 1765 3830 25717 3752 3752 3831 25720 5711 5711 3832 25721 0000 0000 3833 25722 4177 4177 3834 25723 1752 1752 3835 25724 5767 5767 3836 25725 7000 7000 3837 25726 4741 4741 3838 25727 6561 6561 3839 25730 7771 7771 3840 25731 7774 7774 3841 25732 0277 0277 3842 25733 5140 5140 3843 25734 6553 6553 3844 25735 4446 4446 3845 25736 6311 6311 3846 25737 7144 7144 3847 25740 4635 4635 3848 25741 7540 7540 3849 25742 4745 4745 3850 25743 7537 7537 3851 25744 7536 7536 3852 25745 4746 4746 3853 25746 6030 6030 3854 25747 4474 4474 3855 25750 6360 6360 3856 25751 4645 4645 3857 25752 7143 7143 3858 25753 6367 6367 3859 25754 6317 6317 3860 25755 5222 5222 3861 25756 5556 5556 3862 25757 6135 6135 3863 25760 5562 5562 3864 25761 6672 6672 3865 25762 7235 7235 3866 25763 5212 5212 3867 25764 5552 5552 3868 25765 5551 5551 3869 25766 7333 7333 3870 25767 7450 7450 3871 25770 0000 0000 3872 25771 0000 0000 3873 25772 0000 0000 3874 25773 0000 0000 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 89 3875 25774 0116 0116 3876 25775 0400 0400 3877 3878 PAGE 3879 26000 2401 2401 3880 26001 0400 0400 3881 26002 0000 0000 3882 26003 1000 1000 3883 26004 1123 1123 3884 26005 3200 3200 3885 26006 0000 0000 3886 26007 2000 2000 3887 26010 0403 0403 3888 26011 0100 0100 3889 26012 0000 0000 3890 26013 3000 3000 3891 26014 1215 1215 3892 26015 2300 2300 3893 26016 0000 0000 3894 26017 4000 4000 3895 26020 1215 1215 3896 26021 2000 2000 3897 26022 0000 0000 3898 26023 5000 5000 3899 26024 0000 0000 3900 26025 7200 7200 3901 26026 1360 1360 3902 26027 4764 4764 3903 26030 1765 1765 3904 26031 4766 4766 3905 26032 6031 6031 3906 26033 5232 5232 3907 26034 4767 4767 3908 26035 4770 4770 3909 26036 6036 6036 3910 26037 7450 7450 3911 26040 5230 5230 3912 26041 0357 0357 3913 26042 3224 3224 3914 26043 1224 1224 3915 26044 7450 7450 3916 26045 0000 0000 3917 26046 1354 1354 3918 26047 7450 7450 3919 26050 5304 5304 3920 26051 1356 1356 3921 26052 7450 7450 3922 26053 5306 5306 3923 26054 1353 1353 3924 26055 7450 7450 3925 26056 5772 5772 3926 26057 1350 1350 3927 26060 7500 7500 3928 26061 5310 5310 3929 26062 7200 7200 3930 26063 1224 1224 3931 26064 1345 1345 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 90 3932 26065 3343 3343 3933 26066 1743 1743 3934 26067 3344 3344 3935 26070 1344 1344 3936 26071 7650 7650 3937 26072 5225 5225 3938 26073 1343 1343 3939 26074 1346 1346 3940 26075 7500 7500 3941 26076 5326 5326 3942 26077 7200 7200 3943 26100 1224 1224 3944 26101 4764 4764 3945 26102 4773 4773 3946 26103 5744 5744 3947 26104 4773 4773 3948 26105 5774 5774 3949 26106 4773 4773 3950 26107 5775 5775 3951 26110 1352 1352 3952 26111 7500 7500 3953 26112 5317 5317 3954 26113 7200 7200 3955 26114 1347 1347 3956 26115 3344 3344 3957 26116 5300 5300 3958 26117 1355 1355 3959 26120 7510 7510 3960 26121 5262 5262 3961 26122 1351 1351 3962 26123 7450 7450 3963 26124 5776 5776 3964 26125 5225 5225 3965 26126 1352 1352 3966 26127 7700 7700 3967 26130 5300 5300 3968 26131 1224 1224 3969 26132 1363 1363 3970 26133 4777 4777 3971 26134 5302 5302 3972 26135 0000 0000 3973 26136 1361 1361 3974 26137 4764 4764 3975 26140 1362 1362 3976 26141 4764 4764 3977 26142 5735 5735 3978 26143 0000 0000 3979 26144 0000 0000 3980 26145 6177 6177 3981 26146 1600 1600 3982 26147 7400 7400 3983 26150 7735 7735 3984 26151 7741 7741 3985 26152 7746 7746 3986 26153 7757 7757 3987 26154 7766 7766 3988 26155 7773 7773 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 91 3989 26156 7775 7775 3990 26157 0177 0177 3991 26160 0207 0207 3992 26161 0260 0260 3993 26162 0273 0273 3994 26163 3600 3600 3995 26164 4474 4474 3996 26165 6367 6367 3997 26166 6317 6317 3998 26167 6324 6324 3999 26170 5341 5341 4000 26171 5007 5007 4001 26172 5224 5224 4002 26173 6300 6300 4003 26174 7065 7065 4004 26175 7062 7062 4005 26176 5635 5635 4006 26177 7235 7235 4007 26200 6453 6453 4008 26201 0000 0000 4009 26202 5004 5004 4010 26203 7200 7200 4011 26204 4734 4734 4012 26205 0000 0000 4013 26206 0000 0000 4014 26207 6543 6543 4015 26210 4451 4451 4016 26211 7740 7740 4017 26212 4727 4727 4018 26213 4450 4450 4019 26214 0077 0077 4020 26215 6454 6454 4021 26216 7346 7346 4022 26217 6452 6452 4023 26220 0000 0000 4024 26221 4735 4735 4025 26222 7347 7347 4026 26223 4452 4452 4027 26224 4447 4447 4028 26225 0000 0000 4029 26226 0000 0000 4030 26227 0000 0000 4031 26230 0000 0000 4032 26231 5653 5653 4033 26232 0000 0000 4034 26233 0000 0000 4035 26234 0000 0000 4036 26235 0000 0000 4037 26236 6530 6530 4038 26237 7457 7457 4039 26240 5240 5240 4040 26241 6337 6337 4041 26242 5073 5073 4042 26243 7006 7006 4043 26244 7003 7003 4044 26245 7005 7005 4045 26246 7306 7306 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 92 4046 26247 5000 5000 4047 26250 7446 7446 4048 26251 7433 7433 4049 26252 7456 7456 4050 26253 6445 6445 4051 26254 7455 7455 4052 26255 7400 7400 4053 26256 7012 7012 4054 26257 7401 7401 4055 26260 7401 7401 4056 26261 7401 7401 4057 26262 7401 7401 4058 26263 7401 7401 4059 26264 7401 7401 4060 26265 7401 7401 4061 26266 7401 7401 4062 26267 7400 7400 4063 26270 7400 7400 4064 26271 7014 7014 4065 26272 5014 5014 4066 26273 7120 7120 4067 26274 7002 7002 4068 26275 7121 7121 4069 26276 5640 5640 4070 26277 4503 4503 4071 26300 0000 0000 4072 26301 7340 7340 4073 26302 1771 1771 4074 26303 7200 7200 4075 26304 5700 5700 4076 26305 0212 0212 4077 26306 0215 0215 4078 26307 0240 0240 4079 26310 0340 0340 4080 26311 0000 0000 4081 26312 1306 1306 4082 26313 4772 4772 4083 26314 1305 1305 4084 26315 4772 4772 4085 26316 5711 5711 4086 26317 0000 0000 4087 26320 1365 1365 4088 26321 3322 3322 4089 26322 6201 6201 4090 26323 5717 5717 4091 26324 0000 0000 4092 26325 3366 3366 4093 26326 6224 6224 4094 26327 4317 4317 4095 26330 1366 1366 4096 26331 5724 5724 4097 26332 7010 7010 4098 26333 7013 7013 4099 26334 7011 7011 4100 26335 6547 6547 4101 26336 7004 7004 4102 26337 7030 7030 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 93 4103 26340 1367 1367 4104 26341 3773 3773 4105 26342 4774 4774 4106 26343 1775 1775 4107 26344 3776 3776 4108 26345 5777 5777 4109 26346 0000 0000 4110 26347 0214 0214 4111 26350 7450 7450 4112 26351 5746 5746 4113 26352 1211 1211 4114 26353 7500 7500 4115 26354 1370 1370 4116 26355 1310 1310 4117 26356 4772 4772 4118 26357 5746 5746 4119 26360 0000 0000 4120 26361 7200 7200 4121 26362 1307 1307 4122 26363 4772 4772 4123 26364 5760 5760 4124 26365 6201 6201 4125 26366 0000 0000 4126 26367 0000 0000 4127 26370 7700 7700 4128 26371 4742 4742 4129 26372 4474 4474 4130 26373 5557 5557 4131 26374 4645 4645 4132 26375 7143 7143 4133 26376 5560 5560 4134 26377 5222 5222 4135 26400 0000 0000 4136 26401 0000 0000 4137 26402 0000 0000 4138 26403 0000 0000 4139 26404 1360 1360 4140 26405 7041 7041 4141 26406 1200 1200 4142 26407 7500 7500 4143 26410 5603 5603 4144 26411 3357 3357 4145 26412 1200 1200 4146 26413 3354 3354 4147 26414 1354 1354 4148 26415 1366 1366 4149 26416 3355 3355 4150 26417 1754 1754 4151 26420 3755 3755 4152 26421 2354 2354 4153 26422 2357 2357 4154 26423 5214 5214 4155 26424 5603 5603 4156 26425 0000 0000 4157 26426 1360 1360 4158 26427 1366 1366 4159 26430 3356 3356 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 94 4160 26431 1361 1361 4161 26432 3756 3756 4162 26433 2356 2356 4163 26434 1362 1362 4164 26435 3756 3756 4165 26436 2356 2356 4166 26437 1363 1363 4167 26440 3756 3756 4168 26441 2356 2356 4169 26442 1353 1353 4170 26443 3756 3756 4171 26444 5625 5625 4172 26445 1767 1767 4173 26446 3353 3353 4174 26447 2770 2770 4175 26450 4256 4256 4176 26451 5771 5771 4177 26452 7001 7001 4178 26453 7001 7001 4179 26454 4256 4256 4180 26455 5772 5772 4181 26456 0000 0000 4182 26457 3365 3365 4183 26460 1770 1770 4184 26461 7640 7640 4185 26462 1364 1364 4186 26463 7650 7650 4187 26464 5773 5773 4188 26465 1365 1365 4189 26466 1310 1310 4190 26467 3270 3270 4191 26470 0000 0000 4192 26471 3360 3360 4193 26472 4203 4203 4194 26473 4225 4225 4195 26474 7040 7040 4196 26475 1365 1365 4197 26476 7450 7450 4198 26477 5305 5305 4199 26500 7710 7710 4200 26501 5310 5310 4201 26502 1202 1202 4202 26503 1366 1366 4203 26504 3202 3202 4204 26505 1201 1201 4205 26506 1366 1366 4206 26507 3201 3201 4207 26510 1200 1200 4208 26511 1366 1366 4209 26512 3200 3200 4210 26513 6224 6224 4211 26514 7041 7041 4212 26515 1774 1774 4213 26516 7640 7640 4214 26517 5656 5656 4215 26520 1775 1775 4216 26521 7160 7160 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 95 4217 26522 1200 1200 4218 26523 7420 7420 4219 26524 7200 7200 4220 26525 1775 1775 4221 26526 3775 3775 4222 26527 5656 5656 4223 26530 6031 6031 4224 26531 5330 5330 4225 26532 6034 6034 4226 26533 7650 7650 4227 26534 5332 5332 4228 26535 6032 6032 4229 26536 6031 6031 4230 26537 5336 5336 4231 26540 6032 6032 4232 26541 1346 1346 4233 26542 3776 3776 4234 26543 7040 7040 4235 26544 1200 1200 4236 26545 5777 5777 4237 26546 7000 7000 4238 26547 7260 7260 4239 26550 5751 5751 4240 26551 7066 7066 4241 26552 4444 4444 4242 26553 0000 0000 4243 26554 0000 0000 4244 26555 0000 0000 4245 26556 0000 0000 4246 26557 0000 0000 4247 26560 0000 0000 4248 26561 0000 0000 4249 26562 0000 0000 4250 26563 0000 0000 4251 26564 0000 0000 4252 26565 0000 0000 4253 26566 7774 7774 4254 26567 7142 7142 4255 26570 4446 4446 4256 26571 5640 5640 4257 26572 5222 5222 4258 26573 5635 5635 4259 26574 6367 6367 4260 26575 5722 5722 4261 26576 4475 4475 4262 26577 4457 4457 4263 26600 0000 0000 4264 26601 7240 7240 4265 26602 1375 1375 4266 26603 3375 3375 4267 26604 3374 3374 4268 26605 3670 3670 4269 26606 1376 1376 4270 26607 7700 7700 4271 26610 5242 5242 4272 26611 1375 1375 4273 26612 1337 1337 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 96 4274 26613 3375 3375 4275 26614 1775 1775 4276 26615 7141 7141 4277 26616 1373 1373 4278 26617 7620 7620 4279 26620 5232 5232 4280 26621 1374 1374 4281 26622 7141 7141 4282 26623 1775 1775 4283 26624 7620 7620 4284 26625 5232 5232 4285 26626 1775 1775 4286 26627 3374 3374 4287 26630 1375 1375 4288 26631 3377 3377 4289 26632 2376 2376 4290 26633 5211 5211 4291 26634 1374 1374 4292 26635 7450 7450 4293 26636 5600 5600 4294 26637 7041 7041 4295 26640 1373 1373 4296 26641 7640 7640 4297 26642 5600 5600 4298 26643 7146 7146 4299 26644 1377 1377 4300 26645 4671 4671 4301 26646 2200 2200 4302 26647 5600 5600 4303 26650 3373 3373 4304 26651 1745 1745 4305 26652 3375 3375 4306 26653 1745 1745 4307 26654 7041 7041 4308 26655 1746 1746 4309 26656 7112 7112 4310 26657 7041 7041 4311 26660 3376 3376 4312 26661 4200 4200 4313 26662 5264 5264 4314 26663 5672 5672 4315 26664 1374 1374 4316 26665 7640 7640 4317 26666 5274 5274 4318 26667 5303 5303 4319 26670 7352 7352 4320 26671 7220 7220 4321 26672 0000 0000 4322 26673 5250 5250 4323 26674 7346 7346 4324 26675 1377 1377 4325 26676 4671 4671 4326 26677 1341 1341 4327 26700 4747 4747 4328 26701 1374 1374 4329 26702 7041 7041 4330 26703 1373 1373 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 97 4331 26704 4750 4750 4332 26705 5672 5672 4333 26706 0343 0343 4334 26707 7006 7006 4335 26710 7006 7006 4336 26711 7006 7006 4337 26712 1344 1344 4338 26713 4671 4671 4339 26714 1751 1751 4340 26715 7006 7006 4341 26716 7006 7006 4342 26717 7630 7630 4343 26720 1340 1340 4344 26721 4752 4752 4345 26722 4753 4753 4346 26723 4754 4754 4347 26724 5331 5331 4348 26725 3373 3373 4349 26726 1342 1342 4350 26727 4752 4752 4351 26730 1373 1373 4352 26731 4272 4272 4353 26732 2670 2670 4354 26733 5757 5757 4355 26734 0000 0000 4356 26735 5755 5755 4357 26736 5734 5734 4358 26737 0004 0004 4359 26740 0052 0052 4360 26741 0253 0253 4361 26742 3240 3240 4362 26743 7000 7000 4363 26744 5774 5774 4364 26745 6400 6400 4365 26746 6401 6401 4366 26747 4474 4474 4367 26750 7333 7333 4368 26751 7143 7143 4369 26752 7235 7235 4370 26753 6360 6360 4371 26754 7243 7243 4372 26755 5054 5054 4373 26756 5023 5023 4374 26757 0000 0000 4375 26760 7200 7200 4376 26761 1751 1751 4377 26762 3373 3373 4378 26763 7132 7132 4379 26764 1373 1373 4380 26765 7200 7200 4381 26766 1751 1751 4382 26767 7420 7420 4383 26770 5306 5306 4384 26771 4756 4756 4385 26772 5757 5757 4386 4387 PAGE /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 98 4388 27000 5601 5601 4389 27001 5200 5200 4390 27002 1345 1345 4391 27003 1346 1346 4392 27004 1347 1347 4393 27005 1350 1350 4394 27006 1352 1352 4395 27007 5755 5755 4396 27010 1345 1345 4397 27011 1346 1346 4398 27012 1347 1347 4399 27013 1350 1350 4400 27014 1352 1352 4401 27015 3337 3337 4402 27016 1254 1254 4403 27017 3257 3257 4404 27020 1756 1756 4405 27021 7420 7420 4406 27022 5226 5226 4407 27023 7200 7200 4408 27024 4757 4757 4409 27025 1760 1760 4410 27026 7100 7100 4411 27027 7640 7640 4412 27030 7120 7120 4413 27031 1343 1343 4414 27032 7430 7430 4415 27033 4761 4761 4416 27034 7000 7000 4417 27035 3341 3341 4418 27036 1344 1344 4419 27037 7640 7640 4420 27040 5247 5247 4421 27041 1341 1341 4422 27042 3342 3342 4423 27043 1337 1337 4424 27044 3340 3340 4425 27045 1340 1340 4426 27046 3337 3337 4427 27047 1762 1762 4428 27050 4763 4763 4429 27051 1741 1741 4430 27052 4764 4764 4431 27053 3343 3343 4432 27054 4765 4765 4433 27055 1343 1343 4434 27056 4737 4737 4435 27057 4765 4765 4436 27060 2344 2344 4437 27061 5766 5766 4438 27062 7020 7020 4439 27063 4305 4305 4440 27064 5767 5767 4441 27065 7221 7221 4442 27066 3765 3765 4443 27067 1254 1254 4444 27070 3257 3257 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 99 4445 27071 4305 4305 4446 27072 1765 1765 4447 27073 1342 1342 4448 27074 3342 3342 4449 27075 4770 4770 4450 27076 1342 1342 4451 27077 4752 4752 4452 27100 1340 1340 4453 27101 4771 4771 4454 27102 1342 1342 4455 27103 3341 3341 4456 27104 5245 5245 4457 27105 0000 0000 4458 27106 1344 1344 4459 27107 7670 7670 4460 27110 5705 5705 4461 27111 4757 4757 4462 27112 1762 1762 4463 27113 4763 4763 4464 27114 1343 1343 4465 27115 3741 3741 4466 27116 4764 4764 4467 27117 5705 5705 4468 27120 1354 1354 4469 27121 1227 1227 4470 27122 3772 3772 4471 27123 7420 7420 4472 27124 5773 5773 4473 27125 4757 4757 4474 27126 1343 1343 4475 27127 0774 0774 4476 27130 7041 7041 4477 27131 3344 3344 4478 27132 1351 1351 4479 27133 3257 3257 4480 27134 4775 4775 4481 27135 3341 3341 4482 27136 5776 5776 4483 27137 0000 0000 4484 27140 6757 6757 4485 27141 0000 0000 4486 27142 0000 0000 4487 27143 0000 0000 4488 27144 0000 0000 4489 27145 0076 0076 4490 27146 0256 0256 4491 27147 0023 0023 4492 27150 0042 0042 4493 27151 5777 5777 4494 27152 6672 6672 4495 27153 7333 7333 4496 27154 0010 0010 4497 27155 7507 7507 4498 27156 7352 7352 4499 27157 4645 4645 4500 27160 4741 4741 4501 27161 7243 7243 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 100 4502 27162 6367 6367 4503 27163 6317 6317 4504 27164 6324 6324 4505 27165 6360 6360 4506 27166 5605 5605 4507 27167 5222 5222 4508 27170 6311 6311 4509 27171 6346 6346 4510 27172 7526 7526 4511 27173 5635 5635 4512 27174 6553 6553 4513 27175 5642 5642 4514 27176 7516 7516 4515 27177 4723 4723 4516 27200 7630 7630 4517 27201 5631 5631 4518 27202 1632 1632 4519 27203 7012 7012 4520 27204 7010 7010 4521 27205 5633 5633 4522 27206 0000 0000 4523 27207 3353 3353 4524 27210 1753 1753 4525 27211 7012 7012 4526 27212 7012 7012 4527 27213 7012 7012 4528 27214 4634 4634 4529 27215 1753 1753 4530 27216 4634 4634 4531 27217 5606 5606 4532 27220 0000 0000 4533 27221 4206 4206 4534 27222 2353 2353 4535 27223 1353 1353 4536 27224 4206 4206 4537 27225 2353 2353 4538 27226 1353 1353 4539 27227 4206 4206 4540 27230 5620 5620 4541 27231 4470 4470 4542 27232 5553 5553 4543 27233 4457 4457 4544 27234 6346 6346 4545 27235 0000 0000 4546 27236 3220 3220 4547 27237 3352 3352 4548 27240 1354 1354 4549 27241 4206 4206 4550 27242 5635 5635 4551 27243 0000 0000 4552 27244 7301 7301 4553 27245 1361 1361 4554 27246 0726 0726 4555 27247 7440 7440 4556 27250 7320 7320 4557 27251 1726 1726 4558 27252 0361 0361 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 101 4559 27253 7430 7430 4560 27254 5257 5257 4561 27255 2243 2243 4562 27256 5643 5643 4563 27257 3353 3353 4564 27260 1727 1727 4565 27261 0363 0363 4566 27262 1353 1353 4567 27263 5643 5643 4568 27264 0000 0000 4569 27265 1353 1353 4570 27266 7006 7006 4571 27267 7004 7004 4572 27270 3353 3353 4573 27271 1353 1353 4574 27272 0360 0360 4575 27273 2206 2206 4576 27274 7440 7440 4577 27275 5277 5277 4578 27276 5664 5664 4579 27277 1362 1362 4580 27300 4730 4730 4581 27301 1206 1206 4582 27302 7650 7650 4583 27303 5733 5733 4584 27304 4264 4264 4585 27305 5277 5277 4586 27306 7420 7420 4587 27307 5731 5731 4588 27310 4732 4732 4589 27311 1726 1726 4590 27312 3764 3764 4591 27313 1765 1765 4592 27314 3766 3766 4593 27315 1765 1765 4594 27316 3632 3632 4595 27317 3767 3767 4596 27320 7130 7130 4597 27321 3770 3770 4598 27322 4771 4771 4599 27323 1356 1356 4600 27324 3772 3772 4601 27325 5773 5773 4602 27326 7143 7143 4603 27327 7141 7141 4604 27330 4474 4474 4605 27331 5635 5635 4606 27332 4645 4645 4607 27333 0000 0000 4608 27334 7104 7104 4609 27335 3353 3353 4610 27336 3352 3352 4611 27337 1357 1357 4612 27340 3206 3206 4613 27341 4264 4264 4614 27342 5341 5341 4615 27343 2774 2774 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 102 4616 27344 5775 5775 4617 27345 5776 5776 4618 27346 7001 7001 4619 27347 1355 1355 4620 27350 3777 3777 4621 27351 5776 5776 4622 27352 0000 0000 4623 27353 0000 0000 4624 27354 7220 7220 4625 27355 4752 4752 4626 27356 5763 5763 4627 27357 7774 7774 4628 27360 0007 0007 4629 27361 0177 0177 4630 27362 0260 0260 4631 27363 7600 7600 4632 27364 5227 5227 4633 27365 6367 6367 4634 27366 5561 5561 4635 27367 5555 5555 4636 27370 5350 5350 4637 27371 5672 5672 4638 27372 5544 5544 4639 27373 4523 4523 4640 27374 5670 5670 4641 27375 7516 7516 4642 27376 5222 5222 4643 27377 7077 7077 4644 27400 2745 2745 4645 27401 2337 2337 4646 27402 5204 5204 4647 27403 5746 5746 4648 27404 7130 7130 4649 27405 1336 1336 4650 27406 3336 3336 4651 27407 1747 1747 4652 27410 0343 0343 4653 27411 7430 7430 4654 27412 5217 5217 4655 27413 7106 7106 4656 27414 7006 7006 4657 27415 7006 7006 4658 27416 2340 2340 4659 27417 1740 1740 4660 27420 3740 3740 4661 27421 1747 1747 4662 27422 0342 0342 4663 27423 3335 3335 4664 27424 1750 1750 4665 27425 7104 7104 4666 27426 7104 7104 4667 27427 7104 7104 4668 27430 1335 1335 4669 27431 3750 3750 4670 27432 5253 5253 4671 27433 1337 1337 4672 27434 1342 1342 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 103 4673 27435 7640 7640 4674 27436 5241 5241 4675 27437 1751 1751 4676 27440 5250 5250 4677 27441 1344 1344 4678 27442 3752 3752 4679 27443 2745 2745 4680 27444 4753 4753 4681 27445 5251 5251 4682 27446 3745 3745 4683 27447 1754 1754 4684 27450 3750 3750 4685 27451 7040 7040 4686 27452 3337 3337 4687 27453 2755 2755 4688 27454 5756 5756 4689 27455 1332 1332 4690 27456 1333 1333 4691 27457 1334 1334 4692 27460 3337 3337 4693 27461 7430 7430 4694 27462 4753 4753 4695 27463 1337 1337 4696 27464 5757 5757 4697 27465 4753 4753 4698 27466 1760 1760 4699 27467 7161 7161 4700 27470 1761 1761 4701 27471 7200 7200 4702 27472 1745 1745 4703 27473 7670 7670 4704 27474 5746 5746 4705 27475 1760 1760 4706 27476 1341 1341 4707 27477 3340 3340 4708 27500 1341 1341 4709 27501 3762 3762 4710 27502 2340 2340 4711 27503 3740 3740 4712 27504 2762 2762 4713 27505 5302 5302 4714 27506 5763 5763 4715 27507 3340 3340 4716 27510 7430 7430 4717 27511 4764 4764 4718 27512 4762 4762 4719 27513 1765 1765 4720 27514 4740 4740 4721 27515 5766 5766 4722 27516 1767 1767 4723 27517 3335 3335 4724 27520 1770 1770 4725 27521 4771 4771 4726 27522 1735 1735 4727 27523 4772 4772 4728 27524 0773 0773 4729 27525 1774 1774 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 104 4730 27526 7402 7402 4731 27527 5775 5775 4732 27530 1767 1767 4733 27531 5776 5776 4734 27532 0041 0041 4735 27533 1537 1537 4736 27534 5241 5241 4737 27535 0000 0000 4738 27536 0000 0000 4739 27537 0000 0000 4740 27540 0000 0000 4741 27541 7774 7774 4742 27542 0007 0007 4743 27543 0077 0077 4744 27544 0400 0400 4745 27545 6564 6564 4746 27546 5635 5635 4747 27547 6024 6024 4748 27550 4745 4745 4749 27551 7142 7142 4750 27552 4746 4746 4751 27553 4600 4600 4752 27554 6561 6561 4753 27555 4742 4742 4754 27556 6030 6030 4755 27557 5610 5610 4756 27560 4752 4752 4757 27561 6401 6401 4758 27562 6360 6360 4759 27563 5222 5222 4760 27564 4645 4645 4761 27565 7143 7143 4762 27566 5640 5640 4763 27567 7141 7141 4764 27570 6367 6367 4765 27571 6317 6317 4766 27572 6324 6324 4767 27573 6553 6553 4768 27574 7144 7144 4769 27575 4723 4723 4770 27576 7074 7074 4771 /XLIST 4772 / VRS: End of XDDT reconstruction 4773 /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 105 4774 4775 5400 *5400 4776 25400 0070 70 /PATCH FIELD SELECT FOR XDDT 4777 4778 6400 *6400 4779 26400 4434 4434 4780 26401 4434 4434 4781 26402 4434 4434 4782 4783 4724 *4724 4784 24724 6031 6031 /PATCH TO FIX XDDT BUGS ON 8E 4785 4726 *4726 4786 24726 5376 5376 4787 4776 *4776 4788 24776 6032 6032 4789 24777 5772 5772 4790 5004 *5004 /^C CODE 4791 25004 6041 TSF 4792 25005 5204 JMP .-1 /WAIT FOR FLAG FROM ^C 4793 25006 7410 XOP, SKP /NOP IF XDDT IS EXEC DDT 4794 25007 6203 CIF CDF 0 4795 25010 5611 JMP I .+1 4796 25011 4200 4200 4797 5523 *5523 4798 25523 1222 1222 4799 5547 *5547 4800 25547 7000 7000 4801 5572 *5572 4802 25572 7760 7760 /GIVE THE TTY FLAG MORE TIME 4803 6045 *6045 4804 26045 5225 5225 /DON'T GO TO BINARY LOADER /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 106 4805 4806 /BINARY LOADER SUBROUTINE 4807 /CALLING SEQUENCE: CDF TO FIELD TO LOAD TAPE INTO 4808 / JMS BINTAP 4809 / JMP ? /RETURN WITH FIELD SETTING IN AC6-8 4810 / /JMP BINT3 WHEN DESIRED ACTION HAS BEEN TAKEN 4811 / ? /RETURN WITH CHECKSUM IN THE AC 4812 4813 7600 *7600 4814 4815 27600 0000 BINTAP, 0 4816 27601 6032 KCC /BRING UP FLAG ON LS READER, AC=0 4817 27602 6014 RFC /BRING UP FLAG ON HS READER 4818 27603 1243 TAD M200 4819 27604 3304 DCA TEMP /INITIALIZE DELAY TIME 4820 BLORI, 4821 27605 6031 BINF, KSF /LS READER FLAG YET? 4822 27606 5211 JMP .+3 /NO 4823 27607 1205 TAD BLORI /YES --- 4824 27610 5214 JMP .+4 4825 27611 6011 RSF /HS READER FLAG YET? 4826 27612 5274 JMP BINIL /NO 4827 27613 1367 TAD BHIRI /YES 4828 27614 3336 DCA BINRD+1 /SAVE HI/LO SWITCH 4829 27615 4306 JMS BFR /READ TAPE-LEADER? 4830 27616 5220 JMP .+2 /YES - GO FIND END OF LEADER 4831 27617 5215 JMP .-2 /NO - FIND LEADER BEFORE ANYTHING 4832 27620 4306 JMS BFR /READ TAPE - LEADER? 4833 27621 5220 JMP .-1 /YES - KEEP LOOKING 4834 27622 3371 DCA ORIGIN /INITIALIZE ORIGIN FOR SAVE TAPES 4835 27623 3370 GO, DCA BINCHK /CLEAR OUT OR UPDATE CHECKSUM 4836 27624 1372 BINT2, TAD FRAME /WHAT WAS IT? 4837 27625 1373 TAD C7500 4838 27626 7500 SMA 4839 27627 5263 JMP BINFLD /MUST HAVE BEEN A FIELD SETTING 4840 27630 1374 TAD MASK /NOW GET THE FRAME BACK 4841 27631 3354 DCA WORD1 4842 27632 4335 JMS BINRD /GET NEXT FRAME 4843 27633 3355 DCA WORD2 4844 27634 4306 JMS BFR /NOW LOOK AHEAD FOR LEADER/TRAILER 4845 27635 5250 JMP BINC /TRAILER! GO DO CHECKSUM 4846 27636 4265 JMS ASSEMB /ASSEMBLE WORD 4847 27637 7430 SZL /ORIGIN? 4848 27640 5356 JMP BINORG /ORIGIN 4849 27641 3771 DCA I ORIGIN /STORE AWAY DATA 4850 27642 2371 ISZ ORIGIN /PREPARE FOR NEXT 4851 27643 7600 M200, CLA 400 4852 27644 1354 BINT4, TAD WORD1 /NOW UPDATE THE CHECKSUM 4853 27645 1355 TAD WORD2 4854 27646 1370 TAD BINCHK /ADD IN OLD CHECKSUM 4855 27647 5223 JMP GO /AND GO SAVE IT AND CONTINUE 4856 4857 27650 4265 BINC, JMS ASSEMB /ASSEMBLE THE CHECKSUM 4858 27651 7041 CIA 4859 27652 1370 TAD BINCHK /COMPUTE FINAL CHECKSUM 4860 27653 2200 BINC2, ISZ BINTAP /SKIP ON RETURN 4861 27654 7450 SNA /CHECKSUM OK? /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 107 4862 27655 5600 JMP I BINTAP /YES 4863 27656 3370 DCA BINCHK /SAVE IT 4864 27657 4503 MESSAG /TELL HIM/HER ABOUT BAD CHECKSUM 4865 27660 3537 TAPERR 4866 27661 1370 TAD BINCHK /GET CHECKSUM 4867 27662 5600 JMP I BINTAP /AND RETURN; CHECKSUM IN AC 4868 4869 27663 0375 BINFLD, AND K0070 /GET FIELD BITS 4870 27664 5600 JMP I BINTAP /AND GO PROCESS THEM 4871 4872 SWITCH, 4873 27665 0000 ASSEMB, 0 4874 27666 1354 TAD WORD1 4875 27667 7106 CLL RTL 4876 27670 7006 RTL 4877 27671 7006 RTL 4878 27672 1355 TAD WORD2 4879 27673 5665 JMP I ASSEMB 4880 27674 4360 BINIL, JMS DELAY 4881 27675 5205 JMP BINF 4882 4883 /HERE IS THE REAL BINARY LOADER! 4884 4885 27676 4200 JMS BINTAP /GO AND BINARY LOAD 4886 27677 5302 JMP .+3 /FOUND A FIELD SETTING 4887 27700 7402 M376, HLT /FINISHED - CHECKSUM IN AC 4888 27701 5276 BEGIN, JMP .-3 /CONTINUE - HE WANTS ANOTHER TAPE READ 4889 27702 1376 TAD K6201 /MAKE A CDF 4890 27703 3304 DCA .+1 /SAVE IT 4891 27704 0000 TEMP, .-. 4892 27705 5332 JMP BINT3 /AND CONTINUE 4893 4894 /MORE BINARY LOAD JUNK 4895 4896 /BFR - READ TAPE, IGNORING FRAMES BRACKETED BY RUBOUTS 4897 /SKIP ON RETURN IF LEADER NOT FOUND 4898 4899 27706 0000 BFR, 0 4900 27707 3265 DCA SWITCH /SET THE SWITCH (OR RESET IT) 4901 27710 1243 TAD M200 4902 27711 3304 DCA TEMP 4903 27712 4335 JMS BINRD /GET A CHARACTER 4904 27713 1300 TAD M376 /TEST FOR 377; RUBOUT 4905 27714 7750 SPA SNA CLA 4906 27715 5321 JMP .+4 /NOT RUBOUT 4907 27716 2265 ISZ SWITCH /YES; COMPLEMENT SWITCH 4908 27717 7040 CMA 4909 27720 5307 JMP BFR+1 4910 27721 1265 TAD SWITCH 4911 27722 7640 SZA CLA /IS THE SWITCH SET? 4912 27723 5310 JMP BFR+2 /YES; IGNORE THE DATA 4913 27724 1372 TAD FRAME /WHAT WAS THE CHARACTER AGAIN? 4914 27725 0374 AND MASK 4915 27726 1243 TAD M200 4916 27727 7640 SZA CLA /WAS IT LEADER? 4917 27730 2306 ISZ BFR /NO, SKIP ON RETURN 4918 27731 5706 JMP I BFR /AND RETURN /EDUSYSTEM 50 MONITOR FOR MELROSE HIGH SCHOOL #495AB Page 108 4919 4920 27732 4306 BINT3, JMS BFR /GET NEXT FRAME 4921 27733 5250 JMP BINC /HUH? LEADER/TRAILER FOLLOWING FIELD SETTING OR ORIGIN!! 4922 27734 5224 JMP BINT2 /AND PROCESS IT 4923 4924 27735 0000 BINRD, 0 4925 27736 7402 HLT /KSF OR ELSE JMP HIR 4926 27737 5352 JMP BINDL 4927 27740 6036 KRB 4928 27741 3372 DCA FRAME 4929 27742 1372 TAD FRAME 4930 27743 5735 JMP I BINRD 4931 27744 6011 BHIR, RSF 4932 27745 5352 JMP BINDL 4933 27746 6016 RRB RFC 4934 27747 5341 JMP .-6 4935 4936 7750 *7750 /WC & CA; INIT WILL READ INTO FIELD 0 OK 4937 27750 7751 .+1;. 27751 7751 4938 27752 4360 BINDL, JMS DELAY 4939 27753 5336 JMP BINRD+1 4940 4941 27754 0000 WORD1, .-. /DECTAPE WC & CA 4942 27755 0000 WORD2, .-. 4943 4944 /MORE BINARY LOAD JUNK 4945 4946 27756 3371 BINORG, DCA ORIGIN /SAVE ORIGIN 4947 27757 5244 JMP BINT4 4948 4949 27760 0000 DELAY, 0 4950 27761 2372 ISZ FRAME 4951 27762 5760 JMP I DELAY 4952 27763 2304 ISZ TEMP 4953 27764 5760 JMP I DELAY 4954 27765 7240 STA /TIME OUT - GIVE HIM/HER ERROR MESSAGE 4955 27766 5253 JMP BINC2 4956 4957 27767 5344 BHIRI, JMP BHIR 4958 27770 0000 BINCHK, 0 /CHECKSUM ACCUMULATION 4959 27771 0000 ORIGIN, 0 /CURRNET ADDRESS 4960 27772 0000 FRAME, 0 4961 27773 7500 C7500, 7500 4962 27774 0300 MASK, 0300 4963 27775 0070 K0070, 0070 4964 27776 6201 K6201, 6201 4965 4966 7777 *7777 4967 27777 5301 JMP BEGIN /BINARY LOADER?!! No detected errors