github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Preserve DISINI argument across subroutine calls.

Browse Source
This commit is contained in:
Lars Brinkhoff 2021-01-11 14:16:21 +01:00
parent 3b22323dd0
commit 69b63680eb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/l/slave.10
View File

@ -19,6 +19,7 @@ VERPRT SLAVE
SIXOPD: 0
SIXPG: 0
GTTY: 0
DEFINE FOODEF NAM,PT
DEFINE NAM
@ -296,6 +297,7 @@ OPNTEN: .CALL [ SETZ
PUSHJ P,SIXCOR
.CALL SIXMAP
.VALUE
MOVE F,GTTY
MOVEM F,XARG ;0 => 340 SLAVE, "TNM" => GT40 SLAVE
MOVE T,@SIXCHN
LSH T,27
@ -363,7 +365,7 @@ DISINI: AOJG T,DCLR1
JUMPN T,DCLR5
POP P,A
PUSHJ P,SIXMAK
HLRZ F,TT
HLRZM TT,GTTY
PUSHJ P,CLSSIX
LOCKI
PUSHJ P,GTSIXF