mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 08:54:17 +00:00
Upload
Digital Research
This commit is contained in:
46
CPM OPERATING SYSTEMS/CPM 2.X/CPM 2.2/PATCHES/SUBMIT.002
Normal file
46
CPM OPERATING SYSTEMS/CPM 2.X/CPM 2.2/PATCHES/SUBMIT.002
Normal file
@@ -0,0 +1,46 @@
|
||||
|
||||
CTRL P and CTRL C in a SUBMIT file
|
||||
-----
|
||||
|
||||
Question: Why can't I put "CTRL P" and "CTRL C" in a SUBMIT file
|
||||
using the instructions in the manual?
|
||||
|
||||
Answer: The usual processing of characters done by the BDOS on
|
||||
input is bypassed when using SUBMIT. The following programs can simulate
|
||||
these functions.
|
||||
|
||||
;
|
||||
; PRINT - turn printer echo on and off
|
||||
;
|
||||
; Usage:
|
||||
;
|
||||
; A>PRINT ?
|
||||
;(turn printer echo on with anything following PRINT)
|
||||
; A>PRINT
|
||||
;(turn printer echo off with nothing following PRINT)
|
||||
;
|
||||
0100 org 0100h
|
||||
0100 2A4E00 lhld 04eh ;address of bios
|
||||
0103 110DF5 lxi d,0f50dh ;offset of flag in bdos
|
||||
0106 19 dad d ;point to it
|
||||
0107 3A8000 lda 080h ;echo on or off?
|
||||
010A 77 mov m,a ;set the flag
|
||||
010B C9 ret ;return directly to ccp
|
||||
|
||||
; WBOOT - perform a warm boot
|
||||
;
|
||||
0100 org 0100h
|
||||
0100 C7 rst 0
|
||||
|
||||
;
|
||||
;PAUSE - suspend execution of a SUBMIT file until a character is typed
|
||||
;
|
||||
0100 org 0100h
|
||||
0100 0E09 mvi c,9
|
||||
0102 110D01 lxi d,prompt
|
||||
0105 CD0500 call 5
|
||||
0108 0E01 mvi c,1
|
||||
010A C30500 jmp 5
|
||||
010D 5479706520prompt db 'Type any key when ready to continue$'
|
||||
|
||||
|
||||
Reference in New Issue
Block a user