FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 206

7025 13403 0 15 13471 STX OWXS 7026 13404 0 02 00643 LDA RPL 7027 13405 0 07 13475 SUB ORPL 7028 13406 100400 SPL 7029 13407 140407 TCA 7030 13410 0 11 00735 CAS K101 7031 13411 0 10 13531 JST FS00 FLUSH BUFFER IF DIFFERENCE IN RPL'S NOT 1 7032 13412 101000 NOP 7033 13413 0 02 00063 LDA OCNT 7034 13414 0 06 00737 ADD K103 7035 13415 0 11 13530 CAS K146 7036 13416 101000 NOP 7037 13417 0 10 13531 JST FS00 FLUSH BUFFER 7038 13420 0 02 00063 LDA OCNT 7039 13421 0 06 00737 ADD K103 7040 13422 0 04 00063 STA OCNT OCNT = OCNT+3 7041 13423 0 07 00737 SUB K103 7042 13424 0406 77 ARR 1 OCI (OUTPUT CARD IMAGE) 7043 13425 0 04 00000 STA 0 7044 13426 101400 SMI LEFT OR RIGHT POS. 7045 13427 0 01 13473 JMP OW20 7046 13430 0 10 13476 JST PU00 7047 13431 0400 70 LRL 8 IF BUFFER FULL 7048 13432 1 13 13650 IMA OCI,1 7049 13433 0 03 00672 ANA K116 CALL FLUSH (FS00) 7050 13434 1 05 13650 ERA OCI,1 7051 13435 1 04 13650 OW10 STA OCI,1 7052 13436 000201 IAB 7053 13437 1 04 13651 STA OCI+1,1 7054 13440 0 02 13764 LDA PRI+16 7055 13441 0404 74 LGR 4 POSITION IN LOW 12 BITS 7056 13442 0 10 13272 JST OR80 7057 13443 0 013764 DAC PRI+16 7058 13444 0 02 13762 LDA PRI+14 7059 13445 0 10 13272 JST OR80 SET DIGITS IN PRI+15, PRI+16 7060 13446 0 013762 DAC PRI+14 7061 13447 0 02 01060 LDA LIBF CHECK T0 SEE IF BIT 2 IS SET 7062 13450 0414 76 LGL 2 7063 13451 0 02 01151 LDA KASP 7064 13452 100001 CSR1 SRC SKIP IF BIT 2 IS NOT SET 7065 13453 0 01 13460 JMP OW14 7066 13454 0 04 13763 STA PRI+15 OVERWRITE BINARY DATA IN 7067 13455 0 04 13764 STA PRI+16 PRINT BUFFER WITH SPACES 7068 13456 0 04 13765 STA PRI+17 IF NO BINARY LISTING IS WANTED 7069 13457 0 04 13766 STA PRI+18 7070 13460 0 04 13762 OW14 STA PRI+14 7071 13461 0 35 13471 LDX OWXS RESTORE INDEX 7072 13462 0 02 00643 LDA RPL 7073 13463 0 04 13475 STA ORPL ORPL=RPL 7074 13464 140040 CRA