1130 Commercial Subroutine Package - All about the IBM 1130 ...

CHART PU1130 COMMERCIAL PACK/UNPAC SUBROUTINE• •• START UNPAC • START PACK •• • • ••• SET SWITCH AT SET SWITCH ATB4 TOUNPAC • PAD PACK•SAVEINDEX REGISTERCREATE ADDRESSOF JCARDXJaCREATE ADDRESSOF KCARD%Ka••CREATE ADDRESS•OF JCARD%JLASTD•• LOAD INDEX•REGISTER I WITH• ADDRESS OF• KCARD%Ko•• SHIFT HIGH ••ORDER CHARACTER•.TO LOW ORDER OF.• EXTENTION ••• LOAD ACCUM.• WITH NEXT• .1CARD CHARACTER•• ROTATE ACCUM.• AND EXTENTION•8 TO CREATE A2• FORMAT••84 0.YES IS *. NOSWITCHPACK .••'STORE ACCUM. IN• KCARD USING•INDEX REGISTER1••DECREMENT INDEX• REGISTER 1 BY1•XseNO HAS.....JCARDULASTo es•.BEEN DONE..e..YESX• SHIFT LOW•ORDE1 CHARACTER• TO EXTENTIUN••REPOSITION THE• 413H ORDER• CHARACTER• PLACE EBCDIC•BLANK, HEX 40,•IN LOW ORDER OFACCUMULATOR••STORE ACCUM. IN• KCARD USING• INDEX REGISTER• 1•••DECREMENT INDEX• REGISTER 1 BY•ADDA1A3A1DECA3A1CARRYDECA1DIVDPACKDUNPKEDITFILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNN ZONEPACK IPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUBS1403TYPERjUNPACIWHOLELOAD ACCUM.• WITH NEXT•JCARD CHARACTER•CREATERETURNADDRESS.SHIFT CHARACTER• IN EXTENTION• TO HIGH ORDER•OF ACCUMULATOR•RESTORE INDEXREGISTER 1• PLACE EBCDIC•BLANK, HEX 40,...•IN LOW ORDER OF• ACCUMULATOR•EXIT-141-mowRai H-nw IT 1 1 1 11 11.'11