github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-13 15:17:03 +00:00
Code Issues Releases Wiki Activity

Commit changes from initial clean-up pass of ESPOLXEM, minor typo corrections to ESPOL source, file showing CANDE command used to run NEATUP55 for generating initial ESPOLXEM source.

Browse Source
This commit is contained in:
Paul Kimpel 2012-08-11 16:33:09 +00:00
parent 33a10ade22
commit e8d46ac978
3 changed files with 573 additions and 425 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SYMBOL/ESPOL.alg_m
View File

@ -6491,7 +6491,7 @@ PROCEDURE ADJUST;; 16023100
REAL ADDR; 16068000
IF ABS( 16069000
D~(T~TAKE(GIT(E)).LOC)-L-1)}64 THEN 16070000
FLAG(700); 16071000
FLAG(700) 16071000
ELSE EMITC(D,IF D <0 THEN JRV ELSE JFW); 16079000
END EMIT JUMP; 16080000
COMMENT WHEN JUMPCHAIN IS CALLED THERE IS A LINKEDLIST IN THE CODE16081000

7
tools/NEATUP-ESPOLXEM.wfl_m Normal file
View File

@ -0,0 +1,7 @@
E MISC/B5500/NEATUP55 ("SRCE/MISC/B5500/ESPOLXEM MAKE SRCE/MISC/B5500/ESPOLNEAT: 00000100
BEGINOFFSET 2 DECINDENT 2 DEFINEINDENT 18 INDENT 2 INDENTELSEIF SET LOCKCOMMENTS 00000200
SET MARGIN 0 NEATUPSEQ 5000+5000 PROCINDENT 2") ; FILE INPUT(DEPENDENTSPECS, TI 00000300
TLE=SRCE/MISC/B5500/ESPOLXEM); FILE OUTPUT(FILEKIND=ALGOLSYMBOL) 00000400
#RUNNING 6173 00000500
#6173 PK501 (PAUL)SRCE/MISC/B5500/ESPOLNEAT REPLACED ON OPS 00000600
#ET=5.4 PT=4.8 IO=0.4 00000700

989
tools/xem/ESPOLXEM.alg_m
View File

File diff suppressed because it is too large Load Diff