M0020 JOB 1401 * 1311 MONITOR DOMSY M0030 CTL 311 0PPP11 00201 DOMSY M0040SIZE EQU 12000 DOMSY M0050* READ & ERROR ROUTINE BECOME PART OF MONITOR CONTROL DOMSY M0060* DOMSY M0070 ORG SIZE-28 DOMSY M0080PRGNME DCW #5 DOMSY M0090LDIND DCW #1 DOMSY M0100IXSAVE DCW #3 DOMSY M0110CTLSV DCW #9 DOMSY M0120SAVE DCW #9 DOMSY M0130ERRCTR DCW @&@ DOMSY M0140 ORG SIZE-405 DOMSY M0150ERROR BIN READ,\ BUSY DOMSY M0160 BIN NOTREA,N NOT READY DOMSY M0170 BCE ERFATL,ERRCTR,C ERROR COUNT DOMSY M0180 A *-6,ERRCTR DOMSY M0190SEEK SD SEEKAD DOMSY M0200READ MLC CTLSV,HLDCTL DOMSY M0210 RDW SEEKAD DOMSY M0220 BIN ERROR,Y ANY ERROR DOMSY M0230RETURN B 0 RETURN DOMSY M0240ERFATL BIN ERDATC,V DATA CHECK DOMSY M0250 H DOMSY M0260 DC @2@ WLR & NO ADDRESS COMPARE DOMSY M0270 B COMMON DOMSY M0280ERDATC H DOMSY M0290 DC @3@ DATA CHECK DOMSY M0300 B COMMON DOMSY M0310NOTREA H DOMSY M0320 DC @4@ NOT READY DOMSY M0330 B SEEK DOMSY M0340 CS HLDCTL&90 DOMSY M0350COMMON S ERRCTR DOMSY M0360 B READ DOMSY M0370EXEC B 0 DOMSY M0380SEEKAD DCW @0@ DOMSY M0390HLDCTL DC #9 DOMSY M0400* DOMSY M0410* HOUSEKEEPING IN LOADER DOMSY M0420BEGIN SW HLDCTL&271 DOMSY M0430 MLC GM2,HLDCTL&271 DOMSY M0440 SBR RETURN&3,HLDCTL&1 DOMSY M0450 MLCWAERROR-1,HLDCTL&299 DOMSY M0460 MLCWA DOMSY M0470 MLCWA DOMSY M0480 MLCWA DOMSY M0490 MLCWA DOMSY M0500 MLCWA DOMSY M0510 CW ERROR&242 DOMSY M0520 MLC CTLOLY,CTLSV DOMSY M0530 MLC CTLSV,HLDCTL DOMSY M0540 B SEEK DOMSY M0550CTLOLY DCW #9 DOMSY M0560GM2 DC @"@ DOMSY M0570 LTORG* DOMSY M0580* MONITOR CONTROL DOMSY M0590* DOMSY M0600* CALL ROUTINE PAUSE ROUTINE , EXECUTE ROUTINE , PATCH CALL DOMSY M0610* DOMSY M0620 ORG HLDCTL&1 DOMSY M0630MONCTL CS 080 DOMSY M0640 R DOMSY M0650 SW 001 DOMSY M0660 MLC 020,PRGNME DOMSY M0670 C @CAL@,003 DOMSY M0680 BE CALL DOMSY M0690 C @PAT@,003 DOMSY M0700 BE PATCH DOMSY M0710 C @EXE@,003 DOMSY M0720 BE EXEC DOMSY M0730 C @PAU@,003 DOMSY M0740 BE PAUSE DOMSY M0750 H DOMSY M0760 DC @5@ CONTROL CARD ERROR DOMSY M0770 B MONCTL DOMSY M0780PAUSE H DOMSY M0790 DC @6@ PAUSE HALT DOMSY M0800 B MONCTL DOMSY M0810 DCW #2 DOMSY M0820 LTORG* DOMSY M0830* CALL ROUTINE DOMSY M0840 ORG HLDCTL&91 DOMSY M0850GM DC @"@ GROUP MARK DOMSY M0860CALL MLC 099,IXSAVE DOMSY M0870 S COUNT DOMSY M0880 SW GM DOMSY M0890 SBR RETURN&3,COMP1 DOMSY M0900 MLC INDCTL,CTLSV DOMSY M0910 B COMMON DOMSY M0920COMP1 SBR X3,0 DOMSY M0930 SW X3-2 DOMSY M0940COMP C PRGNME,HLDCTL&5&X3 DOMSY M0950 BE HIT DOMSY M0960 A BUMP,X3 DOMSY M0970 A *-6,COUNT DOMSY M0980 BCE NXTSEC,COUNT,H DOMSY M0990 B COMP DOMSY M1000NXTSEC BCE NOHIT,GM-1,9 DOMSY M1010 A BUMP-1,CTLSV-3 DOMSY M1020 B COMMON DOMSY M1030NOHIT H DOMSY M1040 DC @7@ NOT IN LIBRARY DOMSY M1050 B CALL DOMSY M1060INDCTL DCW #9 DOMSY M1070BUMP DCW @11@ DOMSY M1080COUNT DCW @&@ DOMSY M1090HIT MLC HLDCTL&11&X3,SAVE DOMSY M1100EXRET MLC PH2,CTLSV DOMSY M1110 CW GM DOMSY M1120GO SBR RETURN&3,HLDCTL&1 DOMSY M1130 B COMMON DOMSY M1140PATCH MLC PTCH,CTLSV DOMSY M1150 B GO DOMSY M1160PH2 DCW #9 DOMSY M1170PTCH DCW #9 DOMSY M1180 LTORG* DOMSY M1190* DOMSY M1200* CLEAR STORAGE & LOAD ROUTINES DOMSY M1210 ORG HLDCTL&1 DOMSY M1220PHTWO BCE LOAD,LDIND,L SKIP CLEAR STORAGE DOMSY M1230CLEAR CS ERROR-1 DOMSY M1240 SBR CLEAR&3 DOMSY M1250 C CLEAR&3,@199@ DOMSY M1260 BU CLEAR DOMSY M1270 CS 199 DOMSY M1280 CS DOMSY M1290LOAD MLC SAVE,CTLSV-3 DOMSY M1300 MLC @001@,CTLSV DOMSY M1310 SW X3-2 DOMSY M1320 SBR RETURN&3,LOADEX DOMSY M1330 SW GM1 DOMSY M1340 MLC OVLAY,SAVE DOMSY M1350 B COMMON DOMSY M1360OVLAY DCW #9 DOMSY M1370 DCW #2 DOMSY M1380 LTORG* DOMSY M1390 ORG HLDCTL&91 DOMSY M1400GM1 DC @"@ DOMSY M1410LOADEX S X3&1 DOMSY M1420 BCE CONV,HLDCTL&1&X3,> SEARCH FOR GM WM DOMSY M1430INCR A @1@,X3 DOMSY M1440 BCE DONE,X3-1,9 DOMSY M1450 B LOADEX&4 DOMSY M1460CONV MLC HLDCTL&91,HLDCTL&1&X3 DOMSY M1470 B INCR DOMSY M1480DONE BWZ REPEAT,HLDCTL&8,1 DOMSY M1490 SW HLDCTL&8 DOMSY M1500 MLC @N@,BYPASS DOMSY M1510REPEAT MLC HLDCTL&6,MOVE1&6 DOMSY M1520 MLC HLDCTL&6,MOVE2&6 DOMSY M1530MOVE1 MLCWA0,0 DOMSY M1540 SBR HLDCTL&6 DOMSY M1550MOVE2 MLCWA0,0 DOMSY M1560 SAR HLDCTL&3 DOMSY M1570 C HLDCTL&3,&ADADJ DOMSY M1580 BU REPEAT DOMSY M1590BYPASS B NOWM DOMSY M1600 MLC HLDCTL&6,X3 DOMSY M1610 CW 1&X3 DOMSY M1620 MLC BYPASS-5,BYPASS DOMSY M1630NOWM A @1@,CTLSV-3 DOMSY M1640 BCE COMMON-4,HLDCTL&7, DOMSY M1650 BCE HLDCTL&8,HLDCTL&7,# EXIT TO SET DA WM DOMSY M1660RETRN MLC HLDCTL&9,SAVE RETURN FROM EXECUTE SECTOR DOMSY M1670 MLC IXSAVE,X3 DOMSY M1680 B COMMON-4 DOMSY M1690ADADJ EQU HLDCTL&7 DOMSY M1700 LTORG* DOMSY M1710* DOMSY M1720* PATCH ROUTINE DOMSY M1730* DOMSY M1740 ORG HLDCTL&1 DOMSY M1750LOAD1 CS 080 DOMSY M1760 R READ PATCH CARD DOMSY M1770 C 080,PRGNME DOMSY M1780 BU LSTCD DOMSY M1790 C 075,SEQ#3 DOMSY M1800 BH SEQER DOMSY M1810 MLC 075,SEQ DOMSY M1820 SW 001,004 DOMSY M1830 MLC @007@,SETUP&3 DOMSY M1840BACK MLC 003,CW&3 DOMSY M1850 MLC LOZN DOMSY M1860 MLC 003 DOMSY M1870 S ONE,005 DOMSY M1880MA1 A DOMSY M1890 BWZ LOAD1,005,K DOMSY M1900SETUP MLC 0,HLD2 DOMSY M1910 MLC HLD2-1,0 DOMSY M1920CW CW 0 DOMSY M1930MA2 A ONE-1,SETUP&3 DOMSY M1940 BCE CHK2,HLD2-1,= DOMSY M1950 B BACK DOMSY M1960CHK2 S HLD2-1 DOMSY M1970 BCE CW&4,HLD2,= DOMSY M1980 MLC COMMA,CW DOMSY M1990 B SETUP DOMSY M2000LSTCD C 003,@EXE@ DOMSY M2010 BE OUT DOMSY M2020 C 003,@PAU@ DOMSY M2030 BE OUT DOMSY M2040SEQER H DOMSY M2050 DC @9@ SEQUENCE ERROR DOMSY M2060 B LOAD1 DOMSY M2070OUT MLC OVLAY2#9,CTLSV DOMSY M2080 SBR RETURN&3,HLDCTL&6 DOMSY M2090 B COMMON DOMSY M2100LOZN DCW @)@ DOMSY M2110 DCW @001@ DOMSY M2120ONE DCW @1@ DOMSY M2130COMMA DCW @,@ DOMSY M2140HLD2 DCW #2 DOMSY M2150 LTORG* DOMSY M2160 END LOAD1 DOMSY