|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »SKAERM.A86«
└─⟦255a2b22f⟧ Bits:30004229/disk4.imd SW1400 CCP/M 86 Distributionsdiskette 3.1a
└─⟦this⟧ »SKAERM.A86«
CSEG
VER DW VERSNO ;
PACKTYPE DW ASSEMBLER ;
DOC DW 0 ;
INIT DW OFFSET FINITO ;
EXIT DW 0 ;
DB 9, 'SKÆRMTYPE' ; FUNC skærmtype;
DB REALFUNC ;
DW 0 ;
DW OFFSET XCOM ;
DB 0 ; ingen parametre
DB 0
DW OFFSET RESERVER
DW ASSEMBLER ;
; ******
; skærmtype returnerer værdien
;
; 0 ved PICCOLINE farveskærm
; 1 ved PICCOLINE monokrom skærm
; 2 ved Partner farveskærm
; 3 ved Partner monokrom skærm
; ******
INCLUDE ASSEMBL.A86
XIOS EQU 28h
AUTO_CONF EQU 4
XCOM: MOV AL,AUTO_CONF ;
INT XIOS ;
MOV AL,ES:18ÆSIÅ ;
XOR AH,AH ;
MOV BX,AX ;
CALL REALRES ;
JMP FINITO ;
END
«eof»