$JOB ATHRUZ, BOOL, HOLOCT EDIT RUN BOOL0010 $LIST BOOL0020 $IBEDT S.SLB1,S.SU01,SOURCE BOOL0030 REMARK ADDITION OF SYMBOLIC ROUTINES ATHRUZ, BOOL, HOLOCT TO LIBBOOL0040 LIBE BOOL0050 AFTER OVF BOOL0060 INSERT ATHRUZ BOOL0070 $IBJOB NOGO BOOL0080 $IBMAP ATHRUZ BOOL0090 * IBMAP ROUTINE FOR PROGRAMS SIFTED THRU SIFT 40 BOOL0100 ENTRY ATHRUZ BOOL0110 REM BOOL0120 REM ALPHAMERIC CONVERSION BOOL0130 REM ***CALL ATHRUZ(Q000HL,6H EOF )*** BOOL0140 REM BOOL0150 ATHRUZ SAVE 4 BOOL0160 CAL* 4,4 GET ALPHAMERIC INFO BOOL0170 SLW* 3,4 AND STORE IT BOOL0180 RETURN ATHRUZ BOOL0190 END BOOL0200 $JEDIT BOOL0210 INSERT BOOL BOOL0220 $IBJOB NOGO BOOL0230 $IBMAP BOOL BOOL0240 * IBMAP ROUTINE FOR PROGRAMS SIFTED THRU SIFT 40 BOOL0250 ENTRY BOOL ZERO VS NON'ZERO TEST BOOL0260 REM BOOL0270 REM ZERO VS NON'ZERO TEST BOOL0280 REM ***BOOL(ARG.)*** BOOL0290 REM BOOL0300 BOOL SAVE 4 BOOL0310 CAL* 3,4 BOOL0320 RETURN BOOL BOOL0330 END BOOL0340 $JEDIT BOOL0350 INSERT HOLOCT BOOL0360 $IBJOB NOGO BOOL0370 $IBMAP HLCT BOOL0380 * IBMAP ROUTINE FOR PROGRAMS SIFTED THRU SIFT 40 BOOL0390 ENTRY HOLOCT OCTAL CONVERSION BOOL0400 REM BOOL0410 REM OCTAL CONVERSION BOOL0420 REM ***CALL HOLOCT(Q000CT,12H77777 )*** BOOL0430 REM BOOL0440 HOLOCT SAVE 1,2 BOOL0450 CLA 4,4 ADDRESS OF OCTAL NUMBER BOOL0460 STA LOAD BOOL0470 STZ* 3,4 BOOL0480 AXT 0,2 BOOL0490 AXT 6,1 SIX CHARACTERS BOOL0500 LOAD LDQ **,2 BOOL0510 ZAC BOOL0520 LGL 6 BOOL0530 LAS =O60 IS IT A BLANK BOOL0540 RET RETURN HOLOCT TERM. CONV., COULD CHECK FOR ERROR BOOL0550 TRA SKIP A BLANK. SKIP TO NEXT NUMBER BOOL0560 LAS =8 IS IT AN OCTAL NUMBER BOOL0570 TRA ERROR NO, ILLEGAL CHARACTER BOOL0580 TRA ERROR SAME BOOL0590 SLW TEMP YES. PROCESS IT BOOL0600 CAL* 3,4 GET THE OCTAL BEING FORMED BOOL0610 ALS 3 MAKE ROOM FOR NEXT NUMBER BOOL0620 ORA TEMP ADD IT BOOL0630 SLW* 3,4 AND STORE BACK BOOL0640 SKIP TIX LOAD+1,1,1 SKIP TO THE NEXT NUMBER BOOL0650 TXI LOAD-1,2,-1 GET NEXT WORD BOOL0660 TEMP PZE TEMPORARY STORAGE BOOL0670 ERROR SYN RET BOOL0680 END BOOL0690 $JEDIT BOOL0700 LIBEND BOOL0710 $ENDEDIT BOOL0720 $IBSYS BOOL0730 $STOP BOOL0740