mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-12 19:27:39 +00:00
1. Correct transcription error affecting code generation for the SEARCH() intrinsic in ALGOLXEM and Mark-XVI ALGOL.
2. Move Mark-XVI/SYMBOL/COOL to Mark-XIV/SYMBOL/COOL. 3. Update project LICENSE file.
This commit is contained in:
@@ -7868,7 +7868,7 @@ STATUS: 34840000
|
||||
GTI1:= 0; 35135000=06073845=
|
||||
DO 35140000=06073850=
|
||||
EMITO(DEL) 35145000=06073850=
|
||||
UNTIL GTI1:= GTI1-1 = T1; % 35150000=06073850=
|
||||
UNTIL GTI1:= GTI1+1 = T1; % 35150000160502PK
|
||||
IF ELCLASS ^= RTPAREN THEN 35155000=06073860=
|
||||
ERR(104) 35160000=06073860=
|
||||
ELSE 35165000=06073860=
|
||||
|
||||
Reference in New Issue
Block a user