F4$INT, F4$IN, F4$OUT, F4$SYM, F4$END, F4$DUI, F4$DUO, F4$DUS

* F4$IOS-B - DEC 12 2006 - VERSION 1 PAGE 10

0451 00453 0 04 00451 STA SWCH 0452 00454 -0 01 00451 JMP* SWCH 0453 * 0454 ************************************** 0455 * ERROR HANDLING ROUTINES * 0456 ************************************** 0457 * 0458 001000 STRT EQU '1000 COMPILER START ADDRESS 0459 00455 0 02 00621 ERR0 LDA MO2 =-2 0460 00456 0 10 00416 JST PRBF 0461 00457 0 000616 DAC MUR MESSAGE: UR (RECORD UNREADABLE) 0462 00460 0 01 00464 JMP ERR2 0463 00461 0 02 00620 ERR1 LDA MO3 =-3 0464 00462 0 10 00416 JST PRBF 0465 00463 0 000613 DAC MEOT MESSAGE: EOT (END OF TAPE) 0466 00464 0 10 00366 ERR2 JST STOP 0467 00465 0 02 00467 LDA DEFT LOAD DEVICE SETTINGS (REG-A) 0468 00466 0 01 01000 JMP STRT RESTART COMPILATION 0469 * 0470 ************************************** 0471 * F4-IOS DATA AREA * 0472 ************************************** 0473 * 0474 00467 000311 DEFT OCT 311 DEFAULT SELECTION OF IO DEVICES (I 3=HSR; L 1=TTY; O 1=PTP) 0475 * DECIMAL CONVERION TABLE (USER FOR PRINTING NUMBERS) 0476 00470 023420 DTAB OCT 23420 =10000 0477 00471 001750 OCT 1750 =1000 0478 00472 000144 OCT 144 =100 0479 00473 000012 OCT 12 =10 0480 00474 000001 OCT 1 =1 0481 00475 000000 DSRC OCT 0 SOURCE INPUT DEVICE AS SPECIFIED DURING START 0482 00476 000000 DLST OCT 0 LISTING DEVICE AS SPECIFIED DURING START 0483 00477 000000 DOBJ OCT 0 OBJECT OUTPUT DEVICE AS SPECIFIED DURING START 0484 00500 000000 IB6 OCT 0 SOURCE BUFFER ADDRESS 0485 00501 000000 SCNT OCT 0 SOURCE RECORD COUNTER 0486 00502 000000 INFL OCT 0 FLAG LISTING DRIVER (NONZERO WITH 1ST-TIME-CALL) 0487 00503 000000 OSRC OCT 0 POINTER TO EXTERNAL OBJECT BUFFER 0488 000504 BA EQU * BUFFER ADDRESS 0489 000504 TEMP EQU * TEMP POINTER TO DECIMAL CONVERSION TABLE 0490 00504 000000 ODES OCT 0 INDEXED POINTER TO INTERNAL OBJECT BUFFER 0491 00505 000000 NUMB OCT 0 TEMP STORAGE FOR LINENUMBER TO CONVERT/PRINT 0492 00506 000000 ZERO OCT 0 SET TO 0 WITH 1ST NONZERO DIGIT IN LINENUMBER 0493 00507 000000 T1 OCT 0 0494 00510 0 000512 OPTR DAC OBUF POINTER TO OUTPUT BUFFER 0495 00511 0 000470 TPTR DAC DTAB POINTER TO DECIMAL CONVERSION TABLE 0496 * 0497 000512 OBFL EQU * OUTPUT BUFFER LENGTH FOR BINARY OUTPUT (WORDS) 0498 00512 000004 OBUF OCT 4 OUTPUT BUFFER (60 WORDS; MUST NOT EXCEED 60 WORDS) 0499 00513 000300 OCT 300 0500 00514 000000 OCT 0