INHALT

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

1074 00235 0 003700 DAC BUFF INPUT BUFFER 1075 00236 -0 01 00051 JMP* R1K EXIT, DO NOT CALCULATE CHECKSUM 1076 * 1077 00237 0 000000 O104 DAC ** ASR BUSY TEST 1078 00240 34 0104 SKS '104 BUSY 1079 00241 0 01 00240 JMP *-1 YES 1080 00242 -0 01 00237 JMP* O104 NO, EXIT 1081 00243 0 000000 KLR DAC ** CLEAR INPUT BUFFER ROUTINE 1082 00244 0 02 00050 LDA R1K-1 BUFFER POINTER 1083 00245 0 04 00237 STA O104 SAVE FOR REF. 1084 00246 0 02 00714 LDA =-60 SIXTY WORD BUFFER 1085 00247 0 04 00225 STA CARD SAVE 1086 00250 140040 CRA * 1087 00251 -0 04 00237 KLR2 STA* O104 START THE CLEARING PROCESS 1088 00252 0 12 00237 IRS O104 BUMP POINTER 1089 00253 0 12 00225 IRS CARD BUMP COUNTER 1090 00254 0 01 00251 JMP KLR2 CONTINUE CLEARING 1091 00255 -0 01 00243 JMP* KLR EXIT, WITH GREAT SPEED 1092 * 1093 00256 0 02 00050 KCKM LDA R1K-1 * * * CHECKSUM CALCULATOR ROUTINE * * * 1094 00257 0 04 00237 STA O104 BUFFER POINTER 1095 00260 0 02 00714 LDA =-60 SIXTY WORD BUFFER 1096 00261 0 04 00225 STA CARD SAVE BUFFER SIZE 1097 00262 140040 CRA * 1098 00263 -0 05 00237 KCKK ERA* O104 CALCULATE CHECKSUM 1099 00264 0 12 00237 IRS O104 BUMP POINTER 1100 00265 0 12 00225 IRS CARD AND WORD COUNT 1101 00266 0 01 00263 JMP KCKK CONTINUE CALCULATING 1102 00267 100040 SZE * 1103 00270 0 01 00154 JMP R1K+67 CHECKSUM ERROR, GO COMPLAIN 1104 00271 -0 01 00051 JMP* R1K EXIT, CHECKSUM OK . . . 1105 * 1106 * 1107 * 1108 * 1109 * JST TYER TYPE TWO CHARACTERS IN A-REGISTER AND HALT. 1110 * IF 'START' PRESSED, RETURN TO JST+1. 1111 * 1112 00272 0 000000 TYER DAC ** HERE FOR ERROR GRIPE AND HALT. 1113 00273 0 04 03673 STA T SAVE TWO-CHARACTER ARGUMENT. 1114 00274 0 10 00307 JST TTYN TURN THE TELETYPE ON. 1115 00275 0 10 01653 JST CRLF TYPE CARRIAGE-RETURN, LINE-FEED. 1116 00276 0 02 03673 LDA T PICK UP TWO-CHARACTER ARGUMENT. 1117 00277 0 10 01646 JST TYP2 TYPE THE TWO CHARACTERS. 1118 00300 0 10 01653 JST CRLF CARRIAGE-RETURN, LINE-FEED. 1119 00301 0400 40 LRL 32 CLEAR THE A- AND B-REGISTERS 1120 00302 0 10 00237 JST O104 CHECK BUSY 1121 00303 14 0004 OCP '0004 THEN SET TO INPUT MODE 1122 00304 0 02 01000 LDA DFLT CURRENT INPUT DEVICE 1123 00305 000000 HLT HALT FOR USER ACTION.