BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 67

2496 * INPUT/OUTPUT ROUTINES 2497 * 2498 * 2499 * TYPE - OUTPUT MESSAGE 2500 * 2501 * 2502 * CALLING SEQUENCE: 2503 * 2504 * JST TYPE 2505 * DAC MESG ADDRESS OF MESSAGE 2506 *........RETURN A REGISTER ZERO 2507 * 2508 * THIS ROUTINE WILL OUTPUT THE MESSAGE UNTIL A BYTE 2509 * CONTAINING ZERO IS ENCOUNTERED. 2510 * 2511 * 2512 02747 0 000000 TYPE DAC ** 2513 02750 -0 02 02747 LDA* TYPE FETCH MESSAGE POINTER 2514 02751 0414 77 LGL 1 MAKE IT A BYTE POINTER 2515 02752 0 13 00037 IMA SBP SWAP WITH CURRENT SOURCE BYTE POINTER 2516 02753 0 04 00000 STA 0 A LEAVE SBP IN A SAFE PLACE 2517 02754 0 12 02747 IRS TYPE SET PROPER RETURN ADDRESS 2518 02755 0 10 03047 TYP1 JST GCHR GET NEXT CHARACTER OF MESSAGE 2519 02756 101040 SNZ END OF MESSAGE ? 2520 02757 0 01 02762 JMP TYP2 YES...GO RESTORE SBP AND EXIT 2521 02760 0 10 00000 JST OTA1 OUTPUT THE CHARACTER 2522 02761 0 01 02755 JMP TYP1 CONTINUE 2523 * 2524 02762 0 15 00037 TYP2 STX SBP RESTORE SBP 2525 02763 -0 01 02747 JMP* TYPE AND EXIT 2526 * 2527 * 2528 * SPAC - OUTPUT SPACE CHARACTER 2529 * 2530 * 2531 * CALLING SEQUENCE: 2532 * 2533 * JST SPAC 2534 * ......RETURN 2535 * 2536 * 2537 02764 0 000000 SPAC DAC ** 2538 02765 0 02 00405 LDA C240 GET SPACE CODE 2539 02766 0 10 00000 JST OTA1 OUTPUT IT 2540 02767 -0 01 02764 JMP* SPAC RETURN 2541 * 2542 * 2543 * 2544 EJCT