Views
Document Actions
32K 709/7090 FORTRAN MONITOR - SCAN
by
Paul McJones
—
last modified
2005-06-01 20:11
- History
-
Action Performed by Date and Time Comment Publish Paul McJones 2005-05-15 13:26 No comments.
$JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010
$* FORTRAN II PROCESSOR, 7090-FO-928 00000020
$* VERSION 3, MODIFICATION LEVEL 35 (35)00000030
$EXECUTE IBSFAP $00000050
* 32K 709/7090 FORTRAN MONITOR SCAN F0F00000
* FAP F0F00020
* 32K 709/7090 FORTRAN MONITOR SCAN F0F00030
COUNT 850 F0F00040
SST FORTRAN $F0F00050
ABS $F0F00051
ORG SYSCUR $F0F00052
LBL 9F06,A F0F00060
BCI 1,9F0600 $F0F00070
ORG (LODR) $F0F00080
PON BEGIN,,60 TXI ENTRY,,RECORD NO. F0F00100
CHNTAP SYN 8 $F0F00120
TITLE $F0F00190
ORGSCN ORG BOTTOM F0F00200
REM F0F00210
BEGIN SLF F0F00220
AXT 2,1 SIGNAL IO PACKAGE TO TURN ON SL2 F0F00230
SXA (MSLN),1 IN CASE GOING TO MACHINE ERROR RECORD F0F00240
TSX (TAPE),4 REWIND B2 F0F00250
REWND,,(SKDP) F0F00260
,,FINTAP $F0F00270
LXD (PGCT),1 NO. OF LINES PER PAGE (EXCLUDING HEADING) F0F00280
TXI *+1,1,2 F0F00290
SXD NLINS,1 F0F00300
CLA BLNKS F0F00310
STO PBUF0 F0F00320
STO BUFZ0-1 F0F00330
STO BUFZ0-2 F0F00340
STO PBUF1 F0F00350
STO BUFZ1-1 F0F00360
STO BUFZ1-2 F0F00370
TSX (TAPE),4 RESTORE PAGE F0F00410
EJECT,,(WDNP) F0F00420
,,MLSTAP $F0F00430
R1 TSX (TAPE),4 BEGIN DOUBLE BUFFER READING F0F00440
CW0,,(RDEP) F0F00450
,,MINTAP $F0F00460
MZE TPCHK ERROR RETURN F0F00470
AXT 1,1 F0F00480
SXD BFSWCH,1 F0F00490
READ AXT 0,1 F0F00500
NZT BFSWCH F0F00510
AXT 1,1 F0F00520
SXD BFSWCH,1 F0F00530
TSX (TAPE),4 F0F00540
CW1,1,(RDEP) F0F00550
,,5 F0F00560
MZE TPCHK ERROR RETURN F0F00570
NZT (SCHU)+MINTAP WAS PREVIOUS READ AN END OF FILE $F0F00580
TRA IBFAP5 CHECK FOR EOF IN IBSFAP MODE $F0F00590
AXT 1,2 DELETE COLS. 81-84 F0F00600
CAL* BFZ0,1 F0F00610
ANA 2CHAR F0F00620
ORA 4BLNK F0F00630
SLW* BFZ0,1 F0F00640
LDQ* BFA0,1 TEST FOR MONITOR CONTROL CARD F0F00650
PXD 0,0 F0F00660
LGL 6 F0F00670
SUB ASTK F0F00680
SWIT TNZ SP F0F00690
DSRCH AXT 0,1 $F0F00700
AXT 0,2 $F0F00701
DS3 AXT 6,4 DICTIONARY. F0F00710
LDQ DICT,1 F0F00720
DS1 PXD 0,0 F0F00730
LGL 6 F0F00740
DS9 SUB SVNS FIND NEW DICTIONARY ENTRY) F0F00750
TNZ DS12 F0F00760
TXI DS2,2,-1 F0F00770
DS12 TIX DS1,4,1 F0F00780
TXI DS3,1,-1 F0F00790
DS2 TIX *+4,4,1 SEVENS MEANS NEXT ENTRY, F0F00800
AXT 6,4 IS THIS END OF DICTIONARY. F0F00810
TXI *+1,1,-1 F0F00820
LDQ DICT,1 F0F00830
LGL 6 F0F00840
CAS SVNS F0F00850
TRA DS4 F0F00860
TRA DS14 F0F00870
DS4 STO DERS NO, NEW ENTRY. F0F00880
CLA (6)A PREPARE TO COMPARE WITH F0F00890
STA NNBL1 NEXT NON BLANK CHARACTER. F0F00900
CLA (13)A F0F00910
STA NNBL2 F0F00920
DS6 SXA DS11,4 GET NEXT NON BLANK CHARACTER. F0F00930
TSX NNBL,4 F0F00940
TRA DS10 REST ARE BLANKS. F0F00950
CAS LPREN F0F00960
TRA *+2 F0F00970
TRA DS10 LEFT PAREN, STOP SEARCHING BUFFER. F0F00980
DS11 AXT ,4 COMPARE CHARACTER WITH DICGIONARY F0F00990
CAS DERS CHARACTER. F0F01000
TRA *+2 F0F01010
TRA DS5 SAME F0F01020
CLA DERS DIFFERENT, SEE IF THIS IS THE END F0F01030
TRA DS9 OF THIS DICTIONARY ENTRY. F0F01040
DS5 TIX DS7,4,1 SAME, PREPARE TO COMPARE F0F01050
TXI *+1,1,-1 NEXT CHARACTER. F0F01060
LDQ DICT,1 F0F01070
AXT 6,4 F0F01080
DS7 PXD 0,0 F0F01090
LGL 6 F0F01100
STO DERS F0F01110
TRA DS6 F0F01120
DS10 LXA DS11,4 END OF BUFFER OR LEFT PAREN, IS F0F01130
CLA DERS THIS ALSO END OF THIS F0F01140
SUB SVNS DICTIONARY ENTRY. F0F01150
TNZ DS12 NO, GET NEXT DICTIONARY ENTRY. F0F01160
DS14 TRA IBFAP2 RESTORE COL 7 * CARDS $F0F01170
CLA CWP0,1 COMMAND TO WRITE OUT BUFFER $F0F01180
TSX COMNT,4 F0F01190
TRA TV GO TO APPROPRIATE CODING F0F01200
DERS PZE F0F01210
REM F0F01220
DICT OCT 776725507723 -XEQ-C F0F01230
OCT 302131457724 HAIN-D F0F01240
OCT 216321772321 ATA-CA F0F01250
OCT 512462514666 RDSROW F0F01260
OCT 772321512462 -CARDS F0F01270
OCT 234643644445 COLUMN F0F01280
OCT 774331626377 -LIST- F0F01290
OCT 433122257726 LIBE-F F0F01300
OCT 214777223145 AP-BIN F0F01310
OCT 776270442246 -SYMBO F0F01320
OCT 436321224325 LTABLE F0F01330
OCT 774321222543 -LABEL F0F01340
OCT 772425226427 -DEBUG F0F01350
OCT 774721646225 -PAUSE F0F01360
OCT 774331626310 -LIST8 F0F01370
OCT 774751314563 -PRINT F0F01380
OCT 775146667747 -ROW-P F0F01381
OCT 212342772524 ACK-ED $F0F01382
OCT 316343312225 ITLIBE $F0F01383
OCT 773146477777 -IOP-- $F0F01384
OCT 777777777777 ------ $F0F01390
BSS 19 $F0F01400
REM F0F01410
TV TRA* *,2 F0F01420
XEQ F0F01430
CHN F0F01440
DATA F0F01450
CDROW F0F01460
CDCOL F0F01470
LIST F0F01480
LIBE F0F01490
FAP F0F01500
BIN F0F01510
SYMTAB F0F01520
LABEL F0F01530
DEBUG F0F01540
PAUSE F0F01550
LIST8 F0F01560
ONLPR F0F01570
ROW F0F01571
PACK F0F01572
EDIT $F0F01573
IOP $F0F01574
READ $F0F01580
BSS 19 $F0F01590
REM F0F01600
SP ADD SK1RC IS THIS A CC 1 DOLLAR SIGN $F0F01610
TRA IBFAP1 TEST COL 1 AND 7 CHARACTERS $F0F01620
(6)A AXT 6,1 NO, PREPARE TO SCAN FOR END CARD. F0F01630
(13)A AXT 13,2 F0F01640
SXA NNBL1,1 F0F01650
SXA NNBL2,2 F0F01660
AXT 17,1 SCAN FOR CALL CHAIN(XXXXXX, (34)F0F01670
SP01 TSX NNBL,4 X F0F01680
TRA WSP NO MORE CHARACTERS F0F01690
TXL *+5,1,7 HAVE FOUND CALL CHAIN( (34)F0F01700
SUB CLCH+17,1 (34)F0F01710
TNZ SP05 NOT CALL CHAIN( (34)F0F01720
TIX SP01,1,1 STILL POSSIBLE (34)F0F01730
TRA WSP SOMETHING ILLEGAL-FORGET IT (34)F0F01740
SUB COMMA SEARCH FOR COMMA (34)F0F01750
TNZ *-3 (34)F0F01760
TRA CLCHFX SEE IF T IS AN A OR B (34)F0F01770
TZE *+3 YES F0F01780
ADD ONE NO, IS IT A F0F01790
TNZ WSP (34)F0F01800
AXT 2,1 FOUND, ERASE IT F0F01810
SP03 LXA NNBL1,4 X F0F01820
LXA NNBL2,2 X F0F01830
LDQ BMSK+2,1 X F0F01840
TXL *+2,4,5 X F0F01850
TXI SP04,2,1 X F0F01860
RQL 6 X F0F01870
TIX *-1,4,1 X F0F01880
SP04 XCL F0F01890
TIX SP03,1,1 X F0F01900
LXD BFSWCH,4 X F0F01910
ORS* BFZ0,4 X F0F01920
XCL F0F01930
ANS* BFZ0,4 X F0F01940
TRA WSP X F0F01950
SP05 TXL WSP,1,16 WAS 1ST CHARACTER AC. (35)F0F01960
ADD CLCH NO, SCAN FOR END CARD F0F01970
AXT 3,1 X F0F01980
SP06 SUB E+3,1 X F0F01990
TNZ WSP X F0F02000
TSX NNBL,4 X F0F02010
TRA SP1 NO MORE CHARACTERS F0F02020
TIX SP06,1,1 X F0F02030
SUB LPREN X F0F02040
TNZ WSP NOT AN END CARD F0F02050
TXI SP2,1,14 END CARD WITH PARAMETERS F0F02060
SP1 TXL END,1,1 END CARD WITH NO PARAMETERS. F0F02070
TRA WSP NOTHING. F0F02080
SP2 TSX NNBL,4 F0F02090
TRA WSP F0F02100
STO PSW1+15,1 SAVE ORIGINAL END CARD OPTIONS F0F02110
TSX NNBL,4 LOOK FOR COMMAS. F0F02120
TRA WSP F0F02130
TNX SP3,1,1 F0F02140
SUB COMMA F0F02150
TZE SP2 F0F02160
ADD COMMA F0F02170
SP3 SUB RPREN LOOK FOR CLOSING PARENTHESIS F0F02180
TNZ WSP F0F02190
PTCHR TRA CONTN CLOSING PART. FOUND, SCAN REST OF CARD. $F0F02200
ZET ESW1 WAS THERE A CONTROL CARD AFFECTING SWITCH 1F0F02210
TRA *+3 YES, IGNORE END CARD SETTING. F0F02220
NZT PSW1 NO, DOES END CARD SPECIFY SWITCH 1 UP. F0F02230
STO ENDCD+1 YES, PUT IT UP. F0F02240
REM F0F02250
REM SAVE END CARD OPTIONS IN ABSENCE OF CONTROL CARDS F0F02260
AXT 15,4 F0F02270
AXT 5,2 F0F02280
SP3A AXT 3,1 F0F02290
LDQ ENDCD+7,2 F0F02300
SP4 TNX SP5,4,1 F0F02310
CLA PSW1+15,4 F0F02320
NZT ESW1+15,4 TEST FOR CONTROL CARD F0F02330
LBT NO CC, TEST FOR ONE (1). F0F02340
TRA SP5 F0F02350
LGL 6 ONE, PUTI IT IN END CARD F0F02360
ARS 6 F0F02370
LGR 6 F0F02380
SP5 RQL 12 F0F02390
TIX SP4,1,1 F0F02400
STQ ENDCD+7,2 F0F02410
TIX SP3A,2,1 F0F02420
REM F0F02430
END ZET BEGIN HAS SOMETHING BEEN WRITTEN F0F02440
TRA READ NO, THIS END CARD IS BALONEY, IGNORE. F0F02450
LDI ENDCD+4 $F0F02451
LFT 1 IS OFF LINE ROW BINARY REQUESTED $F0F02452
TRA RBR YES $F0F02453
LDI ENDCD+1 NO $F0F02454
OSI ENDCD+2 $F0F02455
RFT 100 IS ON LINE ROW BINARY REQUESTED $F0F02456
TRA ENDWT NO $F0F02457
RBR LDI ENDCD+3 YES $F0F02458
LNT 10000 IS LIBE REQUESTED $F0F02459
TRA ENDWT NO $F0F02460
RIL 10000 YES $F0F02461
STI ENDCD+3 KILL REQUEST $F0F02462
RBLIB STZ * $F0F02463
ENDWT TSX (TAPE),4 WRITE OUT FABRICATED END CARD $F0F02464
ENDCW,,(WBNP) F0F02470
FINPUT,,FINTAP $F0F02480
TSX (TAPE),4 F0F02490
,,(WEFP) F0F02500
,,FINTAP $F0F02510
TSX (TAPE),4 F0F02520
REWND,,(SKBP) F0F02530
,,FINTAP $F0F02540
AXT *+2,1 WRITE END CARD ON OUTPUT TAPE F0F02550
SXA WTHDR,1 F0F02560
LXA WSP,1 F0F02570
TNX NUPAG,1,1 F0F02580
PXD ,1 F0F02590
SBM NLINS F0F02600
ARS 18 F0F02610
SBM LINECT F0F02620
DD TRA IBPAT2 CHECK FOR IBSFAP END CARD $F0F02630
TSX (TAPE),4 F0F02640
ENDCW+1,,(WDNP) F0F02650
,,MLSTAP $F0F02660
CLA COMLB $F0F02661
NZT RBLIB WAS LIBE KILLED $F0F02662
TSX COMNT,4 YES, TELL THEM ABOUT IT $F0F02663
TSX (TAPE),4 WRITE EXTRA HEADING FOR SECTION 6 F0F02670
HEDCW,,(WDNP) F0F02680
,,MLSTAP $F0F02690
LDI* (FGBX) F0F02700
RNT 200 IS EXECUTION ON. F0F02710
TRA TOFN NO F0F02720
AXT NXTEF,4 YES, PREPARE TO LOOK AT NEXT CARD F0F02730
SXA CHKEF,4 F0F02740
SXA BEF,4 F0F02750
SXA EF1,4 F0F02760
AXT RDNXT,4 F0F02770
SXA CHKB,4 F0F02780
NEXT TSX (TAPE),4 LOOK AT NEXT CARD F0F02790
MINTAP,,(CHKU) $F0F02800
NZT (SCHU)+MINTAP WAS IT AN END OF FILE $F0F02810
TRA NXTEF F0F02820
AXT 0,4 F0F02830
NZT BFSWCH F0F02840
AXT 1,4 F0F02850
SXD BFSWCH,4 F0F02860
LDQ* BFA0,4 IS IT MONITOR CONTROL CARD. F0F02870
PXD 0,0 F0F02880
LGL 6 F0F02890
SUB ASTK F0F02900
TZE NXTCC YES F0F02910
CLA* BFA0,4 NO F0F02911
SUB BLNKS F0F02912
TNZ NOTCC ANYTHING IN FIRST WORD F0F02913
AXT 6,1 NO F0F02920
AXT 13,2 F0F02930
SXA NNBL1,1 F0F02940
SXA NNBL2,2 F0F02950
TSX NNBL,4 IS THIS A BLANK CARD F0F02960
TRA RDNXT YES, IGNORE BLANK CARD F0F02970
NOTCC TRA TOFN NON-BLANK AND NOT A CONTROL CARD F0F02980
RDNXT LXD BFSWCH,1 F0F02990
TSX (TAPE),4 READ NEXT CARD F0F03000
CW1,1,(RDEP) F0F03010
,,MINTAP $F0F03020
MZE TPCHK F0F03030
TRA NEXT F0F03040
NXTCC CLA DSEND F0F03050
STO DS14 F0F03060
TRA DSRCH SEARCH DICTIONARY F0F03070
DSEND TRA *+1 F0F03080
LDI TV,2 IS IT DATA F0F03090
IIR DATA F0F03100
RFT 777777 F0F03110
TRA NOTDA NO F0F03120
NXTDA LDI* (FGBX) YES, DATA CARD IS NEXT F0F03130
SIR 100000 F0F03140
STI* (FGBX) F0F03150
TRA TOFNA F0F03160
NOTDA LDI TV,2 IS IT DEBUG F0F03170
IIR DEBUG F0F03180
RFT 777777 F0F03190
TRA TOFN NO F0F03200
LDI* (FGBX) YES, DEBUG CARD IS NEXT F0F03210
SIR 400000 SIGNAL DEBUG F0F03211
STI* (FGBX) F0F03212
LNT 2 IS THIS A CHAIN JOB F0F03220
TRA NXTDA+1 NO F0F03230
AXT *+2,4 YES F0F03240
SXA NOTCC,4 F0F03250
LDC BFSWCH,1 MOVE THE DEBUG CARDS TO B1 F0F03260
TSX (TAPE),4 F0F03270
CW0,1,(WDNC) F0F03280
,,CHNTAP $F0F03290
TRA RDNXT F0F03300
REM F0F03310
NXTEF LDI* (FGBX) F0F03320
SIR 100000 SIGNAL GO TO BSS AFTER COMPILATION F0F03330
STI* (FGBX) F0F03340
TOFN TSX BKIN,4 BACKSPACE OVER NEXT INPUT RECORD F0F03350
TOFNA TSX (TAPE),4 SPACE SYSTEM TAPE TO FORTRAN F0F03360
SKFCW,,(SKBP) F0F03370
,,SYSTAP $F0F03380
TSX (PRNT),4 PRINT BEGIN COMPILATION AND GO TO FORTRAN F0F03390
COMBC,,4 F0F03400
TSX (PRNT),4 F0F03410
SPACE,,1 F0F03420
TSX LOAD,4 $F0F03421
BCI 1,9F1300 $F0F03422
LOAD CLA 1,4 GET RECORD NAME $F0F03430
STO RNAME $F0F03431
CLA TPCHK+2 CLOSE OUT ALL IO $F0F03432
STO TPCHK F0F03440
AXT 7,1 $F0F03450
TSX (TAPE),4 F0F03451
PZE 8,1,(CHKU) NORMALLY CLOSE OUT TAPES 1-7 ONLY $F0F03452
TIX *-2,1,1 F0F03453
TSX (LOAD),4,1 LOAD NEXT SYSTEM RECORD $F0F03454
RNAME BCI 1,****** $F0F03455
REM F0F03460
TPCHK LDI (SCHU)+MINTAP WAS ERROR WRONG MODE READ $F0F03470
RNT 100 $F0F03480
TRA QQQQ NO $F0F03490
LDI* (FGBX) YES IS XEQ ON $F0F03500
RFT 200 $F0F03510
TRA CBIN YES CHECK FOR CHAIN JOB $F0F03520
AXT RDBIN,1 NO, SKIP OVER BINARY INPUT $F0F03530
SXA WTBIN,1 $F0F03540
TRA RDBIN1 $F0F03550
CBIN LNT 2 CHAIN JOB $F0F03560
TRA CBIN1 NO GO TO DEBUG $F0F03570
RDBIN1 TSX (TAPE),4 YES MOVE BINARY $F0F03580
PZE CWB0,,(RBEC) $F0F03590
PZE ,,MINTAP $F0F03600
NZT (SCHU)+MINTAP MAKE SURE IT WASNT EOF $F0F03610
CHKEF TRA IBFAP5 YES $F0F03620
CLA BLNKS $F0F03630
AXT 2,1 $F0F03640
STO BUFZ0,1 $F0F03650
STO BUFZ1,1 $F0F03660
TIX *-2,1,1 $F0F03670
SXD BFSWCH,1 $F0F03680
RDBIN AXT 0,1 $F0F03690
NZT BFSWCH $F0F03700
AXT 1,1 $F0F03710
SXD BFSWCH,1 $F0F03720
TSX (TAPE),4 $F0F03730
PZE CWB1,1,(RBEP) $F0F03740
PZE ,,MINTAP $F0F03750
CHKB MZE R1 IF ERROR TRY READING BCD $F0F03760
NZT (SCHU)+MINTAP EOF $F0F03770
BEF TRA IBFAP5 YES $F0F03780
LDC BFSWCH,1 $F0F03790
WTBIN TSX (TAPE),4 $F0F03800
PZE CWB0,1,(WBNC) $F0F03810
PZE ,,CHNTAP $F0F03820
TRA RDBIN $F0F03830
DATA EQU * $F0F03840
EF EQU * $F0F03850
LDI* (FGBX) IS XEQ ON $F0F03860
RFT 200 $F0F03870
TRA EF1 YES $F0F03880
EF2 EQU * $F0F03885
TSX (TAPE),4 NO GO TO SIGN ON $F0F03890
PZE BS4CW,,(SKBP) $F0F03900
PZE ,,SYSTAP $F0F03910
TSX LOAD,4 $F0F03920
BCI 1,9F0300 $F0F03930
CBIN1 SIR 200000 $F0F03940
STI* (FGBX) BINARY INPUT $F0F03950
CAL BKINR+1 KILL BACKSPACE $F0F03952
SLW BKIN $F0F03953
AXT ,0 $F0F03957
EF1 TSX BKIN,4 BACK UP INPUT TAPE OVER EOF OR USER'S DATA$F0F03959
TSX LOAD,4 READ IN DEBUG $F0F03960
BCI 1,9F0700 DEBUG $F0F03970
QQQQ RNT 10 WAS ERROR REDUNDANCY $F0F03980
TRA INERR NO $F0F03990
TRA IBFAP4 $F0F04000
REM F0F04020
REM F0F04030
REM F0F04040
REM WRITE SOURCE PROGRAM CARDS FOR FORTRAN AND OUTPUT TAPE F0F04050
WSP AXT **,1 F0F04060
TNX NUPAG,1,1 TRANSFER FOR NEW PAGE F0F04070
SXA WSP,1 F0F04080
LDC BFSWCH,1 F0F04090
TSX (TAPE),4 WRITE B2 FOR FORTRAN F0F04100
CW0,1,(WBNP) F0F04110
FINPUT,,FINTAP $F0F04120
ZET BEGIN F0F04130
TRA WSP1 DONT WRITE A3 F0F04140
TSX (TAPE),4 WRITE A3 OUTPUT TAPE F0F04150
CWP0,1,(WDNP) F0F04160
,,MLSTAP $F0F04170
WSPCK TSX (TAPE),4 CHECK BEFORE DESTROYING THIS BUFFER F0F04180
FINTAP,,(CHKU) $F0F04190
TSX (TAPE),4 F0F04200
MLSTAP,,(CHKU) $F0F04210
TRA READ F0F04220
WSP1 STZ BEGIN F0F04230
TRA WSPCK F0F04240
NUPAG LXA LINECT,4 F0F04250
NZT BEGIN IS THIS THE FIRST SOURCE CARD F0F04260
NLINS TXI WTHED,4,** NO (DECREMENT HAS NO. OF LINES PER PAGE) F0F04270
REM PREPARE PAGE HEADING F0F04280
TRA IBFAP3 CHECK FOR IBSFAP WITH NO FAP CARD $F0F04290
AXT 14,2 F0F04300
CLA* BFZ0,1 F0F04310
STO TITLE+14,2 F0F04320
TXI *+1,2,-1 F0F04330
TXH *-3,2,2 F0F04340
AXT 1,2 F0F04350
SXD LINECT,2 SET PAGE NUMBER TO 1 F0F04360
PXD ,0 F0F04370
STZ BEGIN F0F04380
LDI TITLE F0F04390
IIL 230000 WAS 1ST CHARACTER C F0F04400
LFT 770000 F0F04410
TRA CDATE NO F0F04420
SIL 600000 YES, CHANGE TO BLANK F0F04430
STI TITLE F0F04440
STL BEGIN DONT WRITE THIS CARD AGAIN ON A3 F0F04450
CAL NLINS F0F04460
CDATE STP LINECT SIGNAL FOR 1ST CHARACTER C F0F04470
CAL (DATE) GET DATE F0F04480
TZE NDATE NO DATE F0F04490
ANA BLNKS ANY ZONE BITS F0F04500
TNZ NDATE YES, NOT PROPER DATE F0F04510
LDQ (DATE) GOOD DATE F0F04520
LGL 6 F0F04530
TNZ *+2 F0F04540
CAL BLNK F0F04550
LGL 6 MONTH F0F04560
ALS 6 F0F04570
ORS DATE F0F04580
LGL 12 DAY