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 7

0301 00305 0 07 00504 SUB TEMP MINUS THE CURRENT POINTER TO THE TABLE 0302 00306 0 04 00507 STA T1 0303 00307 0 06 00636 ADD N1 +1 0304 00310 140407 TCA 0305 00311 0404 77 LGR 1 = INDEX IN BUFFER 0306 00312 0 13 00000 IMA 0 A = COUNT 0307 00313 101040 SNZ 0308 00314 0 01 00326 JMP CV3 COUNT = 0 => DIGIT WOULD BE 0 0309 00315 0 06 00626 CV4 ADD O20 ='20 (TO MAKE ASCII DIGIT OF SPACE) 0310 00316 0416 70 CV5 ALR '10 0311 00317 0 12 00507 IRS T1 0312 00320 0 01 00316 JMP CV5 0313 00321 1 06 00512 ADD OBUF,1 0314 00322 1 04 00512 STA OBUF,1 0315 00323 140040 CRA 0316 00324 0 04 00506 STA ZERO RESET THE LEADING ZERO FLAG 0317 00325 -0 01 00271 JMP* CDIG 0318 00326 0 02 00506 CV3 LDA ZERO NONZERO IF STILL LEADING ZERO'S 0319 00327 100040 SZE 0320 00330 -0 01 00271 JMP* CDIG NONZERO, SO STILL A LEADING ZERO 0321 00331 0 01 00315 JMP CV4 ZERO, SO NOT A LEADING ZERO, SO OUTPUT 0322 * 0323 ************************************** 0324 * STOP COMPILATION: F4$END * 0325 ************************************** 0326 * 0327 00332 0 000000 F4EN DAC *-* 0328 00333 0 02 00477 LDA DOBJ OBJECT DEVICE? 0329 00334 0 10 00411 JST PUTR PUNCH TRAILER IN CASE OF PTP 0330 00335 0 02 00477 LDA DOBJ 0331 00336 0 05 00636 ERA N1 PTP? 0332 00337 101040 SNZ 0333 00340 14 0102 OCP '102 YES; PTP OFF 0334 00341 0 05 00625 ERA N5 OBJECT DEVICE MAGTAPE? 0335 00342 101040 SNZ 0336 00343 0 01 00350 JMP LE1 YES 0337 00344 0 02 00476 LDA DLST LISTING DEVICE MAGTAPE? 0338 00345 0 05 00624 ERA N4 0339 00346 100040 SZE 0340 00347 0 01 00352 JMP LE2 NO 0341 00350 0 10 00000 LE1 CALL O$ME WRITE EOF ON UNIT 2 (OBJECT OR LISTING DEVICE) 0342 00351 000002 OCT 2 UNIT 2 0343 00352 0 02 00623 LE2 LDA MO6 ='-6 0344 00353 0 10 00416 JST PRBF PRINT EOJ MESSGE 0345 00354 0 000360 DAC MEOJ 0346 00355 0 10 00366 JST STOP STOP 0347 00356 0 02 00467 LDA DEFT 0348 00357 -0 01 00332 JMP* F4EN AND RESTART 0349 00360 106612 MEOJ OCT 106612 END OF JOB MESSAGE 0350 00361 142716 BCI 1,EN