1 /PIP FOR BLEEP MONITOR 1657 IFNDEF JCA 1659 /M AND W OPTION PROCESSOR. 1660 /M OPTION PUNCHES LEGIBLE DATE (IF ANY) 1661 /W OPTION PUNCHES LEGIBLE MESSAGE CONTAINED IN 1ST 1662 /INPUT FILE (IF ANY), AND SIPHONS THE REST OF THE FILES 1663 /DOWN, THEN CALLS THE 'LEADER' ROUTINE BEFORE RETURNING. 1664 1665 016000 0000 EMM, 0 1666 016001 1777 TAD I (MPARAM+1 /2ND OPTION WORD. 1667 016002 7710 SPA CLA  /SKIP IF NO 'M' OPTION 1668 016003 4243 JMS DPUNCH 1669 016004 1777 TAD I (MPARAM+1 1670 016005 7012 RTR  /'W' INTO LINK 1671 016006 7620 SNL CLA  /SKIP IF 'W' OPTION 1672 016007 5241 JMP NOTW 1673 016010 1776 TAD I (7617 1674 016011 7650 SNA CLA  /SKIP IF ANY INPUT FILES 1675 016012 5775 JMP I (PIP 1676 016013 4774 JMS I (IOPEN 1677 016014 4773 JMS I (ICHAR /GET 1ST CHARACTER 1678 016015 5775  JMP I (PIP /NO INPUT FILE! 1679 016016 4261 JMS LPUNCH 1680 016017 1372 TAD (NOP 1681 016020 3771 DCA I (GETNEW 1682 016021 4773 JMS I (ICHAR 1683 016022 5225 JMP .+3  /END OF 1ST FILE. 1684 016023 4261 JMS LPUNCH 1685 016024 5221 JMP .-3 1686 016025 1370 TAD (INNEWX 1687 016026 3771 DCA I (GETNEW 1688 016027 1367 SIPHON, TAD (7616 1689 016030 3010 DCA 10 1690 016031 1366 TAD (7620 1691 016032 3011 DCA 11 1692 016033 1365 TAD (-22 1693 016034 3243 DCA WCNTR 1694 016035 1411 TAD I 11 1695 016036 3410 DCA I 10 /SIPHON FILES. 1696 016037 2243 ISZ WCNTR 1697 016040 5235 JMP .-3 1698 016041 4764 NOTW, JMS I (LEADER 1699 016042 5600 JMP I EMM 1700 1701 /DPUNCH PUNCHES THE DATE IN LEGIBLE FORM. 1702 1703 WCNTR, 1704 016043 0000 DPUNCH, 0 1705 016044 4261 JMS LPUNCH /VERY SHORT LEADER. 1706 016045 1363 TAD (LPUNCH 1707 016046 3762 DCA I (POCHAR /FAKE OUT PR6BIT. 1708 016047 1372 TAD (NOP 1709 016050 3761 DCA I (PR6BIT+10 /FAKE OUT ERROR EXIT 1710 016051 1760 TAD I (MDATE 1711 016052 4757 JMS I (PDATE /PUNCH DATE 1712 016053 1356 TAD (5760 /TEMPORARY!!!!!!!!!!!!!!!!!!! 1713 016054 3761 DCA I (PR6BIT+10 /RESTORE ERROR EXIT. 1714 016055 1355 TAD (OCHAR 1715 016056 3762 DCA I (POCHAR /RESTORE PR6BIT. 1716 016057 4261 JMS LPUNCH /ANOTHER VERY SHORT LEADER. 1717 016060 5643 JMP I DPUNCH 1718 1719 /LPUNCH PUNCHES A PAPER-TAPE LEGIBLE CHARACTER 1720 /ON THE OUTPUT DEVICE. 1721 1722 016061 0000 LPUNCH, 0 1723 016062 1354 TAD (-240 /ASSUME ASCII INPUT. 1724 016063 7510 SPA  /SKIP IF PRINTING CHAR. 1725 016064 7300 CLA CLL 1726 016065 7104 CLL RAL  /*2 1727 016066 1353 TAD (TABLE 1728 016067 3306 DCA LPNTR 1729 016070 4274 JMS HALF 1730 016071 4274 JMS HALF 1731 016072 4307 JMS PUNCH 1732 016073 5661 JMP I LPUNCH 1733 1734 /HALF PUNCHES THE 12-BITS POINTED TO BY LPNTR AS TWO 1735 /LINES ON THE PAPER TAPE OUTPUT. 1736 /BIT-ORDER IS THE SAME AS FOR THE PDP-12 DSC INSTRUCTION 1737 /IN ORDER TO BE ABLE TO USE PREVIOUSLY WORKED OUT 1738 /DISPLAY CHARACTERS! 1739 1740 016074 0000 HALF, 0 1741 016075 1706 TAD I LPNTR 1742 016076 4307 JMS PUNCH 1743 016077 1706 TAD I LPNTR 1744 016100 7112 CLL RTR;RTR;RTR 016101 7012 016102 7012 1745 016103 4307 JMS PUNCH 1746 016104 2306 ISZ LPNTR 1747 016105 5674 JMP I HALF 1748 016106 0000 LPNTR, 0 1749 1750 /PUNCH BIT-INVERTS THE LOWER 6 BITS OF THE ACC, AND 1751 /PUTS THE RESULTANT CHARACTER INTO THE OUTPUT FILE. 1752 1753 016107 0000 PUNCH, 0 1754 016110 0352 AND (77 1755 016111 1351 TAD (100 /ENTER STOP BIT. 1756 016112 3331 DCA LTMP 1757 016113 3332 DCA LTMP1 1758 016114 1331 PLOOP, TAD LTMP 1759 016115 7110 CLL RAR 1760 016116 7450 SNA  /NO SKIP WHEN INVERSION THROUGH. 1761 016117 5325 JMP PDONE 1762 016120 3331 DCA LTMP 1763 016121 1332 TAD LTMP1 1764 016122 7004 RAL 1765 016123 3332 DCA LTMP1 1766 016124 5314 JMP PLOOP 1767 016125 1332 PDONE, TAD LTMP1 1768 016126 4755 JMS I (OCHAR 1769 016127 5750 JMP I (AOUERR /WHAT? 1770 016130 5707 JMP I PUNCH 1771 016131 0000 LTMP, 0 1772 016132 0000 LTMP1, 0 1773 016150 3105 PAGE 016151 0100 016152 0077 016153 6200 016154 7540 016155 2411 016156 5760 016157 4642 016160 7666 016161 4100 016162 4147 016163 6061 016164 3526 016165 7756 016166 7620 016167 7616 016170 4335 016171 2030 016172 7000 016173 2014 016174 2001 016175 3000 016176 7617 016177 7644 ABSBIN 4437 ABUF 6601 ACHLP 3204 ACLOSE 3102 ADCAXR 3237 unreferenced ADDLEN 4311 AEOFFG 3120 AOUERR 3105 ASCEOF 3113 ASCIGO 3200 ASCII 3042 unreferenced ASCJMP 3227 BEOF 4514 BEOT 4443 BIN200 4425 BIN360 4400 BINARY 4401 BLOKNO 0025 BN7600 4504 BNM140 4441 unreferenced BOUERR 3111 CARRET 3317 CDIF10 5262 CHAR 0021 CINSRT 3235 CKZERO 5611 COLCT 3340 COPTSW 3137 CTCFLG 5673 CTCMSG 5675 CTCTST 2510 DCB 7760 DCOUNT 0030 DDATE 0033 DELETE 3400 DELOOP 3405 DEMPTY 4325 DEND 3140 DEVLEN 3600 DFORG 3544 DFUJLP 4011 DIR 2540 DIRECT 3543 DIRPRE 4000 DLENGT 3551 DLHNDL 3414 DLINK 0031 DMTX 5473 DP4 3421 DPFILE 3422 DPUNCH 6043 DSKNAM 4703 DSKNUM 4677 DTYPE 0027 DWASTE 3547 DZERO 3434 ECOUNT 0026 EMM 6000 ENDDIR 4352 ENDFUJ 2617 EOFERR 2101 EOFTST 3077 EOL 3065 EOLLP 3071 ERCRLF 4635 ERLP 4602 ERPCH 4613 ERPRNT 4600 ERR0 5000 ERR1 5014 ERR10 5162 ERR2 4744 ERR3 5030 ERR4 5042 ERR5 5054 ERR6 5070 ERR7 5110 ERR8 5127 ERR9 5145 ERRTBL 4731 FFEED 3307 FFLF 3277 FILENR 4627 FILLLP 2326 FIXLEN 3700 FIXLP 3710 FIXOVR 3724 FLENGT 0024 GETDIR 4040 GETNEW 2030 HALF 6074 ICHAR 2014 ICHAR1 2124 ICHAR2 2120 ICHAR3 2105 unreferenced IHNDLR 0024 IM7600 2741 IMAGE 2600 IMCCNT 2614 IMCLOS 2603 unreferenced IMCTLW 2703 IMEFLP 2730 IMERRX 2724 IMFILP 2656 IMHNDL 2723 IMNZRO 2744 IMOUT 2715 IMRCLP 2664 IMREC 2705 IMTRA 2654 IN200 2110 IN7400 2000 IN7600 2015 INBLK 0033 INBREC 2056 INBUF 3000 INBUFP 2052 INCDIF 2046 INCHAR 2021 INCHCT 2135 INCOMN 2125 INCTL 1600 INCTLW 2051 INCTR 2001 INCTZF 2127 INDEVH 6600 INEFER 4531 INEOF 0023 INERR 2100 unreferenced INERRX 2075 INFLD 0000 INFPTR 0022 INGBUF 2032 INHNDL 2146 INJMP 2102 INJMPP 2024 INNEWF 2135 INNEWX 4335 INPTR 2012 INREC 2053 INRECS 0007 INRTRN 2133 INSEG 5407 INXR 0011 IOMSG 5712 IOPEN 2001 LEADER 3526 LFEED 3063 LPNTR 6106 LPUNCH 6061 LTCODE 4446 LTLOOP 4455 LTMP 6131 LTMP1 6132 MDATE 7666 MOVFIL 5465 MPARAM 7643 MTEMP 0027 NAME1 4264 NAME2 4265 NAME3 4266 NAME4 4275 NAMELP 4226 NEWIN 5400 NEWOUT 5516 NEWSEG 4205 NEWTAP 4406 NEXTIN 5530 NODUMP 2346 NOPCD 3005 NOROOM 5735 NOTOPT 3335 NOTW 6041 NOYES 3760 NXTDIR 4200 OCHAR 2411 OCHAR1 2461 OCHAR2 2456 OCHAR3 2427 unreferenced OCISZ 2354 OCLOSE 2310 OCRET 2355 OEFAIL 2233 OHNDLR 0025 OLDDIR 0007 ONOFIL 2245 ONTERR 2243 OOPEN 2200 OORETN 2231 OTRTN 2506 OTYPE 2474 OU7600 2201 OU7601 2351 OUBLK 2222 OUBUF 0000 OUCCNT 2352 OUCDIF 2276 unreferenced OUCHAR 2422 unreferenced OUCOMN 2463 OUCRET 2464 OUCTL 5400 OUCTLW 2301 OUDEVH 7200 OUDLEN 0031 OUDWCT 2472 OUELEN 2223 OUENTR 2217 OUFLD 0000 OUHNDL 2215 OUJMP 2424 OUJMPE 2471 OUNOWR 2306 OUPOLD 2467 OUPTR 2470 OUREC 2303 OUSAVE 5546 OUSETP 2400 OUTBLK 0030 OUTDIR 5631 OUTDMP 2247 OUTEMP 2466 OUTINH 2473 OUTOPN 3055 OUTSEG 5641 OUTXR 0010 OUWAST 0027 OZERR 3503 OZHNDL 3460 P1 5270 PBLJMP 4126 PCRLF 4137 PDATE 4642 PDONE 6125 PIP 3000 PIPCD 3002 PIPERR 3507 PIPSNA 3072 PLOOP 6114 POCHAR 4147 PR6BIT 4070 PRBLNK 4135 PRCT 4067 PRLNGT 4276 unreferenced PRNMLP 4107 PRNUM 4102 PRTCRL 4310 PRWD 4050 PRWDLP 4054 PTP 0020 PUNCH 6107 PWRTEN 3730 RBTLP 3126 RCOPY1 4520 RECCNT 0034 RELBIN 4463 RELEND 4510 RELERR 4533 RELLP 4467 RELSNA 4500 RELTBL 4711 RUBOUT 3121 RUSURE 3735 S7200 5406 SAME 0032 SEMPTY 5544 SGETIN 5416 SIPHON 6027 unreferenced SLASHG 2520 SLGRET 2532 SNULER 5536 SNULL 5540 SOHND 5220 SQBUF1 6600 SQBUF2 7200 SQCTLC 5650 SQFLAG 0026 SQIDER 5625 SQIOER 5645 SQOVER 5600 SQTRA 2637 SQUISH 5200 SRSTOR 5662 SURE 5726 TAB 3247 TABLE 6200 TABLP 3252 TABRBT 3262 TEMP 0020 TESTXR 3241 TOPT 3323 TTYDEV 2547 TTYOUT 3520 VTAB 3267 VTLF 3300 WASTE 0032 WCNTR 6043 XR 0010 ZEROK 5620 ZEROKS 5622