mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-03-10 12:29:17 +00:00
f288264276
1. Updated compiler and library sources after second proofing pass. 2. Updated Generator and Compiler object code and build decks. 3. Updated Generator and Compiler loadable object tapes. 4. Corrections to BAC-Assembler and enhancements for additional card/tape output options. 5. Minor corrections to GEN-Assembler. 6. Updates to miscellaneous utilities and example programs.
37 lines
1.8 KiB
Plaintext
37 lines
1.8 KiB
Plaintext
1 REM CLEAR MEMORY AND LOAD BALGOL MACHINE-LANGUAGE DECK
|
|
1 REM P.KIMPEL, 2018-01-09.
|
|
1 REM
|
|
1 CR DEFN 1 CARDATRON INPUT UNIT
|
|
1 LOCN 4950
|
|
1 START DEFN *
|
|
1 REM CLEAR MEMORY
|
|
1 *A CLL 0,48 CLEAR THE FIRST WORD, /44=REPEAT COUNT
|
|
1 LDB *-1 SET DEST ADDRESS FOR RTF
|
|
1 IBB *+1,1 INCREMENT START ADDRESS
|
|
1 RTF 0,49 CLEAR NEXT 49 WORDS
|
|
1 *B RTF 0,100 CLEAR NEXT 100-WORD BLOCK
|
|
1 DFL A-,44,1 DECREMENT LOOP COUNTER
|
|
1 BRP B- LOOP UNTIL COUNT EXHAUSTED
|
|
1 REM
|
|
1 LOOP CNC BUF,CR,RLO READ A CARD, ASSUMING FORMAT 6
|
|
1 CAD BUF-7 LOAD WORD FOR COL 1-3
|
|
1 BFA *+2,81,66 IF COL 1=6, BRANCH AROUND
|
|
1 HLT 6666,6666 OTHERWISE, HALT -- NOT A FORMAT-6 CARD
|
|
1 BFA DONE,02,66 IF COL 2-3=66, WE-RE DONE
|
|
1 CNC BUF,CR RE-READ CARD AND RELEASE RELOAD-LOCKOUT
|
|
1 LDB BUF-6 LOAD B FROM ADDRESS IN COL 11-14
|
|
1 SLA 7 SHIFT COUNT IN COL 2 TO THE /31 FIELD
|
|
1 STA *+1,31 STORE IN THE RTF NEXT
|
|
1 RTF BUF-5,*-* MOVE *COUNT* WORDS FROM COL 15 TO (B)
|
|
1 BUN LOOP GO GET ANOTHER CARD
|
|
1 REM
|
|
1 LOCN 4995 POSITION TO END OF MEMORY
|
|
1 BUF DEFN *-1 START OF CARD BUFFER
|
|
1 REM
|
|
1 DONE CLA START+1 DEFINE RTF DEST ADDR
|
|
1 LDB DONE LOAD ADDR OF PROGRAM TO B
|
|
1 CLL START CLEAR FIRST WORD TO ZERO
|
|
1 RTF START,48 CLEAR ALL BUT LAST WORD OF MEMORY
|
|
1 CRD *,CR READ LOCKED-OUT CARD
|
|
1 FINI START (HOPEFULLY A SIGN-6 INSTR)
|