INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 20

0924 * 0925 * 0926 * 0927 000042 BOT EQU *-6 GERM OF SYMBOL TABLE. 0928 * 0929 * 0930 * 0931 SETB STBO DESECTOR IN CURRENT SECTOR. . 0932 * 0933 * 0934 * 0935 * ********************************************************************** 0936 * * INPUT/OUTPUT ROUTINES * 0937 * ********************************************************************** 0938 * 0939 * 0940 * 0941 * JST R1K READ ONE BLOCK PLACE IT IN "BUFF" ... "BUFF+59". 0942 * CHECKS CHECKSUM AND BLOCK LENGTH. LOCATION 'R1KN' 0943 * WILL CONTAIN WORD COUNT MINUS SIXTY. 0944 * CONTROL JUMPS TO LOCATION 'EOT' IF END-OF-TAPE BLOCK 0945 * ENCOUNTERED (203,223). 0946 * 0947 00050 0 003700 DAC BUFF R1K-1 POINTER TO INPUT BUFFER. 0948 * 0949 00051 0 000000 R1K DAC ** R1K+O HERE TO READ BLOCK. 0950 00052 0 02 00050 LDA R1K-1 +1 SET UP POINTER TO FIRST LOCATION 0951 00053 0 04 03673 STA T +2 IN THE INPUT BUFFER. 0952 00054 0 02 00714 LDA ='177704 +3 SET THE BUFFER COUNT TO -60. 0953 00055 0 04 00660 STA R1KN +4 0954 00056 140040 CRA +5 INITIALIZE THE CHECKSUM. 0955 00057 0 04 03674 STA T+1 +6 C(T+1) = CHECKSUM. 0956 * SKIP BLANK TAPE LOOP. 0957 00060 -0 10 00662 MRIK JST* SW TEST DEVICE SWITCH 0958 00061 0 05 00713 ERA ='000203 +8 IS IT 'ETX'.Q 0959 00062 101040 SNZ +9 SKIP IF NOT. 0960 00063 0 01 03031 JMP EOT +10 YES. GO SERVICE END-OF-TAPE CUNDITION. 0961 00064 0 05 00712 ERA ='000002 +11 NO, IS IT 'SOH' (201).Q 0962 00065 100040 SZE +12 SKIP IF SO. 0963 00066 0 01 00060 JMP R1K+7 +13 NO. CONTINUE HUNT FOR GOOD TAPE. 0964 * OK. READ WORDS OF BLOCK. 0965 00067 140040 CRA R1K+14 HERE TO READ NEXT WORD. 0966 00070 0 10 00104 JST R1K+27 +15 READ AND TRANSLATE ONE CHARACTER. 0967 00071 0 10 00104 JST R1K+27 +16 READ AND TRANSLATE ANOTHER CHARACTER. 0968 00072 0 10 00104 JST R1K+27 +17 READ AND TRANSLATE STILL ANOTHER. 0969 00073 -0 04 03673 STA* T +18 PLACE TOTAL WORD IN BUFFER. 0970 00074 0 05 03674 ERA T+1 +19 INCLUDE IT IN CHECKSUM. 0971 00075 0 04 03674 STA T+1 +20 UPDATE CHECKSUM. 0972 00076 0 12 03673 IRS T +21 INCREMENT BUFFER POINTER. 0973 00077 0 12 00660 IRS R1KN +22 INCREMENT BUFFER COUNT.