github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-30 21:49:23 +00:00
Code Issues Releases Wiki Activity

Fix Lunar Lander to assemble with PALX.

Browse Source 
- Add definitions for registers.
- Change starting location from 0 to 400.
This commit is contained in:
Lars Brinkhoff
2018-07-31 22:42:22 +02:00
parent 508ae11b5e
commit 7604f97724
3 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
build/misc.tcl
View File

@@ -1046,6 +1046,10 @@ expect ":KILL"
respond "*" ":palx gt40;bootvt\r" respond "*" ":palx gt40;bootvt\r"
expect ":KILL" expect ":KILL"
# GT40 Lunar Lander.
respond "*" ":palx gt40;gtlem\r"
expect ":KILL"
# KL10 front end debugger. Put it in the same directory as the # KL10 front end debugger. Put it in the same directory as the
# "MX" IOELEV. # "MX" IOELEV.
respond "*" ":palx sysbin;_syseng; klrug\r" respond "*" ":palx sysbin;_syseng; klrug\r"

1
doc/programs.md
View File

@@ -89,6 +89,7 @@
- GETSYM, copy all symbols from running ITS to a file. - GETSYM, copy all symbols from running ITS to a file.
- GLP/XGP, queue files to be printed by GLPSPL/XGPSPL. - GLP/XGP, queue files to be printed by GLPSPL/XGPSPL.
- GLPDEV/XGPDEV, device for viewing GLPSPL/XGPSPL printer queues. - GLPDEV/XGPDEV, device for viewing GLPSPL/XGPSPL printer queues.
- GTLEM, GT40 Lunar Lander.
- GO, the Go board game. - GO, the Go board game.
- GUESS, a very silly game. - GUESS, a very silly game.
- GMSGS, copy system messages to mail file. - GMSGS, copy system messages to mail file.

14
src/gt40/gtlem.mac → src/gt40/gtlem.91
View File

@@ -10,7 +10,20 @@
; P.O. BOX 411 ; P.O. BOX 411
; MAYNARD, MASS. ; MAYNARD, MASS.
; 01754 ; 01754
;
; GTLEM.91, AUGUST 1, 2018
; UPDATED FOR PALX BY LARS BRINKHOFF
;********************************************************************* ;*********************************************************************
R0=%0
R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
SP=%6
PC=%7
IN1=R0 ;INPUT REGISTER FOR SUBROUTINE CALLING. IN1=R0 ;INPUT REGISTER FOR SUBROUTINE CALLING.
IN2=R1 ;SECOND VALUE. IN2=R1 ;SECOND VALUE.
RET1=R2 ;HIGH ORDER PORTION OF SUBROUTINE RETURN. RET1=R2 ;HIGH ORDER PORTION OF SUBROUTINE RETURN.
@@ -111,6 +124,7 @@
; ZERO DEGREES IS AT THE TOP, 90 TO THE RIGHT, ETC. ; ZERO DEGREES IS AT THE TOP, 90 TO THE RIGHT, ETC.
; M A I N D A T A A R E A . ; M A I N D A T A A R E A .
; ;
.=400
TURN: .WORD 0 ;PRESENT RATE OF TURN AS SELECTED BY USER. TURN: .WORD 0 ;PRESENT RATE OF TURN AS SELECTED BY USER.
ANGLE: .WORD 0 ;ANGLE CURRENTLY BEING USED FOR TRIG CALCULATIONS. ANGLE: .WORD 0 ;ANGLE CURRENTLY BEING USED FOR TRIG CALCULATIONS.
ANGLER: .WORD 0 ;REMAINDER OF ANGLE FOR TURNING. ANGLER: .WORD 0 ;REMAINDER OF ANGLE FOR TURNING.