1 line
149 KiB
NASM
1 line
149 KiB
NASM
|
ENTRY DerefColor
ENTRY HookProc
ENTRY LLDExit4
ENTRY LLDExit2
ENTRY LLDExit10
ENTRY LLDExit8
ENTRY ScreenShoot
ENTRY LLDExit6
ENTRY FormFeed
ENTRY LLDExit0
ENTRY ResetPrinter
ENTRY SendRC
; ENTRY PrintCheck
ENTRY MovePen
ENTRY SetColor
ENTRY SetColorT
ENTRY GetColorT
ENTRY Pattern
ENTRY SpeDens
ENTRY VSizing
ENTRY DrvrBitMap
ENTRY ContLine
ENTRY DrvrRect
ENTRY LandStock
ENTRY HightLand
ENTRY FlagT
ENTRY FlagB
ENTRY CurrentLine
ENTRY ContLine
ENTRY VSizing
ENTRY CurrentDef
ENTRY FlagBlack
ENTRY SendBuff
ENTRY SendRCLF
ENTRY LittleSkip
ENTRY WasImage
ENTRY WasImage1
ENTRY WasImage2
ENTRY MakeLine
ENTRY MakeBlankLine
ENTRY FinalPat
ENTRY BitMapShoot
ENTRY SendSingleCar
ENTRY SendBPrep
ENTRY WriteStr
ENTRY StrCmp
ENTRY HeightLine01
ENTRY EndTime,DrawTime,PortTime,TmpTime,StartTime
include 'm16.msl'
; LLD.MAIN0
;------------------------------------------------------------------------------
;
; Low Level Tables and Equates
;
;------------------------------------------------------------------------------
HandleReal EQU $F4
PointerReal EQU $F8
LLDSystem PROC EXPORT
EXPORT MyPID
MyPID DC.W 0 42
EXPORT MyWAP
MyWAP DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
DC.B 0
ENDP
; LLD.MAIN1
;
; Main LLD.
;
* Zero page equates (While in Low Level Driver) (Allocated at users +$100)
HandleDrvr EQU $00
MemoryDrvr EQU $04
Quality EQU $06
HandleColor EQU $08
HandleScreen EQU $0C
PtrBitMap EQU $10
PtrColor EQU $14
HandleIO EQU $18
PtrBlack EQU $20
PtrRed EQU $24
PtrBlue EQU $28
PtrYellow EQU $2C
PtrLocal EQU $30
PenPosH EQU $34
PenPosV EQU $36
NewPenPosH EQU $38
NewPenPosV EQU $3A
Lock EQU $3E
PageRectPtr EQU $40
PageRect EQU $44
PtrInfo EQU $4C
Stock EQU $50
Stock2 EQU $52
PtrID EQU $54
;Recharge gequ $58
Go EQU $5C
Status EQU $66
;FlagRecharge gequ $74
BackColor EQU $76
PtrRect EQU $96
;BackFlag gequ $9A
MyStack EQU $9C
RealStack EQU $9E
SaveStack EQU $A0
JobPrint EQU $A2
StockWStr EQU $A4
StockWTxt EQU $A8
PageRectL EQU $AA
Stack EQU $AE
SaveStack2 EQU $F0
MyId EQU $F2
Owner EQU $F4
HandleID EQU $F8
Error EQU $F6
DarkerMode EQU $FA
;
; MyWap equates
;
NbUser EQU $0E
PID EQU $1E
PenPosVW EQU $18
IDBack EQU $1a
GraphP EQU $1c
IDWap EQU $16
Killer EQU $24
PMID EQU $0012
EJECT
Export Cidrvr
Cidrvr PROC
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; NAME: LLDStartUp
;
; PURPOSE: Starts up the low level routines
;
; PASSED: WORD Zero Page
; WORD User ID
;
; RETURNED: (A-reg.) =0, No Errors
; =$1308: error in establishing connection
; with the printer (Suki 5/25/88)
; =$1321, LLDStartup already made
; =Memory Mgr. Errors returned unchanged
; NOTE: 'Error' retains error value
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
EXPORT LLDStartUp
LLDStartUp jsl xLLDStartUp
rtl
;-----------------------------------------------
EXPORT xLLDStartUp
xLLDStartUp
;
* Stack: 1: Rtls
* 7: ID
* 9: ZeroPage
phb ;save users bank
phk ;get this programs bank
plb ;set bank to programs bank
;-----------------------------------------------------------
;
; commented out the following branch since it is not taken in
; normal co
|