Previous File Previous Page Single Page Next Page Next File

* PAGE 1

0001 * 0002 * 0003 SUBR I$AINT,I$TU ASR INITIALISE FOR INPUT 0004 SUBR I$AK ASR INPUT CHARACTER 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 * ASR DEVICE CODES 0012 * 0013 * ASR ADDRESS 0014 000004 ASRA EQU '4 ASR ADDRESS 0015 * 0016 * OCP 0017 000004 ASRM EQU ASRA ASR INPUT MODE 0018 * 0019 * SKS 0020 000104 ASRB EQU ASRA+'100 ASR SKIP IF NOT BUSY 0021 * 0022 * INA 0023 001004 ASRI EQU ASRA+'1000 ASR CLEAR A AND INPUT CHARACTER IF READY 0024 * 0025 * 0026 * ASR INITIALISE FOR INPUT 0027 * 0028 00000 0 000000 I$TU DAC ** RETURN ADDRESS 0029 00001 0 02 00013 LDA ='221 DC1 0030 00002 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0031 00003 34 0104 SKS ASRB ASR SKIP IF NOT BUSY 0032 00004 0 01 00003 JMP *-1 WAIT UNTIL NOT BUSY 0033 00005 14 0004 OCP ASRM ASR INPUT MODE 0034 00006 -0 01 00000 JMP* I$TU RETURN 0035 * 0036 * 0037 * ASR INPUT CHARACTER 0038 * 0039 00007 0 000000 I$AK DAC ** RETURN ADDRESS 0040 00010 54 1004 INA ASRI ASR CLEAR A AND INPUT CHARACTER IF READY 0041 00011 0 01 00010 JMP *-1 WAIT UNTIL READY 0042 00012 -0 01 00007 JMP* I$AK RETURN 0043 * 0044 * 0045 * LITERALS 0046 * 0047 00013 000221 FIN LITERALS 0048 * 0049 *
Previous File Previous Page Single Page Next Page Next File