Digital Research
This commit is contained in:
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions

View File

@@ -0,0 +1,15 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This program is intended to be executed from a submit file to de-activate ;
; xsub and allow input from the console. It has a side effect of turning off;
; the ^P toggle if it is on. ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
org 100h ;stay above page 0
bdos equ 0005h ;bdos location in base page
mvi c,9 ;print string = function 9
lxi d,msg ;
call bdos ;
mvi c,0 ;system reset = function 0
jmp bdos ;exit bdos to ccp
msg db 0dh,0ah,'(xsub deactivated; ^P turned off if on)$'
end