File tree Expand file tree Collapse file tree 2 files changed +6
-2
lines changed Expand file tree Collapse file tree 2 files changed +6
-2
lines changed Original file line number Diff line number Diff line change 63
63
start:
64
64
jmp Save_Input_Values
65
65
SYS_Version dw EXPECTED_VERSION ;AN001; From VERSIONA.INC file
66
- Mystacks dw 64 dup ( 0 ) ;AN000; local stack
66
+ ; Mystacks dw 64 dup (0) ;AN000; local stack
67
+ ; https://www.os2museum.com/wp/how-not-to-release-historic-source-code/comment-page-1/#comment-381416
68
+ Mystacks dw 128 dup ( 0 ) ;AN000; local stack
67
69
MyStack_ptr label word
68
70
69
71
;local data
Original file line number Diff line number Diff line change @@ -460,6 +460,8 @@ NOLIST:
460
460
POP BX ; back to beginning of new stack area
461
461
MOV SPSAVE , AX ; remember where new stack is
462
462
DEC AH
463
+ INC AX ; Per John Elliot a long standing bug since 2.0
464
+ INC AX ; affecting CALL 5 // Licca
463
465
MOV ES :WORD PTR [ 6 ], AX ; change PSP to show usage of
464
466
SUB BX , AX ; new stack area
465
467
MOV CL , 4
@@ -1233,4 +1235,4 @@ TEST_LEAD endp ;an000;end proc
1233
1235
1234
1236
CODE ENDS
1235
1237
END START
1236
-
1238
+
You can’t perform that action at this time.
0 commit comments