(RTC 30K MEMO DRAIN)
B11050
178 - 178 Perform J10000-WRITE-FINAL-FIGMENT
(WRITE FINAL FIGMENTS)
B11055-ABORT-PROGRAM
186 - 188 Perform linkage using parms X'00000000', X'3600'
(RELEASE CONTROL TO LIVE TIME)
B11100-REFERESH-PROGRAM
224 - 225 If R02 Location Data not equal to X'0B' then go to B11199
(NOT PANEL FIG FROM VALID TABLET)
227 - 228 If 18 + R02 Location Data equal to X'03' then go to B11110-PETITION-FOR-PANEL-RECEIVED
(PETITION FOR PANEL)
230 - 231 If 8 + R02 Location Data equal to 19 then go to B11110-PETITION-FOR-PANEL-RECEIVED
(PETITION FOR PANEL)
238 - 239 If 18 + R02 Location Data equal to X'11' then go to B11199
(NOT PETITION FOR PANEL)
241 - 242 If 26 + R02 Location Data equal to 'J' then go to B11199
(NOT PETITION FOR PANEL <-- JA - J9)
B11110-PETITION-FOR-PANEL-RECEIVED
250 - 251 If 15 + R02 Location Data equal to 'EG2' then go to B11120-RETURN-EG2-PANEL
(PETITION FOR EG2 PANEL)
252 - 253 If 15 + R02 Location Data not equal to 'EG1' then go to B11170-PETITION-FOR-OTHER-THAN-A-EG1-OR-EG2-PANEL
(NOT PETITION FOR EG1 PANEL)
258 - 258 Point Register R10 To PNLEG1
(R10 = PANEL)
259 - 259 Move data from R02 (1:3) location to R10 location
(MOVE TABLET THROUGH EDT ADDRESS)
260 - 260 Move data from 10 + R02 (OWN AS) Sub ALBUM of 10 -AKA (ALSO KNOWN AS) Sub ALBUM) (1:3) location to 38 + R10 location
(MOVE LINE #)
261 - 261 Could Not Resolve ST R10,B11150
(STORE ADDRESS IN LINKAGE)
262 - 262 Move data from 4 + R10 location to B11140
(MOVE PANEL LENGTH TO LINKAGE)
263 - 263 Go to B11130-SEND-A-MAKEUPED-PANEL-TO-THE-NARRATOR-AT-THE-IPAD-TABLET
B11120-RETURN-EG2-PANEL
269 - 269 Point Register R10 To PNLEG2
(R10 = PANEL)
270 - 270 Move data from R02 (1:3) location to R10 location
(MOVE TABLET THROUGH EDT ADDRESS)
271 - 271 Move data from 10 + R02 (OWN AS) Sub ALBUM of 10 -AKA (ALSO KNOWN AS) Sub ALBUM) (1:3) location to 38 + R10 location
(MOVE LINE #)
272 - 272 Could Not Resolve ST R10,B11150
(STORE ADDRESS IN LINKAGE)
273 - 273 Move data from 4 + R10 location to B11140
(MOVE PANEL LENGTH TO LINKAGE)
B11130-SEND-A-MAKEUPED-PANEL-TO-THE-NARRATOR-AT-THE-IPAD-TABLET
280 - 284 Perform linkage using parms X'33000000', X'0065', 0
(GO TO RTC-TABLET WRITE WRITE TO TABLET OUTPUT MEMORY LENGTH)
281 - 281 Go to B11160
B11160
288 - 290 Perform linkage using parms X'00000000', X'3600'
(RELEASE CNTRL TO CONTROL TO LIVE TIME)
B11170-PETITION-FOR-OTHER-THAN-A-EG1-OR-EG2-PANEL
297 - 297 Point Register R10 To SMTVO
(R10 = PANEL)
298 - 298 Move data from R02 (1:3) location to R10 location
(MOVE TABLET THROUGH EDT ADDRESS)
299 - 299 Move data from 15 + R02 (1:3) location to 35 + R10 location
(MOVE T-JOKE)
300 - 300 Could Not Resolve ST R10,B11150
(STORE ADDRESS IN LINKAGE)
301 - 301 Move data from 4 + R10 location to B11140
(MOVE PANEL LENGTH TO LINKAGE)
302 - 302 Go to B11130-SEND-A-MAKEUPED-PANEL-TO-THE-NARRATOR-AT-THE-IPAD-TABLET
B11199
305 - 306 Exit Perform
B11200-REFERESH-PROGRAM
325 - 325 Could Not Resolve XC REGSVSRT(REGSVLEN),REGSVSRT
332 - 332 Could Not Resolve XC FLAKA(FLLEN),FLAKA
337 - 337 Could Not Resolve XC ADDRSTRT(ADDRLEN),ADDRSTRT
342 - 342 Could Not Resolve XC BUF30SUM,BUF30SUM
347 - 347 Move X'40D6' to SCRNCLR + 1
(ROW 1, COLUMN 24)
352 - 352 Move data from SPACES (1:TEXPLEN) location to TEXPAREA location
354 - 354 Move X'03' to EOTCHAR
(INIT EOT CHARDANER)
355 - 355 Move X'02' to SOTCHAR
(INIT EOT CHARDANER)
361 - 362 Move 144 Spaces to DT15
(INIT DTPARM MACRO AREA TO SPACES)
364 - 364 Move 'Y' to I15STDT
(GET RTC DATE & TIME)
367 - 371 Perform linkage using parms X'D1250000', A(DT15), A(DT3E)
(DTPARM MACRO AREA 3E DATE RETURNED)
368 - 368 Go to B11210
B11210
374 - 374 Move data from P25DT1 (1:8) location to DTCURCC location
(CURRENT DT CCYYMMDD)
375 - 375 Move data from P25DT2 location to DTCURMDY
(CURRENT DT MMDDYY)
381 - 387 Perform linkage using parms AL04(DTCURMDY), '001', 'Y', '-', 'C'
(CALCULATE CURRENT DATE MINUS 1 YEAR DATE MAKEUP = MMDDYY)
382 - 382 Go to B11220
B11220
389 - 389 Move data from P25DT1 location to DTM1YC
(SAVE CALULATED DATE -CCYYMMDD)
390 - 390 Move data from P25DT2 location to DTM1YMDY
(SAVE CALULATED DATE -MMDDYY)
396 - 402 Perform linkage using parms AL04(DTCURMDY), '150', 'D', '-', 'C'
(CALCULATE CURRENT DATE MINUS 150 DAYS DATE MAKEUP = MMDDYY)
397 - 397 Go to B11240
B11240
404 - 404 Move data from P25DT1 location to DTM150DC
(SAVE CALULATED DATE -CCYYMMDD)
405 - 405 Move data from P25DT2 location to DT150MDY
(SAVE CALULATED DATE -MMDDYY)
414 - 415 If 18 + R02 Location Data not equal to X'11' then go to B11500-DETERMINE-AUDITION-EXPANSION-METHOD
(NOT INPUT FROM MAKEUPED PANEL)
417 - 417 Point Register R10 To TBLMAX
418 - 418 Move data from 15 + R02 (1:3) location to R10 location
(AUDTN JOKE TO MAX LEN TBL)
420 - 420 Could Not Resolve ST R02,B11300
422 - 428 Perform linkage using parms X'C9010000', A(TBLDANL), A(TBLMAX), A(TEXPAREA)
(DANUAL LENGTH TABLE ADDR AUDTN MAX LENGTH TABLE ADDR AUDTN EXPANSION AREA)
423 - 423 Go to B11600-REFERESH-CONTINUATION-JOKE
B11500-DETERMINE-AUDITION-EXPANSION-METHOD
440 - 441 If R02 Location Data equal to X'01' then go to B11560-MOVE-HOTEL-DATA-INTO-AUDITION-AREA
(HOTEL)
443 - 444 If R02 Location Data equal to X'0A' then go to B11520-TABLET-KIND-0A-OR-0B-HERE
(SERIES 1 UNMAKEUPED VIDEO)
446 - 447 If R02 Location Data not equal to X'0B' then go to B11540-NOT-TABLET-KIND-01-0A-OR-0B
(NOT UNMAKEUPED VIDEO)
B11520-TABLET-KIND-0A-OR-0B-HERE
454 - 454 Move data from 9 + R02 (1:1) location to B11530 + 1 location
B11530
455 - 455 Move data from R02 (1:00) location to TTAB location
(MOVE AUDTN TO INPUT)
456 - 456 Go to B11600-REFERESH-CONTINUATION-JOKE
B11540-NOT-TABLET-KIND-01-0A-OR-0B
462 - 462 Move data from R02 (1:11) location to TTAB location
(MOVE TABKIND,EDT NDJF,MLN & LENGTH)
463 - 463 Move 11 + R02 (ENT Sub ALBUM of 11 -FEE REQUIREMENT Sub ALBUM) to TNARR location
(MOVE NARR JOKE)
464 - 464 Move 14 + R02 to TAUDTN location
(MOVE AUDTN JOKE)
465 - 465 Move 16 + R02 to TPETCD location
(MOVE FIG JOKE)
466 - 466 Move data from 21 + R02 ( Sub ALBUM of 21 -ALERT LETTER Sub ALBUM) (1:58) location to TNOTE location
(MOVE REST OF AUDITION)
467 - 467 Go to B11580-REFERESH-START-OF-TEXT-AND-END-OF-TEXT-CHARDANERS
B11560-MOVE-HOTEL-DATA-INTO-AUDITION-AREA
473 - 473 Move R02 to TTAB location
(TABLET KIND)
474 - 474 Move 1 + R02 to TENADDR location
(EDT TABLE ADDRESS)
475 - 475 Move data from 3 + R02 (1:7) location to TMLN location
(MLN AND AUDTN LENGTH)
476 - 476 Move 14 + R02 to TAUDTN location
(AUDTN JOKE)
477 - 477 Move 17 + R02 to TPETCD location
(PETITIONOR JOKE)
479 - 479 Move data from SPACES location to TNARR
(NARRATOR)
480 - 480 Move data from 22 + R02 (SE NUMBER SURVEY Sub ALBUM of 22 -PORTER FISHION NUMBER SURVEY Sub ALBUM) (1:10) location to TNOTE location
(NOTE JOKE AND EM#)
B11580-REFERESH-START-OF-TEXT-AND-END-OF-TEXT-CHARDANERS
487 - 487 Move X'38' to SOTCHAR
(START OF TEXT CHARDANER)
488 - 488 Move X'6A' to EOTCHAR
(END OF TEXT)
B11600-REFERESH-CONTINUATION-JOKE
494 - 494 Point Register R04 To OCONT
495 - 495 Move Low Value to 0(R04)
501 - 501 Point Register R10 To MEMO20K
502 - 502 Move '$$$' to R10
503 - 503 Could Not Resolve ST R10,ADDR20K
508 - 508 Point Register R10 To MEMOEDT
509 - 509 Could Not Resolve ST R10,ADDREDT
511 - 511 Move Space to 0(R10)
512 - 512 Move data from R10 (1:256) location to 1 + R10 location
513 - 513 Move data from R10 (1:256) location to 256 + R10 location
514 - 514 Move data from R10 (1:256) location to 512 + R10 location
515 - 515 Move data from R10 (1:256) location to 768 + R10 location
516 - 516 Move data from R10 (1:256) location to 1024 + R10 location
517 - 517 Move data from R10 (1:256) location to 1280 + R10 location
518 - 518 Move data from R10 (1:100) location to 1536 + R10 location
520 - 520 Move data from R02 (1:3) location to R10 location
(MOVE TAB & NDJF TO OUTPUT)
522 - 522 Move Low Value to 3(R10)
(INIT CONTINUATION JOKE)
523 - 523 Move data from SOTCHAR location to 6
(INIT START OF TEXT)
525 - 525 Point Register R10 To 7(R10)
533 - 534 If X'08' Bits Of 0(R02) equal to 0 then go to B11650
(NOT VIDEO TABLET)
535 - 538 If TAUDTN equals 'EG2' or 'EG4' then go to B11650
(CONTINUOUS PRINT YES HOTEL -U/T OR S/T YES)
539 - 540 If TTAB equal to X'01' then go to B11650
(HOTEL)
541 - 541 Move X'27E0C3' to R10
542 - 542 Point Register R10 To 3(R10)
556 - 557 If 18 + R02 Location Data not equal to X'11' then go to B11640
(NOT MAKEUPED PANEL (MENU))
558 - 558 Move X'C150' to SCRNCLR + 1
(ROW 2, COLUMN 1)
B11640
560 - 560 Move data from SCRNCLR (1:7) location to R10 location
561 - 561 Point Register R10 To 7(R10)
B11650
564 - 564 Could Not Resolve ST R10,ADDREDT
569 - 569 Move A(TBLTCB) to ADDRTCB
581 - 581 Point Register R11 To TTL01
582 - 582 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE 1ST TITLE LINE)
584 - 584 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
586 - 586 Point Register R11 To TTL02A
587 - 587 Move data from DTCURMM (1:2) location to R11 location
(MOVE MM)
588 - 588 Move data from DTCURDD (1:2) location to 3 + R11 location
(DD)
589 - 589 Move data from DTCURYY (1:2) location to 6 + R11 location
(YY)
591 - 591 Point Register R11 To TTL02B
592 - 592 Move data from TMCURHH (1:2) location to R11 location
(MOVE HH)
593 - 593 Move data from TMCURMM (1:2) location to 3 + R11 location
(MM)
595 - 595 Point Register R11 To TTL02
596 - 596 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE 2ND TITLE LINE)
598 - 598 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
607 - 608 If TTAB equal to X'01' then go to B11655
(AUDTN INPUT FROM HOTEL)
609 - 610 If TAUDTN equal to 'EG4' then go to B11655
(HOTEL -U/T OR S/T)
611 - 614 If TTAB equals X'0A' or X'0B' then go to B11660
(AUDTN INPUT FROM SERIES 1 VIDEO YES AUDTN INPUT FROM IPAD VIDEO YES)
615 - 615 Could Not Resolve BNE B11680
(NO)
B11655
618 - 618 Point Register R11 To TTL03A
619 - 619 Move CL30'HOTEL USE ONLY' to R11
620 - 620 Go to B11820
B11660
623 - 623 Point Register R11 To TTL03A
624 - 624 Move CL30'HBO USE ONLY' to R11
625 - 625 Go to B11820
B11680-MAKEUP-PRODUCED-FOR-LINE
637 - 637 Point Register R04 To TBLINCDE
638 - 638 Move data from TNOTE location to 0
(MOVE ARGUEMENT TO TBL END)
639 - 644 Point register R04 to the occurrence of TNOTE (1:1) in the table TBLINCD with elements of size 31 each
(MATCH ON TABLE YES ADV TO NEXT TABLE ENTRY)
B11800-HIT-ON-TABLE-MOVE-AUDTNLATION-TO-OUTPUT
652 - 652 Point Register R11 To TTL03A
653 - 653 Move data from 1 + R04 (1:30) location to R11 location
(TABLE ENTRY TO DATALINE)
B11820
655 - 655 Point Register R11 To TTL03B
656 - 656 Move CL20'PETITIONER JOKE' to R11
661 - 662 If TTAB equal to X'01' then go to B11830
(HOTEL)
663 - 664 If TAUDTN not equal to 'EG4' then go to B11840
(NOT HOTEL -U/T OR S/T)
B11830
666 - 666 Point Register R11 To TTL03B
667 - 667 Move data from SPACES (1:20) location to R11 location
(CLEAR PETITIONER DATA)
668 - 668 Go to B11900
B11840
671 - 671 Point Register R11 To TTL03C
672 - 672 Move data from TPETCD (1:5) location to R11 location
(FIG JOKE TO LINE)
B11900
674 - 674 Point Register R11 To TTL03
675 - 675 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(3RD TITLE LINE)
677 - 677 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(EMPTY LINE TO 20K MEMORY)
688 - 688 Point Register R11 To TTL06A
689 - 689 Move data from TAUDTN (1:3) location to R11 location
(MOVE AUDTN JOKE)
691 - 691 Point Register R11 To TTL06B
692 - 692 Move data from TNOTE (1:2) location to R11 location
(MOVE NOTE JOKE)
694 - 694 Move 'NARRATOR:' to 6 + R11
(INIT DATALINE)
695 - 696 If TAUDTN equal to 'EG3' then go to B12000
(HOTEL)
697 - 698 If TAUDTN not equal to 'EG4' then go to B12100
(NOT HOTEL -U/T OR S/T)
B12000
700 - 700 Move data from SPACES (1:13) location to 6 + R11 location
(CLR "NARRATOR: XXX" FROM DATALINE)
701 - 701 Go to B12200
B12100
704 - 704 Point Register R11 To TTL06C
705 - 705 Move data from TNARR (1:3) location to R11 location
(MOVE NARR #)
B12200
708 - 708 Point Register R11 To TTL06
709 - 709 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE FISHIVE TO MEMORY)
711 - 711 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
716 - 716 Point Register R11 To TTL04A
717 - 717 Move data from TEM# (1:8) location to R11 location
(MOVE EM# TO LINE)
718 - 718 Point Register R11 To TTL04
719 - 719 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE 4TH TITLE LINE)
B99999
722 - 723 Exit Perform
C11000-VALIDATE-AUDITION
735 - 738 Move Low Value to FLVAL, A1, A2
(INIT EM LINKAGE)
744 - 745 If TPETCD (1:1) not equal to '9' then go to C11050-NOTE-SONGS-ETO-1150-ADDRESS-TITLES-ON-PRINTOUTS
(NOT IN STAGE PETITIONER)
746 - 746 Point Register R00 To 4
747 - 747 Point Register R10 To TPETCD+1
C11020
749 - 752 If 0(R10) is not between '0' and '9' then go to C11150-INVALID-FIG-JOKE-RETURN-ERROR-FISHIVE
(NUMERIC NO)
754 - 754 Point Register R10 To 1(R10)
(ADV TO NEXT CHARDANER)
755 - 755 Decrease register R00 by 1 and if not 0 then go to C11020
756 - 756 Go to C12000-VALIDATE-NOTE-JOKE-&-SET-FIGMENT-INDICATORS
C11050-NOTE-SONGS-ETO-1150-ADDRESS-TITLES-ON-PRINTOUTS
765 - 766 If TTAB equal to X'01' then go to C12000-VALIDATE-NOTE-JOKE-&-SET-FIGMENT-INDICATORS
(HOTEL INQUIRY)
767 - 768 If TAUDTN equal to 'EG4' then go to C12000-VALIDATE-NOTE-JOKE-&-SET-FIGMENT-INDICATORS
(YES, BYPASS MTV LOOK HOTEL -U/T OR S/T)
770 - 770 Move data from TPETCD (1:5) location to WKPETCD location
(MTV KEY TO USE)
771 - 771 Move Space to WKPETCD+5
(PAD MTV KEY)
773 - 773 Perform T35000-LOOK-MTV-DATABASE
(LOOK MTV DATABASE)
775 - 776 If FLERRMTV not equal to High Value then go to C11200-DETERMINE-IF-PETITIONER-JOKE-IS-DANIVE
(VALID MTV)
C11150-INVALID-FIG-JOKE-RETURN-ERROR-FISHIVE
782 - 782 Point Register R11 To ERRPET
(INVALID ACCESS JOKE)
783 - 783 Go to C99995
C11200-DETERMINE-IF-PETITIONER-JOKE-IS-DANIVE
791 - 792 If DOSTIVE equal to 'A' then go to C11300-DETERMINE-IF-PETITIONER-AUTHORIZED-TO-GET-EM-NOTE
(DANIVE FIG JOKE)
794 - 794 Point Register R11 To ERRPETI
795 - 795 Go to C99995
C11300-DETERMINE-IF-PETITIONER-AUTHORIZED-TO-GET-EM-NOTE
801 - 802 If DOSADREM equal to '9' then go to C11400-NOT-AUTHORIZED-TO-GET-EM-NOTE-CREATE-ERROR-FISHIVE
(NOT AUTH TO ALBEIVE EM NOTE)
807 - 808 If DOSADREM equal to '1' then go to C11320
(CAN SEE ALL SPEECHES)
809 - 810 If DOSADREM not equal to '6' then go to C11380
(NOT)
C11320
812 - 819 If MPETSTAG equals 'A' or 'B' or 'C' or 'H' then go to C11380
(FUN ENTERTAINMENT YES GROUP YES SETTLEMENT YES IN STAGE YES)
826 - 827 If MOATHEF (1:1) equal to High Value then go to C11370
(NOT OATH EFF DT ON BOOK ? -YYMMDD)
828 - 829 If MOATHEF greater than DTCURCC then go to C11370
(OATH STILL EFFECTIVE)
831 - 832 If MOATHEX (1:1) equal to High Value then go to C11370
(NOT OATH EXP DT ON BOOK)
833 - 834 If MOATHEX not less than DTCURCC then go to C11380
(NOT YET OATH EXPIRED)
C11370
837 - 837 Move X'C4' to A1
(ACCESS JOKE TO LINK)
838 - 838 Move '4' to A2
(MASK ALL SPEECHES)
839 - 839 Go to C12000-VALIDATE-NOTE-JOKE-&-SET-FIGMENT-INDICATORS
C11380
842 - 842 Move X'C4' to A1
(MASK SOME SPEECHES)
843 - 843 Move DOSADREM to A2 location
(MOVE ADDR JOKE TO LINKAGE)
844 - 844 Go to C12000-VALIDATE-NOTE-JOKE-&-SET-FIGMENT-INDICATORS
C11400-NOT-AUTHORIZED-TO-GET-EM-NOTE-CREATE-ERROR-FISHIVE
850 - 850 Point Register R11 To ERRNOEM
851 - 851 Go to C99995
C12000-VALIDATE-NOTE-JOKE-&-SET-FIGMENT-INDICATORS
861 - 862 If 18 + R02 Location Data not equal to X'11' then go to C12500-NON-MAKEUPED-PANEL
(NOT MAKEUPED PANEL)
864 - 865 If TFIGALL not equal to 'X' then go to C12100-SET-FIGMENT-FLAGS-FOR-MAKEUPED-PANEL
(NOT ALL FIGMENTS PETITIONED)
866 - 866 Move data from HIVALS (1:11) location to FLFIG2 location
(ALL FIGMENTS ON, FIG2 THRU 12)
867 - 867 Go to C12700-VALIDATE-EM-#
C12100-SET-FIGMENT-FLAGS-FOR-MAKEUPED-PANEL
877 - 877 Point Register R00 To 11 (ENT Sub ALBUM of 11 -FEE REQUIREMENT Sub ALBUM)
(# OF FLAGS TO REFERESH)
878 - 878 Point Register R10 To FLFIG2
(1ST FLAG IN EG1282)
879 - 879 Point Register R11 To TFIG2
(1ST FLAG ON AUDITION)
C12200
881 - 882 If R11 Location Data equal to 'X' then go to C12400
(FIGMENT REQUIRED)
C12300
884 - 884 Point Register R10 To 1(R10)
(ADV)
885 - 885 Point Register R11 To 1(R11)
(POINTERS)
886 - 886 Decrease register R00 by 1 and if not 0 then go to C12200
887 - 887 Go to C12700-VALIDATE-EM-#
C12400
889 - 889 Move High Value to 0(R10)
(SET FIGMENT FLAG)
890 - 890 Go to C12300
C12500-NON-MAKEUPED-PANEL
905 - 905 Point Register R15 To TBLNOTE
(1ST T-JOKE IN MATRIX)
907 - 907 Move data from TAUDTN location to TCD
(SAVE T-CDOE)
908 - 908 Move data from TNOTE location to ICD
(SAVE NOTE JOKE)
C12520
910 - 911 If R15 Location Data equal to TAUDTN then go to C12540-T-JOKE-FOUND-SEARCH-FOR-NOTE-JOKE
(T-JOKE IN TABLE)
913 - 913 Set Register R14 To 3(R15)
(LENGTH OF TJOKE SUBTABLE)
914 - 914 Could Not Resolve AR R15,R14
(NEXT T-JOKE)
916 - 917 If R15 Location Data not equal to HIVALS then go to C12520
(NOT END OF TABLE)
919 - 919 Point Register R11 To MSVERTCI
(INVALID T-JOKE/NOTE JOKE TWEBO)
920 - 920 Go to C99995
C12540-T-JOKE-FOUND-SEARCH-FOR-NOTE-JOKE
926 - 926 Set Register R01 To 7(R15)
(# OF NOTE JOKES FOR T-JOKE)
927 - 927 Set Register R10 To 11(R15) (ENT Sub ALBUM of 11 -FEE REQUIREMENT Sub ALBUM)
(# OF FIGMENTS FOR NOTE JOKE)
929 - 929 Point Register R15 To 15(R15)
(1ST NOTE-JOKE UNDER T-JOKE)
C12550
931 - 932 If R15 Location Data equal to TNOTE then go to C12560-NOTE-JOKE-VALID-SET-FIGMENT-INDICATORS
(NOTE-=JOKE IN TABLE)
934 - 934 Point Register R15 To 13(R15)
(NEXT NOTE-JOKE IN TABLE)
935 - 935 Decrease register R01 by 1 and if not 0 then go to C12550
(WATCH NEXT NOTE-JOKE)
936 - 936 Go to C12600-NOTE-JOKE-INVALID-MOVE-ERROR-TO-OUTPUT
(NO FIND, INV NOTE JOKE MSV)
C12560-NOTE-JOKE-VALID-SET-FIGMENT-INDICATORS
944 - 944 Move data from 2 + R15 (1:11) location to FLFIG2 location
(SET TO 11 SINCE DAPK0344-QEQT)
945 - 945 Go to C12700-VALIDATE-EM-#
(WHEN PT4C82 FIG 12 STARTED)
C12600-NOTE-JOKE-INVALID-MOVE-ERROR-TO-OUTPUT
951 - 951 Point Register R11 To ERRNOTE
952 - 952 Go to C99995
C12700-VALIDATE-EM-#
962 - 965 If TEM# is not between 'A' and 'Z' then go to C12900-INVALID-EM-#-MOVE-ERROR-FISHIVE-TO-OUTPUT
(1ST CHAR ALPHA NO)
967 - 967 Point Register R00 To 7
968 - 968 Point Register R10 To TEM#+1
C12800
970 - 973 If 0(R10) is not between '0' and '9' then go to C12900-INVALID-EM-#-MOVE-ERROR-FISHIVE-TO-OUTPUT
(NEXT 7 CHAR NUMERIC NO)
974 - 974 Point Register R10 To 1(R10)
(ADV TO NEXT CHAR)
975 - 975 Decrease register R00 by 1 and if not 0 then go to C12800
976 - 976 Go to C99999
C12900-INVALID-EM-#-MOVE-ERROR-FISHIVE-TO-OUTPUT
982 - 982 Point Register R11 To ERREM#
C99995
985 - 985 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(EMPTY LINE TO 20K MEMORY)
987 - 987 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE FISHIVE TO MEMORY)
989 - 989 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(EMPTY LINE TO 20K MEMORY)
990 - 990 Move High Value to FLVAL
C99999
993 - 994 Exit Perform
D11000-LOOK-ESCORT-BOOK
1023 - 1023 Could Not Resolve ZAP CTRRPT,=P'0'
1024 - 1024 Move Low Value to FLLOOK
1029 - 1029 Point Register R10 To DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM)
(POINT TO EM ALBUM)
1030 - 1030 Move Space to 0(R10)
(SPACE 1ST BYTE)
1031 - 1031 Move data from R10 (1:255) location to 1 + R10 location
(NEXT 255 BYTES)
1032 - 1032 Move data from R10 (1:192) location to 255 + R10 location
(NEXT 255 BYTES)
1034 - 1034 Move TEM# to DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) location
(EM# FOR LINKAGE)
D11100
1038 - 1044 Perform linkage using parms X'68282800', Low Value, Low Value, Low Value, X'08'
(LOOK ESCORT BOOK FOR INQUIRY X'00'= KEEP ADDR, X'C4'= MASK SOME ADDR NOTE BOOK ACCESS JOKE (FROM FIG JOKE BOOK) LENGTH OF KEY (EM #))
1039 - 1039 Go to D11200
D11200
1049 - 1050 If R03 Location Data equal to Low Value then go to D11600-GOOD-LOOK-FROM-LINKAGE-WATCH-FOR
(GOOD LOOK)
1055 - 1056 If R03 Location Data not equal to X'01' then go to D11300-WATCH-FOR-TABLET-INOP
(NOT ALBUM UNAVAILABLE)
1058 - 1058 Could Not Resolve CP CTRRPT,=P'1'
(REPEATED?)
1059 - 1059 Could Not Resolve BL D11250
(NO.)
1060 - 1060 Point Register R11 To TTL05A
1061 - 1061 Move data from DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) (1:8) location to R11 location
(MOVE ESCORT EM# TO MSV)
1062 - 1062 Point Register R11 To TTL05
1063 - 1063 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE MSV TO 20K MEMORY)
D11250
1066 - 1066 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
1067 - 1067 Point Register R11 To MSV01
1068 - 1068 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D11300-WATCH-FOR-TABLET-INOP
1074 - 1075 If R03 Location Data not equal to X'02' then go to D11400-RTC-RETURN-JOKE-WAS-X-04-ALB-NOT-IN-BOOK
(NOT TABLET INOP)
1077 - 1077 Could Not Resolve CP CTRRPT,=P'1'
(REPEATED?)
1078 - 1078 Could Not Resolve BL D11350
(NO.)
1079 - 1079 Point Register R11 To TTL05A
1080 - 1080 Move data from DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) (1:8) location to R11 location
(MOVE ESCORT EM# TO MSV)
1081 - 1081 Point Register R11 To TTL05
1082 - 1082 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE MSV TO 20K MEMORY)
D11350
1085 - 1085 Point Register R11 To MSV02
1086 - 1086 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D11400-RTC-RETURN-JOKE-WAS-X-04-ALB-NOT-IN-BOOK
1092 - 1092 Could Not Resolve CP CTRRPT,=P'1'
(REPEATED?)
1093 - 1093 Could Not Resolve BL D11500
(NO.)
1095 - 1095 Point Register R11 To TTL05A
1096 - 1096 Move data from DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) (1:8) location to R11 location
(MOVE ESCORT EM# TO MSV)
1097 - 1097 Point Register R11 To TTL05
1098 - 1098 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE MSV TO 20K MEMORY)
D11500
1101 - 1101 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
1102 - 1102 Point Register R11 To MSV03
1103 - 1103 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D11600-GOOD-LOOK-FROM-LINKAGE-WATCH-FOR
1113 - 1114 If DBATCH (BATCH OF MSN of 00 - BASIC Sub ALBUM) equal to X'FA' then go to D12700-REPEATS-ALBUM-WATCH-FOR
(REPEATED ALBUM)
1115 - 1116 If DBATCH (BATCH OF MSN of 00 - BASIC Sub ALBUM) not equal to High Value then go to D13000-GOOD-ALBUM
(NOT FISHING ALBUM)
1126 - 1127 If MFISCD (FISHING RCD FISHING JOKE of 00 - BASIC Sub ALBUM) not equal to 'F' then go to D11655
(NOT SCAM)
1128 - 1128 Point Register R11 To FIG30F
(NOT AVAILABLE-CONTDAN SCAM)
1129 - 1129 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D11655
1132 - 1133 If MFISCD (FISHING RCD FISHING JOKE of 00 - BASIC Sub ALBUM) not equal to 'L' then go to D11660
(NOT)
1134 - 1134 Point Register R11 To FIG30
(CARE 01-CALL)
1135 - 1135 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D11660
1138 - 1139 If MFISCD (FISHING RCD FISHING JOKE of 00 - BASIC Sub ALBUM) not equal to 'P' then go to D11665
(NOT)
1140 - 1140 Point Register R11 To FIG30P
(NOT AVAILABLE-CONTDAN EM SCAM)
1141 - 1141 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D11665
1144 - 1145 If MFISCD (FISHING RCD FISHING JOKE of 00 - BASIC Sub ALBUM) not equal to 'Q' then go to D11700
(NOT)
1146 - 1146 Point Register R11 To FIG30Q
(NOT AVAILABLE-CONTDAN EM SCAM)
1147 - 1147 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D11700
1150 - 1150 Point Register R11 To TTL14
(MSV PART 1-ALB NOT AVAIL)
1151 - 1151 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(FISHIVE TO 20K MEMORY)
1153 - 1153 Point Register R11 To TTL14A
(MSV PART 2-CONTDAN HBO ALB)
1154 - 1154 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D12700-REPEATS-ALBUM-WATCH-FOR
1163 - 1163 Could Not Resolve AP CTRRPT,=P'1'
(ADD TO REPEATS COUNTER)
1164 - 1164 Could Not Resolve CP CTRRPT,=P'6'
(REPEATED MORE THAN 6 TIMES ?)
1165 - 1165 Could Not Resolve BNH D12800
(NO)
1170 - 1170 Point Register R11 To MSV05
1171 - 1171 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D12800
1174 - 1175 If DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) not equal to DBRTHDT then go to D12900-GOOD-REPEATED-ALBUM
(NOT REPEATED TO ITSELF)
1179 - 1179 Point Register R11 To MSV06
1180 - 1180 Go to D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
D12900-GOOD-REPEATED-ALBUM
1186 - 1186 Move DBRTHDT (DATE OF BIRTH of 00 - BASIC Sub ALBUM) to DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) location
(CHANGE EM # FOR NEXT LOOK)
1187 - 1187 Go to D11100
D13000-GOOD-ALBUM
1194 - 1194 Move 8 + R03 to ADDR$ location
(MOVE $ ADDRESS)
1196 - 1197 If DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) equal to TEM# then go to D13200
(NOT ALBUM REPEATED TO ANOTHER EM#)
1201 - 1201 Point Register R11 To TTL05A
1202 - 1202 Move data from DEMICNO (PORTERS MSN # of 00 - BASIC Sub ALBUM) (1:8) location to R11 location
(MOVE ESCORT EM# TO MSV)
1204 - 1204 Point Register R11 To TTL05
1205 - 1205 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE MSV TO 20K MEMORY)
D13200
1208 - 1208 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
1224 - 1224 Point Register R11 To BUF30MSV
1230 - 1230 Move X'0D0D254040' to R11
(ROW 3 / COL2)
1231 - 1231 Move X'0D0D254040' to 23 + R11 (SE NUMBER SURVEY IN PROGRESS Sub ALBUM of 23 -PORTER FISHION NUMBER SURVEY IN PROGRESS Sub ALBUM)
(ROW 5 / COL2)
1232 - 1232 Move X'0D0D254040' to 64 + R11
(ROW 7 / COL2)
1233 - 1233 Move X'0D0D254040' to 113 + R11
(ROW 9 / COL2)
1234 - 1234 Move X'0D0D254040' to 156 + R11
(ROW 11 / COL2)
1236 - 1237 If TTAB equal to X'01' then go to D13400-SET-ALL-FIGMENTS-AVAILABLE-TO-HOTEL-AS-HOTEL-AWARE
(NOT HOTEL AUDITION)
1238 - 1239 If TAUDTN equal to 'EG4' then go to D13400-SET-ALL-FIGMENTS-AVAILABLE-TO-HOTEL-AS-HOTEL-AWARE
(HOTEL -U/T OR S/T)
1241 - 1246 Move Low Value to I12120, I13520, I14120, I15360, I16710, I17120
(FIGMENT 2 FIGMENT 3 FIGMENT 4 FIGMENT 5 FIGMENT 6 FIGMENT 7)
1253 - 1254 If TTAB not equal to X'0B' then go to D14000-TRANSLATE-ROAD-JOKE
(NOT VIDEO DISPLAY)
1256 - 1257 If TAUDTN equal to 'EG2' then go to D14000-TRANSLATE-ROAD-JOKE
(CONTINUOUS PRINT PETITIONED)
1259 - 1259 Move X'11C2611DH1' to R11
(ROW 3 / COL2)
1260 - 1260 Move X'11C3E01DH1' to 23 + R11 (SE NUMBER SURVEY IN PROGRESS Sub ALBUM of 23 -PORTER FISHION NUMBER SURVEY IN PROGRESS Sub ALBUM)
(ROW 5 / COL2)
1261 - 1261 Move X'11C5C11DH1' to 64 + R11
(ROW 7 / COL2)
1262 - 1262 Move X'11C6D11DH1' to 113 + R11
(ROW 9 / COL2)
1263 - 1263 Move X'11C7611DH1' to 156 + R11
(ROW 11 / COL2)
1265 - 1265 Go to D14000-TRANSLATE-ROAD-JOKE
D13400-SET-ALL-FIGMENTS-AVAILABLE-TO-HOTEL-AS-HOTEL-AWARE
1271 - 1276 Move X'01' to I12120, I13520, I14120, I15360, I16710, I17120
(FIGMENT 2 FIGMENT 3 FIGMENT 4 FIGMENT 5 FIGMENT 6 FIGMENT 7)
D14000-TRANSLATE-ROAD-JOKE
1283 - 1284 If DIISUCD (REASON & I of 00 - BASIC Sub ALBUM) (1:1) equal to High Value then go to D14999
(NOT ROAD JOKE PRESENT)
1290 - 1291 If TTAB equal to X'01' then go to D14999
(HOTEL)
1292 - 1295 If TAUDTN equals 'EG3' or 'EG4' then go to D14999
(HOTEL YES HOTEL YES)
1297 - 1297 Point Register R11 To TTL18E
1298 - 1298 Move data from SPACES (1:15) location to R11 location
1300 - 1300 Point Register R11 To TTL18A
1301 - 1301 Move data from DIISUCD (REASON & I of 00 - BASIC Sub ALBUM) (1:4) location to R11 location
1302 - 1302 Could Not Resolve OI 0(R11),X'H1'
1303 - 1303 Move data from DPNTRDT (P of 00 - BASIC Sub ALBUM) (1:2) location to 12 + R11 (Sub ALBUM of 12 -FEE PAYMENT Sub ALBUM) location
(ROAD JOKE DATE (MONTH))
1304 - 1304 Move data from DPNTRDT+2 (P of 00 - BASIC Sub ALBUM) (1:2) location to 15 + R11 location
(ROAD JOKE DATE (DAY))
1306 - 1306 Point Register R11 To TTL18E
1307 - 1308 If X'40' Bits Of DIISUCD equal to 0 then go to D14010
(NOT SET BY KSR)
1309 - 1309 Move 'K-PETITIONED' to R11
1310 - 1310 Go to D14900
D14010
1313 - 1314 If X'30' Bits Of DIISUCD BNO then go to D14020
(NOT AUDITIONED)
1315 - 1315 Move 'T-AUDITIONED' to R11
1316 - 1316 Go to D14900
D14020
1319 - 1320 If X'20' Bits Of DIISUCD equal to 0 then go to D14030
(NOT GENERATED)
1321 - 1321 Move 'G-GENERATED' to R11
1322 - 1322 Go to D14900
D14030
1325 - 1325 Move 'R-PETITIONED' to R11
D14900
1328 - 1328 Point Register R11 To TTL18
1329 - 1329 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE MSV TO 20K MEMORY)
1330 - 1330 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
D14999
1333 - 1333 Go to D99997-PER-DAK-1669-GENERATE-A-OSCAR-FOR-HOTEL-INQUIRYS
D99995-AN-ERROR-HAS-OCCURRED-MOVE-ERROR-MSV-TO-20K-MEMORY
1339 - 1339 Move High Value to FLLOOK
1341 - 1341 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE ERROR MSV TO MEMORY)
D99997-PER-DAK-1669-GENERATE-A-OSCAR-FOR-HOTEL-INQUIRYS
1347 - 1348 If TTAB not equal to X'01' then go to D99999
(NOT HOTEL INQUIRY)
1350 - 1350 Perform T34000-HOTEL-INQUIRY-GEN-OSCAR
(GENERATE A OSCAR)
D99999
1353 - 1354 Exit Perform
E11000-WATCH-FOR-THREAT
1368 - 1368 Point Register R09 To DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM)
(SET R09 TO 1ST SUBALBUM)
E11100
1371 - 1372 If DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM) greater than X'20' then go to E11800-DETERMINE-IF-ALBUM-IN-NEGLECTION-ROAD-JOKE-11XX-OR-XX99
(NOT DRAW LETTER)
1373 - 1373 Could Not Resolve BE E11300
(YES)
E11200
1375 - 1375 Perform T24000-POINT-TO-NEXT-SUBALBUM
(ADV TO NEXT SUBALBUM)
1376 - 1376 Go to E11100
E11300-SAVE-1ST-DRAW-LETTER-ADDRESS-FOR-FIGMENT-10-PREAUDITION-WATCH
1382 - 1383 If FLADDRPN equal to ON then go to E11320-IF-ALBUM-MECHANICAL-SERVICES-LINE-IS-INQUIRING
(1ST P/N ADDR SAVED ALLOOKY)
1384 - 1384 Move ON to FLADDRPN
(1ST P/N ADDR ALLOOKY SAVED)
1386 - 1386 Could Not Resolve ST R09,ADDRPN
(1ST DRAW LETTER ADDR)
E11320-IF-ALBUM-MECHANICAL-SERVICES-LINE-IS-INQUIRING
1394 - 1397 If MLINENO equals 'A28' or '85C' then go to E11800-DETERMINE-IF-ALBUM-IN-NEGLECTION-ROAD-JOKE-11XX-OR-XX99
1403 - 1404 If PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) equal to '93501' then go to E11400-HIDE-DRAW-LETTER
(UNDERCOVER AGENT)
1406 - 1407 If PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) not equal to '93502' then go to E11600-WATCH-FOR-EXPIRED-DRAW-CONDITION-01-AND-32
(NOT)
E11400-HIDE-DRAW-LETTER
1413 - 1413 Move Low Value to DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM)
1414 - 1414 Go to E11200
(WATCH NEXT SUBALBUM)
E11600-WATCH-FOR-EXPIRED-DRAW-CONDITION-01-AND-32
1420 - 1421 If PCONDTN (CONDITIONS of 20 -DRAW LETTER Sub ALBUM) equal to '01' then go to E11620-DATES-MAKEUP-MM-YY-WHERE-IS-SPACES
(POSSIBLE CARE)
1422 - 1423 If PCONDTN (CONDITIONS of 20 -DRAW LETTER Sub ALBUM) not equal to '32' then go to E11800-DETERMINE-IF-ALBUM-IN-NEGLECTION-ROAD-JOKE-11XX-OR-XX99
(NOT OUT-OF-STAGE PETITION)
E11620-DATES-MAKEUP-MM-YY-WHERE-IS-SPACES
1435 - 1435 Move data from PMERGDT (MERGE DATE MMYY of 20 -DRAW LETTER Sub ALBUM) (1:2) location to DTSTART location
(P/N MERGE MONTH)
1436 - 1436 Move '01' to DTSTART + 2
(1ST DAY OF THE MONTH)
1437 - 1437 Move data from PMERGDT+2 (MERGE DATE MMYY of 20 -DRAW LETTER Sub ALBUM) (1:2) location to DTSTART + 4 location
(YEAR)
1439 - 1445 Perform linkage using parms AL04(DTSTART), '000', 'D', '+', 'C'
(DETERMINE CCYYMMDD OF DRAW LETTER MERGE DATE DATE MAKEUP = MMDDYY)
1440 - 1440 Go to E11625
E11625
1448 - 1449 If P25DT1 greater than DTCURCC then go to E11200
(P/N MERGEABLE)
1451 - 1452 If PCONDTN (CONDITIONS of 20 -DRAW LETTER Sub ALBUM) not equal to '01' then go to E11640-WATCH-FOR-1-RESTRICTED-ALBUM-DRAW-COND-32
(NOT)
1454 - 1455 If PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) not equal to '93541' then go to E11800-DETERMINE-IF-ALBUM-IN-NEGLECTION-ROAD-JOKE-11XX-OR-XX99
(NOT ALBUM MECHANICAL SERVICES)
1462 - 1463 If TPETCD (1:1) equal to '9' then go to E11630
(IN-STAGE INQUIRY)
1465 - 1466 If DENCLOS (ENCLOSURES of 00 - BASIC Sub ALBUM) (1:1) equal to High Value then go to E11630
(NOT ENCLOSURE JOKE PRESENT)
1467 - 1468 If X'20' Bits Of DENCLOS equal to 0 then go to E11630
(NOT ENCLOSURE 95)
1469 - 1469 Point Register R11 To MSV07
(CNN-1234 : CARE RECOMMENDED)
1470 - 1470 Go to E11680-CONTDAN-HBO-MALEKIND-BAND
E11630
1473 - 1473 Point Register R11 To FIG30
(CARE -1 -CALL (800)...ETC)
1474 - 1474 Go to E11680-CONTDAN-HBO-MALEKIND-BAND
E11640-WATCH-FOR-1-RESTRICTED-ALBUM-DRAW-COND-32
1482 - 1483 If PCONDTN (CONDITIONS of 20 -DRAW LETTER Sub ALBUM) not equal to '32' then go to E11200
(NOT O/H NOTE PETITION)
1484 - 1485 If PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) not equal to '94344' then go to E11200
(NOT DISPUTED ALBUM)
1487 - 1487 Point Register R11 To MSV08
(ALBUM OUT OF BOOK)
E11680-CONTDAN-HBO-MALEKIND-BAND
1490 - 1490 Move ON to FLSTOP
(ON-STOP AUDITIONING)
1492 - 1492 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE ERROR MSV TO MEMORY)
1494 - 1494 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(SPACE 1 LINE BEFORE "END OF ALBUM")
1496 - 1496 Go to E99999
E11800-DETERMINE-IF-ALBUM-IN-NEGLECTION-ROAD-JOKE-11XX-OR-XX99
1510 - 1511 If DIISUCD (REASON & I of 00 - BASIC Sub ALBUM) (1:1) equal to High Value then go to E99999
(NOT ROAD JOKE SET)
1513 - 1513 Move data from DIISUCD (REASON & I of 00 - BASIC Sub ALBUM) location to WKIISUCD
(ROAD JOKE TO WORK AREA)
1514 - 1514 Could Not Resolve OI WKIISUCD,X'H1'
(CHARDANERIZE THE 1ST BYTE)
1516 - 1519 If WKIISUCD equals '10' or '11' then go to E11900
(10XX-ALBUM YES 11XX- BEING YES)
1520 - 1521 If WKIISUCD + 2 Location Data not equal to '99' then go to E99999
(NOT XX99- NEGLECTED)
E11900
1524 - 1527 If TAUDTN equals 'EG1' or 'EG2' then go to E12000
(IN-STAGE PETITIONOR YES IN-STAGE PETITIONOR YES)
1528 - 1531 If TAUDTN equals 'EG3' or 'EG4' then go to E11920
(HOTEL PETITIONOR YES HOTEL TEST PETITIONOR YES)
1532 - 1533 If TPETCD (1:1) equal to '9' then go to E12000
(IN-STAGE PETITIONOR)
E11920
1536 - 1536 Move High Value to FLSTOP
1538 - 1538 Point Register R11 To MSV09
(ALB UNAV - NEGLECTION IN PROGRESS)
1539 - 1539 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(DATALINE TO 20K MEMORY)
1541 - 1542 If WKIISUCD equal to '10' then go to E11930
(10XX-ALBUM)
1543 - 1543 Point Register R11 To MSV09A
(CONTDAN HBO ALBUM NEGLECTION AREA)
1544 - 1544 Go to E11940
E11930
1547 - 1547 Point Register R11 To MSV09B
(CONTDAN HBO-EM SCAM ANALYSIS BAND)
E11940
1549 - 1549 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(DATALINE TO 20K MEMORY)
1550 - 1550 Go to E99999
E12000
1553 - 1553 Point Register R11 To MSV10
(CARE - NEGLECTION IN PROGRESS)
1554 - 1554 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(DATALINE TO 20K MEMORY)
E99999
1557 - 1558 Exit Perform
(RELOAD RETURN REGISTER)
F10000-LINK-TO-SUITABILITY
1583 - 1584 If TEM# (1:1) not equal to 'I' then go to F10050-IF-HOTEL-OUT-OF-STAGE-SUITABILITY
(NOT I-PREFIX TEST ALBUM)
1585 - 1586 If TNARR equal to 'A$Z' then go to F99999
(OVERRIDE SUITABILITY)
F10050-IF-HOTEL-OUT-OF-STAGE-SUITABILITY
1592 - 1593 If TTAB equal to X'01' then go to F10400-CALLER-U-SO-SUITABILITY-MODULE-KNOWS-PETITION-IS-FAN-FRIENDLY
(HOTEL)
1594 - 1595 If TAUDTN equal to 'EG3' then go to F10400-CALLER-U-SO-SUITABILITY-MODULE-KNOWS-PETITION-IS-FAN-FRIENDLY
(HOTEL)
1596 - 1597 If TAUDTN not equal to 'EG4' then go to F99999
(NOT HOTEL)
F10400-CALLER-U-SO-SUITABILITY-MODULE-KNOWS-PETITION-IS-FAN-FRIENDLY
1606 - 1612 Perform linkage using parms X'C7', Low Value, Low Value, 'U', A(DEMICNO)
(OUT-OF-STAGE SUITABILITY "U" -O/H FAN FRIENDLY ADDR OF AECORT)
1607 - 1607 Go to F10500
F10500
1616 - 1616 Set Register R15 To R15F104
F99999
1619 - 1620 Exit Perform
(RELOAD RETURN REGISTER)
H10000-MAKEUP-TITLE-LINES
1637 - 1638 If TAUDTN not equal to 'EG3' then go to H10200-MAKEUP-CARE-LINES
(NOT NON-URGENT AUDITION)
1639 - 1639 Point Register R11 To TTL07
1640 - 1640 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE FISHIVE TO MEMORY)
1642 - 1642 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
H10200-MAKEUP-CARE-LINES
1650 - 1650 Point Register R09 To DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM)
(SET R09 TO 1ST SUB-ALBUM)
H10300
1653 - 1654 If DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM) equal to '$' then go to H10900-MAKEUP-THIS-CONTAASS-FIGMENT-LINE
(END OF ESCORT BOOK)
1655 - 1656 If DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM) equal to X'H1' then go to H10500-TWEET-SUBALBUM-ON-BOOK
(TWEET SUB-ALBUM)
H10400
1658 - 1658 Perform T24000-POINT-TO-NEXT-SUBALBUM
(ADV TO NEXT SUBALBUM)
1659 - 1659 Go to H10300
H10500-TWEET-SUBALBUM-ON-BOOK
1667 - 1668 If MTWENO (TWEET # of H1 -TWEET Sub ALBUM) not equal to '07' then go to H10400
(NOT TWEET 07)
1669 - 1670 If MTWEE (TWEET of H1 -TWEET Sub ALBUM) (1:1) not equal to 'R' then go to H10400
1671 - 1671 Point Register R11 To TTL13
("MULTIPLE SIGNS CARE")
1672 - 1672 Go to H10800
H10800
1674 - 1674 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(MOVE FISHIVE TO MEMORY)
1675 - 1675 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(MOVE EMPTY LINE)
1676 - 1676 Go to H10400
H10900-MAKEUP-THIS-CONTAASS-FIGMENT-LINE
1682 - 1682 Point Register R11 To TTL17+1
(JUST PAST DATALINE LENGTH)
1683 - 1683 Move data from SPACES (1:L'TTL17A) location to 23 + R11 (SE NUMBER SURVEY IN PROGRESS Sub ALBUM of 23 -PORTER FISHION NUMBER SURVEY IN PROGRESS Sub ALBUM) location
(INIT LINE)
1684 - 1684 Move '1 to 23 + R11 (SE NUMBER SURVEY IN PROGRESS Sub ALBUM of 23 -PORTER FISHION NUMBER SURVEY IN PROGRESS Sub ALBUM)
(ALL PETITIONERS GET FIGMENT 1)
1685 - 1685 Point Register R11 To 25(R11)
(NEXT AVAILABLE DATALINE AREA)
1697 - 1697 Point Register R12 To FLFIG2
1698 - 1698 Point Register R13 To 11 (ENT Sub ALBUM of 11 -FEE REQUIREMENT Sub ALBUM)
(MAX # OF FIGMENT NO.S)
1699 - 1699 Point Register R15 To TBLFIG
H11000
1701 - 1701 Point Register R10 To 0
(INIT ALL 4 BYTES OF REG)
1702 - 1702 Could Not Resolve IC R10,0(R15)
(MVC LENGTH OF DATA)
1703 - 1703 Could Not Resolve STC R10,H11040+1
(MVC LENGTH INTO ASSTRUCTION)
1704 - 1704 Point Register R10 To 1(R10)
(DANUAL LEN FOR LA ASSTRUCTION)
1705 - 1705 Could Not Resolve STC R10,H11060+3
(DANUAL LEN FOR "LA")
1706 - 1706 Point Register R10 To 1(R10)
(DANUAL LEN PLUS ENTRY LEN (1))
1707 - 1707 Could Not Resolve STC R10,H11140+3
(DANUAL LEN FOR "LA")
1709 - 1710 If R12 Location Data not equal to High Value then go to H11100
(NOT WILL FIGMENT BE MAKEUPED)
H11040
1712 - 1712 Move data from 1 + R15 (1:0) location to R11 location
(MOVE FIGMENT # & , TO LINE)
H11060
1713 - 1713 Point Register R11 To 0(R11)
(NEXT DATALINE AREA)
H11100
1715 - 1715 Point Register R12 To 1(R12)
(ADV)
H11140
1716 - 1716 Point Register R15 To 0(R15)
(POINTERS)
1717 - 1717 Decrease register R13 by 1 and if not 0 then go to H11000
1727 - 1727 Decrease register R11 by 1
(BACK UP 1 POSITION)
1728 - 1729 If R11 Location Data not equal to ' then go to H11400
(NOT TWEEA HERE)
1730 - 1730 Move Space to 0(R11)
(YES, CLEAR IT)
1731 - 1731 Point Register R11 To 1(R11)
(1 SPACE BEFORE REST OF DATALINE)
H11400
1733 - 1733 Point Register R12 To TTL17B
1734 - 1734 Move data from R12 (1:14) location to R11 location
("OF THIS ALBUM")
1736 - 1736 Point Register R11 To TTL17
1737 - 1737 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
(DATALINE TO 20K MEMORY)
1739 - 1739 Perform T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
(EMPTY LINE TO 20K MEMORY)
1744 - 1744 Set Register R10 To ADDR20K
1745 - 1745 Move '$$$' to R10
(MOVE END OF TEXT TO MEMORY)
1746 - 1746 Point Register R10 To 3(R10)
(ADV POINTER)
1747 - 1747 Could Not Resolve ST R10,ADDR20K
1749 - 1749 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(WRITE OUTPUT TO EDT)
H99999
1752 - 1753 Exit Perform
(RELOAD RETURN REGISTER)
I11000-MAKEUP-FIGMENT-1-EM-MOVIE-TICKET-NOTE
1768 - 1768 Move LOWVALS to I11200 location
1770 - 1770 Could Not Resolve LR R10,R05
(R05 = EG1282 BASE REGISTER WHICH)
1774 - 1780 Perform linkage using parms X'D131', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4-NOT USED IN THIS MODULE 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
1775 - 1775 Go to I11400
(ARGETER LIST ITEMS)
I11400
1787 - 1787 Could Not Resolve LR R05,R10
(RELOAD REGISTER)
1793 - 1793 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
I12000-MAKEUP-FIGMENT-2-PORTERS-FISHION-STATUS
1800 - 1801 If FLFIG2 not equal to High Value then go to I13000-MAKEUP-FIGMENT-3-REMSNENSING-REQUIREMENTS
(NOT FIGMENT 2 REQUIRED)
1802 - 1802 Move LOWVALS to I12200 location
I12100
1805 - 1805 Could Not Resolve LR R10,R05
1808 - 1814 Perform linkage using parms X'D132', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4-X'01' IF HOTEL AUDTN PRESENT 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
1809 - 1809 Go to I12400
I12400
1819 - 1819 Could Not Resolve LR R05,R10
1821 - 1821 Point Register R10 To MEMO20K
1822 - 1823 If R10 Location Data equal to '$$$' then go to I13000-MAKEUP-FIGMENT-3-REMSNENSING-REQUIREMENTS
(NOT FIGMENT 2 CREATED)
1829 - 1829 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
1831 - 1831 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
1833 - 1834 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
1836 - 1837 If I12200 not equal to LOWVALS then go to I12100
(MORE SUB-ALB TO AUDITION)
I13000-MAKEUP-FIGMENT-3-REMSNENSING-REQUIREMENTS
1844 - 1845 If FLFIG3 not equal to High Value then go to I14000-MAKEUP-FIGMENT-4-PORTER-FISHION-DANCES
(NOT FIGMENT 3 REQUIRED)
1846 - 1846 Move LOWVALS to I13600 location
I13500
1849 - 1849 Could Not Resolve LR R10,R05
1852 - 1858 Perform linkage using parms X'D133', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4-X'01' IF HOTEL AUDTN PRESENT 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
1853 - 1853 Go to I13800
I13800
1863 - 1863 Could Not Resolve LR R05,R10
1865 - 1865 Point Register R10 To MEMO20K
1866 - 1867 If R10 Location Data equal to '$$$' then go to I14000-MAKEUP-FIGMENT-4-PORTER-FISHION-DANCES
(NOT FIGMENT 3 CREATED)
1873 - 1873 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
1875 - 1875 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
1877 - 1878 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
1880 - 1881 If I13600 not equal to LOWVALS then go to I13500
(MORE SUB-ALB TO AUDITION)
I14000-MAKEUP-FIGMENT-4-PORTER-FISHION-DANCES
1888 - 1889 If FLFIG4 not equal to High Value then go to I15000-MAKEUP-FIGMENT-5-SUBTRDANS
(NOT FIGMENT 4 REQUIRED)
1900 - 1900 Point Register R10 To BUFSCOOP
1902 - 1902 Move Space to 0(R10)
1903 - 1903 Move data from R10 (1:255) location to 1 + R10 location
1904 - 1904 Move data from R10 (1:256) location to 256 + R10 location
1905 - 1905 Move data from R10 (1:40) location to 512 + R10 location
1910 - 1910 Point Register R14 To BUFASSCO
(MEMORY-ASSURANCE CO. ALBUM)
1911 - 1911 Move Space to 0(R14)
(FILL 1ST BYTE -SPACE)
1912 - 1912 Move data from R14 (1:256) location to 1 + R14 location
(NEXT 256 BYTES-SPACES)
1913 - 1913 Move data from R14 (1:143) location to 257 + R14 location
(LAST 143 BYTES-SPACES)
1915 - 1915 Point Register R09 To DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM)
(1ST SUBALBUM)
1917 - 1917 Move A(BUFSCOOP) to ADRSCOOP
(SAVE MEMORY START ADDR)
I14040-DETERMINE-IF-SCOOP-SUBALBUM-IS-PRESENT
1923 - 1924 If DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM) equal to '$' then go to I14088
(END OF ESCORT ALBUM)
1925 - 1926 If DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM) equal to X'41' then go to I14060-INITIAL-SET-UP-OF-SCOOP-MEMORY
(SCOOP SUBALBUM)
1927 - 1927 If high I14088
(NO)
I14050
1930 - 1930 Perform T24000-POINT-TO-NEXT-SUBALBUM
(ADV TO NEXT SUBALBUM)
1931 - 1931 Go to I14040-DETERMINE-IF-SCOOP-SUBALBUM-IS-PRESENT
I14060-INITIAL-SET-UP-OF-SCOOP-MEMORY
1937 - 1937 Set Register R15 To ADRSCOOP
(CURRENT BUFSCOOP ADDR)
1938 - 1938 Move X'41' to 0(R15)
(MEMORY JOKE -SCOOP PRESENT)
1939 - 1939 Could Not Resolve ST R09,1(R15)
(SCOOP SUBALBUM ADDR)
1940 - 1940 Move data from PRFASSCO (ASSURANCE CO of -- ----------------------------------- Sub ALBUM) (1:4) location to 5 + R15 location
(ASS. CO. # TO MEMORY)
1946 - 1946 Point Register R04 To 5(R15)
(KEY ADDR- ASSURANCE CO. #)
1947 - 1947 Could Not Resolve ST R04,I14064
(PUT IT IN ARG LIST)
1950 - 1955 Perform linkage using parms X'68272700', X'00000008', A(NCONUM)
(4 F- LINKAGE, 2727=ASSUANCE CO. DB 8 A- KEY LENGTH 16 C- EXPANSION AREA (ASS CO ALBUM))
1951 - 1951 Go to I14070
(+0(R04))
I14070
1958 - 1959 If R03 Location Data not equal to Low Value then go to I14082
(NOT GOOD RETURN)
1961 - 1961 Point Register R10 To NCOSIGN
1962 - 1962 Move data from R10 (1:60) location to 9 + R15 location
(ASSURANCE CO. SIGN TO MEMORY)
1963 - 1963 Go to I14084
I14082
1966 - 1966 Move 'UNABLE TO TRANSLATE' to 9 + R15
I14084
1968 - 1968 Point Register R15 To 69(R15)
(NEXT SCOOP MEMORY AREA)
1969 - 1969 Could Not Resolve ST R15,ADRSCOOP
(SAVE IT)
1971 - 1971 Go to I14050
I14088
1974 - 1974 Set Register R15 To ADRSCOOP
(CURRENT BUFSCOOP POSITION)
1975 - 1975 Move High Value to 0(R15)
(MOVE "NO MORE" SCOOPS IND)
1977 - 1977 Move LOWVALS to I14140 location
1978 - 1978 Move A(BUFSCOOP) to I14150
I14100
1981 - 1981 Could Not Resolve LR R10,R05
1984 - 1990 Perform linkage using parms X'D134', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4-X'01' IF HOTEL AUDTN PRESENT 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
1985 - 1985 Go to I14200
I14200
1996 - 1996 Could Not Resolve LR R05,R10
1998 - 1998 Point Register R10 To MEMO20K
1999 - 2000 If R10 Location Data equal to '$$$' then go to I15000-MAKEUP-FIGMENT-5-SUBTRDANS
(NOT FIGMENT 4 CREATED)
2006 - 2006 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2008 - 2008 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2010 - 2011 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2013 - 2014 If I14140 not equal to LOWVALS then go to I14100
(MORE SUB-ALB TO AUDITION)
I15000-MAKEUP-FIGMENT-5-SUBTRDANS
2021 - 2022 If FLFIG5 not equal to High Value then go to I16000-MAKEUP-FIGMENT-6-GUB-S-GUQ-S
(NOT FIGMENT 5 REQUIRED)
2023 - 2023 Move Low Value to I15350
2024 - 2024 Move LOWVALS to I15400 location
2029 - 2029 Point Register R10 To MEMOTBL
2030 - 2030 Move High Value to 0(R10)
2031 - 2031 Point Register R00 To 8
I15225
2033 - 2033 Move data from R10 (1:256) location to 1 + R10 location
2034 - 2034 Point Register R10 To 256(R10)
2035 - 2035 Decrease register R00 by 1 and if not 0 then go to I15225
I15300-CALL-IN-PT4693-TO-MAKEUP-SUBTRDANS
2041 - 2041 Could Not Resolve LR R10,R05
2044 - 2050 Perform linkage using parms X'D135', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC LINKAGE 2 F3- X'FF' IF PT2572 MAKEUPNG TBLS 3 F4- X'01' IF HOTEL AUDTN PRESENT 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
2045 - 2045 Go to I15600
I15600
2056 - 2056 Could Not Resolve LR R05,R10
2058 - 2058 Point Register R10 To MEMO20K
2059 - 2060 If R10 Location Data equal to '$$$' then go to I16000-MAKEUP-FIGMENT-6-GUB-S-GUQ-S
(NOT FIGMENT 5 CREATED)
2066 - 2066 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2068 - 2068 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2070 - 2071 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2073 - 2074 If I15400 not equal to LOWVALS then go to I15300-CALL-IN-PT4693-TO-MAKEUP-SUBTRDANS
(MORE SUB-ALB TO AUDITION)
I16000-MAKEUP-FIGMENT-6-GUB-S-GUQ-S
2081 - 2082 If FLFIG6 not equal to High Value then go to I17000-MAKEUP-FIGMENT-7-ACCIDENTS
(NOT FIGMENT 6 REQUIRED)
2083 - 2083 Move LOWVALS to I16800 location
2088 - 2088 Point Register R10 To MEMOTBL
2089 - 2089 Move High Value to 0(R10)
2090 - 2090 Point Register R00 To 8
I16625
2092 - 2092 Move data from R10 (1:256) location to 1 + R10 location
2093 - 2093 Point Register R10 To 256(R10)
2094 - 2094 Decrease register R00 by 1 and if not 0 then go to I16625
I16700-CALL-IN-PT2672-TO-MAKEUP-GUB-S-AND-GUQ-S
2101 - 2101 Could Not Resolve LR R10,R05
2104 - 2110 Perform linkage using parms X'D136', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4- X'01' IF HOTEL AUDTN PERSENT 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
2105 - 2105 Go to I16920
I16920
2116 - 2116 Could Not Resolve LR R05,R10
2118 - 2118 Point Register R10 To MEMO20K
2119 - 2120 If R10 Location Data equal to '$$$' then go to I17000-MAKEUP-FIGMENT-7-ACCIDENTS
(NOT FIGMENT 6 CREATED)
2126 - 2126 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2128 - 2128 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2130 - 2131 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2133 - 2134 If I16800 not equal to LOWVALS then go to I16700-CALL-IN-PT2672-TO-MAKEUP-GUB-S-AND-GUQ-S
(MORE SUB-ALB TO AUDITION)
I17000-MAKEUP-FIGMENT-7-ACCIDENTS
2141 - 2142 If FLFIG7 not equal to High Value then go to I18000-MAKEUP-FIGMENT-8-APPMSNATION-ISSUANCE-NOTE
(NOT FIGMENT 7 REQUIRED)
2143 - 2143 Move LOWVALS to I17200 location
I17100
2146 - 2146 Could Not Resolve LR R10,R05
2149 - 2155 Perform linkage using parms X'D137', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4- X'01' IF HOTEL AUDTN PRESENT 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
2150 - 2150 Go to I17300
I17300
2160 - 2160 Could Not Resolve LR R05,R10
2162 - 2162 Point Register R10 To MEMO20K
2163 - 2164 If R10 Location Data equal to '$$$' then go to I18000-MAKEUP-FIGMENT-8-APPMSNATION-ISSUANCE-NOTE
(NOT FIGMENT 7 CREATED)
2170 - 2170 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2172 - 2172 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2174 - 2175 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2177 - 2178 If I17200 not equal to LOWVALS then go to I17100
(MORE SUB-ALB TO AUDITION)
I18000-MAKEUP-FIGMENT-8-APPMSNATION-ISSUANCE-NOTE
2185 - 2186 If FLFIG8 not equal to High Value then go to I19000-MAKEUP-FIGMENT-9-TWEEERCIAL-PORTERS-INMAKEUPION
(NOT FIGMENT 8 REQUIRED)
2187 - 2187 Move LOWVALS to I18600 location
I18500
2190 - 2190 Could Not Resolve LR R10,R05
2193 - 2199 Perform linkage using parms X'D138', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4- NOT USED IN THIS MODULE 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
2194 - 2194 Go to I18800
I18800
2204 - 2204 Could Not Resolve LR R05,R10
2206 - 2206 Point Register R10 To MEMO20K
2207 - 2208 If R10 Location Data equal to '$$$' then go to I19000-MAKEUP-FIGMENT-9-TWEEERCIAL-PORTERS-INMAKEUPION
(NOT FIGMENT 8 CREATED)
2214 - 2214 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2216 - 2216 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2218 - 2219 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2221 - 2222 If I18600 not equal to LOWVALS then go to I18500
(MORE SUB-ALB TO AUDITION)
I19000-MAKEUP-FIGMENT-9-TWEEERCIAL-PORTERS-INMAKEUPION
2229 - 2230 If FLFIG9 not equal to High Value then go to I20000-MAKEUP-FIGMENT-10-ADMINISTRATIVE-FISHIVES
(NOT FIGMENT 9 REQUIRED)
2232 - 2232 Could Not Resolve LR R10,R05
2235 - 2241 Perform linkage using parms X'D139', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4- NOT USED IN THIS MODULE 4 A- ADDR OF 20K MEMORY 8 B- ADDRESS-ESCORT ALBUM)
2236 - 2236 Go to I19300
I19300
2246 - 2246 Could Not Resolve LR R05,R10
2248 - 2248 Point Register R10 To MEMO20K
2249 - 2250 If R10 Location Data equal to '$$$' then go to I20000-MAKEUP-FIGMENT-10-ADMINISTRATIVE-FISHIVES
(NOT FIGMENT 9 CREATED)
2256 - 2256 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2258 - 2258 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2260 - 2261 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
I20000-MAKEUP-FIGMENT-10-ADMINISTRATIVE-FISHIVES
2269 - 2270 If TPETCD (1:1) not equal to '9' then go to I99999
(NOT I/H PETITIONER)
2272 - 2273 If FLFIG10 not equal to High Value then go to I21000-MAKEUP-FIGMENT-11-SMALLGRAPHIC-INMAKEUPION
(NOT FIGMENT 10 REQUIRED)
2283 - 2283 Point Register R10 To PETDEFSV
2285 - 2285 Move High Value to 0(R10)
2286 - 2286 Move data from R10 (1:255) location to 1 + R10 location
2287 - 2287 Move data from R10 (1:256) location to 256 + R10 location
2288 - 2288 Move data from R10 (1:256) location to 512 + R10 location
2289 - 2289 Move data from R10 (1:52) location to 768 + R10 location
2291 - 2291 Move data from LOWVALS location to I20400
(INIT CONTINUE FLAG)
2306 - 2307 If ADDRPN equal to LOWVALS then go to I20390-SET-UP-AND-LINK-TO-PT4A82-FIGMENT-10
(NOT ANY DRAW LETTERS PRESENT)
2309 - 2309 Set Register R09 To ADDRPN
(ADDR OF 1ST DRAW LETTER)
2310 - 2310 Point Register R12 To PETDEFSV
(FIG DEF SAVE AREA)
2311 - 2311 Point Register R15 To 20 (Sub ALBUM of 20 -DRAW LETTER Sub ALBUM)
(MAX # OF P/N TO CK FOR)
I20300-VALIDATE-PETITIONOR-JOKE-FOR-NUMERIC-WHEN-IN-STAGE
2319 - 2320 If PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) equal to ' ' then go to I20356
(NOT FIG CD PRESENT)
2322 - 2322 Move data from PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) (1:5) location to R12 location
(SAVE P/N PETITIONOR JOKE)
2323 - 2323 Move Space to 5(R12)
(SPACE FILL 6TH FIG JOKE BYTE)
2325 - 2326 If PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) (1:1) not equal to '9' then go to I20320-OUT-OF-STAGE-PETITIONER-LOOK-PETITIONER-JOKE-BOOK-MTV
(NOT IN-STAGE PETITIONER)
2328 - 2328 Point Register R00 To 4
(# OF BYTES TO CK)
2329 - 2329 Point Register R10 To PSIGNHS+1 (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM)
(DRAW LETTER FIG JOKE)
I20310
2331 - 2334 If 0(R10) is not between '0' and '9' then go to I20340-INVALID-FIG-JOKE-RETURN-ERROR-FISHIVE
(NUMERIC NO NO)
2336 - 2336 Point Register R10 To 1(R10)
(ADV TO NEXT CHARDANER)
2337 - 2337 Decrease register R00 by 1 and if not 0 then go to I20310
2339 - 2339 Go to I20354
I20320-OUT-OF-STAGE-PETITIONER-LOOK-PETITIONER-JOKE-BOOK-MTV
2346 - 2346 Move data from PSIGNHS (SIGN IN-STAGE 1 DIGIT JOKE X of 20 -DRAW LETTER Sub ALBUM) (1:5) location to WKPETCD location
(PETITIONOR JOKE IN P/N)
2347 - 2347 Move Space to WKPETCD+5
(PAD MTV KEY)
2349 - 2349 Perform T35000-LOOK-MTV-DATABASE
(LOOK MTV DATABASE)
2351 - 2352 If FLERRMTV equal to Low Value then go to I20350-LOOK-RETURN-GOOD-MOVE-MTV-PETITIONOR-DEFINITION-TO-SAVE-AREA
(VALID MTV)
I20340-INVALID-FIG-JOKE-RETURN-ERROR-FISHIVE
2358 - 2358 Could Not Resolve XR R10,R10
(INIT R10)
2359 - 2359 Point Register R11 To ERRPET
2360 - 2360 Could Not Resolve IC R10,0(R11)
(LENGTH OF ERROR MSV)
2361 - 2361 Point Register R10 To 1(R10)
(ADD 1)
2362 - 2362 Could Not Resolve STC R10,I20344+1
(LEN OF MSV/MSV INTO ASSTR)
I20344
2363 - 2363 Move data from R11 (1:0) location to 5 + R12 location
(MSV TO SAVE AREA)
2364 - 2364 Go to I20354
I20350-LOOK-RETURN-GOOD-MOVE-MTV-PETITIONOR-DEFINITION-TO-SAVE-AREA
2370 - 2370 Move data from MNMBUSL (1:36) location to 5 + R12 location
(FIG CD DEFINITION TO SV AREA)
I20354
2372 - 2372 Point Register R12 To 41(R12)
(NXT SAVE AREA)
I20356
2375 - 2375 Perform T24000-POINT-TO-NEXT-SUBALBUM
(ADV TO NEXT SUBALBUM)
2377 - 2378 If R09 Location Data greater than X'20' then go to I20390-SET-UP-AND-LINK-TO-PT4A82-FIGMENT-10
(NOT DRAW LETTER PRESENT)
2380 - 2380 Decrease register R15 by 1 and if not 0 then go to I20300-VALIDATE-PETITIONOR-JOKE-FOR-NUMERIC-WHEN-IN-STAGE
I20390-SET-UP-AND-LINK-TO-PT4A82-FIGMENT-10
2386 - 2386 Could Not Resolve LR R10,R05
(SAVE REGISTER)
2389 - 2395 Perform linkage using parms X'D13A', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD MODULE 2 3 F4- NOT USED IN THIS MODULE 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
2390 - 2390 Go to I20600
I20600
2401 - 2401 Could Not Resolve LR R05,R10
2402 - 2402 Point Register R10 To MEMO20K
2404 - 2405 If R10 Location Data equal to '$$$' then go to I21000-MAKEUP-FIGMENT-11-SMALLGRAPHIC-INMAKEUPION
(NOT FIGMENT 10 CREATED)
2411 - 2411 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2413 - 2413 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2415 - 2416 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2418 - 2419 If I20400 not equal to LOWVALS then go to I20390-SET-UP-AND-LINK-TO-PT4A82-FIGMENT-10
(MORE SUB-ALB TO AUDITION)
I21000-MAKEUP-FIGMENT-11-SMALLGRAPHIC-INMAKEUPION
2426 - 2427 If FLFIG11 not equal to High Value then go to I22000-MAKEUP-FIGMENT-12-QEQT-FISHIVES
(NOT FIGMENT 11 REQUIRED)
2437 - 2437 Point Register R10 To SMALLSNP
2439 - 2439 Move High Value to 0(R10)
2440 - 2440 Move data from R10 (1:255) location to 1 + R10 location
2441 - 2441 Move data from R10 (1:256) location to 256 + R10 location
2442 - 2442 Move data from R10 (1:256) location to 512 + R10 location
2443 - 2443 Move data from R10 (1:52) location to 768 + R10 location
2445 - 2445 Move LOWVALS to I21500 location
(REFERESH)
2446 - 2446 Move F'0' to I21510
(REFERESH)
2447 - 2447 Move LOWVALS to I21520 location
(REFERESH)
2449 - 2449 Perform T40000-THIS-ROUTINE-WILL-DETERMINE-IF-AN-E3-IS-PRESENT-ON-THE-EM-ESCORT
(DETERMINE IF "E3" PRESENT)
2451 - 2452 If FLE3 equal to High Value then go to I21200
(E3 PRESENT ON ESCORT)
2460 - 2460 Perform T50000-THERE-IS-NO-E3-SMALLGRAPIHIC-SUBALBUM-PRESENT
2462 - 2464 If FLNOMATE equal to ON then go to I21400. Else go to I21300
(NOT MATES# FOUND IN BASIC)
I21200
2467 - 2467 Perform T42000-THIS-ROUTINE-WILL-PASS-THE-E3-MATES#-MALICE-DATE-ENTRYS-TO
(MOVE E3 ENTRYS TO SMALLSNAP MEMORY)
I21300
2470 - 2470 Move A(SMALLSNP) to I21500
(ADDR OF E3/SMALLSNAP DATA)
2472 - 2472 Perform T48000-THIS-ROUTINE-WILL-AUDTNLATE-ALL-MALICES-IN-THE-SMALLSNAP
(AUDITIONE3 FIELD MALICES)
2474 - 2474 Perform T44000-THIS-ROUTINE-WILL-LOOK-THE-SMALLSNAP-BOOK-UP-TO-A-MAXIMUM
(SEARCH SMALLSNAP BOOK)
2476 - 2480 If FLNOMATE equals ON then go to I21400
(MATES# FOUND IN BASIC NO E3 SUBALBUM PRESENT YES)
2482 - 2482 Point Register R11 To SMALLSNP
2483 - 2483 Move 'Y' to 10(R11) (OWN AS) Sub ALBUM of 10 -AKA (ALSO KNOWN AS) Sub ALBUM)
(TELL OR1172 MATES# IN BASIC)
I21400
2487 - 2487 Could Not Resolve LR R10,R05
(R05 = EG1282 BASE REGISTER WHICH)
2490 - 2496 Perform linkage using parms X'D13B', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4-NOT USED IN THIS MODULE 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
2491 - 2491 Go to I21530
I21530
2503 - 2503 Could Not Resolve LR R05,R10
2505 - 2505 Point Register R10 To MEMO20K
2506 - 2507 If R10 Location Data equal to '$$$' then go to I99999
(NOT FIGMENT 11 CREATED)
2513 - 2513 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR PANEL DRAIN)
2515 - 2515 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2517 - 2518 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2520 - 2520 Perform T40000-THIS-ROUTINE-WILL-DETERMINE-IF-AN-E3-IS-PRESENT-ON-THE-EM-ESCORT
(GET NEXT E3)
2521 - 2522 If FLE3 not equal to High Value then go to I22000-MAKEUP-FIGMENT-12-QEQT-FISHIVES
(NOT FOUND E3)
2523 - 2523 Move F'1' to I21510
(DO NOT PRINT HEADINGS IN FIG11)
2524 - 2524 Move F'0' to I21520
(PERFORM 'ASSTRUMENT' LOGIC FIG11)
2534 - 2534 Point Register R10 To SMALLSNP
2536 - 2536 Move High Value to 0(R10)
2537 - 2537 Move data from R10 (1:255) location to 1 + R10 location
2538 - 2538 Move data from R10 (1:256) location to 256 + R10 location
2539 - 2539 Move data from R10 (1:256) location to 512 + R10 location
2540 - 2540 Move data from R10 (1:52) location to 768 + R10 location
2542 - 2542 Go to I21200
(AUDITION E3)
I22000-MAKEUP-FIGMENT-12-QEQT-FISHIVES
2551 - 2552 If FLFIG12 equal to Low Value then go to I99999
(NOT FIGMENT 12 REQUIRED)
2553 - 2553 Move F'0' to I22200
(REFERESH)
2554 - 2554 Could Not Resolve LR R10,R05
(SE)
2557 - 2563 Perform linkage using parms X'D13C', Low Value, Low Value, A(MEMO20K), A(DEMICNO)
(+0(R04) F- DYNAMIC OVERHEAD ROUTINE 2 3 F4- NOT USED IN THIS ROUTINE 4 A- ADDRESS-20K MEMORY 8 B- -ESCORT ALBUM)
2558 - 2558 Go to I22300
I22300
2568 - 2568 Could Not Resolve LR R05,R10
2570 - 2570 Point Register R10 To MEMO20K
2571 - 2572 If R10 Location Data equal to '$$$' then go to I99999
(NOT FIGMENT 12 CREATED)
2577 - 2577 Perform T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
(WATCH FOR DRAIN FOR HEADINGS)
2579 - 2579 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2581 - 2582 If FLMEMO30 equal to ON then go to I99999
(EDT 30K MEMORY DRAIN)
2584 - 2585 If I22200 not equal to F'0' then go to I22000-MAKEUP-FIGMENT-12-QEQT-FISHIVES
(MORE SUB-ALB TO AUDITION)
I99999
2593 - 2594 Exit Perform
(RELOAD RETURN REGISTER)
J10000-WRITE-FINAL-FIGMENT
2606 - 2606 Move High Value to FLEND
2608 - 2608 Point Register R11 To MSVEND
(MOVE "END OF ALBUM")
2609 - 2609 Perform T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
2611 - 2611 Set Register R10 To ADDR20K
2612 - 2612 Move '$$$' to R10
(MOVE END OF TEXT TO MEMORY)
2613 - 2613 Point Register R10 To 3(R10)
(ADV POINTER)
2614 - 2614 Could Not Resolve ST R10,ADDR20K
2616 - 2616 Perform T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
(MAKEUP EDT MEMORY)
2618 - 2618 Point Register R04 To OCONT
2619 - 2619 Move Low Value to 0(R04)
(SET CONTINUATION JOKE MAL)
2628 - 2629 If X'08' Bits Of 0(R02) equal to 0 then go to J10100-MOVE-EOT-CHARDANER-TO-OUTPUT
(NOT VIDEO TABLET)
2630 - 2631 If TAUDTN equal to 'EG2' then go to J10075-CONTINUOUS-PRINT-INPUT-SEND-0C-TO-SKIP-TO-TOP-OF-PAGE
(CONTINUOUS PRINT)
2632 - 2633 If TTAB equal to X'01' then go to J10075-CONTINUOUS-PRINT-INPUT-SEND-0C-TO-SKIP-TO-TOP-OF-PAGE
(HOTEL)
2634 - 2635 If TAUDTN equal to 'EG4' then go to J10075-CONTINUOUS-PRINT-INPUT-SEND-0C-TO-SKIP-TO-TOP-OF-PAGE
(HOTEL -U/T OR S/T)
2637 - 2638 If 18 + R02 Location Data not equal to X'11' then go to J10050
(NOT MAKEUPED PANEL)
2639 - 2639 Move X'1140C81DC113' to R12
(CURSOR TO ROW1,COL 9)
2640 - 2640 Move 'DMFIG1' to 6 + R12
2641 - 2641 Point Register R12 To 12(R12) (Sub ALBUM of 12 -FEE PAYMENT Sub ALBUM)
2642 - 2642 Go to J10100-MOVE-EOT-CHARDANER-TO-OUTPUT
J10050
2645 - 2645 Move X'1140401DC9' to R12
2646 - 2646 Move 'EG1' to 5 + R12
2647 - 2647 Move data from TPETCD location to 8
2648 - 2648 Point Register R12 To 9(R12)
2649 - 2649 Move X'11404E13' to R12
(SET CURSOR TO ROW1,COL 15)
2650 - 2650 Point Register R12 To 4(R12)
2651 - 2651 Go to J10100-MOVE-EOT-CHARDANER-TO-OUTPUT
J10075-CONTINUOUS-PRINT-INPUT-SEND-0C-TO-SKIP-TO-TOP-OF-PAGE
2657 - 2657 Move X'0C' to 0(R12)
2658 - 2658 Point Register R12 To 1(R12)
J10100-MOVE-EOT-CHARDANER-TO-OUTPUT
2664 - 2664 Move data from EOTCHAR location to 0
(MOVE EOT TO MEMORY)
2669 - 2669 Could Not Resolve ST R12,EDTBUFPS
(CURRENT POSITION IN EDT MEMORY)
2671 - 2671 Perform T36000-WRITE-VIDEO-PANEL-TO-OUTPUT-TABLET
(WRITE IPAD MEMORY TO OUTPUT TABLET)
J99999
2674 - 2675 Exit Perform
(RELOAD RETURN REGISTER)
T10000-ROUTINE-DOES-THE-FOLLOWING
2698 - 2698 Could Not Resolve STM R12,R14,R12T100
(SAVE WORK REGISTERS)
2714 - 2714 Set Register R01 To 4(R10)
(PORTER TABLE ADDRESS)
2715 - 2715 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10140 + 1 location
(SEARCH ARGUMENT LENGTH)
2716 - 2716 Could Not Resolve XR R12,R12
(REFERESH WORK REG)
2717 - 2717 Could Not Resolve IC R12,27(R01)
(TABLE MAKEUP, FIXED OR VARIABLE)
2718 - 2718 Set Register R14 To 8(R01)
(TABLE ENTRY LENGTH)
2719 - 2719 Set Register R13 To 42(R01) (Sub ALBUM of 42 -ARREST DATA Sub ALBUM)
(# OF TABLE ENTRYS)
2721 - 2721 Could Not Resolve A R01,4(R01)
(ADD TABLE ATTRIBUTE GROUP SIZE)
T10140
2724 - 2725 If R01 Location Data equal to 8(R10) then go to T10200-SEARCH-FOR-PETITIONED-ARGUMENT-IN-FOUND-TABLE
(FIELD SIGN IN TABLE)
2726 - 2726 Could Not Resolve AR R01,R14
(NEXT TABLE ENTRY)
2727 - 2727 Decrease register R13 by 1 and if not 0 then go to T10100-TO-POINT-TO-1ST-TABLE-ENTRY
(WATCH NEXT TABLE ENTRY)
2728 - 2728 Go to T10999
(NOT FOUND)
T10200-SEARCH-FOR-PETITIONED-ARGUMENT-IN-FOUND-TABLE
2741 - 2741 Set Register R01 To 8(R01)
(ADDRESS OF TABLE TO SEARCH)
2743 - 2744 If 27 + R01 Location Data not equal to X'01' then go to T10500-VARIABLE-ENTRY-TABLE-SEARCH
(NO, VARIABLE FIXED MAKEUP TABLE ENTRYS)
2746 - 2746 Set Register R12 To 8(R01)
(SIZE OF A TABLE ENTRY)
2747 - 2747 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10240 + 1 location
(SEARCH ARGUMENT LENGTH)
2748 - 2748 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10340 + 1 location
(SEARCH ARGUMENT LENGTH)
2749 - 2749 Set Register R13 To 12(R01) (Sub ALBUM of 12 -FEE PAYMENT Sub ALBUM)
(# OF TABLE ENTRYS)
2751 - 2751 Set Register R14 To 20(R01) (Sub ALBUM of 20 -DRAW LETTER Sub ALBUM)
(END OF TABLE)
T10240
2752 - 2752 Move data from 16 + R10 (1:0) location to R14 location
(SEARCH ARG TO END OF TABLE)
2754 - 2754 Could Not Resolve A R01,4(R01)
(ADD TABLE ATTRIBUTE GROUP SIZE)
T10340
2757 - 2758 If R01 Location Data equal to 16(R10) then go to T10999
(ARGUMENT IN TABLE)
2759 - 2759 Could Not Resolve AR R01,R12
(NEXT TABLE ENTRY)
2760 - 2760 Decrease register R13 by 1 and if not 0 then go to T10300-TO-POINT-TO-1ST-TABLE-ENTRY
(WATCH NEXT TABLE ENTRY)
2761 - 2761 Go to T10999
(NOT FOUND)
T10500-VARIABLE-ENTRY-TABLE-SEARCH
2768 - 2769 If 27 + R01 Location Data not equal to X'02' then go to T10700-JOKE-RANGE-ENTRY-TABLE-SEARCH-AAA-BBB
(NO, RANGE JOKE ENTRYS VARIABLE LENGTH TABLE ENTRYS)
2771 - 2771 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10540 + 1 location
(SEARCH ARGUMENT LENGTH)
2772 - 2772 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10640 + 1 location
(SEARCH ARGUMENT LENGTH)
2773 - 2773 Set Register R13 To 16(R01)
(BYTE JUST PAST END OF TABLE)
2775 - 2775 Set Register R14 To 20(R01) (Sub ALBUM of 20 -DRAW LETTER Sub ALBUM)
(END OF TABLE)
T10540
2776 - 2776 Move data from 16 + R10 (1:0) location to 4 + R14 location
(SEARCH ARG TO END OF TABLE)
2778 - 2778 Could Not Resolve A R01,4(R01)
(ADD TABLE ATTRIBUTE GROUP SIZE)
T10640
2781 - 2782 If 4 + R01 Location Data equal to 16(R10) then go to T10999
(ARGUMENT IN TABLE)
2783 - 2783 Set Register R12 To 0(R01)
(LENGTH OF TABLE ENTRY)
2784 - 2784 Could Not Resolve AR R01,R12
(NEXT TABLE ENTRY)
2785 - 2785 Could Not Resolve CR R01,R13
(ANY MORE ENTRYS TO WATCH)
2786 - 2786 Could Not Resolve BL T10600
(YES)
2787 - 2787 Go to T10999
(NO)
T10700-JOKE-RANGE-ENTRY-TABLE-SEARCH-AAA-BBB
2795 - 2795 Set Register R12 To 8(R01)
(SIZE OF A TABLE ENTRY)
2796 - 2796 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10710 + 1 location
(SEARCH ARGUMENT LENGTH (CLC))
2797 - 2797 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10720 + 1 location
(SEARCH ARGUMENT LENGTH (CLC))
2798 - 2798 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10730 + 1 location
(SEARCH ARGUMENT LENGTH (CLC))
2799 - 2799 Move data from 31 + R01 ( Sub ALBUM of 31 -CARD PETITION Sub ALBUM) (1:1) location to T10740 + 1 location
(SEARCH ARGUMENT LENGTH (CLC))
2800 - 2800 Set Register R13 To 12(R01) (Sub ALBUM of 12 -FEE PAYMENT Sub ALBUM)
(# OF TABLE ENTRYS)
2802 - 2802 Set Register R14 To 20(R01) (Sub ALBUM of 20 -DRAW LETTER Sub ALBUM)
(END OF TABLE)
T10710
2803 - 2803 Move data from 16 + R10 (1:0) location to R14 location
(SRCH ARG TO TABLE END (RANGE START))
T10720
2804 - 2804 Move data from 16 + R10 (1:0) location to 4 + R14 location
(SRCH ARG TO TABLE END (RANGE END))
2806 - 2806 Could Not Resolve A R01,4(R01)
(ADD TABLE ATTRIBUTE GROUP SIZE)
T10730
2808 - 2809 If 16 + R10 Location Data greater than 4(R01) then go to T10750
(NO, MAYBE NEXT TABLE ENTRY MATCH HERE)
T10740
2810 - 2811 If 16 + R10 Location Data not less than 0(R01) then go to T10780
(ARGUMENT IN TABLE)
2812 - 2812 Could Not Resolve BL T10995
(NO)
T10750
2814 - 2814 Could Not Resolve AR R01,R12
(NEXT TABLE ENTRY)
2815 - 2815 Decrease register R13 by 1 and if not 0 then go to T10730
(WATCH NEXT TABLE ENTRY)
2816 - 2816 Go to T10995-TABLE-SEARCH-ENGINE-EXIT
(NOT FOUND)
T10780
2819 - 2819 Set Register R01 To 7(R01)
(ACON OF DEFINITION)
2820 - 2820 Go to T10999
(EXIT)
T10995-TABLE-SEARCH-ENGINE-EXIT
2826 - 2826 Could Not Resolve XR R01,R01
(CLEAR TABLE POINTER)
T10999
2828 - 2828 Could Not Resolve LM R12,R14,R12T100
(RELOAD SAVED REGISTERS)
2829 - 2830 Exit Perform
(RELOAD CALLER RETURN)
T11000-THIS-ROUTINE-WILL-MOVE-AN-MSV-TO-20K-MEMORY
2843 - 2843 Set Register R10 To ADDR20K
(SET R10 TO 20K MEMORY)
2847 - 2847 Move X'0D0D25' to R10
2849 - 2849 Move data from R11 (1:1) location to T11100 + 1 location
(MOVE IN FISHIVE LENGTH)
T11100
2850 - 2850 Move data from 1 + R11 (1:00) location to 3 + R10 location
(MOVE ERROR MSV TO 20K MEMORY)
2855 - 2855 Could Not Resolve SR R00,R00
(SET R12)
2856 - 2856 Could Not Resolve IC R00,0(R11)
(TO END)
2857 - 2857 Could Not Resolve LR R12,R10
(OF)
2858 - 2858 Could Not Resolve AR R12,R00
(LINE)
2859 - 2859 Point Register R12 To 3(R12)
T11200
2862 - 2863 If R12 Location Data not equal to Space then go to T11300
(NOT SPACE AT END OF LINE)
2864 - 2864 Decrease register R12 by 1
(BACK UP 1 BYTE)
2865 - 2865 Decrease register R00 by 1
(SUBTRDAN 1 FROM LENGTH)
2866 - 2866 Go to T11200
T11300
2868 - 2868 Could Not Resolve AR R10,R00
(ADV R10 TO NEXT)
2869 - 2869 Point Register R10 To 4(R10)
(BYTE IN 20K MEMORY)
2870 - 2870 Could Not Resolve ST R10,ADDR20K
2872 - 2873 Exit Perform
T12000-THIS-ROUTINE-WILL-MAKEUP-THE-EDT-MEMORY
2887 - 2887 Point Register R11 To MEMO20K
(R11 = ADDR OF 20K MEMORY)
2888 - 2888 Set Register R12 To ADDREDT
(R12 = NEXT BYTE IN EDT MEMORY)
T12050
2891 - 2892 If R11 Location Data equal to '$$$' then go to T12980-NO-MORE-DATA-IN-20K-MEMORY
(NOT ANY MORE DATA IN 20K MEMORY)
2898 - 2899 If TAUDTN equal to 'EG2' then go to T12100-MOVE-A-LINE-OF-DATA-TO-OUTPUT
(CONTINUOUS PRINT)
2900 - 2901 If TTAB equal to X'01' then go to T12100-MOVE-A-LINE-OF-DATA-TO-OUTPUT
(HOTEL ? (EG3))
2902 - 2903 If TAUDTN equal to 'EG4' then go to T12100-MOVE-A-LINE-OF-DATA-TO-OUTPUT
(HOTEL -U/T OR S/T)
2904 - 2905 If TTAB equal to X'0A' then go to T12100-MOVE-A-LINE-OF-DATA-TO-OUTPUT
(SERIES 1 ? (EG1/EG2))
2906 - 2907 If 18 + R02 Location Data equal to X'11' then go to T12100-MOVE-A-LINE-OF-DATA-TO-OUTPUT
(MAKEUPED PANEL ? (DMFIG1/EG2))
2909 - 2910 If FLTOPLN equal to ON then go to T12100-MOVE-A-LINE-OF-DATA-TO-OUTPUT
(AUDTN VIDEO TOP LINE MOVED)
2912 - 2912 Move ON to FLTOPLN
(ON -TOP LINE DATA MOVED)
2913 - 2913 Move X'1140C1' to R12
(ROW 1/COL 2 FOR TOP LINE DATA)
2914 - 2914 Move data from TAUDTN (1:21) location to 3 + R12 location
(AUDTN DATA TO TOP LINE)
2915 - 2915 Point Register R12 To 24(R12)
(R12 PAST AUDTN DATA)
T12100-MOVE-A-LINE-OF-DATA-TO-OUTPUT
2921 - 2922 If R11 Location Data not equal to X'0D' then go to T12150
(NOT CARRAGE RETURN)
2923 - 2924 If R11 Location Data equal to X'0D0D25' then go to T12200-AT-BEGINNING-OF-A-LINE-CHANGE-X-0D0D25
(BEGINNING OF LINE)
T12150
2926 - 2926 Move data from R11 location to 0
(MOVE BYTE TO EDT MEMORY)
2927 - 2927 Point Register R11 To 1(R11)
(ADV)
2928 - 2928 Point Register R12 To 1(R12)
(MEMORY POINTERS)
2929 - 2929 Go to T12050
T12200-AT-BEGINNING-OF-A-LINE-CHANGE-X-0D0D25
2936 - 2936 Set Register R09 To ADDRTCB
(R09 = ADDR OF NEXT TCB)
2938 - 2939 If X'08' Bits Of 0(R02) equal to 0 then go to T12220
(NOT VIDEO TABLET (0A OR 0B))
2940 - 2941 If TAUDTN equal to 'EG2' then go to T12220
(CONTINUOUS PRINT)
2942 - 2943 If TTAB equal to X'01' then go to T12220
(HOTEL)
2944 - 2945 If TAUDTN equal to 'EG4' then go to T12220
(HOTEL -U/T OR S/T)
2947 - 2947 Move data from R09 (1:3) location to R11 location
(OVERLAY X'0D0D25' WITH TCB)
2949 - 2950 If TTAB not equal to X'0B' then go to T12210-DETERMINE-IF-VIDEO-TABLET-IS-SERIES-1
(NOT IPAD VIDEO)
2951 - 2951 Move data from R11 (1:3) location to R12 location
(TCB TO EDT MEMORY)
2952 - 2952 Move X'1DH1' to 3 + R12
(PROTECT JOKE TO EDT MEMO)
2953 - 2953 Point Register R11 To 3(R11)
(PAST TCB IN 20K MEMORY)
2954 - 2954 Point Register R12 To 5(R12)
(PAST TCB/1DH1 IN EDT PANEL MEMORY)
2955 - 2955 Go to T12230
T12210-DETERMINE-IF-VIDEO-TABLET-IS-SERIES-1
2966 - 2967 If R11 Location Data not equal to X'11C261' then go to T12230
(NOT ROW 1 TCB)
2968 - 2969 If TTAB not equal to X'0A' then go to T12230
(NOT SERIES 1)
2970 - 2970 Move '**' to R12
(ADD PADDING CHARDANERS)
2971 - 2971 Point Register R12 To 2(R12)
(POINT PAST THEM)
T12220
2974 - 2974 Move data from R11 (1:3) location to R12 location
(MOVE TCB/CR TO EDT MEMORY)
2975 - 2975 Point Register R11 To 3(R11)
(NEXT TCB IN TABLE)
2976 - 2976 Point Register R12 To 3(R12)
(NEXT EDT MEMORY STORAGE)
T12230
2979 - 2979 Point Register R09 To 3(R09)
(ADV TCB ADDR)
2980 - 2980 Could Not Resolve ST R09,ADDRTCB
2982 - 2983 If R09 Location Data not equal to High Value then go to T12050
(NOT AT END OF TCB TABLE)
T12240-AT-END-OF-TCB-TABLE
2991 - 2992 If R11 Location Data equal to '$$$' then go to T12280-HERE-BECAUSE-OF-POSSIBLE-1-END-OF-TCB-TABLE-OR
(AT END OF 20K MEMORY)
2993 - 2994 If R11 Location Data not equal to X'0D' then go to T12260
(NOT CARRAGE RETURN)
2995 - 2996 If R11 Location Data equal to X'0D0D25' then go to T12280-HERE-BECAUSE-OF-POSSIBLE-1-END-OF-TCB-TABLE-OR
(BEGENNING OF LINE)
T12260
2998 - 2998 Move data from R11 location to 0
(MOVE BYTE TO EDT MEMORY)
2999 - 2999 Point Register R11 To 1(R11)
(ADV)
3000 - 3000 Point Register R12 To 1(R12)
(MEMORY POINTERS)
3001 - 3001 Go to T12240-AT-END-OF-TCB-TABLE
T12280-HERE-BECAUSE-OF-POSSIBLE-1-END-OF-TCB-TABLE-OR
3011 - 3012 If FLEND equal to High Value then go to T12980-NO-MORE-DATA-IN-20K-MEMORY
(END OF ALBUM ENCOUNTERED)
3013 - 3014 If X'08' Bits Of 0(R02) equal to 0 then go to T12300
(NOT VIDEO TABLET)
3015 - 3016 If TAUDTN equal to 'EG2' then go to T12300
(CONTINUOUS PRINT)
3017 - 3018 If TTAB equal to X'01' then go to T12300
(HOTEL)
3019 - 3020 If TAUDTN equal to 'EG4' then go to T12300
(HOTEL -U/T OR S/T)
3025 - 3025 Point Register R01 To MSVMORE
3026 - 3026 Move data from 1 + R01 (1:18) location to R12 location
(MOVE "MORE" TO OUTPUT)
3027 - 3027 Point Register R12 To 18(R12)
3039 - 3040 If 18 + R02 Location Data not equal to X'11' then go to T12290-UNMAKEUPED-PANEL-TWEETS-HERE
(NOT MAKEUPED PANEL)
3042 - 3042 Move X'1140C81DC913' to R12
3043 - 3043 Move 'MAD' to 6 + R12
3044 - 3044 Point Register R12 To 9(R12)
3045 - 3045 Go to T12300
T12290-UNMAKEUPED-PANEL-TWEETS-HERE
3058 - 3058 Point Register R01 To MSVMADA
3059 - 3059 Move data from R01 (1:5) location to R12 location
(ROW 1 COL 1, U-M-H)
3060 - 3060 Point Register R01 To MSVMADB
3061 - 3061 Move data from R01 (1:4) location to 5 + R12 location
(ROW 1 COL 15, PLACE CURSOR)
3062 - 3062 Point Register R12 To 9(R12)
T12300
3065 - 3065 Point Register R04 To OCONT
3066 - 3066 Move X'01' to 0(R04)
(SET CONTINUATION JOKE ON)
3070 - 3071 If R02 Location Data equal to X'01' then go to T12317
(HOTEL)
3073 - 3074 If R02 Location Data not equal to X'04' then go to T12320
(NOT KSR TABLET)
T12317
3076 - 3076 Decrease register R12 by 1
3077 - 3077 Go to T12330
T12320
3080 - 3080 Move data from EOTCHAR location to 0
(MOVE EOT TO MEMORY)
T12330
3083 - 3083 Could Not Resolve ST R12,EDTBUFPS
(CURRENT POSITION IN EDT MEMORY)
3085 - 3085 Perform T36000-WRITE-VIDEO-PANEL-TO-OUTPUT-TABLET
(WRT IPAD MEMO TO OUTPUT TABLET)
3090 - 3091 If FLMEMO30 equal to ON then go to T12999
(30K MEMORY DRAIN)
3097 - 3097 Point Register R10 To MEMOEDT
3099 - 3099 Move Space to 0(R10)
3100 - 3100 Move data from R10 (1:256) location to 1 + R10 location
3101 - 3101 Move data from R10 (1:256) location to 256 + R10 location
3102 - 3102 Move data from R10 (1:256) location to 512 + R10 location
3103 - 3103 Move data from R10 (1:256) location to 768 + R10 location
3104 - 3104 Move data from R10 (1:256) location to 1024 + R10 location
3105 - 3105 Move data from R10 (1:256) location to 1380 + R10 location
3110 - 3110 Move data from R02 (1:3) location to R10 location
(MOVE TAB & NDJF TO OUTPUT)
3112 - 3112 Move Low Value to 3(R10)
(INIT CONTINUATION JOKE)
3113 - 3113 Move data from SOTCHAR location to 6
(INIT START OF TEXT)
3118 - 3118 Point Register R10 To 7(R10)
RIH11A
3120 - 3121 If R02 Location Data equal to X'04' then go to T12500
(KSR TABLET)
3122 - 3123 If TAUDTN equal to 'EG2' then go to T12500
(CONTINUOUS PRINT)
3124 - 3125 If TTAB equal to X'01' then go to T12500
(HOTEL)
3126 - 3127 If TAUDTN equal to 'EG4' then go to T12500
(HOTEL -U/T OR S/T)
3128 - 3128 Move X'27E0C3' to R10
3129 - 3129 Point Register R10 To 3(R10)
3142 - 3143 If 18 + R02 Location Data not equal to X'11' then go to T12460
(NOT MAKEUPED PANEL (MENU))
3144 - 3144 Move X'C150' to SCRNCLR + 1
(ROW 2, COLUMN 1)
T12460
3146 - 3146 Move data from SCRNCLR (1:7) location to R10 location
3147 - 3147 Point Register R10 To 7(R10)
T12500
3149 - 3149 Could Not Resolve ST R10,ADDREDT
3150 - 3150 Could Not Resolve LR R12,R10
3152 - 3152 Move A(TBLTCB) to ADDRTCB
3154 - 3154 Move MAL to FLTOPLN
(INIT FLAG)
3156 - 3156 Go to T12050
T12980-NO-MORE-DATA-IN-20K-MEMORY
3164 - 3164 Point Register R10 To MEMO20K
3165 - 3165 Move '$$$' to R10
(CLEAR 20K MEMORY)
3166 - 3166 Could Not Resolve ST R10,ADDR20K
(RESET POINTER)
3168 - 3168 Could Not Resolve ST R12,ADDREDT
T12999
3171 - 3172 Exit Perform
T20000-THIS-ROUTINE-WILL-CREATE-A-EMPTY-LINE
3183 - 3183 Set Register R10 To ADDR20K
3184 - 3184 Move X'0D0D25' to R10
(MOVE C/R C/R L/F)
3186 - 3186 Point Register R10 To 3(R10)
3187 - 3187 Could Not Resolve ST R10,ADDR20K
3189 - 3190 Exit Perform
3204 - 3204 Move Low Value to FLNO
3206 - 3206 Could Not Resolve SR R12,R12
(INIT LOW VALUE TO ZERO)
3208 - 3208 Could Not Resolve SR R00,R00
(ALTER)
3209 - 3209 Could Not Resolve IC R00,ARGSIZE+1
(TWEPARE)
3210 - 3210 SubtrDAN 1 From Register R00
(LENGTH)
3211 - 3211 Could Not Resolve STC R00,T21150+1
T21100
3214 - 3214 Point Register R10 To 1(R12)
3215 - 3215 Could Not Resolve CR R10,R11
(TABLE EXHAUSTED ?)
3216 - 3216 Could Not Resolve BE T21995
(YES)
3224 - 3224 Could Not Resolve LR R10,R12
(MOVE LOW VALUE TO R10)
3225 - 3225 Could Not Resolve AR R10,R11
(ADD EXSISTING HIGH VALUE)
3226 - 3226 Could Not Resolve SRA R10,1
(DIVIDE BY 2)
3236 - 3236 Could Not Resolve LR R15,R10
(MOVE MID VALUE TO R15)
3237 - 3237 Could Not Resolve MH R15,ENTSIZE
(MULTIPLY BY ENTRY SIZE)
3238 - 3238 Could Not Resolve AR R15,R14
(ADD ADDR OF START OF TABLE)
T21150
3240 - 3241 If JOKE equal to 0(R15) then go to T21999
(JOKE MATCH TABLE)
3242 - 3242 Could Not Resolve BL T21200
3248 - 3248 Could Not Resolve LR R12,R10
(ADJUST LOW VALUE UPWARDS)
3249 - 3249 Go to T21100
(LOOP)
T21200-ARGUEMENT-LOWER-THAN-CURRENT-LOW-VALUE
3256 - 3256 Could Not Resolve LR R11,R10
(ADJUST LOW VALUE UPWARDS)
3257 - 3257 Go to T21100
(LOOP)
T21995
3260 - 3260 Move High Value to FLNO
(NO MATCH ON TABLE)
T21999
3262 - 3263 Exit Perform
T23000-THIS-ROUTINE-WILL-FORCE-AN-DRAIN-TO-NEXT-PANEL
3278 - 3278 Move MAL to FLTOPLN
(INIT TOP LINE NEEDED FLAG)
3280 - 3281 If X'08' Bits Of 0(R02) equal to 0 then go to T23999
(NOT VIDEO TABLET)
3282 - 3283 If TAUDTN equal to 'EG2' then go to T23999
(CONTINUOUS PRINT)
3284 - 3285 If TTAB equal to X'01' then go to T23999
(HOTEL)
3286 - 3287 If TAUDTN equal to 'EG4' then go to T23999
(HOTEL -U/T OR S/T)
3289 - 3289 Point Register R10 To FIGDASH+1
3290 - 3290 Point Register R11 To MEMO20K
3292 - 3293 If 3 + R11 Location Data not equal to 0(R10) then go to T23999
(NOT BEGINNING OF FIGMENT TTL)
3294 - 3294 Set Register R12 To ADDRTCB
3295 - 3295 Could Not Resolve CL R12,=A(TBLTCB3)
(MORE THAN 3 LINES LEFT IN MEMORY ?)
3296 - 3296 Could Not Resolve BNH T23999
(YES)
3302 - 3302 Set Register R12 To ADDREDT
(R12 = ADDR OF LAST BYTE IN EDT MEMORY)
3307 - 3307 Point Register R01 To MSVMORE
3308 - 3308 Move data from 1 + R01 (1:18) location to R12 location
(MOVE "MORE" TO OUTPUT)
3309 - 3309 Point Register R12 To 18(R12)
3321 - 3322 If 18 + R02 Location Data not equal to X'11' then go to T23040-UNMAKEUPED-PANEL-TWEETS-HERE
(NOT MAKEUPED PANEL)
3323 - 3323 Move X'1140C81DC913' to R12
3324 - 3324 Move 'MAD' to 6 + R12
3325 - 3325 Point Register R12 To 9(R12)
3326 - 3326 Go to T23060
T23040-UNMAKEUPED-PANEL-TWEETS-HERE
3344 - 3345 If FLTOPLN equal to ON then go to T23050
(AUDTN VIDEO TOP LINE MOVED)
3347 - 3348 If TTAB equal to X'0A' then go to T23050
(SERIES 1)
3350 - 3350 Move X'1140C1' to R12
(ROW 1/COL 2 FOR TOP LINE DATA)
3351 - 3351 Move data from TAUDTN (1:21) location to 3 + R12 location
(AUDTN DATA TO TOP LINE)
3352 - 3352 Point Register R12 To 24(R12)
(R12 PAST AUDTN DATA)
T23050
3355 - 3355 Point Register R01 To MSVMADA
3356 - 3356 Move data from R01 (1:5) location to R12 location
(ROW 1 COL 1, U-M-H)
3357 - 3357 Point Register R01 To MSVMADB
3358 - 3358 Move data from R01 (1:4) location to 5 + R12 location
(ROW 1 COL 15, PLACE CURSOR)
3359 - 3359 Point Register R12 To 9(R12)
T23060
3362 - 3362 Point Register R04 To OCONT
3363 - 3363 Move X'01' to 0(R04)
(SET CONTINUATION JOKE ON)
3364 - 3364 Move data from EOTCHAR location to 0
(MOVE EOT TO MEMORY)
3370 - 3370 Could Not Resolve ST R12,EDTBUFPS
(CUR POS IN EDT MEMO)
3372 - 3372 Perform T36000-WRITE-VIDEO-PANEL-TO-OUTPUT-TABLET
(WRT IPAD MEMO TO OUTPUT TABLET)
3378 - 3379 If FLMEMO30 equal to ON then go to T23999
(30K MEMORY DRAIN)
3384 - 3384 Point Register R10 To MEMOEDT
3386 - 3386 Move Space to 0(R10)
3387 - 3387 Move data from R10 (1:256) location to 1 + R10 location
3388 - 3388 Move data from R10 (1:256) location to 256 + R10 location
3389 - 3389 Move data from R10 (1:256) location to 512 + R10 location
3390 - 3390 Move data from R10 (1:256) location to 768 + R10 location
3391 - 3391 Move data from R10 (1:256) location to 1024 + R10 location
3392 - 3392 Move data from R10 (1:256) location to 1380 + R10 location
3394 - 3394 Move data from R02 (1:3) location to R10 location
(MOVE TAB & NDJF TO OUTPUT)
3396 - 3396 Move Low Value to 3(R10)
(INIT CONTINUATION JOKE)
3397 - 3397 Move data from SOTCHAR location to 6
(INIT START OF TEXT)
3399 - 3399 Point Register R10 To 7(R10)
3401 - 3401 Move X'27E0C3' to R10
3402 - 3402 Point Register R10 To 3(R10)
3415 - 3415 Move X'11C1503C5D7H10' to R10
3416 - 3416 Point Register R10 To 7(R10)
3418 - 3418 Could Not Resolve ST R10,ADDREDT
3420 - 3420 Move A(TBLTCB) to ADDRTCB
T23999
3422 - 3423 Exit Perform
T24000-POINT-TO-NEXT-SUBALBUM
3435 - 3435 Could Not Resolve XR R00,R00
(INITILIZE REGISTER)
3436 - 3436 Could Not Resolve IC R00,1(R09)
(LENGTH OF SUBALBROD)
3437 - 3437 Could Not Resolve AR R09,R00
(NEXT SUBALBUM)
T24999
3440 - 3440 Exit Perform
(RETURN TO CALLER)
T34000-HOTEL-INQUIRY-GEN-OSCAR
3459 - 3459 Point Register R10 To 04(OSCAR
3472 - 3473 Move 161 Spaces to OSCAR
(SPACE FILLER BUG 33 ALLOCATE 161 BYTE FIX)
3474 - 3474 Move 161 to OCARLEN
(DANUAL ALBUM LENGTH POPULATE)
3475 - 3475 Move X'EA' to OCARLEN+3
(GTS CONTROL JOKE FIELDS)
3476 - 3476 Move '053' to OCARLEN + 4
(ULTIMATE TABLET)
3478 - 3478 Move '0200' to OCARRID
(RID)
3479 - 3479 Move data from DTCURCC location to OCARTRDT
(AUDTN DATE -CCYYMMDD)
3480 - 3480 Move 'O' to OCARACCM
(ACCESS METHOD IND)
3481 - 3481 Move 'D' to OCARFLAC
(BOOK ACCESSED IND)
3482 - 3483 Move 'N' to OCARANII, OCARFEEI
(ANI START IND FEE/NO FEE IND)
3484 - 3484 Move 'A89' to OCARCLCD
(HOTEL BATCH JOKE)
3485 - 3485 Move '1' to OCARADDI
(HOTEL ADDR ACCESS IND)
3486 - 3486 Move '60' to OCARRCCD
(HOTEL COUNTY JOKE)
3487 - 3488 Move 'N' to OCARVENI, OCARUIDI
(HOTEL VENDOR IND HOTEL UID IND)
3489 - 3489 Move '1' to OCAREUFA
(HOTEL ACCESS AUTHORITY)
3490 - 3490 Move 'EG3' to OCARTRCD
(AUDTN JOKE)
3491 - 3491 Move data from TMLN location to OCAREMLN
(AUDTN MLN)
3492 - 3492 Move data from TPETCD location to OCARPRIM
(AUDTN PETITIONOR JOKE)
3493 - 3493 Move data from TPETCD location to OCARENDU
(AUDTN PETOESTOR JOKE)
3494 - 3494 Move data from TEM# location to OCAREM#
(EM#)
3495 - 3495 Move data from DTCURCC location to OCARDTRQ
(PETITION DATE)
3496 - 3496 Move 'N' to OSCARSUB
(SUBJECT NOTIFIED IND)
3497 - 3497 Move 'EG3' to OSCARTCD
(AUDTN JOKE)
3498 - 3498 Move 'N' to OSCARANI
(ANI IND)
3499 - 3499 Move 'A89' to OSCARCLS
(END FAN BATCH JOKE)
3500 - 3500 Move 'N' to OSCARFEE
(FEE/NO FEE IND)
3508 - 3509 If DDNAMLG (PORTER SIGN LGTH of 00 - BASIC Sub ALBUM) equal to Low Value then go to T34230
(DID EM# LOOK ERR OCCUR)
T34220
3511 - 3511 Move data from DDNAMLG (PORTER SIGN LGTH of 00 - BASIC Sub ALBUM) (1:1) location to T34225 + 1 location
(EM ESCORT ALBUM SIGN LENGTH)
T34225
3512 - 3512 Move data from DDRSIGN (PORTER SIGN of 00 - BASIC Sub ALBUM) (1:0) location to OSCARNAM location
(SIGN TO OSCAR)
T34230
3519 - 3524 Perform linkage using parms X'33000000', X'0001', X'00A1', A(OSCAR)
(F1-4 : A1/2 : AUDITION WRT TO OTT A3/4 : DATA LENGTH B1-4 : DATA TO WRITE)
3520 - 3520 Go to T34999
T34999
3527 - 3528 Exit Perform
(RELOAD CALLER RETURN RETURN TO CALLER)
T35000-LOOK-MTV-DATABASE
3546 - 3551 Perform linkage using parms X'68141400', X'00000006', A(WKPETCD), A(PETAREA)
(LOOK FOR INQUIRY -MTV DATABASE AUDTN PETITIONOR JOKE 683 BYTE AREA TO LOOK MTV INTO)
3547 - 3547 Go to T35100
T35100
3554 - 3555 If R03 Location Data equal to Low Value then go to T35999
(FIG JOKE VALID)
3557 - 3557 Move High Value to FLERRMTV
(ON(FF)-INVALID MTV)
T35999
3559 - 3560 Exit Perform
(RELOAD CALLER RETURN RETURN TO CALLER)
T36000-WRITE-VIDEO-PANEL-TO-OUTPUT-TABLET
3576 - 3576 Point Register R04 To MEMOEDT-1
(START WITH MEMOEDT-1)
3577 - 3577 Set Register R12 To EDTBUFPS
(CURRENT POSITION IN MEMORY)
3578 - 3578 Could Not Resolve SR R12,R04
(MINUS DATA LENGTH)
3579 - 3579 Move data from register R12 to T36200
(= WRITE LENGTH)
3581 - 3581 Point Register R04 To OLEN
(WHERE TO PUT VIDEO MEMORY LENGTH)
3582 - 3582 Move data from register R12 to R04
(WRT LEN TO LINKAGE)
3585 - 3590 Perform linkage using parms X'33000000', X'0065', A(MEMOEDT)
(WRITE EDT MEMORY AREA TO WRITE FROM)
3586 - 3586 Go to T36200E
T36200E
3593 - 3594 Exit Perform
(RELOAD CALLER RETURN RETURN TO CALLER)
T37000-DETERMINE-IF-TOO-MUCH-DATA-HAS-BEEN-WRITTEN
3614 - 3614 Point Register R04 To MEMOEDT-1
(START WITH MEMOEDT-1)
3615 - 3615 Set Register R12 To EDTBUFPS
(CURRENT POSITION IN MEMORY)
3616 - 3616 Could Not Resolve SR R12,R04
(MINUS MEMOEDT BEGIN ADR)
3618 - 3618 Point Register R04 To BUF30SUM
(SUM WORK AREA)
3619 - 3619 Set Register R10 To 0(R04)
(CURRENT TOTAL DATA WRITTEN)
3620 - 3620 Could Not Resolve AR R10,R12
(+ CURR LINK 33 WRT LENGTH)
3621 - 3621 Could Not Resolve ST R10,0(R04)
(SAVE SUM)
3638 - 3639 If TAUDTN equal to 'EG1' then go to T37200
(IPAD VIDEI TERMINAL)
3640 - 3640 Move X'00BA' to BUF30OML
(CONTINUOUS PRINT OR EG3/4)
3641 - 3641 Go to T37220
T37200
3644 - 3644 Move X'00E6' to BUF30OML
(IPAD TERMIANL WRITE LENGTH)
T37220
3646 - 3646 Could Not Resolve AH R10,BUF30OML
(DRAIN MSV WRT LEN)
3647 - 3647 Could Not Resolve C R10,BUF30MAX
(EDT MEMORY DRAIN ?)
3648 - 3648 Could Not Resolve BL T37999
(STORE CURR EDTBUF POS)
3655 - 3655 Move ON to FLMEMO30
(ON -30K MEMORY DRAIN)
3657 - 3657 Could Not Resolve SR R10,R12
(SUBTRDAN PANEL LEN JUST CKED)
3658 - 3658 Could Not Resolve S R10,BUF30OML
(AND DRAIN FISHIVE TOO)
T37330A-MAX-RTC-ALLOWED-DATA-TO-RETURN-EXCEEDED
3668 - 3668 Point Register R12 To MEMOEDT
(EDT VIDEO DISPLAY MEMORY)
3670 - 3670 Move data from BUF30OML (1:2) location to 4 + R12 location
(FINAL PANEL LEN TO MEMORY)
3672 - 3673 If TAUDTN equal to 'EG1' then go to T37333
(NOT VIDEO RETURN)
3674 - 3674 Point Register R12 To 6(R12)
3675 - 3675 Go to T37334
T37333
3678 - 3678 Point Register R12 To 41(R12)
(PAST APPENDAGES)
T37334
3681 - 3681 Point Register R11 To 04(OCONT
(BUG 21 WHEN BOT SET TO X'00')
3682 - 3682 Move Low Value to 0(R11)
(NO DATA BEING SENT AFTER THIS)
3684 - 3684 Point Register R11 To BUF30MSV
3685 - 3685 Move data from R11 (1:179) location to R12 location
(PROBLEM FISHIVE TO EDT MEMO)
3686 - 3686 Point Register R12 To 179(R12)
(LENGTH OF FISHIVE DATA)
3695 - 3696 If TTAB equal to X'0A' then go to T37334B
(SERIES 1)
3698 - 3699 If TTAB not equal to X'0B' then go to T37336-11-SET-MEMORY-ADDRESS
(NOT VIDEO TABLET)
3701 - 3702 If TAUDTN equal to 'EG2' then go to T37335
(CONTINUOUS PRINT)
T37334B
3704 - 3704 Point Register R04 To OCONT
3705 - 3705 Move Low Value to 0(R04)
(CONTINUATION JOKE =NO CONTINUE)
3706 - 3706 Go to T37336-11-SET-MEMORY-ADDRESS
T37335
3709 - 3709 Move X'0C' to 0(R12)
(CONTINUOUS PRINT, SKIP TO TOP OF PAGE)
3710 - 3710 Go to T37338
T37336-11-SET-MEMORY-ADDRESS
3729 - 3729 Move X'1140401DC9' to R12
3730 - 3730 Move X'11404E13' to 5 + R12
(SET CURSOR TO ROW1,COL 15)
3731 - 3731 Point Register R12 To 9(R12)
T37338
3733 - 3733 Move data from EOTCHAR location to 0
(BUMP R12 BY 1)
3734 - 3734 Could Not Resolve ST R12,EDTBUFPS
(CUR POS IN VIDEO BUFER)
T37999
3736 - 3737 Exit Perform
(RELOAD CALLER RETURN)
T40000-THIS-ROUTINE-WILL-DETERMINE-IF-AN-E3-IS-PRESENT-ON-THE-EM-ESCORT
3752 - 3753 If FLE3 equal to High Value then go to T40100
(ALLOOKY FOUND AN E3)
3755 - 3755 Point Register R09 To DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM)
(R09 = 1ST SUBALBUM ADDR)
3756 - 3756 Go to T40200
T40100
3759 - 3759 Move Low Value to FLE3
(INIT MAL)
3760 - 3760 Set Register R09 To ADDRE3
(PT TO CURRENT E3)
3761 - 3761 Go to T40300
(GET NEXT SUBALB)
T40200
3764 - 3765 If DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM) equal to '$' then go to T40999
(YES, NO SET FLAG END OF ESCORT ALBUM)
3766 - 3767 If DINRCD (SUB-ALB INR JOKE of 00 - BASIC Sub ALBUM) equal to X'E3' then go to T40980
(YES, TURN FLAG ON SMALLGRAPHIC SUBALBUM)
T40300
3770 - 3770 Perform T24000-POINT-TO-NEXT-SUBALBUM
(ADV TO NEXT SUBALBUM)
3771 - 3771 Go to T40200
T40980
3774 - 3775 If FLE3 equal to High Value then go to T40990
(ALLOOKY FOUND AN E3)
3777 - 3777 Move High Value to FLE3
(ON(FF)-E3 PRESENT ON ESCORT)
3778 - 3778 Could Not Resolve ST R09,ADDRE3
(SAVE ADDR OF CURRENT E3)
3779 - 3779 Go to T40300
(WATCH FOR ANOTHER E3)
T40990
3782 - 3782 Set Register R09 To ADDRE3
(RESTORE CURRENT SUBALB PTR)
3783 - 3783 Move F'1' to I21520
(SET OR1172 LINK DO NOT PR 'INR')
T40999
3786 - 3786 Set Register R09 To ADDRE3
(RESTORE CURRENT SUBALB PTR)
3787 - 3788 Exit Perform
T42000-THIS-ROUTINE-WILL-PASS-THE-E3-MATES#-MALICE-DATE-ENTRYS-TO
3799 - 3799 Point Register R00 To 20 (Sub ALBUM of 20 -DRAW LETTER Sub ALBUM)
3800 - 3800 Point Register R09 To 3(R09)
(R09 = 1ST E3 ENTRY)
3801 - 3801 Point Register R10 To M1DATE
(R10 = 1ST E3 ENTRY DATE)
T42200
3804 - 3804 Move data from 6 + R09 (1:6) location to R10 location
(E3 DATE TO SMALLSNP BFFR)
3805 - 3805 Move data from 3 + R09 (1:3) location to 6 + R10 location
(E3 MALICE TO SMALLSNAP MEMORY)
3807 - 3807 Point Register R09 To 12(R09) (Sub ALBUM of 12 -FEE PAYMENT Sub ALBUM)
(R09= NEXT E3 ENTRY)
3808 - 3808 Point Register R10 To 40(R10) (ALBUM of 40 -SCANDAL Sub ALBUM)
(R10= NXT SMALLSNAP MEMOR AREA)
3810 - 3811 If R09 Location Data equal to High Value then go to T42999-IF-20-ENTRYS-NO-X-FF-TO-FIND-IN-LAST
(NOT ANY MORE E3 ENTRYS)
3813 - 3813 Decrease register R00 by 1 and if not 0 then go to T42200
(LOOP UNTIL 20 (THE MAX) HAVE BEEN DONE)
T42999-IF-20-ENTRYS-NO-X-FF-TO-FIND-IN-LAST
3817 - 3818 Exit Perform
T44000-THIS-ROUTINE-WILL-LOOK-THE-SMALLSNAP-BOOK-UP-TO-A-MAXIMUM
3830 - 3830 Point Register R00 To 20 (Sub ALBUM of 20 -DRAW LETTER Sub ALBUM)
(MAX # OF LOOPS)
3831 - 3831 Point Register R10 To SMALLSNP
(ADDR OF E3 ENTRY DATA)
T44200
3835 - 3835 Point Register R14 To 1(R10)
(R14=MGKEY AREA)
3836 - 3836 Could Not Resolve ST R14,T44300
(ADDR OF MGKEY)
3838 - 3838 Could Not Resolve ST R14,T44400
(SMALLSNAP DATA ADDRESS)
3841 - 3846 Perform linkage using parms X'68232300', F'9', A(MGKEY), A(SMALLSNP+1)
(F1/3-LINKAGE/BOOK MOVIE/BOOK KEY A4 -LENGTH OF KEY B -ADDRESS OF KEY C -ADDRESS OF ALBUM AREA)
3842 - 3842 Go to T44500
T44500
3849 - 3849 Set Register R00 To R00T440
(RELOAD BCT REGISTER)
3850 - 3850 Move data from R03 location to 0
(SAVE LOOK RETURN IN MEMORY)
3852 - 3852 Point Register R10 To 40(R10) (ALBUM of 40 -SCANDAL Sub ALBUM)
3854 - 3855 If 1 + R10 Location Data equal to High Value then go to T44999
(NOT ANY MORE MGKEYS TO AUDITION)
3856 - 3856 Decrease register R00 by 1 and if not 0 then go to T44200
(WATCH THE NEXT KEY)
T44999
3859 - 3860 Exit Perform
T48000-THIS-ROUTINE-WILL-AUDTNLATE-ALL-MALICES-IN-THE-SMALLSNAP
3871 - 3871 Point Register R13 To 20 (Sub ALBUM of 20 -DRAW LETTER Sub ALBUM)
(MAX # OF SMALLBOOK ENTRYS)
3872 - 3872 Point Register R10 To SMALLSNP
(E3 / SMALLSNAP MEMORY)
T48100
3874 - 3874 Move AL04(TABLES) to T48100A
(TABLES ADDR FROM EG1282)
3875 - 3875 Move data from 7 + R10 (1:3) location to T48100C location
(FIELD MALICE TO ARGUEMENT)
3879 - 3884 Perform linkage using parms AL04(*), 'M1MALICE', ' ', '1'
(AUDITION FIELD MALICE 4 8 16 ARGUMENT, UP TO 8 POSITIONS 24 SEARCH 1ST POSITION IN TBL)
3880 - 3880 Go to T48100E-IF-E3-ENTRY-FIELD-MALICE-UNABLE-TO-TRANSLATE
(+ 0)
T48100E-IF-E3-ENTRY-FIELD-MALICE-UNABLE-TO-TRANSLATE
3891 - 3891 Set Register R10 To R10T481
(RELOAD CURRENT E3 MEMO ADDRESS)
3892 - 3892 Set Register R11 To 6(R01)
(ADDR OF DEFINITON)
3893 - 3894 If 1 + R11 Location Data equal to 'UNABLE TO TRANSLATE' then go to T48400
(YES, CK ANOTHER E3 ENTRY)
3896 - 3896 Move data from 3 + R01 (1:3) location to 7 + R10 location
(ALPHA FLD MAL TO E3 MEMORY)
T48400
3898 - 3898 Point Register R10 To 40(R10) (ALBUM of 40 -SCANDAL Sub ALBUM)
(NEXT E3 MEMORY ENTRY)
3900 - 3901 If 1 + R10 Location Data equal to High Value then go to T48999
(NOT ANY MORE E3 ENTRYS)
3902 - 3902 Decrease register R13 by 1 and if not 0 then go to T48100
(MAX E3 ENTRYS =20)
T48999
3905 - 3906 Exit Perform
(RELOAD CALLER RETURN RETURN TO CALLER)
T50000-THERE-IS-NO-E3-SMALLGRAPIHIC-SUBALBUM-PRESENT
3929 - 3929 Move MAL to FLNOMATE
(INIT FLAG)
3937 - 3938 If EMEGNO (REGAL BOOK IND (ONLY 1 BYTE) of 00 - BASIC Sub ALBUM) (1:1) equal to High Value then go to T50995
(NOT MATES # PRESENT)
3940 - 3941 If EMEGNO + 1 (REGAL BOOK IND (ONLY 1 BYTE) of 00 - BASIC Sub ALBUM) Location Data equal to ' ' then go to T50995
(NOT MATES # PRESENT)
3950 - 3950 Move data from EMEGNO+1 (REGAL BOOK IND (ONLY 1 BYTE) of 00 - BASIC Sub ALBUM) (1:3) location to KEYFIELD location
(MATES # TO SAVE AREA)
3952 - 3953 If DISSTP1 (ISS O of 00 - BASIC Sub ALBUM) not equal to High Value then go to T50100
(NOT ANY "OTHER" ISSUANCE)
3954 - 3954 Move data from DAPPDT (APP DATE of 00 - BASIC Sub ALBUM) location to DTISSUE
3955 - 3955 Move data from DMALAPP (MALICE OF APP of 00 - BASIC Sub ALBUM) (1:3) location to KEYFIELD + 3 location
3956 - 3956 Go to T50300-SEARCH-FOR-MOVIE-TICKET
T50100
3959 - 3962 If DISSDT1+2 (ISS O of 00 - BASIC Sub ALBUM) Location Data equals 'J' or 'A' then go to T50200-CONVERT-JULIAN-ISSUANCE-DATE-TO-MMDDYY
(JULIAN DATE MAKEUP YES YES)
3964 - 3964 Move data from DISSDT1 (ISS O of 00 - BASIC Sub ALBUM) location to DTISSUE
(JULIAN ISSUE DT TO DTRTN)
3965 - 3965 Go to T50300-SEARCH-FOR-MOVIE-TICKET
T50200-CONVERT-JULIAN-ISSUANCE-DATE-TO-MMDDYY
3971 - 3971 Move data from DISSDT1 (ISS O of 00 - BASIC Sub ALBUM) (1:2) location to DTSTART location
(YY FOR DTRTN)
3972 - 3972 Move data from DISSDT1+3 (ISS O of 00 - BASIC Sub ALBUM) (1:3) location to DTSTART + 2 location
(JJJ FOR DTRTN)
3974 - 3980 Perform linkage using parms AL04(DTSTART), '000', 'D', '+', 'A'
(DETERMINE CCYYMMDD OF ISSUANCE OTHER THAN ORIGINAL DATE DATE MAKEUP = YYJJJ)
3975 - 3975 Go to T50200E
T50200E
3983 - 3983 Move data from P25DT2 location to DTISSUE
T50300-SEARCH-FOR-MOVIE-TICKET
3990 - 4000 If 40 -SCANDAL Sub ALBUM found then go to T50650-WATCH-FOR-MOVIE-TICKET else go to T50800-MOVE-1ST-OTHER-ISS-DT-TO-SMALLGRAPHIC-KEY
(SET RO9 TO 1ST SUB-ALBUM SCANDAL SUB-ALBUM YES NO ADVANCE POINTER TO NEXT)
T50650-WATCH-FOR-MOVIE-TICKET
4006 - 4007 If HKINDAN (KIND OF DANCE of 40 -SCANDAL Sub ALBUM) equal to '50' then go to T50700-DETERMINE-IF-ISS-OTHER-THAN-ORIGNIAL-LATER-THAN-MOVIE-TICKET
(MOVIE TICKET)
4008 - 4009 If HKINDAN (KIND OF DANCE of 40 -SCANDAL Sub ALBUM) not equal to '72' then go to T50500
(NOT SENIOR CITIZENS MOVIE TICKET)
T50700-DETERMINE-IF-ISS-OTHER-THAN-ORIGNIAL-LATER-THAN-MOVIE-TICKET
4014 - 4015 If HIBRFDT ((HBRIFDT) 055 ADD'L ISSUE DATE of 40 -SCANDAL Sub ALBUM) (1:1) equal to High Value then go to T50705
(NOT ADD'L ISSUE DT PRESENT)
4017 - 4017 Point Register R11 To HIBRFDT ((HBRIFDT) 055 ADD'L ISSUE DATE of 40 -SCANDAL Sub ALBUM)
(MOVIE TICKET ADD'L ISSUE DATE)
4018 - 4018 Go to T50710
T50705
4021 - 4021 Point Register R11 To HIAPPDT ((HEFFODT) 025 APP DATE of 40 -SCANDAL Sub ALBUM)
(MOVIE TICKET APP DATE)
T50710
4024 - 4024 Could Not Resolve ST R11,T50715
(FIELD ADDR INTO LINKAGE)
4027 - 4030 Perform linkage using parms A(DTISSUE), A(*)
(CENTURY ROUTINE ISS. OTHER THAN ORIGINAL MOVIE TICKET DATE)
4028 - 4028 Go to T50720
T50720
4033 - 4034 If P25DTSV greater than P25DT1 then go to T50800-MOVE-1ST-OTHER-ISS-DT-TO-SMALLGRAPHIC-KEY
(1ST OTHER ISS LATER THAN MOVIE)
4035 - 4035 Move data from HIMALAP ((HCTYHRG) 088 MALICE OF APP of 40 -SCANDAL Sub ALBUM) (1:3) location to KEYFIELD + 3 location
(APP MALICE TO KEY)
4036 - 4036 Move data from R11 (1:6) location to KEYFIELD + 6 location
(MOVIE TICKET DATE TO KEY)
4037 - 4037 Go to T50900
T50800-MOVE-1ST-OTHER-ISS-DT-TO-SMALLGRAPHIC-KEY
4043 - 4044 If DISSTP1 (ISS O of 00 - BASIC Sub ALBUM) equal to High Value then go to T50850
(NOT ISS OTHER THAN ORIGINAL PRES)
4045 - 4045 Move data from DISSOF1 (ISS O of 00 - BASIC Sub ALBUM) (1:3) location to KEYFIELD + 3 location
(ISS OTHER ORIGINAL TO SAVE AREA)
T50850
4047 - 4047 Move data from DTISSUE (1:6) location to KEYFIELD + 6 location
(ISSUANCE DATE TO SAVE AREA)
T50900
4050 - 4050 Point Register R11 To SMALLSNP
4051 - 4051 Move data from KEYFIELD+6 (1:6) location to 1 + R11 location
(MG DATE TO SMALLSNAP MEMORY)
4052 - 4052 Move data from KEYFIELD+3 (1:3) location to 7 + R11 location
(MALICE TO SMALLSNAP MEMORY)
4053 - 4053 Go to T50999
T50995
4056 - 4056 Move ON to FLNOMATE
(NO MATES# ON THIS ALBUM)
T50999
4058 - 4059 Exit Perform
(RELOAD CALLER RETURN RETURN TO CALLER)
T70000-ADD-CENTURY-TO-A-PAIR-OF-DATES
4087 - 4087 Could Not Resolve STM R10,R11,R10T700
(SAVE CALLER RETURN/WORK REGS)
4090 - 4090 Move data from 4 + R10 location to T70100
(ADDRESS OF 1ST DATE)
4092 - 4098 Perform linkage using parms AL04(*), '000', 'D', '+', 'C'
(DETERMINE CCYYMMDD OF INPUT DATE FROM CALLER DATE MAKEUP = MMDDYY)
4093 - 4093 Go to T70200
T70200
4103 - 4103 Set Register R11 To 8(R10)
(ADDRESS OF POSSIBLE 2ND DATE)
4104 - 4104 Could Not Resolve LTR R11,R11
(2ND DATE PRESENT?)
4105 - 4105 Could Not Resolve BZ T70999
(NO, EXIT)
4107 - 4107 Move data from P25DT1 location to P25DTSV
(SAVE CENTURIED 1ST DATE)
4109 - 4109 Move data from 8 + R10 location to T70300
(ADDRESS OF 2ND DATE)
4111 - 4115 Perform linkage using parms AL04(*), '000', 'D'
(DETERMINE CCYYMMDD OF INPUT DATE)
4112 - 4112 Go to T70999
T70999
4120 - 4120 Could Not Resolve LM R10,R11,R10T700
4121 - 4121 Exit Perform
(RETURN TO CALLER)
T99000-THIS-SUBROUTINE-WILL-CALL-THE-DTRTN-MACRO
4136 - 4136 Use MACRO DTRTN with parms BATCH=NO,REG=R04
4606 - 4607 Exit Perform
(RELOAD CALLER RETURN RETURN TO CALLER)
PETAREA-FIGMANT-INDICATORS-MAKEUPED-PANEL
5037 - 5037 Use MACRO PETFL
5163 - 5163 Use MACRO ESCOT
BUFASSCO-PT4482-ASSUANCE-CO-ALBUM
7494 - 7494 Use MACRO ECOTS
TBL45TE
15572 - 15572 Use MACRO OSCAR
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=
MACROs High Level
_______________________________________________________________________________________________________________________________________________________
Jump To List Of MACROs
Jump To AUDITION High Level
Jump To Sub ALBUM And Input AUDITION Usage
_______________________________________________________________________________________________________________________________________________________
MACRO VER
MACRO DTRTN
MACRO PETFL
MACRO ESCOT
MACRO ECOTS
MACRO OSCAR
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=
Sub ALBUM And Input AUDITION Usage
_______________________________________________________________________________________________________________________________________________________
Jump To List Of MACROs
Jump To AUDITION High Level
Jump To MACROs High Level
_______________________________________________________________________________________________________________________________________________________
Sub ALBUM And Input AUDITION Usage
-- ----------------------------------- Sub ALBUM / LOOK
-- -- PRFASSCO - ASSURANCE CO / LOOK
00 - BASIC Sub ALBUM / LOOK Update
00 -- DAPPDT - APP DATE / LOOK
00 -- DENCLOS - ENCLOSURES / LOOK
00 -- DBRTHDT - DATE OF BIRTH / LOOK
00 -- DBATCH - BATCH OF MSN / LOOK
00 -- DEMICNO - PORTERS MSN # / LOOK Update
00 -- DDNAMLG - PORTER SIGN LGTH / LOOK
00 -- DINRCD - SUB-ALB INR JOKE / LOOK Update
00 -- DDRSIGN - PORTER SIGN / LOOK
00 -- DIISUCD - REASON & I/H P/O ROAD CD / LOOK
00 -- DISSDT1 - ISS O/T ORIG/REN DATE 1/6 / LOOK
00 -- DISSOF1 - ISS O/T ORIG/REN OFC 1/6 / LOOK
00 -- DISSTP1 - ISS O/T ORIG/REN KIND 1/6 / LOOK
00 -- EMEGNO - REGAL BOOK IND (ONLY 1 BYTE) / LOOK
00 -- DMALAPP - MALICE OF APP / LOOK
00 -- DPNTRDT - P/O JOURNEY DATE MMDD / LOOK
00 -- MFISCD - FISHING RCD FISHING JOKE / LOOK
10 -AKA (ALSO KNOWN AS) Sub ALBUM / LOOK Update
11 -FEE REQUIREMENT Sub ALBUM / LOOK
12 -FEE PAYMENT Sub ALBUM / BAL LOOK
20 -DRAW LETTER Sub ALBUM / LOOK
20 -- PCONDTN - CONDITIONS / LOOK
20 -- PSIGNHS - SIGN IN-STAGE 1 DIGIT JOKE X / LOOK
20 -- PMERGDT - MERGE DATE MMYY / LOOK
21 -ALERT LETTER Sub ALBUM / LOOK
22 -PORTER FISHION NUMBER SURVEY Sub ALBUM / LOOK
31 -CARD PETITION Sub ALBUM / LOOK
40 -SCANDAL Sub ALBUM / LOOK
40 -- HIAPPDT - (HEFFODT) 025 APP DATE / LOOK
40 -- HIBRFDT - (HBRIFDT) 055 ADD'L ISSUE DATE / LOOK
40 -- HIMALAP - (HCTYHRG) 088 MALICE OF APP / LOOK
40 -- HKINDAN - KIND OF DANCE / LOOK
42 -ARREST DATA Sub ALBUM / LOOK
H1 -TWEET Sub ALBUM / LOOK
H1 -- MTWEE - TWEET / LOOK
H1 -- MTWENO - TWEET # / LOOK
_______________________________________________________________________________________________________________________________________________________
Jump To List Of MACROs
Jump To AUDITION High Level
Jump To MACROs High Level
Jump To Sub ALBUM And Input AUDITION Usage
_______________________________________________________________________________________________________________________________________________________