Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

15 lines
768 B
NASM
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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