standalone import
This commit is contained in:
Oliver Lehmann
parent
476ca4c2d4
commit
b2075be9e7
|
|
@ -0,0 +1,887 @@
|
|||
!******************************************************************************
|
||||
*******************************************************************************
|
||||
|
||||
W E G A - Quelle (C) ZFT/KEAW Abt. Basissoftware - 1986
|
||||
P8000-PROM (MONITOR) Modul: p_boot
|
||||
|
||||
Bearbeiter: J. Zabel
|
||||
Datum: 15.04.1987
|
||||
Version: 2.0
|
||||
|
||||
*******************************************************************************
|
||||
******************************************************************************!
|
||||
|
||||
!==============================================================================
|
||||
Inhaltsuebersicht Modul p_boot
|
||||
------------------------------
|
||||
Dieser Modul umfasst die Monitorroutine zum manuellen Start des WEGA-Systems
|
||||
(O) sowie die NMI-Routine zum automatischen Start des WEGA-Systems.
|
||||
|
||||
Prozeduren
|
||||
----------
|
||||
AUTOBOOT
|
||||
OS_BOOT
|
||||
DSK_BOOT
|
||||
FLP_BOOT
|
||||
UDOS_BOOT
|
||||
RM_BOOT
|
||||
==============================================================================!
|
||||
|
||||
|
||||
p_boot module
|
||||
|
||||
$SECTION PROM
|
||||
|
||||
!anfang prom.include!
|
||||
!******************************************************************************
|
||||
allgemeine Vereinbarungen (Stand: 12.12.1986)
|
||||
******************************************************************************!
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
externe Prozeduren und Marken
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
EXTERNAL
|
||||
INIT_CTC0_0 procedure !Modul p_init!
|
||||
INIT_CTC0_1 procedure !Modul p_init!
|
||||
INIT_SIO0_A procedure !Modul p_init!
|
||||
INIT_SIO0_B procedure !Modul p_init!
|
||||
CMDLOP procedure !Modul p_init!
|
||||
ERROR procedure !Modul p_init!
|
||||
NMI_INT procedure !Modul p_init!
|
||||
|
||||
PTY_INT procedure !Modul p_term!
|
||||
PTY_ERR procedure !Modul p_term!
|
||||
KOPPEL_INT procedure !Modul p_term!
|
||||
INCPTR procedure !Modul p_term!
|
||||
TYRD procedure !Modul p_term!
|
||||
TYWR procedure !Modul p_term!
|
||||
TYRD_UDOS_INT procedure !Modul p_term!
|
||||
TYRD_UDOS_POL procedure !Modul p_term!
|
||||
TYWR_UDOS_INT procedure !Modul p_term!
|
||||
TYWR_UDOS_POL procedure !Modul p_term!
|
||||
TYWR_KOPPEL_INT procedure !Modul p_term!
|
||||
TYWR_KOPPEL_POL procedure !Modul p_term!
|
||||
KP_OUTB procedure !Modul p_term!
|
||||
KP_INB procedure !Modul p_term!
|
||||
RD_LINE_BFF procedure !Modul p_term!
|
||||
RD_LINE_INBFF procedure !Modul p_term!
|
||||
WR_CRLF procedure !Modul p_term!
|
||||
WR_MSG procedure !Modul p_term!
|
||||
WR_OUTBFF_CR procedure !Modul p_term!
|
||||
WR_OUTBFF procedure !Modul p_term!
|
||||
HTOB procedure !Modul p_term!
|
||||
BTOH16 procedure !Modul p_term!
|
||||
BTOH8 procedure !Modul p_term!
|
||||
GET_CHR procedure !Modul p_term!
|
||||
GET_SIGN procedure !Modul p_term!
|
||||
GET_SIGNW procedure !Modul p_term!
|
||||
GET_SGNR procedure !Modul p_term!
|
||||
GET_HEXZ procedure !Modul p_term!
|
||||
GET_ADR procedure !Modul p_term!
|
||||
GET_PAR procedure !Modul p_term!
|
||||
RD_DATA procedure !Modul p_term!
|
||||
GET_DATA procedure !Modul p_term!
|
||||
WR_R5_RDDATA procedure !Modul p_term!
|
||||
WR_OBF_RDDATA procedure !Modul p_term!
|
||||
PUT_CHR procedure !Modul p_term!
|
||||
PUT_3C procedure !Modul p_term!
|
||||
PUT_2CHR procedure !Modul p_term!
|
||||
PUT_SEGNR procedure !Modul p_term!
|
||||
PUT_SGNR procedure !Modul p_term!
|
||||
|
||||
DISPLAY procedure !Modul p_comm!
|
||||
COMPARE procedure !Modul p_comm!
|
||||
FILL procedure !Modul p_comm!
|
||||
MOVE procedure !Modul p_comm!
|
||||
PORT_READ procedure !Modul p_comm!
|
||||
PORT_WRITE procedure !Modul p_comm!
|
||||
PORT_READ_SPECIAL procedure !Modul p_comm!
|
||||
PORT_WRITE_SPECIAL procedure !Modul p_comm!
|
||||
HARD_DISK_READ procedure !Modul p_comm!
|
||||
HARD_DISK_WRITE procedure !Modul p_comm!
|
||||
FLOPPY_FORMAT procedure !Modul p_comm!
|
||||
FLOPPY_READ procedure !Modul p_comm!
|
||||
FLOPPY_WRITE procedure !Modul p_comm!
|
||||
|
||||
REGISTER procedure !Modul p_brk!
|
||||
SAVREG procedure !Modul p_brk!
|
||||
BREAK procedure !Modul p_brk!
|
||||
GO procedure !Modul p_brk!
|
||||
GO_NXT procedure !Modul p_brk!
|
||||
NEXT procedure !Modul p_brk!
|
||||
RETI_CTC0_3 procedure !Modul p_brk!
|
||||
|
||||
TEST_ procedure !Modul p_test!
|
||||
|
||||
GET procedure !Modul p_gesa!
|
||||
SAVE procedure !Modul p_gesa!
|
||||
QUIT8 procedure !Modul p_gesa!
|
||||
QUIT8_RESET procedure !Modul p_gesa!
|
||||
FLOPPY procedure !Modul p.gesa!
|
||||
RM_GET procedure !Modul p_gesa!
|
||||
RM_SAVE procedure !Modul p_gesa!
|
||||
RM_QUIT procedure !Modul p_gesa!
|
||||
|
||||
OS_BOOT procedure !Modul p_boot!
|
||||
AUTOBOOT procedure !Modul p_boot!
|
||||
|
||||
DISK procedure !Modul p_disk!
|
||||
|
||||
QUIT procedure !Modul p_ldsd!
|
||||
LOAD procedure !Modul p_ldsd!
|
||||
MCZ_INT procedure !Modul p_ldsd!
|
||||
MCZ_ERR procedure !Modul p_ldsd!
|
||||
TYWR_MCZ procedure !Modul p_ldsd!
|
||||
WOCF_MCZ procedure !Modul p_ldsd!
|
||||
SEND procedure !Modul p_ldsd!
|
||||
|
||||
MON16_1H word !Modul p.crc!
|
||||
N_MON16_1H word !Modul p.crc!
|
||||
MON16_1L word !Modul p.crc!
|
||||
N_MON16_1L word !Modul p.crc!
|
||||
MON16_2H word !Modul p.crc!
|
||||
N_MON16_2H word !Modul p.crc!
|
||||
MON16_2L word !Modul p.crc!
|
||||
N_MON16_2L word !Modul p.crc!
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Werte aus dem Arbeitsspeicher (Modul p_ram)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
EXTERNAL
|
||||
RAM_ANF ARRAY [%10 WORD]
|
||||
NSP_OFF WORD
|
||||
ARRAY [%3F WORD] !Stackbereich!
|
||||
STACK WORD
|
||||
ARRAY [4 WORD]
|
||||
_numterm WORD !Anzahl der Terminals!
|
||||
PTYPORT BYTE !Terminalkanal:
|
||||
00 - SIO0_B (16-Bit-Teil)
|
||||
01 - SIO0_B (8-Bit-Teil) ueber
|
||||
Koppelschnittstelle!
|
||||
XEMPTY BYTE !fuer interruptgesyeuerten Terminal-
|
||||
betrieb ueber Koppelschnittstelle:
|
||||
00 - Sendepuffer SIO0_B (8-Bit-Teil)
|
||||
leer
|
||||
FF - Sendepuffer SIO0_B (8-Bit-Teil)
|
||||
nicht leer!
|
||||
BYTE
|
||||
KONV BYTE !Hilfsbyte zur Konvertierung!
|
||||
INBFF ARRAY [%80 BYTE] !Eingabepuffer!
|
||||
OUTBFF ARRAY [%80 BYTE] !Ausgabepuffer!
|
||||
PTYBFF ARRAY [%100 BYTE] !Eingabepuffer fuer interrupt-
|
||||
gesteuerte Eingabe vom Terminal-
|
||||
kanal!
|
||||
MCZBFF ARRAY [%0EA BYTE] !Ein-/Ausgabepuffer fuer ZLOAD/ZSEND!
|
||||
MAXLEN WORD !maximale Zeilenlaenge!
|
||||
INPTR WORD !Zeiger fuer Eingabepuffer INBFF!
|
||||
OUTPTR WORD !Zeiger fuer Ausgabepuffer OUTBFF
|
||||
(Pufferlaenge)!
|
||||
COUNT_PTY WORD !aktuelle Anzahl der Zeichen in PTYBFF!
|
||||
INPTR_PTY WORD !Eingabezeiger fuer PTYBFF
|
||||
(naechster freier Platz)!
|
||||
OUTPTR_PTY WORD !Ausgabezeiger fuer PTYBFF
|
||||
(naechstes auszulesende Zeichen)!
|
||||
INPTR_MCZ WORD !Eingabezeiger fuer MCZBFF!
|
||||
OUTPTR_MCZ WORD !Ausgabezeiger fuer MCZBFF!
|
||||
B_WORD WORD !Speicherinhalt auf der BREAK-Adresse!
|
||||
B_ADR_S WORD !Segmentnummer der BREAK-Adresse!
|
||||
B_ADR_O WORD !Offset der BREAK-Adresse!
|
||||
RR14_V LONG !VARIABLER STACK, FUER NEXT UND BREAK!
|
||||
W23B4 WORD
|
||||
FCW_V WORD !VARIABLES FCW FUER NEXT UND BREAK!
|
||||
PORT_BF WORD !Puffer fuer gelesenen bzw. zu
|
||||
schreibenden PORT-Datenwert!
|
||||
PORT_IO WORD !Adresse des PORT-I/O-Programms!
|
||||
WORD !unbenutzt!
|
||||
SV_R ARRAY [14 WORD] !Registerrettungsbereich!
|
||||
SVSTK LONG
|
||||
PC_SEG WORD !Programmcounter (Segmentnummer)!
|
||||
PC_OFF WORD !Programmcounter (Offsetadresse)!
|
||||
FCW_ WORD !FCW im Registerrettungsbereich!
|
||||
RF_CTR WORD !Merker: Refresh Control Register!
|
||||
N4_ WORD !Normalstack R14!
|
||||
N5_ WORD !Normalstack R15!
|
||||
PS_ WORD !Program-Status-Area Segment!
|
||||
PO_ WORD !Program-Status-Area Offset!
|
||||
WORD !unbenutzt!
|
||||
!Flags!
|
||||
FLAG0 BYTE
|
||||
FLAG1 BYTE
|
||||
!Variablen (initialisiert bei Systemstart)!
|
||||
CHRDEL BYTE !Zeichen loeschen (Backspace %08)!
|
||||
LINDEL BYTE !Zeile loeschen (Line delete %7F)!
|
||||
XONCHR BYTE !Terminalausgabe fortsetzen (^Q %11)!
|
||||
XOFCHR BYTE !Terminalausgabe anhalten (^S %13)!
|
||||
NULLCT WORD !Anzahl der Nullen nach CR bei Terminalausgabe (%0000)!
|
||||
B_CODE WORD !Unterbrechungscode Z8000 (7F00)!
|
||||
STKCTR WORD !Zaehler der Stackoperationen fuer NEXT (%0004)!
|
||||
NXTCTR WORD !SCHRITTZAEHLER FUER NEXT (%0001)!
|
||||
PROMT WORD !Promt-Zeichen (%2000)!
|
||||
!---------------------------------------------------!
|
||||
!Program Status Area (initialisiert bei Systemstart)!
|
||||
PSAREA
|
||||
! ID FCW PCSEG PCOFF!
|
||||
ARRAY [4 WORD] !:= [%0000 %0000 %0000 %0000]
|
||||
RESERVED!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 VI_ERR]
|
||||
UNIMLEMENTED INSTRUCTIONS!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 VI_ERR]
|
||||
PRIVILEGED INSTRUCTIONS!
|
||||
ARRAY [4 WORD] !:= [%0000 %C000 %8000 SC_ENTRY]
|
||||
SYSTEM_CALL INSTRUCTIONS!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 MMU_ERR]
|
||||
SEGMENT TRAP!
|
||||
PSA_NMI ARRAY [4 WORD] !:= [%0000 %4000 %8000 AUTOBOOT bzw. NMI_INT]
|
||||
NONMASKABLE INTERRUPT
|
||||
(AUTOBOOT vor erster Terminaleingabe;
|
||||
NMI_INT nach erster Terminaleingabe)!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 VI_ERR]
|
||||
NONVECTORED INTERRUPT!
|
||||
! VECTORED INTERRUPT!
|
||||
ARRAY [2 WORD] !:= [%0000 %4000]
|
||||
VECTORED INTERRUPT (ID, FCW)!
|
||||
! VI - Sprung-Tabelle (128 Eintraege) !
|
||||
! SEG OFFSET!
|
||||
!CTC0!
|
||||
VI_CTC0_0 ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
VI_CTC0_1 ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
VI_CTC0_2 ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
VI_CTC0_3 ARRAY [2 WORD] !:= [%8000 VI_ERR bzw. GO_INT bzw. NXT_INT]
|
||||
fuer GO bzw. NEXT!
|
||||
!PIO1!
|
||||
VI_PIO1_B ARRAY [2 WORD] !:= [%8000 KOPPEL_INT]
|
||||
VI Zeichen empfangen (von Koppelschnittstelle)!
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
!SIO0!
|
||||
VI_SIO0_B ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 PTY_INT]
|
||||
VI Zeichen empfangen (fuer Terminaleingabe)!
|
||||
ARRAY [2 WORD] !:= [%8000 PTY_ERR]
|
||||
VI Empfangssonderfall (fuer Empfangsfehler)!
|
||||
VI_SIO0_A ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 MCZ_INT]
|
||||
VI Zeichen empfangen (fuer MCZ-Eingabe)!
|
||||
ARRAY [2 WORD] !:= [%8000 MCZ_ERR]
|
||||
VI Empfangssonderfall (fuer Empfangsfehler)!
|
||||
! Rest der 128 Eintraege der VI-Sprung-Tabelle!
|
||||
VI_TAB_REST ARRAY [224 WORD] !:= [%8000 VI_ERR] !
|
||||
!---------------------------------------------------!
|
||||
|
||||
!Arbeitsspeicher fuer Kommando "T" (Hardwareeigentest)!
|
||||
RG_FELD ARRAY [%1A WORD] !Feld zur Registerrettung!
|
||||
REM_MMU_BCSR BYTE !Merker: Inhalt BUS CYCLE STATUS REGISTER!
|
||||
REM_MMU_VTR BYTE !Merker: Inhalt VIOLATION TYPE REGISTER!
|
||||
REM_MMU_ID WORD !Merker: MMU-Identifikation!
|
||||
REM_ERR_CNT WORD !Merker: Stand Fehlerzaehler!
|
||||
REM_SEGMENT_TRAP WORD !Merker: urspruengliche Offsetadresse fuer Segmenttrap!
|
||||
REM_PRIVINSTR_TRAP WORD !Merker: urspruengl. Offsetadr. fuer Priv.-Instr.-Trap!
|
||||
REM_MMU_SINOUT WORD !Merker: MMU-Ein-/Ausgabewerte!
|
||||
ERR_CNT WORD !Fehlerzaehler!
|
||||
MAX_SEGNR WORD !Merker: hoechste vorhandene Segmentnummer!
|
||||
PUDC_PTR WORD !Absoluter Zeiger fuer Zeichenkette T_PUDC!
|
||||
REM_PUDC WORD !Merker: Text T_PUDC vollstaendig ausgegeben
|
||||
(%0000-->nein / %FFFF-->ja)!
|
||||
ERRPAR_ID WORD !Spezifizierung der 4 Parameter der auszugebenden
|
||||
Fehlerzeile (Prozedur MSG_ERROR)!
|
||||
REM_MMU1 WORD
|
||||
REM_MMU2 WORD
|
||||
REM_INT WORD !Merker: Interrupt aufgetreten (0-->nein)!
|
||||
ARRAY [%36 WORD] !unbenutzt!
|
||||
!Arbeitsspeicher fuer Kommandos "GE"/"S"/"O U" und Floppytreiber!
|
||||
FILENAME_PTR WORD !Anfangsadresse Dateiname!
|
||||
COUNT_UDOS WORD !akt. Anzahl der Zeichen in UDOSBFF!
|
||||
INPTR_UDOS WORD !Eingabezeiger fuer UDOSBFF
|
||||
(naechster freier Platz)!
|
||||
OUTPTR_UDOS WORD !Ausgabezeiger fuer UDOSBFF
|
||||
naechstes auszulesende Zeichen)!
|
||||
UDOSBFF ARRAY [%100 BYTE] !Eingabepuffer fuer interrupt-
|
||||
gesteuerte Eingabe bei Dateitransfer
|
||||
von/zu UDOS bzw. Blocktransfer!
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
System Calls
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
CONSTANT
|
||||
SC_SEGV := %01 !Modul p.term!
|
||||
SC_NSEGV := %02 !Modul p.term!
|
||||
SC_TYRD := %04 !Modul p.term!
|
||||
SC_TYWR := %06 !Modul p.term!
|
||||
SC_RD_LINE_BFF := %08 !Modul p.term!
|
||||
SC_WR_CRLF := %0A !Modul p.term!
|
||||
SC_WR_MSG := %0C !Modul p.term!
|
||||
SC_BTOH16 := %0E !Modul p.term!
|
||||
SC_WR_OUTBFF_CR := %10 !Modul p.term!
|
||||
SC_BTOH8 := %12 !Modul p.term!
|
||||
SC_PUT_SEGNR := %14 !Modul p.term!
|
||||
SC_PUT_CHR := %16 !Modul p.term!
|
||||
SC_WOCF_MCZ := %18 !Modul p.ldsd!
|
||||
SC_TYWR_MCZ := %1A !Modul p.ldsd!
|
||||
SC_CMDLOP := %1C !Modul p.init!
|
||||
SC_DISK := %1E !Modul p.disk!
|
||||
SC_TYRD_UDOS_INT := %20 !Modul p.term!
|
||||
SC_TYWR_UDOS_INT := %22 !Modul p.term!
|
||||
SC_FLOPPY := %24 !Modul p.gesa!
|
||||
SC_WR_OUTBFF := %26 !Modul p.term!
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
spezielle ASCII-Zeichen
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
CONSTANT
|
||||
SOH := %01
|
||||
STX := %02
|
||||
ETX := %03
|
||||
EOT := %04
|
||||
ACK := %06
|
||||
BEL := %07
|
||||
BS := %08
|
||||
LF := %0A
|
||||
CR := %0D
|
||||
NAK := %15
|
||||
CAN := %18
|
||||
ESC := %1B
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Hardwareadressen
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
CONSTANT
|
||||
|
||||
!8-Bit-Teil!
|
||||
|
||||
SIO0D_B_8 := %26 !SIO fuer Terminal!
|
||||
SIO0C_B_8 := %27
|
||||
|
||||
!16-Bit-Teil!
|
||||
|
||||
SIO0 := %FF81 !Kanal A (XB1/TTY4): LOAD/SEND/QUIT;
|
||||
Kanal B (XB2/TTY5): Terminal, wenn 8-Bit-Teil inaktiv!
|
||||
SIO0D_A := SIO0 + 0
|
||||
SIO0D_B := SIO0 + 2
|
||||
SIO0C_A := SIO0 + 4
|
||||
SIO0C_B := SIO0 + 6
|
||||
|
||||
SIO1 := %FF89 !Kanal A (XB3/TTY6): unbenutzt
|
||||
Kanal B (XB4/TTY7): unbenutzt!
|
||||
SIO1D_A := SIO1 + 0
|
||||
SIO1D_B := SIO1 + 2
|
||||
SIO1C_A := SIO1 + 4
|
||||
SIO1C_B := SIO1 + 6
|
||||
|
||||
PIO0 := %FF91 !Koppel-PIO zum 8-Bit-Teil
|
||||
fuer Terminal und Kommandos "GE", "S",
|
||||
"Q", "QRES", "O U" und Floppytreiber
|
||||
Kanal A: Datenausgabe
|
||||
Kanal B: Statusausgabe/Steuerport!
|
||||
PIO0D_A := PIO0 + 0
|
||||
PIO0D_B := PIO0 + 2
|
||||
PIO0C_A := PIO0 + 4
|
||||
PIO0C_B := PIO0 + 6
|
||||
|
||||
PIO1 := %FF99 !Koppel-PIO zum 8-Bit-Teil
|
||||
fuer Terminal und Kommandos "GE", "S",
|
||||
"Q", "QRES", "O U" und Floppytreiber
|
||||
Kanal A: Dateneingabe
|
||||
Kanal B: Statuseingabe/Steuerport!
|
||||
PIO1D_A := PIO1 + 0
|
||||
PIO1D_B := PIO1 + 2
|
||||
PIO1C_A := PIO1 + 4
|
||||
PIO1C_B := PIO1 + 6
|
||||
|
||||
PIO2 := %FFA1 !(XB5): Winchester
|
||||
Kanal A: Datenein-/-ausgabe; Kanal B: Steuerport!
|
||||
PIO2D_A := PIO2 + 0
|
||||
PIO2D_B := PIO2 + 2
|
||||
PIO2C_A := PIO2 + 4
|
||||
PIO2C_B := PIO2 + 6
|
||||
|
||||
CTC0 := %FFA9
|
||||
CTC0_0 := CTC0 + 0 ! Baud 0 - SIO0, Kanal A!
|
||||
CTC0_1 := CTC0 + 2 ! Baud 1 - SIO0, Kanal B!
|
||||
CTC0_2 := CTC0 + 4 ! Baud 2 - SIO1, Kanal A!
|
||||
CTC0_3 := CTC0 + 6 ! Next !
|
||||
|
||||
CTC1 := %FFB1
|
||||
CTC1_0 := CTC1 + 0 ! Baud 3 - SIO1, Kanal B!
|
||||
CTC1_1 := CTC1 + 2
|
||||
CTC1_2 := CTC1 + 4
|
||||
CTC1_3 := CTC1 + 6
|
||||
|
||||
S_BNK := %FFC1 !SWITCH-BANK:
|
||||
Bit0-3 Ausgabebits; Bit4-7 Eingabebits (DIL-Schalter):
|
||||
Bit 0: =0 - Monitor PROM+RAM einschalten
|
||||
=1 - Monitor PROM+RAM ausschalten
|
||||
Bit 1: =0 - MMU's ausschalten; =1 - MMU's einschalten
|
||||
Bit 2: Seg. Usr.
|
||||
Bit 3: =0 - Clear Parity
|
||||
Bit 5,4: Baudrate Terminal (unbenutzt)
|
||||
Bit 7,6: Autoboot Device (unbenutzt)!
|
||||
|
||||
SBREAK := %FFC9 !System Break Register!
|
||||
NBREAK := %FFD1 !Normal Break Register!
|
||||
RETI_P := %FFE1 !RETI-Port fuer Schaltkreise des U800-Systems!
|
||||
|
||||
ALL_MMU := %F0
|
||||
STACK_MMU := %F6
|
||||
DATA_MMU := %FA
|
||||
CODE_MMU := %FC
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Moegliche Statusausgaben an 8-Bit-Teil von 16-Bit-Teil
|
||||
fuer 8-Bit-/16-Bit-Koppelschnittstelle (PIO0_B)
|
||||
(INT8-Bit jeweils = 0)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
CONSTANT
|
||||
STAT8_ENDE := %00 !Ende eines Write-Requests!
|
||||
STAT8_READ := %02 !Read-Request an einen Peripheriebaustein 8-Bit-Teil!
|
||||
STAT8_WRITE := %04 !Write-Request an einen Peripheriebaustein 8-Bit-Teil!
|
||||
|
||||
STAT8_UDOS := %10 !Datenbyte ist Bestandteil eines Dateitransfers
|
||||
bzw. eines Blocktransfers von/zu UDOS!
|
||||
STAT8_QUIT := %1E !Rueckkehr zum 8-Bit-Teil (Datenbyte "Q" oder "R")!
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Moegliche Statuseingaben von 8-Bit-Teil an 16-Bit-Teil
|
||||
fuer 8-Bit-/16-Bit-Koppelschnittstelle (PIO1_B)
|
||||
(INT16-Bit jeweils = 0)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
CONSTANT
|
||||
STAT16_ENDE := %00 !Beantwortung eines Read-Requests!
|
||||
|
||||
STAT16_SIO0_B_R := %04 !REC INT (SIO0_B-Empfaengerinterrupt)!
|
||||
STAT16_SIO0_B_X := %24 !TRANS INT (SIO0_B-Interrupt Sendepuffer leer)!
|
||||
STAT16_SIO0_B_E := %44 !EXT STAT INT (SIO0_B-Externer-Statusinterrupt)!
|
||||
STAT16_SIO0_B_S := %64 !SPEC REC INT (SIO0_B-Interrupt Empfangssonderfall)!
|
||||
|
||||
STAT16_UDOS := %10 !Datenbyte ist Bestandteil eines Dateitransfers
|
||||
bzw. eines Blocktransfers von/zu UDOS!
|
||||
!ende prom.include!
|
||||
|
||||
!******************************************************************************
|
||||
modulspezifische Vereinbarungen
|
||||
******************************************************************************!
|
||||
|
||||
INTERNAL
|
||||
_serial LONG := %00000000
|
||||
|
||||
INTERNAL
|
||||
T_DSK_BOOT
|
||||
WORD := %0017
|
||||
ARRAY [* BYTE] := 'BOOTING FROM HARD DISK%0D'
|
||||
T_FLP_BOOT
|
||||
WORD := %0014
|
||||
ARRAY [* BYTE] := 'BOOTING FROM FLOPPY%0D'
|
||||
T_UDOS_BOOT
|
||||
WORD := %0019
|
||||
ARRAY [* BYTE] := 'BOOTING FROM UDOS FLOPPY%0D'
|
||||
T_RM_BOOT
|
||||
WORD := %000F
|
||||
ARRAY [* BYTE] := 'BOOTING REMOTE%0D'
|
||||
|
||||
CONSTANT
|
||||
BOOT0_START := %8000 !Lade- und Startadresse fuer "boot0"!
|
||||
BOOT0_FILETYP := %01 !binary file/keine Uebertragung des Datei-
|
||||
descriptors!
|
||||
|
||||
INTERNAL
|
||||
BOOT0_UDOS_FILENAME ARRAY [* BYTE] := 'boot0.ud%00'
|
||||
BOOT0_RM_FILENAME ARRAY [* BYTE] := 'boot0.rm%00'
|
||||
|
||||
TXT_ABO
|
||||
WORD := 6
|
||||
ARRAY [* BYTE] := 'ABORT%0D'
|
||||
|
||||
|
||||
!******************************************************************************
|
||||
Prozeduren
|
||||
******************************************************************************!
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
PROCEDURE AUTOBOOT
|
||||
automatisches Laden und Starten "boot0" von DISK (Block 0)
|
||||
NMI-Routine (vor erster Terminaleingabe)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
GLOBAL
|
||||
AUTOBOOT procedure
|
||||
entry
|
||||
call TEST_ !Hardwareeigentest!
|
||||
ld r4, r2 !R4=0 =AUTOMATIC BOOT / R4=1 MANUAL BOOT!
|
||||
test r2
|
||||
jr z, DSK_BOOT !r4=0!
|
||||
|
||||
!Hardwareeigentest war fehlerhaft --> kein WEGA-Start:
|
||||
NMI-Entry in PSAREA aendern, PROMT setzen und Rueckkehr in
|
||||
Kommandoeingabeschleife!
|
||||
ld PSA_NMI+6, #NMI_INT !NMI_ENTRY in PSAREA:
|
||||
- nach RESET steht dort #AUTOBOOT, d.h.
|
||||
bei NMI erfolgt Abarbeitung von
|
||||
#AUTOBOOT
|
||||
- nach Eingabe des ersten Zeichens vom
|
||||
Terminal (Abarbeitung von PTY_INT oder
|
||||
KOPPEL_INT) bzw. nach Abarbeitung
|
||||
von #AUTOBOOT wird #AUTOBOOT durch
|
||||
#NMI_INT ersetzt, d.h. bei NMI erfolgt
|
||||
jetzt Abarbeitung von #NMI_INT !
|
||||
|
||||
ld PROMT, #'* '
|
||||
ei vi
|
||||
jp CMDLOP
|
||||
end AUTOBOOT
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
PROCEDURE OS_BOOT
|
||||
OS_BOOT-Routine (Monitorkommando)
|
||||
manuelles BOOT von HARD DISK, FLOPPY, UDOS FLOPPY bzw. REMOTE
|
||||
|
||||
Kommandoeingabe: O D/F/U/R
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
GLOBAL
|
||||
OS_BOOT procedure
|
||||
entry
|
||||
call GET_SIGN !rl0:=naechstes Zeichen ungleich Space nach
|
||||
einem Space im Eingabepuffer INBFF!
|
||||
jp z, ERROR !CR eingegeben!
|
||||
|
||||
cpb rl0, #'D' !FROM HARD DISK ? !
|
||||
jr z, OS_BOOT_DSK
|
||||
cpb rl0, #'F' !FROM FLOPPY ? !
|
||||
jr z, OS_BOOT_FLP
|
||||
cpb rl0, #'U' !FROM UDOS FLOPPY ? !
|
||||
jr z, OS_BOOT_UDOS
|
||||
cpb rl0, #'R' !FROM REMOTE ? !
|
||||
jr z, OS_BOOT_REM
|
||||
jp ERROR !nicht 'D','F','U','R' als Parameter angegeben!
|
||||
|
||||
OS_BOOT_DSK:
|
||||
ld r2, #T_DSK_BOOT
|
||||
call WR_MSG
|
||||
ld r4, #1 !MANUEL BOOT FROM DISK!
|
||||
jr DSK_BOOT
|
||||
|
||||
OS_BOOT_FLP:
|
||||
ld r2, #T_FLP_BOOT
|
||||
call WR_MSG
|
||||
ld r4, #1 !MANUEL BOOT FROM FLOPPY!
|
||||
jp FLP_BOOT
|
||||
|
||||
OS_BOOT_UDOS:
|
||||
ld r2, #T_UDOS_BOOT
|
||||
call WR_MSG
|
||||
ldl rr6, _serial
|
||||
ld r5, _numterm !Anzahl der Terminals!
|
||||
ld r4, #1 !MANUEL BOOT FROM UDOS FLOPPY!
|
||||
jr UDOS_BOOT
|
||||
|
||||
OS_BOOT_REM:
|
||||
ld r2, #T_RM_BOOT
|
||||
call WR_MSG
|
||||
ldl rr6, _serial
|
||||
ld r5, _numterm !Anzahl der Terminals!
|
||||
ld r4, #1 !MANUEL BOOT FROM REMOTE!
|
||||
jp RM_BOOT
|
||||
end OS_BOOT
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
PROCEDURE DSK_BOOT
|
||||
Laden und Starten "boot0" von DISK (Block 0)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
INTERNAL
|
||||
DSK_BOOT procedure
|
||||
entry
|
||||
ld r0, #%4000
|
||||
ldctl FCW, r0
|
||||
PUSH @R15, R4 !MANUELL OR AUTO BOOT MERKEN!
|
||||
LD R7, #1 !READ_REQUEST!
|
||||
LD R6, #0 !DRIVE NR.!
|
||||
ld r8, #%8000 !Pufferadresse - Segment 0!
|
||||
ld r9, #BOOT0_START!Pufferadresse - Offset!
|
||||
LDL RR4, #0 !BLOCKNR.!
|
||||
LD R10, #%200 !BLOCKLAENGE!
|
||||
SC #SC_DISK !r2 - Rueckgabeparameter!
|
||||
|
||||
LDL RR6, _serial
|
||||
LD R5, _numterm !ANZAHL DER TERMINALS!
|
||||
POP R4, @R15
|
||||
|
||||
TEST r2 !r2=0 --> fehlerfrei!
|
||||
jp nz, ERROR
|
||||
|
||||
jp BOOT0_START !"boot0" starten!
|
||||
end DSK_BOOT
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
PROCEDURE FLP_BOOT
|
||||
Laden und Starten "boot0" von Floppy
|
||||
(blockorientierte Diskette, Block 0, Drive 0, Floppytyp 6)
|
||||
(ueber 8-Bit-/16-Bit-Koppelschnittstelle)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
INTERNAL
|
||||
FLP_BOOT procedure
|
||||
entry
|
||||
cpb PTYPORT, #%02 !8-Bit-Teil aktiv und UDOS verfuegbar?!
|
||||
jp nz, ERROR !nein --> Kommando nicht ausfuehrbar!
|
||||
|
||||
ld r0, #%4000
|
||||
ldctl FCW, r0
|
||||
PUSH @R15, R4 !MANUELL BOOT MERKEN!
|
||||
LD R7, #1 !READ_REQUEST!
|
||||
ld r6, #%60 !Floppytyp 6/Drive 0!
|
||||
ld r8, #%8000 !Pufferadresse - Segment 0!
|
||||
ld r9, #BOOT0_START!Pufferadresse - Offset!
|
||||
LDL RR4, #0 !BLOCKNR.!
|
||||
LD R10, #%200 !BLOCKLAENGE!
|
||||
SC #SC_FLOPPY !r2 - Rueckgabeparameter!
|
||||
|
||||
LDL RR6, _serial
|
||||
LD R5, _numterm !ANZAHL DER TERMINALS!
|
||||
POP R4, @R15
|
||||
|
||||
TEST r2 !r2=0 --> fehlerfrei!
|
||||
jp nz, ERROR
|
||||
|
||||
jp BOOT0_START !"boot0" starten!
|
||||
end FLP_BOOT
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
PROCEDURE UDOS_BOOT
|
||||
Laden und Starten "boot0.ud" von UDOS-Floppy
|
||||
(ueber 8-Bit-/16-Bit-Koppelschnittstelle)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
!rr4 und rr6 enthalten Parameter nicht benutzen!
|
||||
|
||||
INTERNAL
|
||||
UDOS_BOOT procedure
|
||||
entry
|
||||
cpb PTYPORT, #%02 !8-Bit-Teil aktiv und UDOS verfuegbar?!
|
||||
jp nz, ERROR !nein --> Kommando nicht ausfuehrbar!
|
||||
|
||||
clr COUNT_UDOS
|
||||
clr INPTR_UDOS
|
||||
clr OUTPTR_UDOS
|
||||
|
||||
!Startmeldung an 8-Bit-Teil senden (Datenbyte: "S")!
|
||||
ldb rl0, #'S' !Datenbyte: 8-Bit-Teil soll Datei senden!
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
sc #SC_TYRD_UDOS_INT !acknowledge!
|
||||
!Ausgabe Filetyp an 8-Bit-Teil!
|
||||
ldb rl0, #BOOT0_FILETYP
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
sc #SC_TYRD_UDOS_INT !acknowledge!
|
||||
!Ausgabe Dateinamen an 8-Bit-Teil!
|
||||
ldb rh1, #10 !retries!
|
||||
flpo0:
|
||||
ldb rl1, #0 !Checksumme init!
|
||||
ld r8, #BOOT0_UDOS_FILENAME
|
||||
ldb rl0, #STX !Start of Text!
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
flpo1:
|
||||
ldb rl0 ,@r8 !Zeichen von filename!
|
||||
inc r8, #1
|
||||
cpb rl0, #0 !ende filename ?!
|
||||
jr z, flpo2 !ja!
|
||||
xorb rl1, rl0 !Checksumme berechnen!
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
jr flpo1
|
||||
flpo2:
|
||||
ldb rl0, #ETX !end of text!
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
exb rl0, rl1
|
||||
sc #SC_TYWR_UDOS_INT !Checksumme ausgeben!
|
||||
sc #SC_TYRD_UDOS_INT !Warten auf Quittung!
|
||||
resb rl3, #7
|
||||
cpb rl3, #ACK
|
||||
jr z, flpread !filename richtig uebertragen
|
||||
file vorhanden!
|
||||
cpb rl3, #CAN !Abbrechen ?!
|
||||
jr z, flperror
|
||||
dbjnz rh1, flpo0 !naechster Versuch!
|
||||
!Uebertragungsfehler!
|
||||
flperror:
|
||||
ld r2, #TXT_ABO
|
||||
sc #SC_WR_MSG !Textausgabe!
|
||||
ldb rl0, #CAN !Abbruch senden!
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
sc #SC_TYRD_UDOS_INT
|
||||
ret
|
||||
|
||||
!Einlesen aller Bloecke mit den Daten der Datei!
|
||||
flpread:
|
||||
ld r9, #BOOT0_START !Speicheranfangsadresse fuer "boot0"!
|
||||
flpread1: !Schleife: Lesen eines Blockes!
|
||||
ldb rh1, #10 !retries!
|
||||
flpr0: !Schleife: Wdhl. des Lesens eines Blockes!
|
||||
ldb rl1, #0 !Checksumme init!
|
||||
ld r8, r9 !Buffer Pointer retten!
|
||||
sc #SC_TYRD_UDOS_INT
|
||||
resb rl3, #7
|
||||
cpb rl3, #EOT !Ende der Uebertragung?!
|
||||
jr nz, flpr01 !nein!
|
||||
sc #SC_TYRD_UDOS_INT !noch 1 Zeichen im Puffer!
|
||||
jp BOOT0_START !file geladen Sprung zum boot0!
|
||||
flpr01:
|
||||
cpb rl3, #CAN
|
||||
jr z, flperror !Abbruch von 8-Bit-Teil!
|
||||
cpb rl3, #STX !Start of text muss 1.Zeichen sein!
|
||||
jr nz, flpr2 !warten auf ETX und Uebertragung wiederholen!
|
||||
sc #SC_TYRD_UDOS_INT
|
||||
ldb rh2, rl3
|
||||
sc #SC_TYRD_UDOS_INT
|
||||
ldb rl2, rl3 !r2 := Laenge des Blockes!
|
||||
flpr1: !Scheife: Eingabe aller Daten eines Blockes!
|
||||
sc #SC_TYRD_UDOS_INT !Daten lesen!
|
||||
ldb @r9, rl3 !in Buffer!
|
||||
inc r9, #1
|
||||
xorb rl1, rl3 !Checksumme berechnen!
|
||||
djnz r2, flpr1
|
||||
flpr2: !Schleife: Warten auf ETX!
|
||||
sc #SC_TYRD_UDOS_INT
|
||||
resb rl3, #7
|
||||
cpb rl3, #ETX
|
||||
jr nz, flpr2
|
||||
|
||||
sc #SC_TYRD_UDOS_INT !Checksumme!
|
||||
cpb rl3, rl1 !uebertragene = berechnete ?!
|
||||
jr nz, flpr3 !Fehler!
|
||||
|
||||
ldb rl0, #ACK !richtig uebertragen Qittung ok geben!
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
jr flpread1 !und naechsten Block einlesen!
|
||||
flpr3:
|
||||
decb rh1, #1
|
||||
jr z, flperror !Abbruch!
|
||||
|
||||
ld r9, r8 !Buffer Pointer auf Anfang zurueck!
|
||||
ldb rl0, #NAK !n mal wiederholen!
|
||||
sc #SC_TYWR_UDOS_INT
|
||||
jr flpr0 !Wiederholung der Blockuebertragung!
|
||||
end UDOS_BOOT
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
PROCEDURE RM_BOOT
|
||||
Laden und Starten "boot0.rm" ueber "remote" des lokalen Systems
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
!rr4 und rr6 enthalten Parameter nicht benutzen!
|
||||
|
||||
INTERNAL
|
||||
RM_BOOT procedure
|
||||
entry
|
||||
setb FLAG0, #0 !Abschalten xon xoff!
|
||||
|
||||
!Startmeldung (SOH, ESC, 'S') an local senden!
|
||||
ldk r0, #SOH !Kommando Send file an local!
|
||||
sc #SC_TYWR
|
||||
ldb rl0, #ESC
|
||||
sc #SC_TYWR
|
||||
ldb rl0, #'S'
|
||||
sc #SC_TYWR
|
||||
sc #SC_TYRD !acknowledge von local!
|
||||
!Ausgabe Filetyp an local!
|
||||
ldb rl0, #BOOT0_FILETYP
|
||||
sc #SC_TYWR
|
||||
sc #SC_TYRD !acknowledge von local!
|
||||
!Ausgabe Dateinamen an local!
|
||||
ldb rh1, #10 !retries!
|
||||
rmo0:
|
||||
ldb rl1, #0 !Checksumme init!
|
||||
ld r8, #BOOT0_RM_FILENAME
|
||||
ldb rl0, #STX !Start of Text!
|
||||
sc #SC_TYWR
|
||||
rmo1:
|
||||
ldb rl0, @r8 !Zeichen von filename!
|
||||
inc r8, #1
|
||||
cpb rl0, #0 !ende filename ?!
|
||||
jr z, rmo2 !ja!
|
||||
xorb rl1, rl0 !Checksumme berechnen!
|
||||
sc #SC_TYWR
|
||||
jr rmo1
|
||||
rmo2:
|
||||
ldb rl0, #ETX !end of text!
|
||||
sc #SC_TYWR
|
||||
exb rl0, rl1
|
||||
sc #SC_TYWR !Checksumme ausgeben!
|
||||
sc #SC_TYRD !Warten auf Quittung!
|
||||
resb rl3, #7
|
||||
cpb rl3, #ACK
|
||||
jr z, rmread !filename richtig uebertragen
|
||||
file vorhanden!
|
||||
cpb rl3, #CAN !Abbrechen ?!
|
||||
jr z, rmerror
|
||||
dbjnz rh1, rmo0 !naechster Versuch!
|
||||
!Uebertragungsfehler!
|
||||
rmerror:
|
||||
ld r2, #TXT_ABO
|
||||
sc #SC_WR_MSG !Textausgabe!
|
||||
ldb rl0, #CAN !Abbruch senden!
|
||||
sc #SC_TYWR
|
||||
sc #SC_TYRD
|
||||
resb FLAG0, #0
|
||||
ret
|
||||
|
||||
!Einlesen aller Bloecke mit den Daten der Datei!
|
||||
rmread:
|
||||
ld r9, #BOOT0_START !Speicheranfangsadresse fuer "boot0"!
|
||||
rmread1: !Schleife: Lesen eines Blockes!
|
||||
ldb rh1, #10 !retries!
|
||||
rmr0: !Schleife: Wdhl. des Lesens eines Blockes!
|
||||
ldb rl1, #0 !Checksumme init!
|
||||
ld r8, r9 !Buffer Pointer retten!
|
||||
sc #SC_TYRD
|
||||
resb rl3, #7
|
||||
cpb rl3, #EOT !Ende der Uebertragung?!
|
||||
jr nz, rmr01 !nein!
|
||||
sc #SC_TYRD !noch 1 Zeichen im Puffer!
|
||||
resb FLAG0, #0
|
||||
jp BOOT0_START !file geladen Sprung zum boot0!
|
||||
rmr01:
|
||||
cpb rl3, #CAN
|
||||
jr z,rmerror !local gibt Abbruch!
|
||||
cpb rl3, #STX !Start of text muss 1.Zeichen sein!
|
||||
jr nz, rmr2 !warten auf ETX und Uebertragung wiederholen!
|
||||
sc #SC_TYRD
|
||||
ldb rh2, rl3
|
||||
sc #SC_TYRD
|
||||
ldb rl2, rl3 !r2 := Laenge des Blockes!
|
||||
rmr1: !Schleife: Eingabe aller Daten eines Blockes!
|
||||
sc #SC_TYRD !Daten lesen!
|
||||
ldb @r9, rl3 !in Buffer!
|
||||
inc r9, #1
|
||||
xorb rl1, rl3 !Checksumme berechnen!
|
||||
djnz r2, rmr1
|
||||
rmr2:
|
||||
sc #SC_TYRD !warten auf ETX!
|
||||
resb rl3, #7
|
||||
cpb rl3, #ETX
|
||||
jr nz, rmr2
|
||||
|
||||
sc #SC_TYRD !Checksumme!
|
||||
cpb rl3, rl1 !uebertragene = berechnete ?!
|
||||
jr nz, rmr3 !Fehler!
|
||||
|
||||
ldb rl0, #ACK !richtig uebertragen Qittung ok geben!
|
||||
sc #SC_TYWR
|
||||
jr rmread1 !und naechsten Block einlesen!
|
||||
rmr3:
|
||||
decb rh1, #1
|
||||
jr z, rmerror !Abbruch!
|
||||
|
||||
ld r9, r8 !Buffer Pointer auf Anfang zurueck!
|
||||
ldb rl0, #NAK !n mal wiederholen!
|
||||
sc #SC_TYWR
|
||||
jr rmr0
|
||||
end RM_BOOT
|
||||
end p_boot
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,184 @@
|
|||
!******************************************************************************
|
||||
*******************************************************************************
|
||||
|
||||
W E G A - Quelle (C) ZFT/KEAW Abt. Basissoftware - 1986
|
||||
|
||||
PROM Modul: DISK.S fuer P8000-WDC
|
||||
|
||||
Bearbeiter: P. Hoge
|
||||
Datum: $D$
|
||||
Version: $R$
|
||||
|
||||
*******************************************************************************
|
||||
******************************************************************************!
|
||||
|
||||
disk module
|
||||
|
||||
|
||||
$SECTION PROM
|
||||
$nonsegmented
|
||||
|
||||
constant
|
||||
|
||||
!Port Adressen!
|
||||
|
||||
PIOAD := %FFA1 !Daten lesen / schreiben!
|
||||
PIOBD := %FFA3 !Steuerport !
|
||||
PIOAC := %FFA5
|
||||
PIOBC := %FFA7
|
||||
|
||||
!PIO Programmierung!
|
||||
|
||||
OUTPUT := %0F
|
||||
INPUT := %4F
|
||||
BITMODE := %CF
|
||||
INTVEC := %18
|
||||
|
||||
!Anschlussbelegung des Controlers am U880 PIO
|
||||
|
||||
PORT A: 8 bit bidirektionale Daten (D0 bis D7)
|
||||
PORT B:
|
||||
bit 0: /ST0 (Interrupt Request), Eingang
|
||||
bit 1: /ST1 (Anforderung der Daten), Eingang
|
||||
bit 2: /ST2 (Error), Eingang
|
||||
bit 3: frei, Ausgang
|
||||
bit 4: frei, Ausgang
|
||||
bit 5: RESET (WDC-Reset), Ausgang
|
||||
bit 6: TE und Richtung Datentreiber 0=write 1=read Ausgang
|
||||
bit 7: TR (Transfer Request), Eingang
|
||||
!
|
||||
!WDC Steuerport!
|
||||
|
||||
RDATA := %4000 !Daten lesen!
|
||||
WDATA := %00 !Daten schreiben!
|
||||
RESET := %80 !Reset an Controler ausgeben!
|
||||
|
||||
!WDC-Kommandos!
|
||||
|
||||
COMMAND := %20 !Read/Write ab Blocknummer!
|
||||
READ := %21 !Read ab Blocknummer!
|
||||
WRITE := %22 !Write ab Blocknummer!
|
||||
|
||||
|
||||
global
|
||||
|
||||
!------------------------------------------------------------------!
|
||||
! Eingabeparameter: r7 .... Request-Code (1=Read, 2=Write) !
|
||||
! r6 .... Drive-Nr. !
|
||||
! rr4 .... Blocknummer !
|
||||
! rr8 .... Pufferadresse !
|
||||
! r10 .... Laenge (<=%200) !
|
||||
! Der Return-Code wird in r2 zurueckgegeben !
|
||||
!------------------------------------------------------------------!
|
||||
|
||||
DISK procedure
|
||||
entry
|
||||
callr _disk_in !Hardware init!
|
||||
|
||||
ldl rr2, rr4
|
||||
ld r4, #PIOAD
|
||||
ld r5, #PIOBD
|
||||
ld r0, #WDATA+OUTPUT
|
||||
outb @r5, rh0 !Datentreiber auf Ausgabe!
|
||||
outb PIOAC, rl0 !Daten-PIO auf Ausgabe!
|
||||
|
||||
wready: inb rl0, @r5
|
||||
bitb rl0, #0
|
||||
jr nz, wready !Warten bis WDC bereit!
|
||||
|
||||
!WDC-Kommando ausgeben!
|
||||
|
||||
orb rl7, #COMMAND
|
||||
outb @r4, rl7 !Kommando ausgeben!
|
||||
outb @r4, rl6 !Laufwerknummer!
|
||||
outb @r4, rl3 !Blocknummer low!
|
||||
outb @r4, rh3
|
||||
outb @r4, rl2
|
||||
outb @r4, rh2 !Blocknummer high!
|
||||
ld r3, r10 !Laenge!
|
||||
outb @r4, rl3
|
||||
outb @r4, rh3
|
||||
outb @r4, rh6 !Pruefsumme, nicht benutzt!
|
||||
|
||||
wwait0: inb rl0, @r5 !Warten bis WDC Status 0!
|
||||
bitb rl0, #0
|
||||
jr z,wwait0
|
||||
|
||||
ld r6, #%C000 !FCW!
|
||||
cpb rl7, #WRITE
|
||||
jr nz, rwwait
|
||||
|
||||
wwait1: inb rl0, @r5 !Write!
|
||||
bitb rl0, #1 !Warten, bis WDC bereit fuer Daten!
|
||||
jr nz, wwait1
|
||||
ldctl r1, FCW
|
||||
ldctl FCW, r6
|
||||
!$segmented!
|
||||
otirb @r4, @r8, r3 !otirb @r4, @rr8, r3!
|
||||
ldctl FCW, r1
|
||||
!nonsegmented!
|
||||
|
||||
wwait2: inb rl0, @r5 !Warten bis WDC Status 0!
|
||||
bitb rl0, #1
|
||||
jr z,wwait2
|
||||
|
||||
rwwait: inb rl1, @r5 !Status einlesen!
|
||||
bitb rl1, #0
|
||||
jr nz, rwwait !auf Beendigung des Kommandos warten!
|
||||
inb rl1, @r5
|
||||
andb rl1, #%07 !Maske!
|
||||
ldk r2, #0 !Returncode kein Fehler!
|
||||
cpb rl1, #%06 !Status 1 = fertig, kein Fehler!
|
||||
ret z
|
||||
|
||||
ld r0, #RDATA+INPUT
|
||||
outb PIOAC, rl0 !Daten-PIO auf Eingabe!
|
||||
outb @r5, rh0 !Treiber auf Eingabe!
|
||||
inb rl0, @r4 !Scheineingabe!
|
||||
cpb rl1, #%04 !Status 3 Daten einlesen ?!
|
||||
jr nz, error !nein, Fehler!
|
||||
|
||||
ldctl r1, FCW
|
||||
ldctl FCW, r6
|
||||
!$segmented!
|
||||
inirb @r8, @r4, r3 !inirb rr8, @r4, r3!
|
||||
ldctl FCW, r1
|
||||
!$nonsegmented!
|
||||
ret
|
||||
|
||||
error: inb rl2, @r4 !Fehlercode einlesen!
|
||||
ret
|
||||
end DISK
|
||||
|
||||
|
||||
!Initialisierung der Ports und des Controlers!
|
||||
|
||||
internal
|
||||
|
||||
init array [* byte] := [
|
||||
PIOBC, INTVEC !Int Vektor holt PIO Port aus Reset!
|
||||
PIOBD, WDATA !Reset wegnehmen, Richtung auf Write!
|
||||
PIOBC, BITMODE !Port B auf Bitmode programmieren!
|
||||
PIOBC, %87 !bit 7,2,1,0 auf Eingabe!
|
||||
]
|
||||
|
||||
_disk_in procedure
|
||||
entry
|
||||
ld r2, #PIOBD
|
||||
inb rl1, @r2 !PIOBD schon initialisiert ?!
|
||||
bitb rl1, #5
|
||||
ret z !ja!
|
||||
|
||||
lda r1, init
|
||||
ldk r0, #(sizeof init)/2 !Anzahl der Ausgaben!
|
||||
iloop: ldb rl2, @r1 !low Portadresse!
|
||||
inc r1, #1
|
||||
outib @r2, @r1, r0
|
||||
jr nov, iloop
|
||||
ret
|
||||
end _disk_in
|
||||
|
||||
internal
|
||||
array [%13c byte] !auffuellung auf %1f0 byte!
|
||||
|
||||
end disk
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,372 @@
|
|||
/************************************************************************
|
||||
* *
|
||||
* Stand alone Hardware-Eigentest *
|
||||
* *
|
||||
* Programm: sa.diags *
|
||||
* C-Modul: menu.c *
|
||||
* Bearbeiter: J.Kubisch, M.Klatte *
|
||||
* Version: 3.1 *
|
||||
* Datum: 19.07.1989 *
|
||||
* (c) ZFT-KEAW 1989 *
|
||||
************************************************************************/
|
||||
|
||||
|
||||
|
||||
#define TESTANZ 9 /* Anzahl der Testkommandos */
|
||||
|
||||
char eink[5]; /* Kommandoeingabe*/
|
||||
char eint[2]; /* Testeingabe*/
|
||||
char komm; /* Letztes Kommando der Kommando-Ebene*/
|
||||
int einzelt; /* aktueller Einzeltest*/
|
||||
int rep; /* Wiederholungszaehler fuer akt. Test*/
|
||||
int noend; /* Merker fuer Endlostest*/
|
||||
int testl; /* Ungleich Null, wenn Liste abgearbeitet wird.*/
|
||||
int aktze; /* aktuelle Zeile fuer vollstaendige Listenabarbeitung*/
|
||||
int i,j;
|
||||
|
||||
struct testz
|
||||
{ char name [11];
|
||||
int wdhlg;
|
||||
} tz[TESTANZ] = {{"EPROM ",1},
|
||||
{"STAT. RAM ",1},
|
||||
{"PIO ",1},
|
||||
{"CTC ",1},
|
||||
{"SIO ",1},
|
||||
{"DYN. RAM ",1},
|
||||
{"MMU ",1},
|
||||
{"WDC ",1},
|
||||
{"WDOS-MODUL",1}};
|
||||
|
||||
struct testz *pt; /*Strukturpointer*/
|
||||
|
||||
|
||||
main()
|
||||
{
|
||||
einzelt = 0; /*1.Test (EPROM) voreingestellt*/
|
||||
aktze = 0; /*1 = aktuelle Zeile,voreingestellt*/
|
||||
rep = 1;
|
||||
noend = 0;
|
||||
testl = 0;
|
||||
komm = ' '; /*Kommandotaste*/
|
||||
|
||||
/* Schirm loeschen */
|
||||
|
||||
for (i=0;i<26;i++) printf(" \n");
|
||||
|
||||
printf("* * * * * * * * * * * * * * * * * * * * * * * * * *\n");
|
||||
printf("* *\n");
|
||||
printf("* P 8 0 0 0 - compact *\n");
|
||||
printf("* *\n");
|
||||
printf("* Hardware-Eigentest V. 3.1 *\n");
|
||||
printf("* *\n");
|
||||
printf("* (c)1989 keaw/zft/basissoftware *\n");
|
||||
printf("* * * * * * * * * * * * * * * * * * * * * * * * * *\n");
|
||||
|
||||
INI_ERR_LST (); /*UP zur Initialisierung der Fehlerliste*/
|
||||
|
||||
do ; while (tke());
|
||||
printf("\nEnde Eigentest - Resettaste betaetigen!\n");
|
||||
do ; while (1);
|
||||
}
|
||||
tke() /*Testkommando-Eingabe*/
|
||||
{
|
||||
printf("\n\n\n\t*** TESTKOMMANDO-EBENE ***");
|
||||
printf("\n\nt Auswaehlen und Abarbeiten von Einzeltests");
|
||||
printf("\nr Wiederholen des aktuellen Einzeltests");
|
||||
printf("\nl Abarbeiten der vollstaendigen Testliste");
|
||||
printf("\nd Anzeige der Fehlerliste");
|
||||
printf("\nq Quitt");
|
||||
printf("\n\n\tGeben Sie Ihre Auswahl ein ]=> ");
|
||||
|
||||
gets(eink,sizeof eink); /*Kommando-Eingabe)*/
|
||||
komm = eink[0];
|
||||
switch(eink[0]) {
|
||||
case 't':
|
||||
do ; while (aae()); /*Auswaehlen und /Abarbeiten von
|
||||
Einzeltests*/
|
||||
return(1);
|
||||
case 'r':
|
||||
do ; while (vtz()); /*Veraendere Testzeile*/
|
||||
return(1);
|
||||
case 'l':
|
||||
testl=1;
|
||||
do ; while (avt()); /*Abarbeiten der vollst. Testliste*/
|
||||
return(1);
|
||||
case 'd':
|
||||
printf("\n\n\t*** Ausgabe der Fehlerliste ***\n\n");
|
||||
MEM_MSG_OUT (); /*UP zur Fehlerlistenausgabe*/
|
||||
return(1);
|
||||
case 'q':
|
||||
return(0); /* Ende des Tests*/
|
||||
default:
|
||||
return(1);
|
||||
}
|
||||
}
|
||||
|
||||
aae() /*Auswaehlen und Abarbeiten von Einzeltests*/
|
||||
{
|
||||
printf("\n\n *** WAEHLE TESTZEILE ***");
|
||||
printf("\n\n1 Test EPROM");
|
||||
printf("\n2 Test STATISCHER RAM");
|
||||
printf("\n3 Test PIO");
|
||||
printf("\n4 Test CTC");
|
||||
printf("\n5 Test SIO");
|
||||
printf("\n6 Test DYNAMISCHER RAM");
|
||||
printf("\n7 Test MMU");
|
||||
printf("\n8 Test WDC");
|
||||
printf("\n9 Test WDOS-ERWEITERUNGS-MODUL (WDOS-DRAM, U80601, U80610)");
|
||||
printf("\n\n# Auswahl des Tests mit der Nr. #");
|
||||
printf("\n^ Rueckkehr zur \"Testkommando-Ebene\"");
|
||||
printf("\n\n Geben Sie Ihre Auswahl ein ]=> ");
|
||||
|
||||
gets(eint,sizeof eint);
|
||||
|
||||
switch (eint[0]){
|
||||
case '1':
|
||||
case '2':
|
||||
case '3':
|
||||
case '4':
|
||||
case '5':
|
||||
case '6':
|
||||
case '7':
|
||||
case '8':
|
||||
case '9':
|
||||
einzelt=eint[0]-0x31; /*Testzeilennr.-1,Ascii zu int konv.*/
|
||||
aktze = einzelt; /*Aktuelle Zeile*/
|
||||
|
||||
do ; while (vtz()); /*Veraendere Testzeile*/
|
||||
return(1); /*aae bleibt, bis ^ gegeben wird*/
|
||||
case '^':
|
||||
return(0); /*Ende aae*/
|
||||
default:
|
||||
return(1); /*aae soll wiederholt werden*/
|
||||
}
|
||||
}
|
||||
vtz() /*Veraendere Testzeile*/
|
||||
{
|
||||
printf("\n\n *** Veraendere Testzeile (optional) ***");
|
||||
printf("\n\nDie Testzeile hat folgenden aktuellen Stand:");
|
||||
printf("\n\nName Anzahl der Wiederholungen");
|
||||
|
||||
pt = tz + aktze; /*Strukturzeiger setzen*/
|
||||
|
||||
printf("\n%s %d",pt->name,pt->wdhlg);
|
||||
printf("\n\n w Wiederholungszaehler veraendern");
|
||||
printf ("\n p Testparameter veraendern");
|
||||
printf("\n<CR> Testzeile ist korrekt, Test abarbeiten!");
|
||||
if (komm == 'r') /*Wdhlg. des aktuellen Einzeltests*/
|
||||
printf("\n ^ Rueckkehr zur \"Testkommando-Ebene\"");
|
||||
else
|
||||
printf("\n ^ Rueckkehr zu \"Waehle Testzeile\"");
|
||||
printf("\n\n Geben Sie Ihre Auswahl ein ]=>");
|
||||
gets (eink,sizeof eink); /*Eingabe fuer "veraendere Testzeile"*/
|
||||
|
||||
switch (eink[0]){
|
||||
|
||||
case 'w':
|
||||
vw(); /*Progr. \"Wiederholungszaehler setzen\""*/
|
||||
return (1);
|
||||
|
||||
case 'p':
|
||||
vp(); /*Progr. \"Testparameter veraendern\""*/
|
||||
return(1);
|
||||
|
||||
case '^':
|
||||
return(0); /*Rueckkehr zu "Waehle Testzeile"*/
|
||||
|
||||
case '\0': /*CR, Testzeile o.k., Test abarbeiten*/
|
||||
|
||||
tl(); /*Testabarbeitung*/
|
||||
|
||||
return(1);
|
||||
default:
|
||||
return(1);
|
||||
}
|
||||
}
|
||||
vw() /*Setze Wiederholungszaehler*/
|
||||
{
|
||||
printf("\n\n *** Veraendere Wiederholungszaehler ***");
|
||||
printf("\nAktueller Wiederholungszaehler = %d",pt->wdhlg);
|
||||
printf("\n\n 0 Test laeuft, bis Reset-Taste betaetigt wird");
|
||||
printf("\n # Test laeuft # mal (# positiv <= 9999)");
|
||||
printf("\n ^ Rueckkehr zu \"Veraendere Testzeile\"");
|
||||
printf("\n<CR> Wiederholungszaehler bleibt unveraendert");
|
||||
printf("\n\n Geben Sie Ihre Auswahl ein ]=>");
|
||||
|
||||
gets(eink,sizeof eink);
|
||||
switch (eink[0]){
|
||||
case '\0': /*CR:Wiederholungszaehler bleibt unveraendert*/
|
||||
case '^':
|
||||
return(0); /*Rueckkehr zu "Veraendere Testzeile"*/
|
||||
}
|
||||
|
||||
rep=katoi(eink); /*Konvertierung Wiederholungszaehler*/
|
||||
if (rep>=0 && rep<=9999)
|
||||
pt->wdhlg=rep;
|
||||
return(0);
|
||||
}
|
||||
|
||||
katoi(s) /*Zeichenkette s in int umwandeln*/
|
||||
char s[];
|
||||
{
|
||||
int i,n;
|
||||
for (i=0;s[i]==' '||s[i]=='\n'||s[i]=='\t'||s[i]=='+'||s[i]=='-';i++)
|
||||
; /*Zwischenraeume ueberlesen*/
|
||||
|
||||
for(n=0;s[i]>='0'&&s[i]<='9';i++)
|
||||
n=10*n+s[i]-'0';
|
||||
return(n);
|
||||
}
|
||||
|
||||
vp() /*Veraendere Testparameter*/
|
||||
{
|
||||
printf("\n\n *** Veraendere Testparameter ***");
|
||||
printf("\nFuer diesen Test gibt es keine Parameter ");
|
||||
printf("\n ^ Rueckkehr zu \"Veraendere Testzeile\"");
|
||||
printf("\n\n Geben Sie Ihre Auswahl ein ]=>");
|
||||
do
|
||||
gets(eink,sizeof eink);
|
||||
while (eink[0]!='\0' && eink[0]!='^');
|
||||
return(0);
|
||||
}
|
||||
|
||||
tl() /*Testlistenabarbeitung*/
|
||||
{
|
||||
printf("\n\nDer folgende Test wird jetzt abgearbeitet:");
|
||||
printf("\n\nName Anzahl der Wiederholungen");
|
||||
|
||||
if (komm == 'l') /*vollstaendige Liste abarbeiten*/
|
||||
j=TESTANZ-1;
|
||||
else
|
||||
j=aktze;
|
||||
|
||||
for (i = aktze; i <= j; i++)
|
||||
{ pt = tz+i;
|
||||
printf("\n\n%s - T E S T %d\n",pt->name,pt->wdhlg);
|
||||
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
|
||||
rep = pt->wdhlg; /*Wiederholungszaehler fuer aktuellen Test*/
|
||||
|
||||
if (rep == 0)
|
||||
noend = 1;
|
||||
else
|
||||
noend = 0;
|
||||
|
||||
/* Aufruf der Assembler-UPs fuer die entspr. Tests */
|
||||
/* Geben Fehlermeldungen aus, die im Abarbeitungstempo weiterrollen */
|
||||
|
||||
while (rep > 0 || noend == 1)
|
||||
{ switch (i)
|
||||
{ case 0:
|
||||
printf("EPROM_ \n"); /*Aufruf des Assembl.-UPs*/
|
||||
EPROM_ ();
|
||||
break;
|
||||
|
||||
case 1:
|
||||
printf ("STAT_RAM_ \n");
|
||||
STAT_RAM_ ();
|
||||
break;
|
||||
|
||||
case 2:
|
||||
printf ("PIO_ \n");
|
||||
PIO_ ();
|
||||
break;
|
||||
|
||||
case 3:
|
||||
printf ("CTC_ \n");
|
||||
CTC_ ();
|
||||
break;
|
||||
|
||||
case 4:
|
||||
printf ("SIO_ \n");
|
||||
SIO_ ();
|
||||
break;
|
||||
|
||||
case 5:
|
||||
printf ("DYN_RAM_ \n");
|
||||
DYN_RAM_ (); /*Assemblerprogr.*/
|
||||
if (rep == 1)
|
||||
{printf ("\n\0");
|
||||
MSG_MAXSEG ();
|
||||
}
|
||||
break;
|
||||
|
||||
case 6:
|
||||
printf ("MMU_ \n");
|
||||
MMU_ ();
|
||||
break;
|
||||
|
||||
case 7:
|
||||
printf ("WDC_ \n");
|
||||
WDC_ ();
|
||||
break;
|
||||
|
||||
case 8:
|
||||
printf ("WDOS_EXT_MODUL_ \n");
|
||||
WEM_ ();
|
||||
break;
|
||||
|
||||
default:
|
||||
printf ("\nFehlerhafter Wiederholungszaehler");
|
||||
}
|
||||
rep --;
|
||||
}
|
||||
}
|
||||
if (komm == '1') /* Testlistenabarbeitung */
|
||||
printf ("\n\nRueckkehr zur \"Testkommando-Ebene\" durch CR-Eingabe :");
|
||||
else
|
||||
printf ("\n\nRueckkehr zu \"Veraendere Testzeile\" durch CR-Eingabe :");
|
||||
|
||||
do
|
||||
gets (eink,sizeof eink);
|
||||
while (eink[0] != '\0' && eink[0] !='^');
|
||||
return (0);
|
||||
}
|
||||
|
||||
|
||||
avt() /*Abarbeiten der volsstaendigen Testliste*/
|
||||
{
|
||||
printf("\n\n *** Testliste abarbeiten ***\n\n");
|
||||
for (i=0; i<=TESTANZ-1; i++)
|
||||
{if (i == aktze)
|
||||
printf("*");
|
||||
else printf(" ");
|
||||
pt = tz+i;
|
||||
j = i+1;
|
||||
printf(" %d %s\n",j,pt->name);
|
||||
}
|
||||
printf("\n<CR> Testlistenabarbeitung beginnt bei aktueller Zeile (*)");
|
||||
printf("\n s Testlistenabarbeitung beginnt bei Zeile 1");
|
||||
printf("\n # # wird zur aktuellen Zeile");
|
||||
printf("\n ^ Rueckkehr zur \"Testkommando-Ebene\"");
|
||||
|
||||
printf("\n\n Geben Sie Ihre Auswahl ein ]=> ");
|
||||
|
||||
gets(eink, sizeof eink);
|
||||
|
||||
switch (eink[0]){
|
||||
|
||||
case'\0': /*CR-Testabarbeitung beginnt bei akt. Zeile*/
|
||||
tl();
|
||||
return(0);
|
||||
case's':
|
||||
aktze=0;
|
||||
tl();
|
||||
return(0);
|
||||
case'1':
|
||||
case'2':
|
||||
case'3':
|
||||
case'4':
|
||||
case'5':
|
||||
case'6':
|
||||
case'7':
|
||||
case'8':
|
||||
case'9':
|
||||
aktze = katoi(eink) - 1;
|
||||
return(1);
|
||||
case'^':
|
||||
return(0);
|
||||
default:
|
||||
return(1); /*Wiederholung avt*/
|
||||
}
|
||||
} /*Ende avt*/
|
||||
|
||||
|
|
@ -0,0 +1,270 @@
|
|||
/******************************************************************************
|
||||
*******************************************************************************
|
||||
|
||||
W E G A - Quelle (C) ZFT/KEAW Abt. Basissoftware - 1985
|
||||
|
||||
Standalone Modul misc.c
|
||||
|
||||
Bearbeiter: P. Hoge
|
||||
Datum: 04/01/87 11:15:15
|
||||
Version: 1.1
|
||||
|
||||
*******************************************************************************
|
||||
|
||||
Dieses Programm kann fuer alle Standalone Programme benutzt werden,
|
||||
die unter dem Wega boot laufen.
|
||||
Funktionen:
|
||||
atol ASCII zu long integer
|
||||
atoi ASCII zu integer
|
||||
printfv
|
||||
gets
|
||||
*******************************************************************************
|
||||
******************************************************************************/
|
||||
|
||||
|
||||
|
||||
/*------------------------------------------ Funktionen ---------------------*/
|
||||
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*atol
|
||||
* Konvertierung ASCII in long integer
|
||||
*
|
||||
* es werden Tabs und Space, falls vor Dezimalzahl vorhanden, uebergangen
|
||||
* es wird auf ein optionales Vorzeichen getestet
|
||||
* die Dezimalziffern werden so lange konvertiert bis ein
|
||||
* Zeichen ungleich einer Dezimalzahl gefunden wird
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
long atol(s)
|
||||
register char *s;
|
||||
{
|
||||
register sign;
|
||||
register long n;
|
||||
|
||||
for(sign=0;; s++) {
|
||||
switch(*s) {
|
||||
case '\t':
|
||||
case ' ':
|
||||
continue;
|
||||
|
||||
case '-':
|
||||
sign++;
|
||||
case '+':
|
||||
s++;
|
||||
}
|
||||
break;
|
||||
}
|
||||
|
||||
for (n = 0; *s >= '0' && *s <= '9'; s++)
|
||||
n = 10 * n + *s - '0';
|
||||
if (sign)
|
||||
return(0-n);
|
||||
return(n);
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*atoi
|
||||
* Konvertierung ASCII string in integer
|
||||
|
||||
* es wird atol aufgerufen und long in int konvertiert
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
atoi(s)
|
||||
char *s;
|
||||
{
|
||||
return(atol(s));
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*ltol3
|
||||
* Konvertierung long integer in 3 byte integer
|
||||
*
|
||||
* Konvertiert eine Liste von long integer (lp zeigt darauf)
|
||||
* in eine Liste von 3 byte integer (cp zeigt darauf)
|
||||
* n = Anzahl der Zahlen
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
ltol3(cp, lp, n)
|
||||
register unsigned char *cp;
|
||||
register unsigned char *lp;
|
||||
register n;
|
||||
{
|
||||
for(; n != 0; n--) {
|
||||
lp++;
|
||||
*(cp++) = *(lp++);
|
||||
*(cp++) = *(lp++);
|
||||
*(cp++) = *(lp++);
|
||||
}
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*l3tol
|
||||
* Konvertierung 3 byte integer in long integer
|
||||
*
|
||||
* Konvertiert eine Liste von 3 byte integer (cp zeigt darauf)
|
||||
* in eine Liste von long integer (lp zeigt darauf)
|
||||
* n = Anzahl der Zahlen
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
l3tol(lp, cp, n)
|
||||
register unsigned char *lp;
|
||||
register unsigned char *cp;
|
||||
register n;
|
||||
{
|
||||
for(; n != 0; n--) {
|
||||
*(lp++) = 0;
|
||||
*(lp++) = *(cp++);
|
||||
*(lp++) = *(cp++);
|
||||
*(lp++) = *(cp++);
|
||||
}
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*lswap
|
||||
* Vertauschen low und high von long integer
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
long lswap(l)
|
||||
long l;
|
||||
{
|
||||
return(l<<16 | l>>16);
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*printf
|
||||
* Abgeruestete Version des C Library printf.
|
||||
* Nur %s %u %d (==%u) %o %x %D %X sind realisiert.
|
||||
* Ausgabe erfolgt auf Console.
|
||||
* Sollte nicht fuer "chit-chat" benutzt werden.
|
||||
*
|
||||
* Der eigentliche Entry Point muss in Assembler
|
||||
* geschrieben werden. Das Programm muss wie folgt
|
||||
* aussehen:
|
||||
* _printf procedure
|
||||
* entry
|
||||
* ex r2, @r15
|
||||
* push @r15, r3
|
||||
* push @r15, r4
|
||||
* push @r15, r5
|
||||
* push @r15, r6
|
||||
* ld r6, r15
|
||||
* push @r15, r2
|
||||
* call _printfv
|
||||
* ld r2, @r15
|
||||
* inc r15, #12
|
||||
* jp @r2
|
||||
* end _printf
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
printfv(fmt, x1)
|
||||
register char *fmt;
|
||||
register unsigned *x1;
|
||||
{
|
||||
register c;
|
||||
register unsigned int *adx;
|
||||
register char *s;
|
||||
|
||||
adx = x1;
|
||||
loop:
|
||||
while((c = *fmt++) != '%') {
|
||||
if(c == '\0')
|
||||
return;
|
||||
putchar(c);
|
||||
}
|
||||
c = *fmt++;
|
||||
if(c == 'd' || c == 'u' || c == 'o' || c == 'x')
|
||||
printn((long)*adx, c=='o'? 8: (c=='x'? 16:10));
|
||||
else if(c == 's') {
|
||||
s = (char *)*adx;
|
||||
while(c = *s++)
|
||||
putchar(c);
|
||||
} else if (c == 'D' || c == 'X' ) {
|
||||
for(; adx-x1 < 5; adx++) {
|
||||
if ((adx-x1)%2 == 0)
|
||||
continue;
|
||||
printn(lswap(*(long *)adx), c=='D' ? 10 : 16);
|
||||
goto end;
|
||||
}
|
||||
printn(*(long *)adx, c=='D' ? 10 : 16 );
|
||||
end:
|
||||
adx += (sizeof(long) / sizeof(int)) - 1;
|
||||
}
|
||||
adx++;
|
||||
goto loop;
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*printn
|
||||
* Print ein unsigned integer zur Basis b
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
printn(n, b)
|
||||
register long n;
|
||||
register b;
|
||||
{
|
||||
register long a;
|
||||
|
||||
if (n<0) { /* shouldn't happen */
|
||||
putchar('-');
|
||||
n = -n;
|
||||
}
|
||||
if(a = n/b)
|
||||
printn(a, b);
|
||||
putchar("0123456789ABCDEF"[(int)(n%b)]);
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------------*/
|
||||
/*
|
||||
*gets
|
||||
* Eingabe einer Zeichenkette von der Console
|
||||
*
|
||||
* in einen vorgegebenen Puffer bis CR oder LF
|
||||
* oder bis der Eingabepuffer gefuellt ist
|
||||
* Das letzte Zeichen im Puffer ist 0x00. CR und LF werden
|
||||
* nicht in den Puffer geschrieben
|
||||
*/
|
||||
/*---------------------------------------------------------------------------*/
|
||||
char *gets(buf, buflen)
|
||||
register char *buf;
|
||||
register unsigned buflen;
|
||||
{
|
||||
register char *lp;
|
||||
register c;
|
||||
|
||||
lp = buf;
|
||||
for (;;) {
|
||||
c = getchar() & 0177;
|
||||
switch(c) {
|
||||
case '\n':
|
||||
case '\r':
|
||||
*lp = '\0';
|
||||
return(buf);
|
||||
case '\b':
|
||||
putchar(' ');
|
||||
putchar('\b');
|
||||
lp--;
|
||||
if (lp < buf)
|
||||
lp = buf;
|
||||
continue;
|
||||
case 0x18:
|
||||
case 0x7f:
|
||||
lp = buf;
|
||||
putchar('\n');
|
||||
continue;
|
||||
default:
|
||||
if (lp>=buf+buflen-1) {
|
||||
*lp = '\0';
|
||||
return(buf);
|
||||
}
|
||||
*lp++ = c;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,301 @@
|
|||
!******************************************************************************
|
||||
*******************************************************************************
|
||||
|
||||
W E G A - Quelle (C) ZFT/KEAW Abt. Basissoftware - 1986
|
||||
P8000-PROM (MONITOR) Modul: p_ram
|
||||
|
||||
Bearbeiter: J. Zabel
|
||||
Datum: 15.04.1987
|
||||
Version: 2.0
|
||||
|
||||
*******************************************************************************
|
||||
******************************************************************************!
|
||||
|
||||
|
||||
p_ram module
|
||||
|
||||
$SECTION RAM
|
||||
|
||||
!******************************************************************************
|
||||
Arbeitsspeicher
|
||||
******************************************************************************!
|
||||
|
||||
GLOBAL
|
||||
|
||||
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
RAM_ANF
|
||||
|
||||
ARRAY [%10 WORD]
|
||||
NSP_OFF WORD
|
||||
|
||||
ARRAY [%3F WORD] !Stackbereich!
|
||||
STACK WORD
|
||||
|
||||
ARRAY [4 WORD]
|
||||
|
||||
_numterm WORD !Anzahl der Terminals!
|
||||
PTYPORT BYTE !Terminalkanal:
|
||||
00 - SIO0_B (16-Bit-Teil)
|
||||
01 - SIO0_B (8-Bit-Teil) ueber
|
||||
Koppelschnittstelle (UDOS
|
||||
auf 8-Bit-Teil nicht verfuegbar)
|
||||
02 - SIO0_B (8-Bit-Teil) ueber
|
||||
Koppelschnittstelle (UDOS
|
||||
auf 8-Bit-Teil verfuegbar)!
|
||||
XEMPTY BYTE !fuer interruptgesyeuerten Terminal-
|
||||
betrieb ueber Koppelschnittstelle:
|
||||
00 - Sendepuffer SIO0_B (8-Bit-Teil)
|
||||
leer
|
||||
FF - Sendepuffer SIO0_B (8-Bit-Teil)
|
||||
nicht leer!
|
||||
BYTE
|
||||
KONV BYTE !Hilfsbyte zur Konvertierung!
|
||||
INBFF ARRAY [%80 BYTE] !Eingabepuffer!
|
||||
OUTBFF ARRAY [%80 BYTE] !Ausgabepuffer!
|
||||
PTYBFF ARRAY [%100 BYTE] !Eingabepuffer fuer interrupt-
|
||||
gesteuerte Eingabe vom Terminal-
|
||||
kanal!
|
||||
MCZBFF ARRAY [%0EA BYTE] !Ein-/Ausgabepuffer fuer LOAD/SEND!
|
||||
MAXLEN WORD !maximale Zeilenlaenge!
|
||||
INPTR WORD !Zeiger fuer Eingabepuffer INBFF!
|
||||
OUTPTR WORD !Zeiger fuer Ausgabepuffer OUTBFF
|
||||
(Pufferlaenge)!
|
||||
COUNT_PTY WORD !aktuelle Anzahl der Zeichen in PTYBFF!
|
||||
INPTR_PTY WORD !Eingabezeiger fuer PTYBFF
|
||||
(naechster freier Platz)!
|
||||
OUTPTR_PTY WORD !Ausgabezeiger fuer PTYBFF
|
||||
(naechstes auszulesende Zeichen)!
|
||||
INPTR_MCZ WORD !Eingabezeiger fuer MCZBFF!
|
||||
OUTPTR_MCZ WORD !Ausgabezeiger fuer MCZBFF!
|
||||
B_WORD WORD !Speicherinhalt auf der BREAK-Adresse!
|
||||
B_ADR_S WORD !Segmentnummer der BREAK-Adresse!
|
||||
B_ADR_O WORD !Offset der BREAK-Adresse!
|
||||
RR14_V LONG !VARIABLER STACK, FUER NEXT UND BREAK!
|
||||
W23B4 WORD
|
||||
FCW_V WORD !VARIABLES FCW FUER NEXT UND BREAK!
|
||||
PORT_BF WORD !Puffer fuer gelesenen bzw. zu
|
||||
schreibenden PORT-Datenwert!
|
||||
PORT_IO WORD !Adresse des PORT-I/O-Programms!
|
||||
WORD !unbenutzt!
|
||||
SV_R ARRAY [14 WORD] !Registerrettungsbereich!
|
||||
SVSTK LONG
|
||||
PC_SEG WORD !Programmcounter (Segmentnummer)!
|
||||
PC_OFF WORD !Programmcounter (Offsetadresse)!
|
||||
FCW_ WORD !FCW im Registerrettungsbereich!
|
||||
RF_CTR WORD !Merker: Refresh Control Register!
|
||||
N4_ WORD !Normalstack R14!
|
||||
N5_ WORD !Normalstack R15!
|
||||
PS_ WORD !Program-Status-Area Segment!
|
||||
PO_ WORD !Program-Status-Area Offset!
|
||||
WORD !unbenutzt!
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Flags
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
FLAG0 BYTE
|
||||
|
||||
!
|
||||
7 6 5 4 3 2 1 0
|
||||
0-> 0: empf. Zeichen vom Terminalkanal ist ASCII-Zeichen
|
||||
(Reset Bit 7 des Zeichens, Test auf ^S, ^Q, ESC)
|
||||
1: empf. Zeichen vom Terminalkanal ist beliebiges Datenbyte
|
||||
(keine Sonderbehandlung)
|
||||
P: ENTRY(0), PTY_INT(T), KOPPEL_INT(T), QUIT(1),
|
||||
NMI_INT(T/0), MCZ_INT(T), RM_BOOT(0)
|
||||
1---> 0:
|
||||
1:
|
||||
P: ENTRY(1)
|
||||
2-----> 0: Ausgabe an Terminal nicht gesperrt (^Q)
|
||||
1: Ausgabe an Terminal gesperrt (^S)
|
||||
P: ENTRY(1), TYWR(T), PTY_INT(0,1), KOPPEL_INT(0,1)
|
||||
3-------> 0: und gleichzeitig Bit4/FLAG0=0: ESC wirkt nicht als
|
||||
Abbruchtaste, sondern ist normales ASCII-Zeichen
|
||||
1: ESC wirkt als Abbruchtaste
|
||||
(Bit5/FLAG0 wird bei Eingabe von ESC gesetzt)
|
||||
P: ENTRY(0), PTY_INT(T)
|
||||
4---------> 0: und gleichzeitig Bit3/FLAG0=0: ESC wirkt nicht als
|
||||
Abbruchtaste, sondern ist normales ASCII-Zeichen
|
||||
1: ESC wirkt als Abbruchtaste
|
||||
(Bit5/FLAG0 wird bei Eingabe von ESC gesetzt)
|
||||
P: ENTRY(0), PTY_INT(T), KOPPEL_INT(T), LOAD(1)
|
||||
5-----------> 0: Abbruchtaste nicht gedrueckt
|
||||
1: Abbruchtaste gedrueckt (ESC)
|
||||
P: ENTRY(0), PTY_INT(1), KOPPEL_INT(1), LOAD(T), SAW_MCZ(T)
|
||||
6-------------> 0:
|
||||
1:
|
||||
P: ENTRY(0)
|
||||
7---------------> 0:
|
||||
1:
|
||||
P: ENTRY(0)
|
||||
!
|
||||
|
||||
|
||||
FLAG1 BYTE
|
||||
|
||||
!
|
||||
7 6 5 4 3 2 1 0
|
||||
0-> 0: keine Segmentnummer angegeben (???)
|
||||
1: Segmentnummer angegeben (???)
|
||||
P: ENTRY(0), GET_SGNR(0,1)
|
||||
1---> 0: noch Parameter einlesen
|
||||
1: alle Parameter eingelesen
|
||||
P: ENTRY(0), DISPLAY (0,1,T)
|
||||
2-----> 0: kein NEXT-Betrieb
|
||||
1: NEXT-Betrieb
|
||||
P: ENTRY(0,T/0), NEXT(1)
|
||||
3-------> 0: nur Grossbuchstaben erlaubt
|
||||
(Kleinbuchstaben werden in Grossbuchstaben umgewandelt)
|
||||
1: Klein- und Grossbuchstaben erlaubt
|
||||
P: ENTRY(1), RD_LINE_BFF(T)
|
||||
4---------> 0: Ausgabe bei CR abbrechen
|
||||
1: Ausgabe nicht bei CR abbrechen
|
||||
P: ENTRY(0), WR_OUTBFF(T)
|
||||
5-----------> 0:
|
||||
1:
|
||||
P: ENTRY(0)
|
||||
6-------------> 0:
|
||||
1:
|
||||
P: ENTRY(0)
|
||||
7---------------> 0:
|
||||
1:
|
||||
P: ENTRY(0)
|
||||
!
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Variablen (initialisiert bei Systemstart)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
CHRDEL BYTE !Zeichen loeschen (Backspace %08)!
|
||||
LINDEL BYTE !Zeile loeschen (Line delete %7F)!
|
||||
XONCHR BYTE !Terminalausgabe fortsetzen (^Q %11)!
|
||||
XOFCHR BYTE !Terminalausgabe anhalten (^S %13)!
|
||||
NULLCT WORD !Anzahl der Nullen nach CR bei Terminalausgabe (%0000)!
|
||||
B_CODE WORD !Unterbrechungscode Z8000 (7F00)!
|
||||
STKCTR WORD !Zaehler der Stackoperationen fuer NEXT (%0004)!
|
||||
NXTCTR WORD !SCHRITTZAEHLER FUER NEXT (%0001)!
|
||||
PROMT WORD !Promt-Zeichen (%2000)!
|
||||
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Program Status Area (initialisiert bei Systemstart)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
PSAREA
|
||||
! ID FCW PCSEG PCOFF!
|
||||
ARRAY [4 WORD] !:= [%0000 %0000 %0000 %0000]
|
||||
RESERVED!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 UINSTR_ERR]
|
||||
UNIMLEMENTED INSTRUCTIONS!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 PINSTR_ERR]
|
||||
PRIVILEGED INSTRUCTIONS!
|
||||
ARRAY [4 WORD] !:= [%0000 %C000 %8000 SC_ENTRY]
|
||||
SYSTEM_CALL INSTRUCTIONS!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 MMU_ERR]
|
||||
SEGMENT TRAP!
|
||||
PSA_NMI ARRAY [4 WORD] !:= [%0000 %4000 %8000 AUTOBOOT bzw. NMI_INT]
|
||||
NONMASKABLE INTERRUPT
|
||||
(AUTOBOOT vor erster Terminaleingabe;
|
||||
NMI_INT nach erster Terminaleingabe)!
|
||||
ARRAY [4 WORD] !:= [%0000 %4000 %8000 NVI_ERR]
|
||||
NONVECTORED INTERRUPT!
|
||||
|
||||
! VECTORED INTERRUPT!
|
||||
|
||||
ARRAY [2 WORD] !:= [%0000 %4000]
|
||||
VECTORED INTERRUPT (ID, FCW)!
|
||||
|
||||
! VI - Sprung-Tabelle (128 Eintraege) !
|
||||
! SEG OFFSET!
|
||||
|
||||
!CTC0!
|
||||
VI_CTC0_0 ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
VI_CTC0_1 ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
VI_CTC0_2 ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
VI_CTC0_3 ARRAY [2 WORD] !:= [%8000 VI_ERR bzw. GO_INT bzw. NXT_INT]
|
||||
fuer GO bzw. NEXT!
|
||||
|
||||
!PIO1!
|
||||
VI_PIO1_B ARRAY [2 WORD] !:= [%8000 KOPPEL_INT]
|
||||
VI Zeichen empfangen (von Koppelschnittstelle)!
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
|
||||
!SIO0!
|
||||
VI_SIO0_B ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 PTY_INT]
|
||||
VI Zeichen empfangen (fuer Terminaleingabe)!
|
||||
ARRAY [2 WORD] !:= [%8000 PTY_ERR]
|
||||
VI Empfangssonderfall (fuer Empfangsfehler)!
|
||||
VI_SIO0_A ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 VI_ERR] !
|
||||
ARRAY [2 WORD] !:= [%8000 MCZ_INT]
|
||||
VI Zeichen empfangen (fuer MCZ-Eingabe)!
|
||||
ARRAY [2 WORD] !:= [%8000 MCZ_ERR]
|
||||
VI Empfangssonderfall (fuer Empfangsfehler)!
|
||||
|
||||
! Rest der 128 Eintraege der VI-Sprung-Tabelle!
|
||||
VI_TAB_REST ARRAY [224 WORD] !:= [%8000 VI_ERR] !
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Arbeitsspeicher fuer Kommando "T" (Hardwareeigentest)
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
RG_FELD ARRAY [%1A WORD] !Feld zur Registerrettung!
|
||||
|
||||
REM_MMU_BCSR BYTE !Merker: Inhalt BUS CYCLE STATUS REGISTER!
|
||||
REM_MMU_VTR BYTE !Merker: Inhalt VIOLATION TYPE REGISTER!
|
||||
REM_MMU_ID WORD !Merker: MMU-Identifikation!
|
||||
REM_ERR_CNT WORD !Merker: Stand Fehlerzaehler!
|
||||
REM_SEGMENT_TRAP WORD !Merker: urspruengliche Offsetadresse fuer Segmenttrap!
|
||||
REM_PRIVINSTR_TRAP WORD !Merker: urspruengl. Offsetadr. fuer Priv.-Instr.-Trap!
|
||||
REM_MMU_SINOUT WORD !Merker: MMU-Ein-/Ausgabewerte!
|
||||
ERR_CNT WORD !Fehlerzaehler!
|
||||
MAX_SEGNR WORD !Merker: hoechste vorhandene Segmentnummer!
|
||||
PUDC_PTR WORD !Absoluter Zeiger fuer Zeichenkette T_PUDC!
|
||||
REM_PUDC WORD !Merker: Text T_PUDC vollstaendig ausgegeben
|
||||
(%0000-->nein / %FFFF-->ja)!
|
||||
ERRPAR_ID WORD !Spezifizierung der 4 Parameter der auszugebenden
|
||||
Fehlerzeile (Prozedur MSG_ERROR)!
|
||||
REM_MMU1 WORD
|
||||
REM_MMU2 WORD
|
||||
REM_INT WORD !Merker: Interrupt aufgetreten (0-->nein)!
|
||||
|
||||
ARRAY [%36 WORD] !unbenutzt!
|
||||
|
||||
|
||||
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
Arbeitsspeicher fuer Kommandos "GE"/"S"/"O U" und Floppytreiber
|
||||
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
|
||||
|
||||
FILENAME_PTR WORD !Anfangsadresse Dateiname!
|
||||
|
||||
COUNT_UDOS WORD !akt. Anzahl der Zeichen in UDOSBFF!
|
||||
INPTR_UDOS WORD !Eingabezeiger fuer UDOSBFF
|
||||
(naechster freier Platz)!
|
||||
OUTPTR_UDOS WORD !Ausgabezeiger fuer UDOSBFF
|
||||
naechstes auszulesende Zeichen)!
|
||||
UDOSBFF ARRAY [%100 BYTE] !Eingabepuffer fuer interrupt-
|
||||
gesteuerte Eingabe bei Dateitransfer
|
||||
von/zu UDOS bzw. Blocktransfer!
|
||||
end p_ram
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,281 @@
|
|||
!*******************************************************************
|
||||
********************************************************************
|
||||
|
||||
P8000-Firmware (c) ZFT/KEAW Abt. Basissoftware - 1988
|
||||
U8000-Stand alone software Modul: hd
|
||||
|
||||
Bearbeiter: F.Spielmann
|
||||
Datum: 1988
|
||||
Version: 3.0
|
||||
|
||||
********************************************************************
|
||||
*******************************************************************!
|
||||
|
||||
hd module
|
||||
|
||||
$nonsegmented
|
||||
|
||||
constant
|
||||
|
||||
!Port-Adressen!
|
||||
PIOAD := %FFA1
|
||||
PIOBD := %FFA3
|
||||
PIOAC := %FFA5
|
||||
PIOBC := %FFA7
|
||||
|
||||
!PIO-Programmierung!
|
||||
OUTPUT := %0F
|
||||
INPUT := %4F
|
||||
BITMODE := %CF
|
||||
INTVEC := %18
|
||||
|
||||
! Anschlussbelegung des Controlers am PIO des 16-Bit-Teils
|
||||
Port A : 8 Bit bidirektionale Daten (D0 bis D7)
|
||||
Port B : Steuerport
|
||||
Bit0 : /ST0 (Statusbit 0)
|
||||
Bit1 : /ST1 (Statusbit 1)
|
||||
Bit2 : /ST2 (Statusbit 2)
|
||||
Bit3 : frei Ausgang
|
||||
Bit4 : frei Ausgang
|
||||
Bit5 : RESET (WDC-Reset) Ausgang
|
||||
Bit6 : TE (Richtung) Ausgang
|
||||
Bit7 : TR (Anforderung) Eingang
|
||||
!
|
||||
! Steuerport WDC !
|
||||
RDATA := %4000
|
||||
WDATA := %00
|
||||
|
||||
! Uebergabe der Parameter an den Host-Treiber
|
||||
rh7 : Kommandocode
|
||||
rl7 : Laufwerksnummer
|
||||
r6 : Zylindernummer
|
||||
rh5 : Kopfnummer
|
||||
rl5 : Sektornummer
|
||||
r4 : Datenlaenge
|
||||
r3 : Host-Datenadresse
|
||||
Uebergabe der Parameter byteweise (9 Byte) an den WDC-Controler:
|
||||
-- Kommandocode
|
||||
-- Laufwerksnummer
|
||||
-- Zyl (low/rl6)
|
||||
-- Zyl (high/rh6)
|
||||
-- Kopf
|
||||
-- Sektor
|
||||
-- Datenlaenge (rl4)
|
||||
-- Datenlaenge (rh4)
|
||||
-- Pruefsumme (wird nicht ausgewertet)
|
||||
!
|
||||
|
||||
global
|
||||
wdc procedure
|
||||
entry
|
||||
|
||||
! Initialisierung des PIO !
|
||||
! und RESET an den WDC !
|
||||
calr disk_in
|
||||
|
||||
! PIO-Programmierung Host-->WDC !
|
||||
ld r0,#WDATA+OUTPUT
|
||||
outb PIOBD,rh0
|
||||
outb PIOAC,rl0
|
||||
|
||||
! Loeschen Fehlerregister !
|
||||
ldk r2,#0
|
||||
! Warten auf WDC-Bereitschaft !
|
||||
w_st1:
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#%7
|
||||
cpb rl0,#0
|
||||
jp z,stat7
|
||||
cpb rl0,#%1 !Status 6: PROM-Fehler!
|
||||
jp z,err_20
|
||||
cpb rl0,#6
|
||||
jr nz,w_st1
|
||||
! Ausgabe der neun Kommandobytes an den WDC !
|
||||
outb PIOAD,rh7 !Kommandocode!
|
||||
outb PIOAD,rl7 !Laufwerk!
|
||||
outb PIOAD,rl6 !Zylinder low!
|
||||
outb PIOAD,rh6 !Zylinder high!
|
||||
outb PIOAD,rh5 !Head!
|
||||
outb PIOAD,rl5 !Sektor-Nr. !
|
||||
outb PIOAD,rl4 !Sektorlaenge low !
|
||||
outb PIOAD,rh4 !Sektorlaenge high !
|
||||
outb PIOAD,rh3
|
||||
! Warten auf Status=0 !
|
||||
w_st2: inb rl0,PIOBD
|
||||
andb rl0,#%7
|
||||
cpb rl0,#%7
|
||||
jr nz,w_st2
|
||||
! Warten auf Ergebnis-Status !
|
||||
w_st3: inb rl0,PIOBD
|
||||
andb rl0,#%7
|
||||
cpb rl0,#%7
|
||||
jr z,w_st3
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#%7
|
||||
cpb rl0,#0
|
||||
jp z,stat7
|
||||
cpb rl0,#6
|
||||
jp z,stat1
|
||||
cpb rl0,#5
|
||||
jp z,stat2
|
||||
cpb rl0,#4
|
||||
jp z,stat3
|
||||
jp err_0
|
||||
!*******************************************!
|
||||
! Auswertung Status=1 !
|
||||
!*******************************************!
|
||||
stat1:
|
||||
cpb rh7,#%41
|
||||
jp z,h_ret
|
||||
cpb rh7,#%c2
|
||||
jp z,h_ret
|
||||
cpb rh7,#%48
|
||||
jp z,h_ret
|
||||
bitb rh7,#2
|
||||
jp z,err_1
|
||||
jp h_ret
|
||||
|
||||
!*******************************************!
|
||||
! Auswertung Status=2 !
|
||||
!*******************************************!
|
||||
stat2:
|
||||
cpb rh7,#%18
|
||||
jp z,wdc_wt
|
||||
cpb rh7,#%68 !Schreiben BTT aus Host!
|
||||
jp z,wdc_wt
|
||||
bitb rh7,#1 !Schreibkommandos!
|
||||
jp z,err_2
|
||||
wdc_wt:
|
||||
ld r1,#PIOAD
|
||||
otirb @r1,@r3,r4
|
||||
! Warten auf Status=0 !
|
||||
w_st4:
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#7
|
||||
cpb rl0,#7
|
||||
jr nz,w_st4
|
||||
! Warten auf Ergebnis-Status !
|
||||
w_st5:
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#7
|
||||
cpb rl0,#7
|
||||
jr z,w_st5
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#%7
|
||||
cpb rl0,#0
|
||||
jp z,stat7
|
||||
cpb rl0,#6
|
||||
jp z,h_ret
|
||||
jp err_5
|
||||
|
||||
!*******************************************!
|
||||
! Auswertung Status=3 !
|
||||
!*******************************************!
|
||||
stat3:
|
||||
cpb rh7,#%0 !Ready-Test!
|
||||
jp z,wdc_rd
|
||||
cpb rh7,#%08 !Lesen WDC-RAM!
|
||||
jp z,wdc_rd
|
||||
cpb rh7,#%28 !Lesen WDC-Parameterblock!
|
||||
jp z,wdc_rd
|
||||
cpb rh7,#%38 !Lesen WDC-Fehlerstatistik!
|
||||
jp z,wdc_rd
|
||||
cpb rh7,#%58
|
||||
jp z,wdc_rd
|
||||
cpb rh7,#%24 !Formatieren mit Defektspurtabelle!
|
||||
jp z,wdc_rd
|
||||
bitb rh7,#0 !HD-Lesekommandos!
|
||||
jp z,err_3
|
||||
! PIO-Umprogrammierung !
|
||||
wdc_rd:
|
||||
ld r0,#RDATA+INPUT
|
||||
outb PIOAC,rl0
|
||||
outb PIOBD,rh0
|
||||
inb rl0,PIOAD !Scheineingabe!
|
||||
! Uebernahme der Bytes !
|
||||
ld r1,#PIOAD
|
||||
inirb @r3,@r1,r4
|
||||
cpb rh7,#%24 !Formatieren mit Defektspur?!
|
||||
jp nz,w_stat
|
||||
ld r2,#%21
|
||||
jp w_stat
|
||||
|
||||
!*******************************************!
|
||||
! Auswertung Status=7 !
|
||||
!*******************************************!
|
||||
stat7:
|
||||
! PIO-Umprogrammierung !
|
||||
ld r0,#RDATA+INPUT
|
||||
outb PIOAC,rl0
|
||||
outb PIOBD,rh0
|
||||
inb rl0,PIOAD !Scheineingabe!
|
||||
! Uebernahme des Fehlerbytes!
|
||||
inb rl2,PIOAD
|
||||
|
||||
w_stat:
|
||||
! Warten auf Ergebnis-Status !
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#7
|
||||
cpb rl0,#7
|
||||
jr nz,w_stat
|
||||
w_stat1:
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#%7
|
||||
cpb rl0,#%7
|
||||
jr z,w_stat1
|
||||
inb rl0,PIOBD
|
||||
andb rl0,#%7
|
||||
cpb rl0,#6
|
||||
jp nz,err_4
|
||||
h_ret:
|
||||
ret
|
||||
|
||||
! Fehlerbehandlung !
|
||||
err_0:
|
||||
ldb rl2,#%c0
|
||||
jr err_rt
|
||||
err_1:
|
||||
ldb rl2,#%c1
|
||||
jr err_rt
|
||||
err_2:
|
||||
ldb rl2,#%c2
|
||||
jr err_rt
|
||||
err_3:
|
||||
ldb rl2,#%c3
|
||||
jr err_rt
|
||||
err_4:
|
||||
ldb rl2,#%c4
|
||||
jr err_rt
|
||||
err_5:
|
||||
ldb rl2,#%c5
|
||||
jr err_rt
|
||||
err_20: ldb rl2,#%20
|
||||
err_rt:
|
||||
jp h_ret
|
||||
end wdc
|
||||
|
||||
internal
|
||||
! Initialisierung des PIO und des WDC !
|
||||
init array [* byte] := [
|
||||
PIOBC, INTVEC,
|
||||
PIOBD, WDATA,
|
||||
PIOBC, BITMODE,
|
||||
PIOBC, %87,
|
||||
]
|
||||
|
||||
disk_in procedure
|
||||
entry
|
||||
ld r2,#PIOBD
|
||||
inb rl1,@r2
|
||||
bitb rl1,#5 !Reset weggenommen ?!
|
||||
ret z
|
||||
lda r1,init
|
||||
ldk r0,#4 !Anzahl der Ausgaben!
|
||||
iloop: ldb rl2,@r1 !Portadresse!
|
||||
inc r1,#1
|
||||
outib @r2,@r1,r0
|
||||
jr nov,iloop
|
||||
ret
|
||||
end disk_in
|
||||
end hd
|
||||
|
||||
Loading…
Reference in New Issue