F4-IOS

* NAME: F4-IOS DOC 41285251000 REV C PAGE 8

0351 00002 0 10 00452 JST PTLR TEST PAPER TAPE - PUNCH LEADER 0352 00003 0 10 00000 CALL G$DR DUMMY ROUTINE 0353 00004 0 15 00522 STX X SAVE INDEX REGISTER 0354 * 0355 * SET UP COMPLER CROSS SECTOR REFERENCE TABLE ('100 - '112) 0356 00005 0 06 00662 ADD ='37774 INDEX AND SUBTRACT 4 0357 00006 0 04 00512 STA TEMP TEMP = X-SECTOR REFERENCE TABLE DATA 0358 00007 0 02 00661 LDA =-10 NUMBER OF LOOPS 0359 00010 0 04 00517 STA WORK WORK = LOOP COUNTER 0360 00011 0 35 00660 LDX ='100 LOCATION POINTER 0361 00012 0 02 00512 AGEN LDA TEMP X-SECTOR REFERENCE TABLE DATA 0362 00013 -0 04 00000 STA* 0 VIA LOCATION POINTER 0363 00014 0 12 00512 IRS TEMP TALLY TABLE DATA 0364 00015 0 12 00000 IRS 0 TALLY LOCATION COUNTER 0365 00016 0 12 00517 IRS WORK TALLY LOOP COUNTER 0366 00017 0 01 00012 JMP AGEN LOOP 0367 * 0368 * COMPUTE SIZE OF DATA POOL 0369 00020 0 02 00522 LDA X MINUS NUMBER OF LOCATIONS TO TOP OF CORE 0370 00021 140407 TCA GET POSITIVE NUMBER 0371 00022 0 07 00657 SUB =3 0372 00023 0 04 00113 STA '113 '113 = SIZE OF COMPILER DATA POOL 0373 * 0374 00024 140040 CRA CLEAR- 0375 00025 0 04 00514 STA LINE -LINE COUNT 0376 00026 0 12 00515 IRS HEAD SET LIST HEADING INDICATOR 0377 00027 -0 01 00000 JMP* INT RETURN 0378 * 0379 * 0380 * SYMBOLIC INPUT 0381 * 0382 00030 0 000000 IN DAC ** RETURN ADDRESS 0383 00031 100004 SR3 0384 00032 0 10 00420 JST CKEY SS3 SET - HALT AND ALLOW NEW KEYWORD 0385 * 0386 * IF INPUT AND LISTING ARE ON THE ASR OUTPUT CR/LF 0387 00033 0 02 00507 LDA IPUT INPUT DEVICE CODE 0388 00034 0 05 00656 ERA =1 TEST FOR ASR 0389 00035 100040 SZE * 0390 00036 0 01 00045 JMP IN1 NO - CR/LF NOT REQUIRED 0391 00037 0 02 00510 LDA LIST LIST DEVICE CODE 0392 00040 0 05 00656 ERA =1 TEST FOR ASR 0393 00041 100040 SZE SKIP IF LIST AND INPUT ON ASR 0394 00042 0 01 00045 JMP IN1 NO - CR/LF NOT REQUIRED 0395 00043 0 10 00000 CALL O$AC OUTPUT CR ON ASR 0396 00044 0 10 00000 CALL O$AF OUTPUT LF ON ASR 0397 * 0398 00045 -0 02 00030 IN1 LDA* IN BUFFER ADDRESS FOR- 0399 00046 0 04 00072 STA IASR+1 -ASR 0400 00047 0 04 00076 STA ICDR+1 -CARD READER