Lines Matching refs:ABUF
42 E004 CD0CE5 LE004: CALL LE50C ;SET UP ABUF, H,L FOR DELETE
153 E0A6 CD1EE3 CALL LE31E ;CONVERT ABUF CNTS TO BINARY
154 E0A9 DADDE7 JC WHAT ;IF ABUF NOT LEGAL NO.
216 E108 3ADFD0 LDA ABUF ;SEE IF ADDR SPECIFIED
227 E11F 3AE6D0 LDA ABUF+7 ;POINT TO 2ND ASCII PARM.
497 E26B 11EFD0 LXI D,ABUF+16 ;POINT TO THE BUFFER
518 E28A CD6AE2 CALL ZBUF ;ZERO OUT ABUF
559 E2CB 11DFD0 VAL5: LXI D,ABUF ;POINT TO THE ASCII BUFFER
560 E2CE CDD7E2 CALL LE2D7 ;PUT IN ABUF & CNVRT BY MODE
565 E2D7 CD3EF1 LE2D7: CALL ALPS ;PUT PARM. IN ABUF
571 E2E0 67 MOV H,A ;H,L HAS START OF PARM IN ABUF
579 E2ED 210700 LXI H,7 ;LENGTH OF SUB-BUFFERS IN ABUF
630 ;VALUES IN ABUF INTO BINARY BASED ON THE CURRENT MODE
633 E31E 01DFD0 LE31E: LXI B,ABUF ;POINT TO THE 1ST OPERAND
637 E328 01E6D0 LXI B,ABUF+7 ;POINT TO 2ND VALUE
906 E4AE CDCEE4 LE4AE: CALL LE4CE ;VALIDATE NAME & MOVE TO ABUF
936 ;ROUTINE TO VALIDATE A SYMBOL NAME & MOVE IT TO ABUF
938 E4CE CD6AE2 LE4CE: CALL ZBUF ;BLANK OUT ABUF
939 E4D1 EB XCHG ;H,L POINT TO START OF ABUF
942 E4D8 EB XCHG ;H,L=FBUF & D,E=ABUF
974 E50C CDCEE4 LE50C: CALL LE4CE ;VALIDATE NAME & MOVE TO ABUF
986 E51C 3ADFD0 VCHK: LDA ABUF ;GET 1ST CHAR OF ABUF
1069 E58F 01DFD0 LXI B,ABUF ;POINT TO PARAMETER
1097 E5BE 3ADFD0 LDA ABUF ;CHECK FOR PARAMETER GIVEN
1118 E5D2 3ADFD0 TEST: LDA ABUF ;SEE IF PARAMETER GIVEN
1149 E5FA 3ADFD0 LDA ABUF ;GET 2ND PARAMETER 1ST CHAR
1433 E76C 3AE6D0 LDA ABUF+7 ;SEE IF INCREMENT SPECIFIED
1437 E775 01E6D0 LXI B,ABUF+7 ;POINT AT GIVEN INCREMENT
1450 E792 11DFD0 LXI D,ABUF ;STARTING LINE NO. SOURCE
1473 E7B0 21E2D0 LXI H,ABUF+3 ;POINT TO LSB OF LINE NO.
1479 E7BB 3ADFD0 LDA ABUF ;GET MSB
1544 E823 CD3EF1 CALL ALPS ;LOAD ABUF FROM IBUF
1546 E827 01DFD0 LXI B,ABUF ;POINT TO THE LOADED BUFR
1720 E92F 21E2D0 LXI H,ABUF+3 ;DESTINATION ADDRESS
1722 E935 21E9D0 LXI H,ABUF+10 ;ADDRESS OF END OF 2ND PARM
1729 E941 21E2D0 FIND: LXI H,ABUF+3 ;ADDRS. OF TEMP BUFFER
1893 E9E2 21DFD0 LXI H,ABUF ;GET STARTING LINE NO.
1899 E9EF 21E9D0 LE9EF: LXI H,ABUF+10
1908 EA08 11E9D0 LXI D,ABUF+10 ;D POINTS TO ENDING LINE NO.
1935 EA35 21E9D0 LXI H,ABUF+10 ;SEE IF 2ND PARM GIVEN
1939 EA3D 21E2D0 LXI H,ABUF+3 ;FIRST & LAST LINE ARE SAME
2027 EAB2 3AE6D0 LDA ABUF+7 ;2ND PARM. (OFFSET) GIVEN ?
2146 EB8E CD6AE2 OPC: CALL ZBUF ;BLANK OUT ABUF
2156 EB97 CD3EF1 CALL ALPS ;MOVE OPCODE INTO ABUF
2165 EBA7 21DFD0 LXI H,ABUF ;SOURCE
2390 ECD3 CD6AE2 LECD3: CALL ZBUF ;CLEAR ABUF
2753 EEDA 21E0D0 COND: LXI H,ABUF+1 ;POINT TO 2ND CHAR
2974 F037 21DFD0 OPCD: LXI H,ABUF ;GET ADDRESS
3015 F094 3ADFD0 LDA ABUF ;FETCH 1ST CHAR
3044 F0B6 3EDF MVI A,ABUF AND 0FFH ;LOAD BUFFER ADDRESS
3047 F0BA 3ED0 MVI A,ABUF/256 ;
3072 F0E6 21E3D0 PSEU: LXI H,ABUF+4 ;SET BUFFER ADDRESS
3101 F0FF CD3EF1 CALL ALPS ;PLACE SYMBOL IN ABUF
3102 F102 21DFD0 LXI H,ABUF ;POINT TO SYMBOL
3153 ;OPCODES AND LABELS IN THE ABUF BUFFER. THE SCAN TERMINATES
3162 F146 13 INX D ;INCREMENT ABUF POINTER
3391 F291 EB LF291: XCHG ;D,E ==> SYMBOL NAME IN ABUF
3448 F2F0 01DFD0 LXI B,ABUF ;B,C POINT TO NUMBER
3618 F3E4 01DFD0 TERM: LXI B,ABUF ;POINT TO KEYED IN VALUE
3962 F5B7 CD6AE2 CALL ZBUF ;CLEAR ABUF
4422 F8C7 CD6AE2 LF8C7: CALL ZBUF ;CLEAR ABUF
4443 F8F0 11DFD0 LXI D,ABUF ;POINT TO ABUF
4462 F912 CD3EF1 LF912: CALL ALPS ;PUT ARGUMENT INTO ABUF
4465 F917 01DFD0 LXI B,ABUF ;POINT TO ARGUMENT
4489 F93E 3ADFD0 LDA ABUF ;GET FIRST CHAR OF VALUE
4547 F970 3ADFD0 LDA ABUF ;SEE IF OPT PARAMETER GIVEN
4551 F97A 22DFD0 SHLD ABUF ;SAVE IT
4555 F986 22DFD0 SHLD ABUF ;SAVE AS TWO HIGH DIGITS
4556 F989 22E1D0 LF989: SHLD ABUF+2 ;AND SAVE H,L AS LOW ORDER DGTS
4581 F9B5 11DFD0 LXI D,ABUF ;POINT TO CUR LINE NO.
4582 F9B8 21E2D0 LXI H,ABUF+3 ;AND TO END OF LINE NO.
5851 D0DF ABUF: DS 16 ;ASCII BUFFER AREA
5961 A 0007 ABUF D0DF ACH1 E37B ACHK E369