/ SAMPLE TALLEY GENERATOR 21-JUL-91 / / / / TTTTT AAA L L EEEEE Y Y / T A A L L E Y Y / T A A L L E Y Y / T A A L L EEEE Y / T AAAAA L L E Y / T A A L L E Y / T A A LLLLL LLLLL EEEEE Y / / / / / /EDIT HISTORY: / /26-APR-90 (LHN) / 1) DELETED REFERENCES TO RANDOM SAMPLING / /22-MAY-90 (LHN) / 1) CHANGES TO REPORT BOX SAMPLING / /3-JUL-90 (LHN) / 1) ADDED SAMPLE TRAY OUT MESSAGE / 2) ADDED CODE TO MOVE PARTIAL BOX COUNT TO CRT / TEXT FOR "ENDROL" TO USE / /31-JUL-90 (LHN) / 1) ALLOW MORE THAN 1 SPLICE SEEN MESASGE / 2) WAIT FOR CRTCTR BEFORE DOING TOTALS / 3) ADDED SECOND FORM FEED AT START OF ROLL / /30-AUG-90 (LHN) / 1) ADDED OPERATOR MESSAGE CODE TO INLOCK MESSAGE / 2) ADDED REASON FOR MACHINE STOP TO THE MACHINE / STOP MESSAGE ON THE SAMPLE TALLEY. / / /26-JUN-91 (LHN) FOR VERSION 4 / 1) DELETED SISTER ROLL REPORTS / 2) DELETED SHEAR CUT LOGIC / 3) ADDED LOG OF "EXTRA" QC SAMPLES / 4) ADDED CURL SAMPLE MESSAGE / / / / /%R SAMPLE TALLY GENERATOR / /%TW COME HERE AND CHECK EACH CHOP FOR INFORMATION / OF INTEREST TO THE SAMPLE TALLY, SUCH AS REJECTS, / SAMPLES, SPLICES, AND TALLEY MESSAGES. / / ALL SAMPLE TALLY LINES ORIGINATE HERE ! / "TALLEY" SHOULD BE HIGHER PRIORITY THAN "CRTCTR". / / TASK= TALLEY CUR= TALLYFLD INIWT= 0 VERS= 4 FIELD TALLYFLD%10 *TALLYPGZ TALLA, 0 *TALLYLOC / / /%RT SHEET TYPE CODE BITS / /%TW THE CODE BITS USED BY MAST FOR MARKING THE TYPE OF / SHEET BEFORE THE CHOP LINE ARE AS FOLLOWS: / /%TN DATA MEANING /%TN BIT /%TN /%TN 0 TRAY EJECT CONTROL /%TN 1 SPLICE SAMPLE /%TN 2 IN-ROLL SPLICE SAMPLE /%TN /%TN 3 "EXTRA" SAMPLE /%TN 4 AUTOMATIC OR MANUAL REJECT /%TN 5 BOX SAMPLE /%TN /%TN 6 START ROLL SAMPLE /%TN 7 END ROLL SAMPLE /%TN 8 SPLICE ON THIS SHEET /%TN /%TN 9 SHEET NOT INSPECTED /%TN 10 SHEET HAS AN EMULSION MISS /%TN 11 SHEET IS A REJECT /%TN /%TN / / / / / / THE SHEET CODE BITS AFTER THE CHOP LINE ARE: / / / DATA MEANING / BIT / / 0 EJECT TRAY AFTER THIS SHEET / 1 / 2 / / 3 SAMPLE MARK THIS SHEET / 4 / 5 / / 6 PUT SHEET IN SAMPLE TRAY / 7 PUT SHEET IN REJECT A TRAY / 8 PUT SHEET IN REJECT B TRAY / / 9 PUT SHEET IN PRODUCT C TRAY / 10 PUT SHEET IN PRODUCT A TRAY / 11 PUT SHEET IN PRODUCT B TRAY / / / / / LETTER CODES FOR THE SAMPLE MARKER / / / DATA RESULTING USE / NIBBLE MARKER LETTER / / 0 R / 1 A START ROLL SAMPLE / 2 F / 3 P "EXTRA" SAMPLE / 4 M / / 5 K / 6 D END ROLL SAMPLE / 7 T SPLICE SHEET / 8 C SPLICE SAMPLE / 9 N / / 10-17 BLANK / / / START, CLB CAL SUSPND /GO TO SLEEP 'TIL NEEEDED CLB TAD CHOPFG /CHOP OCCUR ? SNA CLA JMP TAL10 /NO, GO ON. DCA CHOPFG CDF 10 TAD I (SROFLG) /ARE WE IN STACKER RUN OUT TAD I (CTHOLD) /OR COUNT/HOLD ? SZA CLA JMP START /YES, JUST EXIT. ISZ CRTDEF /SET THE CRT DATA FLAG PENDING, TAD (CRTCTR) / AND ENABLE THE UPDATER TO RUN. CAL RUN CDF 30 ISZ I (INCRTC) /INCREMENT THE CHOP COUNTER FLAG CDF 10 TAD I (MEMPTR) /GET THE SHEET DESTINATION DATA DCA TALLA /FROM THE DEFECT MEMORY TABLE. TAD I TALLA / CDF CUR MQL /SAVE IT IN THE MQ. ACL AND (0070) /IS THIS A GOOD PRODUCT SHEET ? SZA CLA JMP TAL2 /NO, IT IS A REJECT OR SAMPLE. TAD NEWBDL /IS THE BOX CHANGED FLAG SET ? SNA CLA JMP TAL1 /NO, GO ON CDF 30 AC4000 /RESET THE SHEET COUNTER DISPLAY. DCA I (INCRST) ISZ I (INCRTB) /INCREMENT THE BOX DISPLAY COUNTER TAL1, CDF 30 ISZ I (INCRST) /INCREMENT THE SHEET/BOX COUNTER CDF CUR TAD NEWBOX /DELAY A NEW BOX BY 1 GOOD SHEET. DCA NEWBDL DCA NEWBOX JMP TAL10 /ALL DONE WITH THIS SHEET / TAL2, ACL AND (0047) /IS THE SHEET A REJECT ? SZA CLA JMP TAL3 /NO, SHOULD BE A SAMPLE. CDF 30 ISZ I (INCRTR) /INCREMENT THE REJECT DISPLAY CDF CUR JMP TAL10 /ALL DONE FOR THIS SHEET. TAL3, ACL AND (0037) /IS THIS REALLY A SAMPLE ? SZA CLA JMP TAL10 /NO, A TRAY MUST BE OUT. CDF 30 ISZ I (INCRTS) /INCREMENT THE SAMPLE DISPLAY. CDF CUR CDF 10 /IS THIS IS A BOX SAMPLE ? TAD I (CHOPSV) CDF CUR AND (0100) /BOX SAMPLE BIT SZA CLA JMP TAL4 /YES, GO ON CDF 30 /NO, INCREMENT SPLICE SAMPLE ISZ I (INCRSS) / COUNTER. CDF CUR TAL4, CAL /NOW WAIT FOR THE CRT UPDATE TO WAITE / FINISH. CRTDEF CLB JMP TAL5 / PAGE / / CREATE A SAMPLE TALLEY LINE / TAL5, TAD I TALPTR /IS THIS BUFFER SLOT PENDING ? SNA CLA JMP TAL6 /NO, ALL IS OK ! CAL /YES, THE PRINTER IS FAILING, GO SEND / STOP THE MACHINE. INLOCK TERMG1 JMP TAL10 TAL6, TAD TALPTR /SAVE THE MESSAGE ADDRESS FOR DCA TAL8 / FORMAT. TAD TALPTR /MOVE PAST HEADER AND SET UP THE TAD (5) / AUTO-INDEX TO THE DATA AREA DCA XR11 CDF 10 TAD I (CHOPSV /GET THE DETAILS OF THIS SHEET MQL / LEFT BY PRODCT DCA I (CHOPSV) CDF CUR ACL /IS THIS A BOX SAMPLE? AND (0100) SNA CLA JMP TAL6A /NO, GO ON TAD (BINBOX-1) /YES, SET UP DATA ADDRESSES FOR DCA XR10 / BOX SAMPLES. TAD (CRTD05+1) DCA SAMNAD JMP TAL6B TAL6A, TAD (BINSSM-1) /SET UP ADDRESSES FOR SPLICE DCA XR10 / SAMPLES TAD (CRTD08+1) DCA SAMNAD / TAL6B, TAD I XR10 /MOVE THE SAMPLE NUMBER. DCA I XR11 TAD I XR10 DCA I XR11 ISZ XR11 /SKIP OVER THE FORMAT DATA SPEC. TAD (BINBOX-1) /SET UP ADDRESS FOR THE REST OF DCA XR10 / THE DATA FOR THIS TALLEY LINE ACL /IS THIS A SPLICE SAMPLE ? AND (2010) SNA CLA JMP TAL6C TAD (4007) /YES, SAVE THE SPLICE CHARACTER DCA SAMTYP / (T) FOR THE SAMPLE MARKER. ISZ SPLMFG /SET THE SPLICE MESSAGE FLAG JMP TAL9 TAL6C, ACL AND (0040) /IS THIS A START-ROLL SAMPLE ? SNA CLA JMP TAL6D TAD (4001) /YES, SAVE THE START-ROLL DCA SAMTYP / CHARACTER (A) FOR THE SAMPLE TAD (4001) / MARKER. JMP TAL7 TAL6D, ACL /IS THIS AN IN-ROLL SPLICE AND (1000) / SAMPLE ? SNA CLA JMP TAL6E TAD (4010) /YES, SAVE THE IN-ROLL SPLICE DCA SAMTYP / CHARACTER (C) FOR THE SAMPLE TAD (4003) / MARKER JMP TAL7 TAL6E, ACL /IS THIS AN END-OF-ROLL SAMPLE ? AND (0020) SNA CLA JMP TAL6F TAD (4006) /YES, SAVE THE END-OF-ROLL DCA SAMTYP / CHARACTER (D) FOR THE SAMPLE TAD (4004) / MARKER JMP TAL7 TAL6F, ACL /IS THIS AN "EXTRA" SAMPLE ? AND (0400) SNA CLA JMP TAL6G TAD (4003) /YES, SAVE THE "EXTRA" CHARACTER DCA SAMTYP / (P) FOR THE SAMPLE MARKER TAD (4020) JMP TAL7 / TAL6G, TAD (4017) /MUST BE A BOX SAMPLE - SEND A DCA SAMTYP / BLANK LETTER TO THE MARKER TAD (4040) /JUST 2 SPACES FOR THE TALLEY JMP TAL7 TERMG1, ZBLOCK 3 /OPEN "MAST MONITOR" INTERLOCK MSTINL+MOPM10 / AND "PRINTER FAILURE" MESSAGE PAGE TAL7, DCA I XR11 /PUT THE SAMPLE TYPE IN THE MESSAGE ISZ XR11 /SKIP OVER INPUT SPEC TAD (-7) /SET UP AND MOVE THE REST OT THE DCA TALLA / SAMPLE LINE TAD I XR10 DCA I XR11 ISZ TALLA JMP .-3 DCA I XR11 /NOW ADD A TERMINATOR IAC JMS NEWLIN /CHECK IF WE NEED A NEW PAGE CAL /SEND THE LINE BUFFER TO THE SEND / OUTPUT FORMATTER. FORMAT TAL8, 0 CLB IAC /UPDATE THE BUFFER SLOT POINTER. TAD XR11 DCA TALPTR TAD TALPTR /ARE WE AT THE END OF THE BUFFER ? TAD (-TALEND) SPA CLA JMP TAL9 /NO, GO ON. TAD (TALBUF) DCA TALPTR TAL9, TAD (SMARKQ) /RUN THE TASK TO QUEUE CAL /THE SAMPLE MARKER DATA. RUN JMP TAL10 / / CHECK FOR THE END OF A TALLEY PAGE / / NEWLIN, 0 DCA NEWLA TAD DWLINE /IS THE LINE COUNTER = 0 ? SNA CLA JMP NEWL1 /YES, JUST DO HEADING AC3777 AND NEWLA /NO, ADD IN THE NUMBER OF LINES TAD DWLINE / WE NEED. SMA JMP NEWL1 /NEED A NEW PAGE DCA DWLINE /THIS PAGE IS STILL OK, JMP I NEWLIN /RETURN NEWL1, CLB /SEND OUT A FORM FEED ISZ DWPAGE /INCREMENT THE PAGE COUNTER TAD DWPAGE /PUT PAGE NUMBER IN FORMAT DCA NEWM1A CAL /AND A NEW HEADING. SEND FORMAT NEWMG1 TAD NEWLA /DO WE NEED THE SUB HEADING ? SPA CLA JMP NEWL2 /NO, GO ON. CAL SEND FORMAT NEWMG2 NEWL2, AC3777 /RESET THE LINE COUNTER AND NEWLA TAD (-70) DCA DWLINE JMP I NEWLIN NEWLA, 0 / NEWMG1, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM10 0017 214 CUR^100+2 NEWMG4 CUR^100 NEWMG5 0010 NEWM1A, 0 0 NEWMG2, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM05 0 NEWMG4, TEXT "012-345-678-9 " NEWMG5, 0 PAGE / / / CHECK FOR SAMPLE TALLEY MESSAGES / / / / MACHINE STOP MESSAGE / TAL10, CLB TAD STPMGF /DID THE MACHINE STOP ? SNA CLA JMP TAL11 /NO, GO ON. DCA STPMGF /YES, FIRST CLEAR OUR FLAG. TAD TAL10M /IS OUR MESSAGE BUSY ? SZA CLA JMP TAL11 /YES, FORGET IT. TAD SMGADR /IS THE MESSAGE ADDRESS = 0 ? SZA CLA JMP TAL10B /NO, GO ON. TAL10A, TAD (CRTM19) /YES, IT WAS A NORMAL OPERATOR DCA SMGADR / STOP, USE DEFAULT MESSAGE TAL10B, TAD SMGADR /MOVE THE STOP MESSAGE ADDRESS DCA TAL10N / TO THE 'FORMAT' MESSAGE. AC7775 /COMPUTE THE ADDRESS OF THE TAD SMGADR / MESSAGE LENGTH DCA SMGADR CDF CRTXFLD TAD I SMGADR /MOVE THE MESSAGE LENGTH TO THE CDF CUR / FORMAT TEXT SNA /IS THE MESSAGE LENGTH = 0 ? JMP TAL10A /YES, USE DEFAULT MESSAGE DCA FRM24N DCA SMGADR /CLEAR THE STOP MESSAGE ADDRESS CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL /NO, SEND OUT THE STOP MSG SEND FORMAT TAL10M JMP TAL11 TAL10M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM24 CUR^100 BINCHP CRTXFLD^100+2 TAL10N, 0 0 / / MACHINE CHECK MESSAGE / TAL11, CLB TAD MCKMGF /MACHINE CHECK FLAG SET ? SNA CLA JMP TAL12 /NO, GO ON. TAD TAL11M /IS OUR MESSAGE BUSY ? SZA CLA JMP TAL12 /YES, GO ON. TAD MCKMGF /GET THE DATA IN OUR FLAG BSW AND (0007) TAD (300) DCA TAL11A /SAVE THE TRAY LETTER. TAD MCKMGF AND (0007) TAD (260) DCA TAL11B /SAVE THE SHEET COUNT DCA MCKMGF /CLEAR OUR FLAG. CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL /LOG OUR MESSAGE SEND FORMAT TAL11M JMP TAL12 TAL11M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM23 0016 TAL11A, 301 /TRAY LETTER 0016 TAL11B, 265 /SHEET COUNT 0 / / / SPECIAL SAMPLE MESSAGE / / TAL12, CLB TAD NEWBDL /ARE WE STARTING A NEW BOX ? SNA CLA JMP TAL13 /NO , GO ON TAD CRLMGF /DID THE OPERATOR TAKE ANY CURL SNA CLA / SAMPLES FOR THE LAST BOX? JMP TAL13 /NO, ... TAD CRLMGF /GET THE DATA IN OUR FLAG BSW AND (0007) TAD (300) DCA TAL12A /SAVE THE TRAY LETTER. TAD CRLMGF AND (0007) TAD (260) DCA TAL12B /SAVE THE SHEET COUNT DCA CRLMGF /CLEAR OUR FLAG. CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL /LOG OUR MESSAGE SEND FORMAT TAL12M JMP TAL13 TAL12M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM30 0016 TAL12A, 301 /TRAY LETTER 0016 TAL12B, 265 /SHEET COUNT 0 PAGE / / EMULSION MISS MESSAGE / TAL13, CLB TAD EMFMGF /EMULSION MISS FLAG SET ? SNA CLA JMP TAL14 /NO, GO ON. TAD EMFMGD /WAS IT SET THE LAST TIME. SZA CLA /THRU. JMP TAL15 /YES, GO ON. TAD TAL13M /IS OUR MESSAGE BUSY ? SZA CLA JMP TAL15 TAD BINCHP /MOVE THE CHOP COUNTER DCA TAL13A TAD BINCHP+1 DCA TAL13A+1 CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL SEND FORMAT TAL13M ISZ EMFMGD /SET THE EM MESSAGE ACTIVE FLAG. JMP TAL15 TAL13M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM25 0010 TAL13A, 0 0 0 / TAL14, TAD EMFMGD /WAS IT SET THE LAST TIME THRU ? SNA CLA JMP TAL15 /NO, GO ON. TAD TAL14M /IS OUR MESSAGE BUSY ? SZA CLA JMP TAL15 /YES, GO ON ? DCA EMFMGD /CLEAR THE EM MESSAGE ACTIVE FLAG. TAD BINCHP /MOVE THE CHOP COUNTER DCA TAL14A TAD BINCHP+1 DCA TAL14A+1 CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL /GO LOG OUR MESSAGE SEND FORMAT TAL14M JMP TAL15 TAL14M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM26 0010 TAL14A, 0 0 0 / / PUTUP CHANGE MESSAGE / TAL15, CLB TAD NPCODE /NEW PUT UP CODE ? SNA CLA JMP TAL16 /NO, GO ON. TAD TAL15M /IS OUR MESSAGE BUSY ? SZA CLA JMP TAL16 DCA NPCODE /CLEAR OUR FLAG. CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL SEND FORMAT TAL15M JMP TAL16 TAL15M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM22 CRTXFLD^100+2 CRTX07 CUR^100 BINBOX 0 / / NEW SAMPLING CODE MESSAGE / TAL16, CLB TAD NSCODE /NEW SAMPLING CODE ? SNA CLA JMP TAL17 /NO, GO ON. TAD TAL16M /IS OUR MESSAGE BUSY ? SZA CLA JMP TAL17 /YES, GO ON DCA NSCODE /CLEAR OUR FLAG TAD BINCHP /MOVE THE CHOP COUNTER DCA TAL16A TAD BINCHP+1 DCA TAL16A+1 CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL SEND FORMAT TAL16M JMP TAL17 TAL16M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM21 CRTXFLD^100+2 CRTX08 0010 TAL16A, 0 0 0 PAGE / / / SPLICE SEEN MESSAGE / / TAL17, CLB TAD SPLMFG /SPLICE MESSAGE FLAG SET SNA CLA JMP TAL18 DCA SPLMFG /CLEAR OUR FLAG TAD TAL17M /FIRST SPLICE MESSAGE FLAG SET ? SZA CLA JMP TAL17A /YES, TRY SECOND SPLICE MESSAGE TAD BINCHP /MOVE THE CHOP COUNT DCA TAL17N TAD BINCHP+1 DCA TAL17N+1 CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL SEND /SEND OUT THE MESSAGE FORMAT TAL17M JMP TAL18 TAL17A, TAD TAL17Q /SECOND SPLICE MESSAGE FLAG SET ? SZA CLA JMP TAL18 /YES, FORGET IT. TAD BINCHP /MOVE THE CHOP COUNT DCA TAL17R TAD BINCHP+1 DCA TAL17R+1 CLB IAC /CHECK FOR FULL PAGE JMS NEWLIN CAL SEND /SEND OUT THE MESSAGE FORMAT TAL17Q JMP TAL18 / TAL17M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM20 0010 TAL17N, 0 0 0 TAL17Q, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM20 0010 TAL17R, 0 0 0 / / SAMPLE TRAY OUT MESSAGE / TAL18, CLB TAD SMTOUT /IS THE SAMPLE TRAY OUT WHEN IT SNA CLA / IS NEEDED ? JMP TAL19 /NO, GO ON. DCA SMTOUT /YES, FIRST CLEAR OUR FLAG. TAD TAL18M /IS OUR MESSAGE BUSY ? SZA CLA JMP TAL19 /YES, FORGET IT. CLB IAC JMS NEWLIN /CHECK FOR FULL PAGE CAL /SEND OUT OUR MESSAGE SEND FORMAT TAL18M JMP TAL19 TAL18M, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM29 CUR^100 BINCHP 0 TAL19, / / / LOOK FOR END OF ROLL WORK TO DO / / / TAL20, CLB TAD EORSFG /END OF ROLL SEQUENCE FLAG SET ? SZA CLA JMP TALEOR /YES, TO DO IT TAL21, CLB TAD CLRTOT /SHOULD WE TRY TO CLEAR TOTALS ? SNA CLA JMP TAL22 TAD TEM7 /ARE THE TOTALS PRINTED ? SZA CLA JMP TAL22 DCA CLRTOT /CLEAR OUR FLAG TAD (-13) /YES, DO IT DCA TALLA TAD (TEM6A-1) DCA XR10 DCA I XR10 ISZ TALLA JMP .-2 TAL22, TAD NXTRID /NEXT ROLL ID SNA CLA JMP TAL23 TAD TEM9 SZA CLA JMP TAL23 DCA NXTRID ISZ MROLLF JMP TAL23 PAGE / TAL23, CLB TAD MROLLF /SHOULD WE MOVE THE ROLL NUMBER ? SNA CLA JMP TAL24 DCA MROLLF /CLEAR OUR FLAG TAD (-10) /MOVE THE ROLL NUMBER LOCALLY DCA TALLA TAD (NEWMG4-1) DCA XR10 TAD (CRTX06-1) DCA XR11 CDF 30 TAD I XR11 CDF CUR DCA I XR10 ISZ TALLA JMP .-5 TAD BINSHR /UPDATE THE SHIFT ROLL NUMBER. DCA NEWMG5 TAL24, JMP START / / / DO END OF ROLL SUMMARY / / TALEOR, CLB /CHECK FOR NEW SHIFT. CDF 30 TAD I (SHFTRL) SZA CLA AC4000 IAC /YES, SAY RESET BEFORE DCA I (INCRSR) / INCREMENTING SHIFT ROLL DCA I (SHFTRL) /CLEAR OUR FLAG CDF CUR CLB /WAIT FOR THE CRT DATA UPDATER. CAL WAITE CRTDEF JMP TALE2 /NO, TO ON. / PAGE / / / DO GRAND TOTALS / / TALE2, CLB ISZ CLRTOT /SET THE CLEAR TOTALS FLAG TAD (TEM6A-1) /MOVE DATA TO THE TOTAL AREA DCA XR11 JMS TALMA TAD (4012) JMS NEWLIN CAL /FIRST OUR HEADING SEND FORMAT TEM5 CAL SEND FORMAT TEM2 CAL /THEN OUR TOTALS SEND FORMAT TEM6 CAL /NOW START A NEW PAGE FOR THE SEND / NEXT ROLL. FORMAT TEM7 CAL /LOG ROLL INFO. SEND FORMAT TEM8 CAL /SEND OUT TALLEY DATA HEADER. SEND FORMAT TEM9 CLB TAD (-70+10) /RESET THE LINES PER PAGE COUNTER DCA DWLINE CLB IAC DCA DWPAGE /SET THE PAGE # RESET FLAG / TAD (CRTD06) /MOVE THE PARTIAL BOX COUNT TO DCA XR10 / CRT TEXT MESSAGE FOR "ENDROL" TAD (CRTM11-1) / TO USE. (WHEN WE ARE RUNNING DCA XR11 / THRU END-OF-ROLL, ENDROL DOES CDF 30 / NOT GET TO RUN BEFORE "CRTCTR" TAD I XR10 / CLEARS THE DATA COUNTERS....) DCA I XR11 TAD I XR10 DCA I XR11 TAD I XR10 DCA I XR11 AC4000 /NOW CLEAR THE CRT COUNTERS IAC TAD I (INCRTB) DCA I (INCRTB) AC4000 TAD I (INCRST) DCA I (INCRST) CDF CUR CDF 30 /NOW WE RESET THE CRT COUNTERS AC4000 TAD I (INCRTC) DCA I (INCRTC) AC4000 TAD I (INCRTR) DCA I (INCRTR) AC4000 TAD I (INCRTS) DCA I (INCRTS) AC4000 TAD I (INCRTM) DCA I (INCRTM) AC4000 TAD I (INCRSS) DCA I (INCRSS) CDF CUR DCA EORSFG /CLEAR THE END OF ROLL FLAG ISZ NXTRID /ROLL ID UPDATE FLAG TAD (ENDROL) CAL RUN JMP TAL21 / / MOVE PRODUCT DATA FOR OUTPUT / TALMA, 0 CLB TAD (BINBOX-1) DCA XR10 TAD (-7) /MOVE,BOX,SHEETS,CHOPS AND DCA TALLA /REJECTS TAD I XR10 DCA I XR11 ISZ TALLA JMP .-3 TAD BINSAM /NOW THE SAMPLES. DCA I XR11 TAD BINSAM+1 DCA I XR11 TAD I XR10 /LASTLY THE METER. DCA I XR11 TAD I XR10 DCA I XR11 JMP I TALMA PAGE / / / GRAND TOTAL HEADINGS / / TEM2, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM07 0 TEM5, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM08 CUR^100+2 NEWMG4 0 TEM6, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM09 0110 TEM6A, 0 /BOX COUNT 0 0 /SHEET IN BOX 0 /CHOPS 0 0 /REJECTS 0 0 /SAMPLES 0 0 /METERS 0 0 TEM7, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM03 0017 /FORM FEED 0214 0017 /ANOTHER FORM FEED 0214 CRTXFLD^100+2 CRTX06 CUR^100 BINSHR 0 TEM8, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM04 CRTXFLD^100+2 CRTX07 CRTXFLD^100+2 CRTX11 CRTXFLD^100+2 CRTX08 CRTXFLD^100+2 CRTX12 CRTXFLD^100+2 CRTX09 CRTXFLD^100+2 CRTX10 CRTXFLD^100+2 CRTX13 0 / TEM9, ZBLOCK 3 LPTXFLD^100+400+DIRTAL FORM05 0 PAGE NOPUNCH XLIST 1