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 9

0401 ************************************** 0402 * CALLING SEQUENCE: 0403 * JST PRBF A = - MESSAGE LENGTH IN WORDS 0404 * DAC MESSAGE 0405 * 0406 00416 0 000000 PRBF DAC *-* PRINT BUFFER 0407 00417 0 04 00000 STA 0 X = A = - BUFFER LENGTH 0408 00420 -0 02 00416 LDA* PRBF BUFFER ADDRESS 0409 00421 0 12 00416 IRS PRBF SET RETURN ADDRESS 0410 00422 0 04 00504 STA BA STORE BUFFER ADDRESS 0411 00423 34 0104 SKS '104 TTY READY? 0412 00424 0 01 00423 JMP *-1 0413 00425 14 0104 OCP '104 SET OUTPUT MODE 0414 00426 0 02 00606 LDA CRLF 0415 00427 0 10 00441 JST PRA PRINT 2 CHARS IN A 0416 00430 0 02 00000 LDA 0 0417 00431 101040 SNZ 0418 00432 -0 01 00416 JMP* PRBF 0419 00433 -0 02 00504 P1 LDA* BA GET 2 CHARS 0420 00434 0 10 00441 JST PRA PRINT 2 CHARS IN A 0421 00435 0 12 00504 IRS BA 0422 00436 0 12 00000 IRS 0 0423 00437 0 01 00433 JMP P1 0424 00440 -0 01 00416 JMP* PRBF 0425 * 0426 ************************************** 0427 * PRINT 2 CHARS FROM REG-A ON TTY * 0428 ************************************** 0429 * 0430 00441 0 000000 PRA DAC *-* 0431 00442 0400 70 LRL '10 0432 00443 74 0004 OTA 4 0433 00444 0 01 00443 JMP *-1 0434 00445 0410 70 LLL '10 0435 00446 74 0004 OTA 4 0436 00447 0 01 00446 JMP *-1 0437 00450 -0 01 00441 JMP* PRA 0438 * 0439 ************************************** 0440 * SWITCH VIA JUMP-TABLE * 0441 ************************************** 0442 * CALLING SEQUENCE: 0443 * LDA INDEX INTO JUMP-TABLE 0444 * JST SWCH 0445 * JMP -- JUMP-TABLE ENTRY 0 (INDEX 0) 0446 * JMP -- JUMP-TABLE ENTRY 1 (INDEX 1) 0447 * ETC 0448 * 0449 00451 0 000000 SWCH DAC *-* SWITCH 0450 00452 0 06 00451 ADD SWCH