_______________________________________________________________________________________________________________________________________________________

Jump To List Of MACROs
Jump To AUDITION High Level
Jump To MACROs High Level
Jump To Sub ALBUM And Input AUDITION Usage
_______________________________________________________________________________________________________________________________________________________

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=

List Of MACROs
_______________________________________________________________________________________________________________________________________________________

Jump To AUDITION High Level
Jump To MACROs High Level
Jump To Sub ALBUM And Input AUDITION Usage
_______________________________________________________________________________________________________________________________________________________

DTPARM, DTRTN, ESCOT, ECOTS, PETFL, OSCAR, VER

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=

AUDITION High Level
_______________________________________________________________________________________________________________________________________________________

Jump To List Of MACROs
Jump To MACROs High Level
Jump To Sub ALBUM And Input AUDITION Usage
_______________________________________________________________________________________________________________________________________________________


EG1282-AUDITION-USING-MAP-HINT-3

        98 -    98        Go to B11000-ACON-BELOW-IS-THE-ADDRESS-OF-THE-1ST-BYTE-PAST-THE-EM-BASIC-ALBUM

       122 -   122        Use MACRO VER

B11000-ACON-BELOW-IS-THE-ADDRESS-OF-THE-1ST-BYTE-PAST-THE-EM-BASIC-ALBUM

       149 -   149        Perform B11100-REFERESH-PROGRAM
                               (WATCH FOR PANEL PETITION)

       151 -   151        Perform B11200-REFERESH-PROGRAM
                               (REFERESH PROGRAM)

       153 -   153        Perform C11000-VALIDATE-AUDITION
                               (VALIDATE AUDITION)

       155 -   156        If FLVAL equal to High Value then go to B11050
                               (NOT AUDITION VALID)

       158 -   158        Perform D11000-LOOK-ESCORT-BOOK
                               (LOOK ESCORT BOOK)

       160 -   161        If FLLOOK equal to High Value then go to B11050
                               (NOT VALID LOOK)

       163 -   163        Perform E11000-WATCH-FOR-THREAT
                               (WATCH FOR THREAT)

       165 -   166        If FLSTOP equal to High Value then go to B11050
                               (STOP AUDITIONING)

       168 -   168        Perform F10000-LINK-TO-SUITABILITY
                               (LINK TO SUITABILITY)

       170 -   170        Perform H10000-MAKEUP-TITLE-LINES
                               (MAKEUP TITLE LINE)

       172 -   172        Perform I10000-MAKEUP-FIGMENTS
                               (MAKEUP OTHER FIGMENTS)

       174 -   175        If FLMEMO30 equal to ON then go to B11055-ABORT-PROGRAM                                (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
_______________________________________________________________________________________________________________________________________________________