Za korekce češtiny dekuji: MELSOFTovi, Silliconovi, Martinu Lukáškovi a NOSTALCOMPovi
Když začínám blbnout z 8bitů tak se chodím léčit mezi otaku.
ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace
.XLIST
PAGE 64
.LIST
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
TITLE MIKOS/D V5.0 23.3.88/P.P.
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
; VOLBA SYSTEMU PODLE CPU-KARTY
TV64 EQU -1 ; 64/40 ZNAKU NA RADEK
CPM EQU 00 ; CPM/ZPS-2
TYPTER EQU 00 ; 14H..AMD16, ODH..SM7202
;
;=========================================
ASEG
;
; *** DEFINOVANI PAMETOVEHO PROSTORU *
;
BIOS EQU 1300H ; ELSE BIOS
BUFDX EQU 4280H ; BUFFER CPM
BUFO EQU 4200H ; BUFFER OUTPUT
@R@ EQU 4000H ; ZACATEK SYSTEMOVE RAM (1K)
RSTN EQU 0CFH ; RST1 .. POUZIVA SYSTEM
EP3 EQU 1800H ; USER EPROM SYSTEM
MONIT EQU 100H ; SLUZBY
;-----------------------------------------------
IF CPM
ERAM EQU 9FFFH ;TOP RAM
IF TV64
TVBEG EQU 0F800H ;AND1Z
ELSE
TVBEG EQU 0E800H ;TV-RAM
ENDIF
EPROM EQU 0C00H+100H ; O.S. EPROM
ELSE
ERAM EQU 0000
TVBEG EQU 3800H ;TV-RAM
EPROM EQU 0C00H
ENDIF
;
; * MONITOR ENTRY *
;
CSTS EQU MONIT + 12H
CI EQU MONIT + 3
RI EQU MONIT + 6
CO EQU MONIT + 09H
PO EQU MONIT + 0CH
CINCR EQU MONIT + 3FH
IODEF EQU MONIT + 1EH
EXPR EQU MONIT + 27H
DBYT EQU MONIT + 33H
DADR EQU MONIT + 30H
CRLF EQU MONIT + 24H
HILO EQU MONIT + 36H
NEXT EQU MONIT + 39H
TEXT EQU MONIT + 42H
IOCHK EQU MONIT + 15H
SPACE EQU MONIT + 3CH
IOSET EQU MONIT + 18H
ERROR EQU MONIT + 2AH
ASHEX EQU MONIT + 2DH
HXASC EQU MONIT + 48H
TXIMM EQU MONIT + 51H
WND@ EQU MONIT + 54H
RNAM@ EQU MONIT + 5AH
INTER EQU MONIT + 5DH
SMTAB EQU MONIT + 7BH
;
;
LENGHT EQU 255 ; BLOCK LENGHT
NAMLE EQU 11 ; NAME LENGHT
COMLE EQU 64 ; COMENT LENGHT
TVR EQU TVBEG+20 ; CTENI
TVW EQU TVBEG+36 ; ZAPIS
;-------------------------------------------
CR EQU 0DH ; KONSTANTY
LF EQU 0AH
DEL EQU 7FH ; DELETE
ETX EQU 03H
HT EQU 9 ; TAB
PREAM EQU 10H ; PREAMBLE/POSTAMBLE
SUBS EQU 1AH ; END FLAG
;
; SER. I/O
URES EQU 13H
UDATA EQU 12H
USTAT EQU 11H
UMODE EQU 10H
; BLOK LABELS
SOH EQU 01H ; "START OF HEADER"
EOT EQU 04H ; "END OF TEXT"
CAN EQU ':' ; JMENO PASKY
; 'A' ; DATOVY (ASCII) BLOK
; 'B' ; BINARNI BLOK
;
;******************************************
ASEG
ORG EPROM ;START
;******************************************
;
;====================================
; T A B U L K A S L U Z E B K O S
;====================================
;
JMP MICOS ;BRANCH TABLE
JMP INITS ;INIT SYSTEM
JMP FIND ;1
JMP OPEN ;2
JMP CLOSE ;3
JMP LOAD ;4
JMP SAVE ;5
JMP BINAR ;6
ZAC: JMP GET@2 ;7
JMP REWIND ;8
JMP PUT@2 ;9
JMP PUT@2 ;10
;
MAXSL EQU $-EPROM
;
;====================================
; INICIALIZACE SYSTEMU KOS
;====================================
;
INITS:
LXI H,TVBEG ; TEST NA TERMINAL
MVI A,'A' ; ZAPIS
MOV M,A
CMP M
JZ INIT1 ; JE AND
MVI A,9 ; PREPNI
OUT UMODE
OUT URES
NOP
MVI A,TYPTER
OUT USTAT
LXI H,SMTAB
LXI D,CI@0 ; INSTALUJ OVLADANI
MVI B,9
CALL MOVE
IN UDATA
CALL TXIMM
DB 1DH,1FH
DC ' '
INIT1: CALL TXIMM ;OHLASENI
DB 'MIKOS/D V5.0 '
DC '(C) TESLA DIZ 1988 '
LXI H,KOS@@
SHLD KOS@+1
LXI H,ERROR
SHLD CCPM+1
LXI H,0
STA @IF1 ; FIND FLAG
STA @OF1
LXI H,ZAC ; VYPLN IODEF
LXI D,R1LOC
MVI B,12
CALL MOVE
;
; INICIALIZACE A INSTALACE
;
MVI A,09H ; R=,P=1
STA IOBYT
LDA EP3 ; USER SYSTEM ?
CPI 0C3H
CZ EP3 + 3 ; START
IF NOT CPM
CALL BIOS ; START CPM
ELSE
MVI C,0DH ;CLEAR
CALL 5
ENDIF
DUMMY: RET
;
;====================================
; VYHODNOCENI SLUZBY MONITORU
;====================================
;
KOS@@: INR C
LXI D,EPROM
MVI B,MAXSL
SLUZBA: XCHG ; JMENO
MOV A,C
ADD C
ADD C ; *3
CMP B
RNC ; VETSI
MVI B,0
MOV C,A ; OFFSET
DAD B ; VYPOCTI ADR
PCHL
;
;====================================
; VYHODNOCENI POVELU OSLUHY
;====================================
;
MICOS:
CALL SETDMI ;DMA
XRA A
STA EXTEXT ; 0..NENI
CALL TXIMM
DB 'OS/D MENU:'
DB 0DH,0AH
DB 'DIR IDIR ERA TYPE LOAD SAVE'
DB 0DH,0AH
DC 'RENAME FIND OPEN CLOSE _'
CALL ECHO
PUSH PSW
CALL CRLF
POP PSW
CPI 'O'
JZ OPEN ; OPEN OUTPUT
CPI 'C' ; CLOSE UOTPUT
JZ CLOSE
CPI 'S'
JZ SAVE
CPI 'L' ; LOAD
JZ LOAD
CPI 'D'
JZ DIRD
CPI 'I'
JZ INITD
CPI 'T'
JZ TYPE
CPI 'R'
JZ RENAME
CPI 'E'
JZ ERA
CPI 'F' ; FIND
JNZ ERROR
;
;************************************
; REALIZACE POVELU KOS-1
;************************************
;
;====================================
; FIND: OTEVRI SOUBOR PRO CTENI
;====================================
;
FIND: CALL IORI
CALL NRI
RM ;SYSTEM RI
MVI C,1
JNZ CCPM ; USER 2
;
; FIND v ram
;
FIND2: CALL RNAME
JZ DIR
PUSH H
PUSH D
PUSH B
CALL CRFCB
REWI: LXI D,FCB
MVI C,0FH
CALL 5
CALL ERCPM
LXI D,FCB
MVI C,23H
CALL 5 ; DELKA
MVI A,80H
STA IDX
STA @IF1
POP B
POP D
POP H
RET
;
; REVIND INPUT FILE
;
REWIND: PUSH H
PUSH D
PUSH B
JMP REWI ; NOVE CTENI
;
;====================================
; LOAD BINARNI SOUBOR
;====================================
;
LOAD: CALL FIND ; OTEVRI SOUBOR
LO1: CALL RICH
ORA A ; BLANK?
JZ LO1
SUI '<'
JNZ ERSTP ;#NOT BINARY FORMAT
MOV B,A ;SUM
CALL RADR@
SHLD EADR ;LAST
XCHG
CALL RADR@ ;LAST
SHLD SADR ; START ADR
CALL RICH
CPI '>'
JNZ ERSTP ;#NOT BINARY
CALL CHECK
MVI B,0 ;CLEAR
LO2: CALL RICH
MOV M,A
CALL HILO
JNC LO2
CALL CHECK
STA SUM
; UZAVRI VSTUPNI SOUBOR
CLSTP: CALL CRLF
CALL NRI
RM
JNZ CLST2
DIRSTP: XRA A
STA @IF1 ;CLOSE
RET
CLST2: XRA A
STA @IF2
RET
;
;====================================
; OPEN: OTEVRI NOVY SOUBOR PRO ZAPIS
;====================================
;
OPEN: CALL IOPO ; NASTAV IOBYT
CALL NPO
RM ; PO=SYSTEM..
MVI C,2
JNZ CCPM ; USER=2
;
; OPEN RAM DISK
;
OPEN2: CALL RNAME
JZ DIR
PUSH H
PUSH D
PUSH B
LXI H,FCBB
CALL CRFCBB
CALL HVEZDA ; *.*
JZ ERROR ; CHYBA
LXI D,FCBB
MVI C,13H ; ZRUS FILE
CALL 5
MVI C,16H
LXI D,FCBB
CALL 5
CALL ERCPM
XRA A
STA ODX
INR A
STA @OF1
CALL SETTYP ; BINAR
POP B
POP D
POP H
RET
;
;====================================
; SAVE ULOZ BINARNI SOUBOR
;====================================
;
SAVE: CALL OPEN
CALL BINAR
MVI C,2
CALL EXPR ;FORM TO
MVI C,'<' ;START BYTE
CALL POCH
MVI B,0 ;ADR-SUM
POP H ;START
POP D ;LAST
CALL PADR@
XCHG
CALL PADR@
MVI C,'>'
CALL POCH
MOV C,B ;SUM OF ADR.
CALL POCH
;
MVI B,0 ;DATA-SUM
SAV1: MOV C,M
CALL POCH
CALL HILO
JNC SAV1
MOV C,B ;SUM
CALL POCH
;
;====================================
; SLOSE: UZAVRI VSTUPNI SOUBOR
;====================================
;
CLOSE: CALL NPO
RM
MVI C,3
JNZ CCPM
LDA @OF1 ;NO OPEN
ORA A
JZ ERROR
;
; UKONC SOUBOR
;
CLOSE2: PUSH H
PUSH D
PUSH B
MVI C,1AH
CALL PUT@B
;---
CLFIL: XCHG
LXI H,BUFO+7FH ;KONEC
CLF0: MOV A,E
CMP L
JZ CLF1
MVI M,0 ; CLEAR
DCX H
JMP CLF0
CLF1: CALL ZAPISBL
LXI D,FCBB
MVI C,10H
CALL 5
CALL ERCPM
XRA A
STA @OF1
LDA MODE ; ZRUS BINAR
ANI NOT 2
STA MODE
POP B
POP D
POP H
RET
;
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
; REALIZACE POVELU PRO PRACI SE SOUBORY
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
; TYPE FILE
TYPE: CALL FIND
TYP0: CALL RI
JC CRLF ; KONEC
MOV C,A
CALL CO
CALL BREAK
CNZ ECHO ; CEKEJ
JMP TYP0
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
INITD: MVI C,0DH
CALL 5
LXI H,FCB
MVI M,1 ;DRIVE A
INX H
JMP DIR
;
; DIRECTORY:
;
DIRD: LXI H,0
CALL RNAME
CALL CRFCB
LXI H,FCB+1 ;TEST CR
MOV A,M
CPI ' '
JNZ DIR22 ; JE JMENO
DIR: PUSH H
CALL SETDMI ; DMA ADR
POP H
MVI B,11
DIRD1: MVI M,'?'
INX H
DCR B
JNZ DIRD1
CALL CRF3
DIR22: MVI C,11H
XRA A
DIRD2: JNZ DIRD3
CALL CRLF
MVI B,2 ; POCET JMEN
DIRD3: LXI D,FCB
PUSH B
CALL 5
POP B
INR A
JZ SIZE ; KONEC
LXI H,BUFDX-20H
LXI D,20H ; OFFSET
DAD D
DCR A
JNZ $-2 ; ADR
INX H
MVI D,8
PUSH B
CALL TEXT@
CALL TXIMM
DC '.'
MVI D,3
CALL TEXT@
POP B
PUSH B
DCR B
JZ DIR33
CALL TXIMM
DC ' : '
DIR33: POP B
MVI C,12H
DCR B
JMP DIRD2
SIZE: CALL TXIMM
DB 0DH,0AH
DC 'OBSAZENO '
MVI C,27 ; ADRESA ALOK. MAPY
CALL 5 ; DO [HL]
CALL USED ; OBSAZENI DO [DE]
XCHG
CALL DADR ; VYTISTENI OBSAZENOSTI
MVI C,14 ; NASTAVENI DISKO 0
MVI E,0 ; A RETURN
JMP 5
;
USED: ; VYPOCET OBSAZENI DISKETY
MVI B,241 ; POCITADLO KONCE
LXI D,0FF98H ; POCITADLO BLOKU
USED1: MOV A,M
MVI C,8
INX H
USED2: RLC
PUSH PSW
MOV A,E
ACI 0
DAA
MOV E,A
JNC USED3
INR D
USED3: POP PSW
DCR B
RZ
DCR C
JNZ USED2
JMP USED1
;
;******************************
RENAME: CALL TXIMM
DC 'ZADEJ PUVODNI JMENO'
CALL RNAME
CALL CRFCB
CALL HVEZDI ; KONVENCE *.*
JZ ERROR
CALL TXIMM
DC 'NOVE JMENO'
CALL RNAME
LXI H,FCB+10H
CALL CRFCBB
MVI C,17H
LXI D,FCB
CALL 5
JMP CRLF
;******************************
ERA: CALL SETDMI
CALL RNAME
CALL CRFCB
CALL DIR22 ; VYPIS
CALL TXIMM
DC 'ZRUS A/N ?'
CALL ECHO
ANI 0DFH
CPI 'N'
JZ CRLF ; NE
MVI C,13H
LXI D,FCB
CALL 5
JMP CRLF
;
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
; P R A C E S D A T Y
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;
; CTI B Y T E
;
GET@2: PUSH H
PUSH D
PUSH B
LDA @IF1
ORA A
CZ FIND
CALL CTIB
INR B
DCR B
MOV A,M
JNZ FIN1 ; KONEC FILE
CPI 1AH
JZ FIN?
GET@21: ORA A ;0->CY
POP B
POP D
POP H
RET
FIN?: PUSH H
LHLD LAST
MOV A,L
ORA H
POP H
FIN9: MVI A,1AH
JNZ GET@21 ; NENI LAST
XCHG ; HLEDEJ
LXI H,BUFDX+80H
FIN0: DCX H
MOV A,E
CMP L
JZ FIN1
MOV A,M
ORA A
JNZ FIN9
JMP FIN0
FIN1: XRA A
STA @IF1
MVI A,1AH
STC
JMP GET@21+1 ; KONEC
;
; CTI BYTE Z DX:
;
CTIB: LDA IDX
CPI 80H
MVI B,0
CZ CTIBL
CALL C@ADR
STA IDX
RET
;
; CTI BLOK Z DX:
;
CTIBL: CALL BREAK
CALL SETDMI
LHLD LAST
DCX H
SHLD LAST
MVI C,14H
LXI D,FCB
CALL 5
MOV B,A ; ERROR FLG
RET
;
; VYPOCTI ADR
C@ADRO: LXI H,BUFO
JMP $+6
;
C@ADR: LXI H,BUFDX
MVI D,0
MOV E,A
DAD D
INR A
RET
;
SETDMI: LXI D,BUFDX
JMP $+6
SETDMO: LXI D,BUFO
MVI C,1AH
JMP 5
;
; ZAPIS B Y T E
;
PUT@2: PUSH H
PUSH D
CALL PUT@B
LDA MODE
ANI 2 ; BINAR
MOV A,C
JNZ PUT@3 ;+
CPI 1AH ;^Z
PUSH B
JZ CLFIL
POP B
PUT@3: POP D
POP H
RET
PUT@B: PUSH B ; ZAPIS BYTE
LDA @OF1
ORA A
CZ OPEN
LDA ODX
CPI 80H
CZ ZAPISBL
CALL C@ADRO
STA ODX
POP B
MOV M,C
RET
;
; ZAPIS BLOK
;
ZAPISBL:
CALL BREAK
CALL SETDMO
MVI C,15H
LXI D,FCBB
CALL 5
ORA A
RZ
DB 21H ; LXI H,##
ERCPM: INR A
RNZ ;255=O.K.
CALL TXIMM
DC ' CP/M.. ERROR'
JMP ERROR
;
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
; P O D P R O G R A M Y
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
; ZOBRAZ TEXT BEZ PARITY
;
TEXT@: MOV A,M
ANI 7FH
MOV C,A
CALL CO
INX H
DCR D
JNZ TEXT@
RET
;
; NASTAV MODE NA BINAR
;
SETTYP: CALL BIN?
RNZ
;
; BINARNI VYST. SOUBOR
;
BINAR: LDA MODE
ORI 2
STA MODE
RET
;
; VYBER PODLE TYPU BIN-FILE
;
BIN?: LXI D,TABTYP
CALL COMT
RZ
CALL COMT
RZ
;
; COMPARE TYP
;
COMT: LXI H,FCBB+9
MVI C,3
COMT1: LDAX D
CMP M
JNZ COMT2 ; -
INX H
INX D
DCR C
JNZ COMT1
RET ;+ SHODA
COMT2: INX D ; - RUZNE
DCR C
JNZ COMT2
DCR C ;-
RET
;--------------------
TABTYP: DB 'BIN'
DB 'SAV'
DB 'COD'
;--------------------
;
;
; TEST NA IOBYTE (PO)
;
NPO: LDA IOBYT
RRC
RRC
NRI1: RRC
RRC
ANI 3 ; ZARIZENI
DCR A ; MINUS .. SYSTEM
DCR A ;ZY.. USER=1
RET ;NZ.. USER=2
;
;TEST NA IOBYTE (RI)
;
NRI: LDA IOBYT
JMP NRI1
;
; NASTAV IOBYTE PODLE OPTION
;
IOPO: CALL CISLO
RC
RLC
RLC
IOPO1: MVI C,0CFH ;MASKA
JMP ZMIO
;
IORI: CALL CISLO
RC
MVI C,0F3H ;MASKA
ZMIO: RLC
RLC
MOV B,A
LDA IOBYT
ANA C
ORA B
STA IOBYT
RET
;
CISLO: SUI '0'
RC ;CY=1..NENI
CPI 3
CMC
RC
INR A
RET
BREAK: CALL CSTS
RZ
CALL CI
JMP ETX?
; CTI A VYPIS ZNAK
ECHO: CALL CINCR
RZ
ETX?: CPI ETX
RNZ
CALL DIRSTP ; CLOSE & STOP
JMP NEXT ; BREAK=>C
;
; CHECK SUM ?
CHECK: MOV C,B
CALL RICH
CMP C
RZ
; ZASTAV A OHLAS CHYBU
ERSTP:
JMP ERROR
;
RADR@: CALL RICH
MOV L,A
CALL RICH ;HL
MOV H,A
RET
;
RICH: CALL RI ;READ & SUM
JC ERSTP
PUSH PSW
ADD B
MOV B,A
POP PSW
RET
;
PADR@: MOV C,L
CALL POCH
MOV C,H
;
POCH: MOV A,C ;PUNCH AND SUM
ADD B
MOV B,A
JMP PO
;
;************************************
; VYTVARENI JMENA SOUBORU
;************************************
;
; CTI JMENO Z KLAVESNICE NEBO PAMETI
;
RNAME: CALL RNAM@ ; MONITOR
XCHG ; 1.ADR = DE
CPI '@'
RET ; ZY=1 ... DIR
;
; VYTVOR FCB
;
CRFCB: LXI H,FCB ; INPUT
CRFCBB: LXI B,NAMBUF
XCHG
MOV A,L
CMP C ; OPTION ?
JZ CRFC1
LDAX B ; CTI
ANI 11B
JMP $+4 ; JINAK A:
CRFC1: XRA A
STAX D ; DRIVE
INX D
MVI C,8
CALL COPNAM
MVI C,3
CALL COPNAM
XCHG
CRF3: MVI C,35-11
CRF2: MVI M,0
INX H
DCR C
JNZ CRF2
RET ; VYMAZ ZBITEK
;
COPNAM: MOV A,M ; CTI
CPI '*'
JZ COPNA0
STAX D
CALL ANALN
JZ COPNA1
INX H
INX D
DCR C
JNZ COPNAM
COPN9: MOV A,M
CALL ANALN ; DLOUHE JMENO
INX H
RZ
CPI ' '
RZ
JMP COPN9
;
COPNA0: MVI A,'?'
INX H
JMP COPNA2
;
COPNA1: CPI '.' ; KONEC
MVI A,' '
JZ $+4
COPNA2: INX H ; PRESKOC
STAX D
INX D
DCR C
JNZ $-3
RET
;
ANALN: CPI '.'
RZ
CPI '"'
RZ
; ANALIZA ODDELOVACU
;
ANAL: CPI CR
RZ
ORA A
RET
;
;
PRENOS: LXI H,NAMBUF
MOVE: MOV A,M
STAX D
INX H
INX D
DCR B
JNZ MOVE
RET
;
HVEZDA: LDA FCBB+8 ; OUTPUT FILE
CPI '?'
RZ
LDA FCBB+11
CPI '?'
RET ; ZY=1 POTOM....*.*;
HVEZDI: LDA FCB+8 ; INPUT FILE
CPI '?'
RZ
LDA FCB+11
CPI '?'
RET
;-------------------------------------------
@@@KOS EQU $
;
;****************************************
; ROZDELENI S Y S T E M O V E R A M
;****************************************
;
RST1 EQU @R@ ; RESTART VEKTORY
;........>>>
;......
;<<... UZIVATELSKY & MONITOR. ZASOBNIK
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
.PHASE @R@+6DH
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
; MONITOR DATA
;
MSTAK: DS 2
ACSAV: DS 2
BCSAV: DS 2
DESAV: DS 2
HLSAV: DS 2
PCSAV: DS 2
SPSAV: DS 2
;
BRAD: DS 2
INSTR: DS 1
BRAD2: DS 2
INST2: DS 1
CADR: DS 2 ; KURZOR ADR.
;-------------------------
WMKOD: DS 14 ; KOD PRO KURZORY
PREV: DS 21 ; PREVODNI KODY..0
;-------------------------
; USER I/O DEVICE
;
CILOC: DS 3 ; 0
COLOC: DS 3 ; 1
R1LOC: DS 3 ; 2
R2LOC: DS 3 ; 3
P1LOC: DS 3 ; 4
P2LOC: DS 3 ; 5
LILOC: DS 3 ; 6
CSLOC: DS 3 ; 7
DS 1
MEMTOP: DS 2 ; 8
ERRSW: DS 3 ; 9
CI@0: DS 3 ; 10
CO@: DS 3 ; 11
CSTS@: DS 3 ; 12
LO@: DS 3 ; 13
KOS@: DS 3 ; 14
RI@: DS 3 ; 15
PO@: DS 3 ; 16
CCPM: DS 3 ; 17
GRAF: DS 3
RESER: DS 3
IONUM EQU ($-CILOC)/3+1
;
IOBYT: DS 1 ; RIZENI I/O ZARIZENI
;
;****************************
;<< EXTERE OVLADANE FLAGY: >>
;****************************
MODE: DS 1 ; CO-MODE
@IF1: DS 1
@IF2: DS 1
@OF1: DS 1
@OF2: DS 1
LINE: DS 1 ; RADEK
COLUM: DS 1 ; SLOUPEC
RESL: DS 1 ; RESERVACE
RESC: DS 1 ; SLOUPEC
RESL1: DS 1 ; POSLEDNI RADEK
RESC1: DS 1 ; POSLEDNI SLOUPEC
PREP: DS 1 ; UROVEN PRERUSENI
;
; PROMENE PRO OPRACNI SYSTEM
;
CUR@: DS 1
KEY: DS 1
CASK: DS 1 ; <>0 - PRODLUZ MEZERY
WNDP: DS 6 ; PARAMETR PRO 2. OKNO
EXSER EQU $-MODE ; KONEC SLUZEB
;
CHAR: DS 1
XFLG: DS 1
;
;****************************************************
; DATA SPOLECNA PRO MONITOR A O.S.
;****************************************************
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@BT: DS 1
@PED: DS 1
SADR: DS 2 ; START ADR
EADR: DS 2 ; END ADR
SUM: DS 1
EXTEXT: DS 1
OPT: DS 1
NAMBUF: DS 65
;
;--------------------------------------
; D I S K
;--------------------------------------
IDX: DS 1
ODX: DS 1
FCB: DS 33
LAST: DS 4
FCBB: DS 36
EDAT EQU $
;--------------------------------------
ERAMH EQU 41CFH ; KONEC VOLNE RAM
.DEPHASE
;
END ; [P]
ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace