Previous File   Multiple Pages   Next File

* PAGE 1

0001 * 0002 * 0003 SUBR C$II CHARACTER INPUT INITIALISE 0004 SUBR C$IT CHARACTER INPUT TAB 0005 SUBR C$IF CHARACTER INPUT FILL 0006 * 0007 * 0008 CF5 H316 AND DDP-516 0009 REL RELOCATABLE 0010 * 0011 * 0012 * CHARACTER INPUT INITIALISE 0013 * 0014 00000 0 000000 C$II DAC ** RETURN ADDRESS 0015 00001 0414 77 LGL 1 0016 00002 0 04 00075 STA WORK WORK 0017 00003 0 02 00104 LDA =1 0018 00004 0 04 00073 STA CC CURRENT CHARACTER 0019 00005 -0 01 00000 JMP* C$II RETURN 0020 * 0021 * 0022 * CHARACTER INPUT TAB 0023 * 0024 00006 0 000000 C$IT DAC ** RETURN ADDRESS 0025 00007 -0 02 00077 LDA* C$TC TAB COUNT 0026 00010 101400 SMI 0027 00011 0 01 00023 JMP TSPC TAB SPACE 0028 00012 0 04 00074 STA TEMP TEMPORARY 0029 00013 -0 35 00100 LDX* C$TT TAB TABLE LINK 0030 00014 1 02 00000 NTAB LDA 0,1 GET NEXT TAB POSITION 0031 00015 0 11 00073 CAS CC CURRENT CHARACTER 0032 00016 0 01 00032 JMP SPCE SPACE 0033 00017 101000 NOP 0034 00020 0 12 00000 IRS 0 INDEX 0035 00021 0 12 00074 IRS TEMP TEMPORARY 0036 00022 0 01 00014 JMP NTAB NEXT TAB 0037 * 0038 00023 0 35 00103 TSPC LDX =-1 TAB SPACE 0039 00024 0 02 00102 NSPC LDA ='240 NEXT SPACE 0040 00025 0 10 00036 JST C$IF CHARACTER INPUT FILL 0041 00026 101000 NOP 0042 00027 0 12 00000 IRS 0 INDEX 0043 00030 0 01 00024 JMP NSPC NEXT SPACE 0044 00031 -0 01 00006 JMP* C$IT RETURN 0045 * 0046 00032 0 07 00073 SPCE SUB CC CURRENT CHARACTER POSITION 0047 00033 140407 TCA 0048 00034 0 04 00000 STA 0 INDEX 0049 00035 0 01 00024 JMP NSPC NEXT SPACE 0050 *
* PAGE 2

0051 * 0052 * CHARACTER INPUT FILL 0053 * 0054 00036 0 000000 C$IF DAC ** RETURN ADDRESS 0055 00037 0 11 00101 CAS ='210 CONTROL H 0056 00040 100000 SKP 0057 00041 0 01 00065 JMP DELT DELETE 0058 00042 0402 70 LRR 8 SAVE IN B 0059 00043 0 02 00073 LDA CC CURRENT CHARACTER 0060 00044 -0 11 00076 CAS* C$CC CHARACTER COUNT 0061 00045 0 01 00063 JMP FULL FULL 0062 00046 101000 NOP 0063 00047 0 06 00103 ADD =-1 0064 00050 0 06 00075 ADD WORK WORK 0065 00051 0404 77 LGR 1 SET C BIT APPROPRIATELY 0066 00052 0 04 00074 STA TEMP TEMPORARY 0067 00053 -0 02 00074 LDA* TEMP TEMPORARY 0068 00054 101001 SSC TEST C BIT 0069 00055 000201 IAB SETUP CHARACTER IN WORD 0070 00056 141140 ICL 0071 00057 0412 70 LLR 8 0072 00060 -0 04 00074 STA* TEMP TEMPORARY 0073 00061 0 12 00073 IRS CC CURRENT CHARACTER 0074 00062 -0 01 00036 JMP* C$IF RETURN 0075 * 0076 00063 0 12 00036 FULL IRS C$IF RETURN ADDRESS 0077 00064 -0 01 00036 JMP* C$IF RETURN 0078 00065 0 02 00073 DELT LDA CC CHARACTER COUNT 0079 00066 0 07 00104 SUB =1 DELETE LAST CHARACTER 0080 00067 101040 SNZ 0081 00070 141206 AOA 0082 00071 0 04 00073 STA CC CHARACTER COUNT 0083 00072 -0 01 00036 JMP* C$IF RETURN 0084 * 0085 * 0086 * CONSTANTS AND VARIABLES 0087 * 0088 00073 000000 CC BSZ 1 CURRENT CHARACTER 0089 00074 000000 TEMP BSZ 1 TEMPORARY 0090 00075 000000 WORK BSZ 1 WORK 0091 * 0092 00076 0 000000 C$CC XAC C$CC CHARACTER COUNT 0093 * 0094 00077 0 000000 C$TC XAC C$TC TAB COUNT 0095 * 0096 00100 0 000000 C$TT XAC C$TT TAB TABLE LINK 0097 * 0098 00101 000210 FIN LITERALS 00102 000240 00103 177777
* PAGE 3

00104 000001 0099 * 0100 * 0101 END END OF C$II 13.MAY.70 P.J.VYSE C$CC 000076 C$IF 000036 C$II 000000 C$IT 000006 C$TC 000077 C$TT 000100 CC 000073 DELT 000065 FULL 000063 NSPC 000024 NTAB 000014 SPCE 000032 TEMP 000074 TSPC 000023 WORK 000075 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
Previous File   Multiple Pages   Next File