***************************************************** * Program "BIN": List Products in Bin Number Sequence: Module 145 (6 sectors) * Sample LOS Application Program (written by J A Templeman) ***************************************************** * * Entry points-- * 0020- BIN (I/O Station program to specify job) * 0200- BIN (Printer program to scan data base) * 0600- BIN+ (Printer program to follow sort phase) * * Instructions bracketed thus: (xxx) follow a Skip instruction. * They are not executed when the Skip is taken. * ***************************************************** * Page 00 Column 00- *Step Octal Instruction Comment ***************************************************** ***************************************************** * OFFSET ADDRESS BLOCK: *Step Octal Value Comment ***************************************************** 0000- 200400 0400- -> Product File Buffer (16 records) 0001- 202400 2400- -> Top of Product File Buffer 0002- 202400 2400- -> Sort Work Buffer (64 records) 0003- 203400 3400- -> Top of Sort Work Buffer 0004- 203401 3401- -> First Bin Number (in Spool record) 0005- 203402 3402- -> Last Bin Number (in Spool record) 0006- 000000 0007- 000000 ***************************************************** * STATIC WORKSPACE: *Step Octal Comment ***************************************************** 0010- 000033 CF27 Lines per printed page 0011- 000210 000210 Sort Work File Id 0012- 041111 ASCII "B I" ) Sort Follow-on Program Name 0013- 047053 ASCII "N +" ) 0014- 000000 0.000 Minimum Bin Number 0015- 177777 65.535 Maximum Bin Number ***************************************************** * ENTRY POINT: I/O Program "BIN" *Step Octal Instruction Comment ***************************************************** 0020- 212377 LDA Z 0377 B17 (any Plain Paper Print Queue) 0021- 037613 JSBR IZ 1613 Specify Print Queue 0022- 037652 JSBR IZ 1652 PUT "Print products by Bin for Stock Check" 0023- 200500 P1=0500- ** Next Job-- 0024- 037634 JSBR IZ 1634 Specify Escape Point 0025- 200026 P1=0026- 0026- 030400 JSBR 0400 DEFINE JOB 0027- 037640 JSBR IZ 1640 SPLIT "Process?" 0030- 200476 P1=0476- 0031- 004020 (SKIP) No. 0032- 037651 (JSBR) IZ 1651 SPOOL & POST 0033- 020024 JUMP 0024 onto next job. ***************************************************** * WORKSPACE: *Step Octal Comment ***************************************************** 0054- xxxxxx -> File Status Block, Sort Work File 0055- xxxxxx Maximum Slot Number, Sort Work File 0056- xxxxxx -> Current Product Record 0057- xxxxxx Maximum Product Number ** SORT RECORD WORKSPACE (8 words)-- 0060- xxxxxx Word 0: System Workspace 0061- xxxxxx Word 1: BIN NUMBER 0062- xxxxxx Word 2: PRODUCT NUMBER 0063- 000000 Word 3: not used 0064- 000000 Word 4: not used 0065- 000000 Word 5: not used 0066- 000000 Word 6: not used 0067- 000000 Word 7: not used ***************************************************** * PARAMETER BLOCK (Scan Phase): Read 8 sectors of Product File *Step Octal Value Comment ***************************************************** 0070- 000000 0071- xxxxxx R, 8 sectors, Disc Number 0072- 200400 0400- -> Buffer 0073- xxxxxx Start Sector Number ***************************************************** * PARAMETER BLOCK (Scan Phase): Write 4 sectors of Sort Work File *Step Octal Value Comment ***************************************************** 0074- 000000 0075- xxxxxx W, 4 sectors, Disc Number 0076- 202400 2400- -> Buffer 0077- xxxxxx Start Sector Number ***************************************************** * WORKSPACE (Print Phase): *Step Octal Comment ***************************************************** 0074- xxxxxx Next Bay 0075- xxxxxx Lines printed, current page 0076- xxxxxx Current Sort Record Number 0077- xxxxxx Live Record Count, Sort Work ***************************************************** * Page 00 Column 01- *Step Octal Instruction Comment ***************************************************** ***************************************************** * PROCEDURE: INITIALIZE PRODUCT SCAN *Step Octal Instruction Comment ***************************************************** 0100- xxxxxx Return Address 0101- 037700 JSBR IZ 1700 Extract from File Control Block 0102- 000414 P1=1, 014 Word 1, Product FCB 0103- 063752 ANDA Z 1752 Bottom Byte (leaves Disc Number) 0104- 072344 IORA Z 0344 004000 (8 sectors) 0105- 250071 STA 0071 0106- 122202 ADB Z 0202 CF2 0107- 216001 LDA IZ B FCB Word 3 (Minimum Product Number) 0110- 003010 DECA 0111- 250062 STA 0062 Current Product Number 0112- 001504 RSA4 /16 (Blocking Factor) 0113- 001703 LSA3 *8 (Sectors per block) 0114- 250073 STA 0073 (save) 0115- 002004 INCB 0116- 216001 LDA IZ B FCB Word 4 (Maximum Product Number) 0117- 250057 STA 0057 0120- 122203 ADB Z 0203 CF3 0121- 216001 LDA IZ B FCB Word 7 (Base Sector) 0122- 110073 ADA 0073 0123- 250073 STA 0073 =Start Sector, block containing Minimum Product 0124- 210062 LDA 0062 Minimum Product - 1 0125- 062217 ANDA Z 0217 (leaves record number within block) 0126- 001706 LSA6 *64 (Record Length) 0127- 110000 ADA 0000 0400- -> Buffer 0130- 250056 STA 0056 -> Current Product Record 0131- 037615 JSBR IZ 1615 TRANSFER (Read first Block) 0132- 200070 P1=0070- 0133- 210011 LDA 0011 Sort File Id 0134- 072323 IORA Z 0323 000400 0135- 250137 STA 0137 0136- 037700 JSBR IZ 1700 Extract from File Control Block 0137- xxxxxx P1=1,? Word 1, Sort Work FCB 0140- 063752 ANDA Z 1752 Bottom Byte (leaves Disc Number) 0141- 072341 IORA Z 0341 002000 (4 sectors) 0142- 250075 STA 0075 0143- 122203 ADB Z 0203 CF3 0144- 216001 LDA IZ B FCB Word 4 0145- 250055 STA 0055 Maximum Slot Number, Sort Work File 0146- 122203 ADB Z 0203 CF3 0147- 216001 LDA IZ B FCB Word 7 0150- 250077 STA 0077 =Start Sector Number 0151- 002004 INCB 0152- 226001 LDB IZ B FCB Word 8 (-> File Status Block) 0153- 260054 STB 0054 -> FSB, Sort Work File 0154- 007002 CLA 0155- 256001 STA IZ B 0 into Live Record Count 0156- 037667 JSBR IZ 1667 STOW Control Record 0157- 210002 LDA 0002 2400- -> Sort Work Buffer 0160- 250361 STA 0361 Preset Sort Buffer Pointer 0161- 024100 JUMP I 0100 Return. ***************************************************** * Page 00 Column 02- *Step Octal Instruction Comment ***************************************************** ***************************************************** * ENTRY POINT: Print Program "BIN" *Step Octal Instruction Comment ***************************************************** 0200- 000000 NOOP 0201- 216067 LDA IZ 0067 3400- 0202- 037725 JSBR IZ 1725 STA 0203- 203742 P1=3742- Issuing Task Number into Printer Completion Word 0204- 037710 JSBR IZ 1710 Clear Core 0205- 200060 P1=0060- 0206- 000010 P2=8 words 0207- 030100 JSBR 0100 INITIALISE PRODUCT SCAN 0210- 030300 JSBR 0300 PRODUCT SCAN 0211- 030331 JSBR 0331 FLUSH Sort Buffer 0212- 037667 JSBR IZ 1667 STOW Control Record 0213- 210011 LDA 0011 Sort File Id 0214- 000000 NOOP 0215- 250221 STA 0221 0216- 037670 JSBR IZ 1670 FETCH & LINK Sort Utility 0217- 002002 P1=002002 0220- 000225 P2=0/0225 =Module 025 0221- xxxxxx P3=? 0222- 200012 P4=0012- -> Follow-on Program Name "BIN+" ***************************************************** * PROCEDURE: PROCESS LIVE PRODUCT *Step Octal Instruction Comment ***************************************************** 0230- xxxxxx Return Address 0231- 220056 LDB 0056 -> Product 0232- 122220 ADB Z 0220 0233- 216001 LDA IZ B =Bin Number 0234- 234004 CMPA I 0004 3401- First Bin Number 0235- 020244 (JUMP) 0244 include. 0236- 006410 SKGT 0237- 024230 (JUMP) I 0230 Return - exclude. 0240- 234005 CMPA I 0005 3402- Last Bin Number 0241- 000000 (NOOP) 0242- 006010 SKNGT 0243- 024230 (JUMP) I 0230 Return - exclude. 0244- 250061 STA 0061 Bin Number 0245- 030352 JSBR 0352 DESPATCH PRODUCT RECORD 0246- 024230 JUMP I 0230 Return. ***************************************************** * Page 00 Column 03- *Step Octal Instruction Comment ***************************************************** ***************************************************** * PROCEDURE: PRODUCT SCAN *Step Octal Instruction Comment ***************************************************** 0300- xxxxxx Return Address ** NEXT Product-- 0301- 210062 LDA 0062 Previous Product 0302- 230057 CMPA 0057 Maximum Product 0303- 024300 (JUMP) I 0300 Return - File done. 0304- 040062 INSZ 0062 Current Product 0305- 210056 LDA 0056 -> Current Product 0306- 230001 CMPA 0001 2400- -> Top of Product Buffer 0307- 030320 (JSBR) 0320 ADVANCE Product Buffer 0310- 214056 LDA I 0056 =First Word of Current Product Record 0311- 230062 CMPA 0062 Current Product 0312- 030230 (JSBR) 0230 PROCESS LIVE PRODUCT 0313- 210056 LDA 0056 0314- 112302 ADA Z 0302 CF64 (Record length) 0315- 250056 STA 0056 (Advance to next Product Record) 0316- 020301 JUMP 0301 onto next Product. ***************************************************** * PROCEDURE: ADVANCE PRODUCT BUFFER *Step Octal Instruction Comment ***************************************************** 0320- xxxxxx Return Address 0321- 210073 LDA 0073 0322- 112210 ADA Z 0210 CF8 0323- 250073 STA 0073 (advance 8 sectors) 0324- 037615 JSBR IZ 1615 TRANSFER (Read into Product Buffer) 0325- 200070 P1=0070- 0326- 210000 LDA 0000 0400- 0327- 250056 STA 0056 -> Current Product (wrap around) 0330- 024320 JUMP I 0320 Return. ***************************************************** * PROCEDURE: FLUSH SORT BUFFER *Step Octal Instruction Comment ***************************************************** 0331- xxxxxx Return Address 0332- 210075 LDA 0075 0333- 007600 ANEG 0334- 024331 (JUMP) I 0331 Return (no updates in this block). 0335- 037615 JSBR IZ 1615 TRANSFER (Write from Sort Buffer) 0336- 200074 P1=0074- 0337- 210075 LDA 0075 0340- 005004 CLSA 0341- 250075 STA 0075 ("Read") 0342- 024331 JUMP I 0331 Return. ***************************************************** * PROCEDURE: ADVANCE SORT BUFFER *Step Octal Instruction Comment ***************************************************** 0343- xxxxxx Return Address 0344- 030331 JSBR 0331 FLUSH Old Buffer 0345- 210077 LDA 0077 0346- 112204 ADA Z 0204 CF4 0347- 250077 STA 0077 (advance 4 sectors) 0350- 210002 LDA 0002 2400- -> Sort Work File Buffer 0351- 024343 JUMP I 0343 Return. ***************************************************** * PROCEDURE: DESPATCH SORT RECORD *Step Octal Instruction Comment ***************************************************** 0352- xxxxxx Return Address 0353- 214054 LDA I 0054 Live Record Count 0354- 230055 CMPA 0055 Maximum Slot Number, Sort Work File 0355- 037777 (JSBR) IZ 1777 HALT (Sort Work File is full). 0356- 044054 INSZ I 0054 Live Record Count 0357- 037707 JSBR IZ 1707 Move 0360- 200060 P1=0060- 0361- xxxxxx P2=? SORT BUFFER POINTER 0362- 000010 P3=8 words 0363- 210075 LDA 0075 0364- 005006 CLSA/COMPSA 0365- 250075 STA 0075 ("Write") 0366- 210361 LDA 0361 0367- 110362 ADA 0362 Record length 0370- 230003 CMPA 0003 3400- -> Top of Sort Buffer 0371- 030343 (JSBR) 0343 Advance Sort Buffer 0372- 250361 STA 0361 (advance Sort Buffer Pointer) 0373- 024352 JUMP I 0352 Return. ***************************************************** * Page 00 Column 04- *Step Octal Instruction Comment ***************************************************** ***************************************************** * PROCEDURE: DEFINE JOB *Step Octal Instruction Comment ***************************************************** 0400- xxxxxx Return Address 0401- 210014 LDA 0014 Minimum Bin Number 0402- 254004 STA I 0004 3401- (preset range to limit) 0403- 210015 LDA 0015 Maximum Bin Number 0404- 254005 STA I 0005 3402- (preset range to limit) 0405- 037765 JSBR IZ 1765 Convert First Bin Number to ASCII 0406- 031507 P1=3,3,1,7 0407- 203401 P2=3401- 0410- 200537 P3=0537- 0411- 212257 LDA Z 0257 ASCII "/" 0412- 037775 JSBR IZ 1775 Store Character 0413- 200540 P1=0540- 0414- 037640 JSBR IZ 1640 GET "From Bin No nn/nnn (or All) " 0415- 200471 P1=0471- 0416- 030450 JSBR 0450 All? 0417- 024400 (JUMP) I 0440 Yes - return. 0420- 214004 LDA I 0004 3401- First Bin Number 0421- 112337 ADA Z 0337 CF999 0422- 007600 ANEG 0423- 254005 (STA) I 0005 3402- Last Bin Number (setup default range) 0424- 037765 JSBR IZ 1765 Convert Last Bin Number to ASCII 0425- 031507 P1=3,3,1,7 0426- 203402 P2=3402- 0427- 200553 P3=0553- 0430- 212257 LDA Z 0257 ASCII "/" 0431- 037775 JSBR IZ 1775 Store Character 0432- 200554 P1=0554- 0433- 037640 JSBR IZ 1640 GET " upto nn/nnn ? " 0434- 200463 P1=0463- 0435- 024400 JUMP I 0440 Return. ***************************************************** * PROCEDURE: ALL? *Step Octal Instruction Comment ***************************************************** 0450- xxxxxx Return Address 0451- 007100 A=0 0452- 020455 (JUMP) 0455 0453- 040450 INSZ 0450 (skips) 0454- 024450 JUMP I 0450 Return (numeric input). 0455- 233200 CMPA Z 1200 ASCII "A" 0456- 005420 (CLA/SKIP) 0457- 027641 (JUMP) IZ 1641 Error. 0460- 024450 JUMP I 0450 Return ("All" requested). ***************************************************** * PARAMETER BLOCK: GET " upto ? " *Step Octal Value Comment ***************************************************** 0463- 044103 P1 (Control) 0464- 300547 0547½- P2 (prompt) 0465- 203402 3402- P3 (target) 0466- 203401 3401- P4 (Minimum) 0467- 200015 0015- P5 (Maximum) ***************************************************** * PARAMETER BLOCK: GET "From Bin No (or All) " *Step Octal Value Comment ***************************************************** 0470- 001402 00/1402 P0 (Escape) 0471- 054503 P1 (Control) 0472- 300530 0530½- P2 (prompt) 0473- 203401 3401- P3 (target) 0474- 203401 3401- P4 (Minimum) 0475- 200015 0015- P5 (Maximum) ***************************************************** * PARAMETER BLOCK: SPLIT "Process? " *Step Octal Value Comment ***************************************************** 0476- 300000 P1 (Control) 0477- 300523 0523½- P2 (prompt) ***************************************************** * Page 00 Column 05- *Step Octal Instruction Comment ***************************************************** ***************************************************** * LITERALS: "Print Products by Bin for Stock Check" * "Process?" * "From Bin No nn/nnnn (or All) " * " upto nn/nnn ? " *Step Octal ASCII ***************************************************** 0500- 006520 CR P 0501- 071151 r i 0502- 067164 n t 0503- 020120 SP P 0504- 071157 r o 0505- 062165 d u 0506- 061564 c t 0507- 071440 s SP 0510- 061171 b y 0511- 020102 SP B 0512- 064556 i n 0513- 020146 SP f 0514- 067562 o r 0515- 020123 SP S 0516- 072157 t o 0517- 061553 c k 0520- 020103 SP C 0521- 064145 h e 0522- 061553 c k 0523- 000015 NUL CR 0524- 050162 P r 0525- 067543 o c 0526- 062563 e s 0527- 071477 s ? 0530- 000015 NUL CR 0531- 043162 F r 0532- 067555 o m 0533- 020102 SP B 0524- 064556 i n 0535- 020116 SP N 0536- 067440 o SP 0537- 067156 n n 0540- 027556 / n 0541- 067156 n n 0542- 026450 - ( 0543- 067562 o r 0544- 020101 SP A 0545- 066154 l l 0546- 024440 ) SP 0547- 000040 NUL SP 0550- 020165 SP u 0551- 070164 p t 0552- 067440 o SP 0553- 067156 n n 0554- 027556 / n 0555- 067156 n n 0556- 026477 - ? 0557- 020000 SP NUL ***************************************************** * Page 00 Column 06- *Step Octal Instruction Comment ***************************************************** ***************************************************** * ENTRY POINT: Print Program "BIN+" *Step Octal Instruction Comment ***************************************************** 0600- 000000 NOOP 0601- 210011 LDA 0011 Sort File Id 0602- 250635 STA 0635 0603- 070606 IORA 0606 0604- 250606 STA 0606 0605- 037700 JSBR IZ 1700 Extract from File Control Block 0606- 014000 P1=1,8,? File Status Block Word 1, Sort Work File 0607- 250077 STA 0077 =Number of live records 0610- 007002 CLA 0611- 037725 JSBR IZ 1725 STA Current Page Number 0612- 203770 P1=3770- 0613- 250076 STA 0076 Current Sort Record Number 0614- 250074 STA 0074 Next Bay 0615- 020627 JUMP 0627 0627- 030650 JSBR 0650 INITIALIZE HEADINGS ** NEXT RECORD-- 0630- 210076 LDA 0076 Previous Slot Number 0631- 230077 CMPA 0077 Live Record Count 0632- 023402 (JUMP) Z 0402 to Control Program (all done). 0633- 040076 INSZ 0076 Current Slot Number 0634- 037670 JSBR IZ 1670 FETCH Sort Record 0635- xxxxxx P1=? 0636- 200076 P2=0076- 0637- 200060 P3=0060- 0640- 031000 JSBR 1000 PROCESS PRODUCT 0641- 020630 JUMP 0630 onto next record. ***************************************************** * PROCEDURE: INITIALIZE HEADINGS *Step Octal Instruction Comment ***************************************************** 0650- xxxxxx Return Address 0651- 037765 JSBR IZ 1765 Convert First Bin Number to ASCII 0652- 031507 P1=3,3,1,7 0653- 203401 P2=3401- 0654- 301111 P3=1111½- 0655- 212257 LDA Z 0257 ASCII "/" 0656- 037775 JSBR IZ 1775 Store Character 0567- 301112 P1=1112½- 0660- 037765 JSBR IZ 1765 Convert Last Bin Number to ASCII 0661- 031507 P1=3,3,1,7 0662- 203402 P2=3402- 0663- 301116 P3=1116½- 0664- 212257 LDA Z 0257 ASCII "/" 0665- 037775 JSBR IZ 1775 Store Character 0666- 301117 P1=1117½- 0667- 024650 JUMP I 0650 Return. ***************************************************** * Page 00 Column 07- *Step Octal Instruction Comment ***************************************************** ***************************************************** * PROCEDURE: NEW LINE *Step Octal Instruction Comment ***************************************************** 0700- xxxxxx Return Address 0701- 210061 LDA 0061 Bin Number 0702- 230074 CMPA 0074 Next Bay 0703- 004020 (SKIP) 0704- 006010 (SKNGT) 0705- 030750 (JSBR) 0750 NEW BAY (force New Page) 0706- 210075 LDA 0075 Lines printed, this page 0707- 230010 CMPA 0010 Lines per page 0710- 030714 (JSBR) 0714 NEW PAGE 0711- 040075 INSZ 0075 Lines printed, this page 0712- 024700 JUMP I 0700 Return. ***************************************************** * PROCEDURE: NEW PAGE *Step Octal Instruction Comment ***************************************************** 0714- xxxxxx Return Address 0715- 007002 CLA 0716- 250075 STA 0075 Clear Lines printed, this page 0717- 037707 JSBR IZ 1707 MOVE Heading (a) 0720- 201100 P1=1100- 0721- 203600 P2=3600- (print column 1) 0722- 000030 P3=24 words 0723- 036470 JSBR IZ 0470 Date, Time & Page Number to ASCII 0724- 303655 P1=3655½- (print column 92) 0725- 007002 CLA (Form Feed) 0726- 037644 JSBR IZ 1644 Print Line 0727- 037707 JSBR IZ 1707 MOVE Heading (b) 0730- 201224 P1=1224- 0731- 203624 P2=3624- (print Column 41) 0732- 000042 P3=34 words 0733- 212202 LDA Z 0202 CF2 (2 line feeds) 0734- 037644 JSBR IZ 1644 Print Line 0735- 037707 JSBR IZ 1707 MOVE Heading (c) 0736- 201300 P1=1300- 0737- 203600 P2=3600- (print column 1) 0740- 000073 P3=59 words 0741- 212201 LDA Z 0201 CF1 (1 line feed) 0742- 037644 JSBR IZ 1644 Print Line 0743- 024714 JUMP I 0714 Return. ***************************************************** * PROCEDURE: NEW BAY *Step Octal Instruction Comment ***************************************************** 0750- xxxxxx Return Address 0751- 037745 JSBR IZ 1745 /10 with remainder 0752- 037745 JSBR IZ 1745 /10 with remainder 0753- 037745 JSBR IZ 1745 /10 with remainder 0754- 250074 STA 0074 0755- 037765 JSBR IZ 1765 Convert Bay Number to ASCII 0756- 200103 P1=Z,0,0,1,3 0757- 200074 P2=0074- 0760- 201126 P3=1126- 0761- 040074 INSZ 0074 Bay Number 0762- 007002 CLA 0763- 112340 ADA Z 0340 CF10,000 0764- 050074 DESZ 0074 0765- 020763 (JUMP) 0763 0766- 007200 APOS Overflow (after Bay 65)? 0767- 007003 (CLA/COMPA) B17+65/535 Yes. 0770- 250074 STA 0074 Bay Number (updated) 0771- 210010 LDA 0010 0772- 250075 STA 0075 (force new page) 0773- 024750 JUMP I 0750 Return. ***************************************************** * Page 00 Column 10- *Step Octal Instruction Comment ***************************************************** ***************************************************** * PROCEDURE: PROCESS PRODUCT *Step Octal Instruction Comment ***************************************************** 1000- xxxxxx Return Address 1001- 037670 JSBR IZ 1670 FETCH & TEST Product Record 1002- 100014 P1=Test,014 1003- 200062 P2=0062- 1004- 200300 P3=0300- 1005- 025000 (JUMP) I 1000 Return (record not found). 1006- 030700 JSBR 0700 NEW LINE 1007- 031020 JSBR 1020 CONVERT PRODUCT DATA to ASCII 1010- 212202 LDA Z 0202 CF2 (double space) 1011- 037644 JSBR IZ 1644 Print Line 1012- 025000 JUMP I 1000 Return. ***************************************************** * PROCEDURE: CONVERT PRODUCT DATA to ASCII *Step Octal Instruction Comment ***************************************************** 1020- xxxxxx Return Address 1021- 037765 JSBR IZ 1765 Convert Product Code to ASCII 1022- 000146 P1=0,0,1,C,6 1023- 200062 P2=0062- 1024- 203663 P3=3663- (print column 103) 1025- 037637 JSBR IZ 1637 Convert Product Description to ASCII 1026- 303603 P1=3603½- (print column 8) Target ASCII 1027- 200304 P2=0304- Source Metacode 1030- 200036 P3=Z,30 characters 1031- 036461 JSBR IZ 0461 Convert Pack Size and Pack Units to ASCII 1032- 200301 P1=0301- 1033- 203623 P2=3623- (print column 39) 1034- 037625 JSBR IZ 1625 SUSPEND 1035- 037765 JSBR IZ 1765 Convert Bin Number to ASCII 1036- 031507 P1=3,3,1,7 1037- 200320 P2=0320- 1040- 203600 P3=3600- (print column 1) 1041- 212257 LDA Z 0257 ASCII "/" 1042- 037775 JSBR IZ 1775 Store Character 1043- 203601 P1=3601- (print column 3) 1044- 037765 JSBR IZ 1765 Convert Physical Stock to ASCII 1045- 000211 P1=0,0,2,9 1046- 200351 P2=0351- 1047- 303655 P3=3655½- (print column 92) 1050- 025020 JUMP I 1020 Return. ***************************************************** * Page 00 Column 11- *Step Octal Instruction Comment ***************************************************** ***************************************************** * LITERAL (Heading a): "STOCK CHECK: BINS nn/nnn-TO nn/nnn- BAY nn- " *Step Octal ASCII ***************************************************** 1100- 051524 S T 1101- 047503 O C 1102- 045440 K SP 1103- 041510 C H 1104- 042503 E C 1105- 045472 K : 1106- 020040 SP SP 1107- 041111 B I 1110- 047123 N S 1111- 020156 SP n 1112- 067057 n / 1113- 067156 n n 1114- 067055 n - 1115- 052117 T O 1116- 020156 SP n 1117- 067057 n / 1120- 067156 n n 1121- 067055 n - 1122- 020040 SP SP 1123- 020040 SP SP 1124- 041101 B A 1125- 054440 Y SP 1126- 067156 n n 1127- 026440 - SP ***************************************************** * Page 00 Column 12- *Step Octal Instruction Comment ***************************************************** ***************************************************** * LITERAL (Heading b): "PACK PICK TOP END OF COMPUTER PRODUCT" *Step Octal ASCII ***************************************************** 1224- 050101 P A 1225- 041513 C K 1226- 020040 SP SP 1227- 020040 SP SP 1230- 020040 SP SP 1231- 050111 P I 1232- 041513 C K 1233- 020040 SP SP 1234- 020040 SP SP 1235- 020040 SP SP 1236- 052117 T O 1237- 050040 P SP 1240- 020040 SP SP 1241- 042516 E N 1242- 042040 D SP 1243- 047506 O F 1244- 020040 SP SP 1245- 020040 SP SP 1246- 020040 SP SP 1247- 020040 SP SP 1250- 020040 SP SP 1251- 020040 SP SP 1252- 020040 SP SP 1253- 020040 SP SP 1254- 020040 SP SP 1255- 020103 SP C 1256- 047515 O M 1257- 050125 P U 1260- 052105 T E 1261- 051040 R SP 1262- 020120 SP P 1263- 051117 R O 1264- 042125 D U 1265- 041524 C T ***************************************************** * Page 00 Column 13- *Step Octal Instruction Comment ***************************************************** ***************************************************** * LITERAL (Heading c): "BIN NO ---------DESCRIPTION---------- SIZE SHELF SHELF FIXTURE BULK TOTAL STOCK CODE ADJ. " *Step Octal ASCII ***************************************************** 1300- 041111 B I 1301- 047040 N SP 1302- 047117 N O 1303- 020055 - - 1304- 026455 - - 1305- 026455 - - 1306- 026455 - - 1307- 026455 - - 1310- 042105 D E 1311- 051503 S C 1312- 051111 R I 1313- 050124 P T 1314- 044517 I O 1315- 047055 N - 1316- 026455 - - 1317- 026455 - - 1320- 026455 - - 1321- 026455 - - 1322- 026440 - SP 1323- 020040 SP SP 1324- 051511 S I 1325- 055105 Z E 1326- 020040 SP SP 1327- 020040 SP SP 1330- 020123 SP S 1331- 044105 H E 1332- 046106 L F 1333- 020040 SP SP 1334- 020040 SP SP 1335- 051510 S H 1336- 042514 E L 1337- 043040 F SP 1340- 020106 SP F 1341- 044530 I X 1342- 052125 T U 1343- 051105 R E 1344- 020040 SP SP 1345- 020040 SP SP 1346- 020102 SP B 1347- 052514 U L 1350- 045440 K SP 1351- 020040 SP SP 1352- 020124 SP T 1353- 047524 O T 1354- 040514 A L 1355- 020040 SP SP 1356- 020040 SP SP 1357- 051524 S T 1360- 047503 O C 1361- 045440 K SP 1362- 020040 SP SP 1363- 020040 SP SP 1364- 041517 C O 1365- 042105 D E 1366- 020040 SP SP 1367- 020040 SP SP 1370- 020101 SP A 1371- 042112 D J 1372- 027040 . SP ***************************************************** END of Module 145 ***************************************************** ***************************************************** * Page 01 Column 14- SPOOL BUFFER *Step Octal Comment ***************************************************** 3400- xxxxxx ISSUING TASK NUMBER 3401- xxxxxx First BIN NUMBER 3402- xxxxxx Last BIN NUMBER