mirror of
https://github.com/livingcomputermuseum/Darkstar.git
synced 2026-02-28 17:39:41 +00:00
39 lines
1.4 KiB
Plaintext
39 lines
1.4 KiB
Plaintext
head 1.1;
|
|
branch 1.1.1;
|
|
access ;
|
|
symbols start:1.1.1.1 Xerox:1.1.1;
|
|
locks ; strict;
|
|
comment @# @;
|
|
|
|
|
|
1.1
|
|
date 2001.08.12.22.22.10; author freier; state Exp;
|
|
branches 1.1.1.1;
|
|
next ;
|
|
|
|
1.1.1.1
|
|
date 2001.08.12.22.22.10; author freier; state Exp;
|
|
branches ;
|
|
next ;
|
|
|
|
|
|
desc
|
|
@@
|
|
|
|
|
|
|
|
1.1
|
|
log
|
|
@Initial revision
|
|
@
|
|
text
|
|
@{ Copyright (C) 1980 by Xerox Corporation. All rights reserved. }
|
|
|
|
{File name: <JXK >JxK .mc
|
|
Description: JxK test code,
|
|
Author: J. JxK ,
|
|
Created: May 16, 1980 12:01 PM,
|
|
Last Edited: }
|
|
|
|
SetTask[7];
|
|
StartAddress[START];
|
|
|
|
|
|
|
|
{CPIn microcode test.
|
|
In this test, the CP outputs an increasing number to IOPOData which is checked by the IOP.}
|
|
TERROR1: ClrIntErr,CANCELBR[$,0F], c*, at[0];
|
|
TERROR: GOTO[TERROR], c*;
|
|
|
|
START: ClrIntErr, CANCELBR[$, 0F], c*;
|
|
START1: IOPCtl ¬ 2 , c*; {Set mode of IOP port}
|
|
R0 ¬ 0, c*; {Clear data register}
|
|
|
|
Wait: Xbus ¬ IOPStatus, XLDisp, c*; {Is IOPReq true?, Put R0 on Y bus}
|
|
BRANCH [Wait, Out, XOdd], c*; {XOdd => IOPReq, Put R0 on Y bus}
|
|
|
|
Out: IOPOData ¬ R0 LRot0, c*; {Output value}
|
|
R0 ¬ R0 + 1, c*; {Increment}
|
|
R0¬R0 and 0FF, c*; {Clear high part}
|
|
R0¬R0 , ZeroBr, c*; {Clear high part}
|
|
BRANCH [Wait1, NOERROR], c*;
|
|
|
|
Wait1: GOTO[Wait], c*;
|
|
|
|
NOERROR: IOPCtl ¬ 0, GOTO[NOERROR], c*, at[0FFF];
|
|
|
|
|
|
@
|
|
|
|
|
|
1.1.1.1
|
|
log
|
|
@first add
|
|
@
|
|
text
|
|
@@
|