7.3. Removal of REM-strings
Length: 132
Number of variables: 0
Checksum: 13809
Purpose: This program removes all comments from
BEYSIKprogrammy.
Subroutine call:
RANDOMIZE USR address
Error checking: If no-BASIC program, the procedure returns to
BASIC without any action.
Comment: The procedure ROM
which is used to delete characters, is not running
very quickly and therefore routine "removal REM-lines" running
slow.
LISTING machine code
Assembly label number to VVODA147.
LD HL, (23635) 42 83 92
JR CHECK 24 31
NEXT_L PUSH HL 229
INC HL 35
INC HL 35
LD C, (HL) 78
INC HL 35
LD B, (HL) 70
NXT_CH INC HL 35
LD A, (HL) 126
CP 33254 1933
JR C, NXT_CH 56250
CP 234 254 234
JR NZ, SEARCH 32 26
INC BC 3
INC BC 3
INC BC 3
INC BC 3
POP HL 225
DEL_L PUSH BC 197
CALL 4120 205 24 16
POP BC 193
DEC BC 11
LD A, B 120
OR C 177
JR NZ, DEL_L 32246
CHECK LD DE, (23,627) two hundred thirty-seven 91 75 92
AND A 167
SBC HL, DE 237 82
RET NC 208
ADD HL, DE 25
JR NEXT_L 24214
SEARCH INC HL 35
LD A, (HL) 126
CP 13254 1913
JR NZ, N_ENT 32 8
ENT_FD POP HL 225
ADD HL, BC 9
INC HL 35
INC HL 35
INC HL 35
INC HL 35
JR CHECK 24231
N_ENT CP 14254 1914
JR NZ, N_NUMB 32 7
INC HL 35
INC HL 35
INC HL 35
INC HL 35
INC HL 35
JR SEARCH 24,231
N_NUMB CP 33254 1933
JR C, SEARCH 56,227
CP 34254 1934
JR NZ, N_QUOT 32 8
FD_QT INC HL 35
LD A, (HL) 126
CP 34254 1934
JR NZ, FD_QT 32250
JR SEARCH 24,215
N_QUOT CP 58254 1958
JR NZ, SEARCH 32,211
LD D, H 84
LD E, L 93
FD_ENT INC HL 35
LD A, (HL) 126
CP 13254 1913
JR Z, ENT_FD 40209
CP 33254 1933
JR C, FD_ENT 56246
CP 234 254 234
JR NZ, N_QUOT 32236
LD H, D 98
LD L, E 107
DEL_CH PUSH BC 197
CALL 4120 205 24 16
POP BC 193
DEC BC 11
LD A, (HL) 126
CP 13254 1913
JR NZ, DEL_CH 32245
POP HL 225
INC HL 35
INC HL 35
LD (HL), C 113
INC HL 35
LD (HL), B 112
DEC HL 1943
DEC HL 1943
DEC HL 1943
JR CHECK 24160
Error control: if the number
bytes to copy is 0
or the first line is already there,
the program returns to BASIC.
The program does not check if there is enough memory for the
new line. The program requires 10 bytes per byte of data plus
five bytes Line numbers, pointers
length, etc. In addition, the used subroutine ROM also uses a
large working area - take this into account. If the available
memory is not enough, signs line will be installed correctly
and BASIC listing is not reliable.
Comment: The time involved in work of this program is
proportional to the amount of memory for copying.
LISTING machine code
Assembly label number to VVODA147.
LD DE, (23296) 237 91 0 91
LD BC, (23298) 237 75 February 1991
LD A, B 120
OR C 177
RET Z 200
LD HL, (23635) 42 83 92
LD A, (HL) 126
CP 0254 0
JR NZ, CONT 32 6
INC HL 35
LD A, (HL) 126
CP 1 254 1
RET Z 200
DEC HL 1943
CONT PUSH HL 229
PUSH BC 197
PUSH DE 213
SUB A 151
CALL 3976 205 136 1915
EX DE, HL 235
LD A, 1 January 1962
CALL 3976 205 136 1915
EX DE, HL 235
CALL 3976 205 136 1915
EX DE, HL 235
CALL 3976 205 136 1915
EX DE, HL 235
LD A, 228 62 228
CALL 3976 205 136 1915
EX DE, HL 235
NEXT_B POP DE 209
LD A, (DE) 26
PUSH DE 213
LD C, 47 14 47
HUNDR INC C 12
LD B, 100 6100
SUB B 144
JR NC, HUNDR 48250
ADD A, B 128
LD B, A 71
LD A, C 121
PUSH BC 197
CALL 3976 205 136 1915
EX DE, HL 235
POP BC 193
LD A, B 120
LD C, 47 14 47
TENS INC C 12
LD B, 10 June 1910
SUB B 144
JR NC, TENS 48250
ADD A, B 128
LD B, A 71
LD A, C 121
PUSH BC 197
CALL 3976 205 136 1915
POP BC 193
EX DE, HL 235
LD A, B 120
ADD A, 48 198 1948
CALL 3976 205 136 1915
EX DE, HL 235
LD A, 14 62 14
LD B, 6 6 6
N_ZERO PUSH BC 197
CALL 3976 205 136 1915
POP BC 193
EX DE, HL 235
SUB A 151
DJNZ N_ZERO 16247
POP DE 209
PUSH HL 229
DEC HL 1943
DEC HL 1943
DEC HL 1943
LD A, (DE) 26
LD (HL), A 119
POP HL 225
INC DE 1919
POP BC 193
DEC BC 11
LD A, B 120
OR C 177
JR Z, ENTER 40 10
PUSH BC 197
PUSH DE 213
LD A, 44 62 44
CALL 3976 205 136 1915
EX DE, HL 235
JR NEXT_B 24173
ENTER LD A, 13 62 13
CALL 3976 205 136 1915
POP HL 225
LD BC, 0 1 0 0
INC HL 35
INC HL 35
LD D, H 84
LD E, L 93
INC HL 35
POINT INC HL 35
INC BC 3
LD A, (HL) 126
CP 14254 1914
JR NZ, END? 32 12
INC BC 3
INC BC 3
INC BC 3
INC BC 3
INC BC 3
INC HL 35
INC HL 35
INC HL 35
INC HL 35
INC HL 35
JR POINT 24237
END? CP 13254 1913
JR NZ POINT 32233
LD A, C 121
LD (DE), A 18
INC DE 1919
LD A, B 120
LD (DE), A 18
RET 201
2
How it works:
In a couple of registers DE loads the address of bytes to copy
and a pair of registers loaded BC number of bytes to copy.
If BC contains 0, the program
returns to BASIC.
In a couple of registers, the address is loaded HL-BASIC
program. As the battery is loaded a byte from address specified
in HL. This byte line number. If
it is not 0, the first line of not
exists and the program jumps to CONT. If the high byte
contain 0, the accumulator is loaded least significant byte. If
this value set to 1, the first line already exists and
the program returns to BASIC.
Address high byte numbers
string is stored on the stack.
Preserved the number of bytes to copy, then the address data. In
battery is loaded 0 (high byte of a new line number).
Caused by routine ROM, located at 3976, inserts the character
with the battery, at the address set in the HL.
In HL reduced the value stored at this before this
operation. In a battery is loaded, and this value is inserted 3
times. The first unit - is the low byte line number
the following two - the length of the pointer
line. In the battery and then load the character code DATA and
is value is entered in a row.
Address of the next byte of data
recovered from the stack and
loaded into the DE. This itself bytes
loaded into the accumulator and the contents stored in the DE
again stack. The C-register is loaded
value of 1 less than the code
symbol 0. C-register is increased, and the B-register value is
loaded 100. B-register is subtracted from the battery and, if
the result is negative, the routine returns to HUNDR.
B-register is added to the battery (so the battery has a
positive value). This value is then
loaded into the B-register. As the battery is loaded content
C-register, and BC remains at
stack. Calling routines ROM
(3976), is inserted into the symbol that is stored in the
battery, the address contained in the HL. BC register pair is
recovered from the stack, and a battery load value B-register.
The above-mentioned method is then repeated for the B = 10.
Battery is then increased by 48 and the resulting character is
inserted into the string.
The above-described subroutine interpolate decimal
representation occurs bytes Data in the expression of DATA. Now
should be inserted into a binary
representation. This value is marked with the code NUMBER
(CHR 14), which is introduced first, followed by five zeros.
The value of bytes copied is placed in a cell to replace third
zero. DE increases pointing to the next byte of data. The
number of bytes to copy is removed from the stack in the BC and
this value decreases. If the result is 0, a transition is made
to the ENTER, otherwise the contents register pairs BC and DE
again pushed onto the stack, the expression
DATA includes a comma, and the program returns to NEXT_B.
This procedure code ENTER
(End of line) is added to
marking the end of the expression of DATA.
In HL load address of the beginning
line, and BC is set to
0. HL increased, indicating
pointer to low byte strings, and this new address is copied
into the DE. HL increased, pointing to the byte pointer line.
HL and BC then incremented, and the battery is loaded symbol,
located on address in HL.
If the battery contains the code
14 - the number is found, the HL and BC
increases by 5, jumping over the number and pointing to the
character following behind him. Subroutine then proceeds to
POINT.
If the battery does not contain
values of 14 and 13, the transition to a POINT.
Completion of the formation line is executed by putting the
contents of BC in the cell pointer string length. To the
desired address points DE. At the end of of the procedure
executes, returned to BASIC.
