github.com/livingcomputermuseum.Darkstar
1
0
Fork 0
mirror of https://github.com/livingcomputermuseum/Darkstar.git synced 2026-02-28 09:37:43 +00:00
Code Issues Releases Wiki Activity
Files
master
livingcomputermuseum.Darkstar/D/CP/Source/MoonCursorTest.mc,v
Josh Dersch bb52985dea Adding CP microcode and IOP 8085 sources.
2023-09-27 16:17:41 -07:00

39 lines
10 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
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.07; author freier; state Exp;
branches 1.1.1.1;
next ;
1.1.1.1
date 2001.08.12.22.22.07; author freier; state Exp;
branches ;
next ;
desc
@@
1.1
log
@Initial revision
@
text
@{ Copyright (C) 1979, 1980 by Xerox Corporation. All rights reserved. }
{File name: CursorTest.mc
Description: Microcode to test out Display interface.,
Author: Pitts PXJ ,
Created: November 26, 1979 10:55 PM,
Last Edited: PXJ , September 25, 1980 11:11 AM
R. RXG , May 15, 1980 7:27 PM}
MacroDef[ThenElse, BRANCH[#2, #1]];
Set[PicLenShifted, 0CA]; {PicLength = 328'x = 808'd. PicLenShifted = RShift2 PicLength}
{Format of Display Control Block}
Set[IOPageHigh, 1];
Set[IOPage, 40];
Set[DCBLoc, 0EB];
Set[WakeupLoc, 0];
Set[DBitsLoc, 1];
Set[BorderLoc, 2];
Set[cursorXLoc, 3];
Set[cursorYLoc, 4];
Set[cursorMapLoc, 5];
RegDef[acR, R, 0]; {Contains picture pattern -- used by Emulator task}
RegDef[rA, R, 0]; {Test Use -- used by Emulator task}
RegDef[rB, R, 1]; {Test Use -- used by Emulator task}
{RegDef[TT, R, 2], RegDef[rhTT, RH, 2]; {Test Use -- used by Emulator task}}
RegDef[rC, R, 3]; {Test Use -- used by Emulator task}
RegDef[rD, R, 4]; {Used by Emulator}
RegDef[Random, R, 5]; {Used by Emulator}
RegDef[patternMode, U, 0]; {0=> checkerboard, otherwise chevron}
RegDef[cursorMode, U, 1]; {0=> slash in cursor, non-zero=> flower in cursor}
RegDef[moveMode, U, 2]; {0=> no movement, non-zero=> random Walk}
{Emulator task. Initialize Display Control Register, cursor, and paint pattern}
SetTask[0]; StartAddress[Go];
TERROR1: ClrIntErr,CANCELBR[$,0F], c*, at[0];
TERROR: GOTO[TERROR], c*;
Go: R0¬1,CANCELBR[$,0F] ,c1,at[0FF0];
moveMode ¬ R0 ,c2;
cursorMode ¬ R0 ,c3;
patternMode¬R0 ,c1;
Noop ,c2;
Noop ,c3;
rC ¬ LShift1 0FF, SE¬1, CANCELBR[$, 0F] ,c1;
rC ¬ LShift1 rC, SE¬1 ,c2;
rC ¬ LShift1 rC, SE¬1 ,c3;
u7FF ¬ rC ,c1;
rC ¬ LShift1 rC, SE¬1 ,c2;
rC ¬ LShift1 rC, SE¬1 ,c3;
u1FFF ¬ rC ,c1;
rC ¬ LShift1 rC, SE¬1 ,c2;
u3FFF ¬ rC ,c3;
Noop, c1; {set Mem Control reg}
{Don't start display yet}
DCtl¬ 0, c2; {reset Display}
Noop, c3; {Clear Disk Control reg}
rD¬ 3, c1; {808 visible lines}
rD¬ rD LRot8, c2;
rD¬ rD or 28, c3;
PaintScreen: TT¬ 0, c1;
rhTT¬ 0, c2; {Use Low 64K bank only}
Xbus¬ patternMode, XDisp, c3;
DISP4[patternDisp, 0C], c1;
patternDisp: GOTO[doChk], c2, at[0C, 10, patternDisp];
GOTO[doChv], c2, at[0D, 10, patternDisp];
GOTO[doStripe], c2, at[0E, 10, patternDisp];
GOTO[doStripe], c2, at[0F, 10, patternDisp];
{-------------------------------------stripe pattern-------------------------------------}
doStripe: acR¬ 0, c3; {Clear Display}
Noop, c1;
Noop, c2;
rC¬ 0FF'x, c3; {100x words per page}
strDPY: MAR¬ [rhTT, TT + 0], c1; {Paint the line}
MDR¬ acR, c2;
TT¬ TT + 1, c3;
[]¬ TT and rC, ZeroBr, c1;
acR¬ ~acR, ThenElse[strPage, strDPY1], c2;
strDPY1: GOTO[strDPY], c3;
strPage: Noop, c3;
rD¬ rD-4, {one page is 4 lines} c1;
[]¬ rD, NegBr, c2;
ThenElse[$, strDPY], c3;
GOTO[moreZap], c1;
{-------------------------------------end stripe pattern-------------------------------------}
{-------------------------------------checkerboard pattern-------------------------------------}
doChk: acR¬ 0F'x, c3; {Clear Display}
rC¬ acR LRot8, {acR¬ acR or (acR LRot8) fails} c1;
acR¬ acR or rC, c2;
rC¬ 0FF'x, c3; {100x words per page}
chkDPY: MAR¬ [rhTT, TT + 0], c1; {Paint the line}
MDR¬ acR, c2;
TT¬ TT + 1, c3;
[]¬ TT and rC, ZeroBr, c1;
ThenElse[chkPage, chkDPY1], c2;
chkDPY1: GOTO[chkDPY], c3;
chkPage: Noop, c3;
rD¬ rD-4, {one page is 4 lines} c1;
[]¬ rD, NegBr, c2;
acR¬ ~acR, ThenElse[endChk, chkDPY], c3;
endChk: GOTO[moreZap], c1;
{-------------------------------------end checkerboard pattern-------------------------------------}
{-------------------------------------chevron pattern-------------------------------------}
doChv: rC¬ 3F'x, c3; {40x words per line}
acR¬ 80'x, c1;
acR¬ acR LRot8, c2;
Noop, c3;
chvDPY: MAR¬ [rhTT, TT + 0], c1; {Paint the line}
MDR¬ acR, c2;
TT¬ TT + 1, c3;
[]¬ TT and rC, ZeroBr, c1;
ThenElse[chvLine, chvDPY1], c2;
chvDPY1: GOTO[chvDPY], c3;
chvLine: Noop, c3;
Noop, c1;
rD¬ rD-1, ZeroBr, c2;
acR¬ acR RRot1, ThenElse[endChv, chvDPY], c3;
endChv: GOTO[moreZap], c1;
{-------------------------------------end chevron pattern-------------------------------------}
moreZap: Noop, c2;
Noop, c3;
moreZap1: MAR¬ [rhTT, TT+0], c1;
MDR¬ acR xor ~acR, c2;
Noop, c3;
Noop, c1;
TT¬ TT+1, ZeroBr, c2;
ThenElse[zapDone, moreZap1], c3;
{initialize cursor at center of display}
zapDone: rhTT¬ IOPageHigh, c1;
TT¬ IOPage, c2;
TT ¬ TT LRot8, c3;
TT ¬ TT or DCBLoc ,c1;
uDCBLoc ¬ TT ,c2;
Noop ,c3;
MAR¬ [rhTT, TT+WakeupLoc], c1;
MDR¬ 0, WriteOK, CANCELBR[$, 2] c2;
acR¬ 2'x, c3;
MAR¬ [rhTT, TT+DBitsLoc], c1;
MDR¬ 0, WriteOK, CANCELBR[$, 2] c2;
acR¬ acR LRot8, c3;
MAR¬ [rhTT, TT+cursorXLoc], c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
initX: acR¬ LShift1 PicLenShifted, c3;
MAR¬ [rhTT, TT+cursorYLoc], c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
initY: Noop, c3;
Noop, c1;
[]¬ cursorMode, ZeroBr, c2;
TT ¬ TT+cursorMapLoc, ThenElse[slash, flower], c3;
{-------------------------------------slash in cursor-------------------------------------}
slash: rB¬ 80'x, c1;
rB¬ rB LRot8, c2;
rB¬ rB or 1, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR xor ~acR, WriteOK, CANCELBR[$, 2], c2;
slash0: acR¬ 2, c3;
rC¬ 0E'x, c1;
Noop, c2;
Noop, c3;
slash1: MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR or rB, WriteOK, CANCELBR[$, 2], c2;
slash2: acR¬ acR LRot1, c3;
Noop, c1;
rC¬ rC-1, ZeroBr, c2;
ThenElse[slash3, slash1], c3;
slash3: MAR¬ [rhTT, TT+0], c1;
MDR¬ acR xor ~acR, c2;
slash4: DCtl ¬ 1 {EnableDisplay}, GOTO[walk], c3;
{-------------------------------------flower in cursor-------------------------------------}
flower: MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ 60'x, WriteOK, CANCELBR[$, 2], c2;
flower0: acR¬ 1, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 94'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower1: acR¬ 1, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 0E'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower2: acR¬ 1, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 1F'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower3: acR¬ 2, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 1F'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower4: acR¬ 2, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 0E'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower5: acR¬ 2, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 4'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower6: acR¬ 2, c3;
acR¬ acR LRot8, c1;
Noop, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower7: acR¬ 2'x, c3;
acR¬ acR LRot8, c1;
Noop, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower8: acR¬ 2'x, c3;
acR¬ acR LRot8, c1;
Noop, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower9: acR¬ 2'x, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 3'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower10: acR¬ 0F1'x, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 0F'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower11: acR¬ 0F9'x, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 1E'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower12: acR¬ 7D'x, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 38'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower13: acR¬ 3F'x, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 0F0'x, c2;
Noop, c3;
MAR¬ [rhTT, TT], TT¬ TT+1, c1;
MDR¬ acR, WriteOK, CANCELBR[$, 2], c2;
flower14: acR¬ 3'x, c3;
acR¬ acR LRot8, c1;
acR¬ acR or 80'x, c2;
Noop, c3;
MAR¬ [rhTT, TT+0], c1;
MDR¬ acR, c2;
flower15: DCtl ¬ 1 {EnableDisplay}, GOTO[walk], c3;
walk: Noop ,c1;
[]¬ moveMode, ZeroBr, c2;
TT ¬ uDCBLoc, ThenElse[xyWrite, xyMove], c3;
{Random walk according to Random ¬ (805 * Random + 3619) mod 10000}
xyMove: MAR¬ [rhTT, TT+cursorXLoc], c1;
rA ¬ LShift1 Random, CANCELBR[$,0] c2;
rC ¬ MD, c3;
MAR¬ [rhTT, TT+cursorYLoc], c1;
rA ¬ LShift1 rA, {rA=Random*2­2} CANCELBR[$,0] c2;
rD ¬ MD, c3;
rB ¬ Random and 1F, c1;
rB ¬ rB LRot12, c2;
rB ¬ RRot1 rB, {rB=Random*2­11} c3;
Random ¬ Random + rA, {Random=Random+Random*2­2} c1;
Random ¬ Random + rB, {Random=Random+Random*2­2+Random*2­11}, c2;
rA ¬ 36 c3;
rA ¬ rA LRot8 ,c1;
rA ¬ rA or 19 {rA¬3619} ,c2;
Random ¬ Random + rA ,c3;
Xbus ¬ Random LRot4, XDisp ,c1;
DISP4[North, 8] ,c2;
North: GOTO[IncrY] ,c3, at[8,10,North];
NE: rC ¬ rC + 15, GOTO[IncrY] ,c3, at[9,10,North];
East: rC ¬ rC + 15, GOTO[NoAdjust] ,c3, at[0A,10,North];
SE: rC ¬ rC + 15, GOTO[DecrY] ,c3, at[0B,10,North];
South: GOTO[DecrY] ,c3, at[0C,10,North];
SW: rC ¬ rC - 15, GOTO[DecrY] ,c3, at[0D,10,North];
West: rC ¬ rC - 15, GOTO[NoAdjust] ,c3, at[0E,10,North];
NW: rC ¬ rC - 15, GOTO[IncrY] ,c3, at[0F,10,North];
NoAdjust: GOTO[ChkBound] ,c1;
IncrY: rD ¬ rD + 15, GOTO[ChkBound] ,c1;
DecrY: rD ¬ rD - 15, GOTO[ChkBound] ,c1;
ChkBound: rA ¬ uInitPicLength ,c2;
[] ¬ rD - rA, NegBr {Y>=328?} ,c3;
BRANCH[$, YBotOK] ,c1;
rD ¬ 0, GOTO[ChkYTop] ,c2;
YBotOK: Noop ,c2;
ChkYTop: [] ¬ rD, NegBr {Y<0?} ,c3;
rB ¬ u3FF, BRANCH[YTopOK, $] ,c1;
rD ¬ rA - 1 {rD¬327}, GOTO[ChkDone] ,c2;
YTopOK: Noop ,c2;
ChkDone: rC ¬ rC and rB{cursorX and 3FF}, GOTO[xyWrite] ,c3;
xyWrite: MAR¬ [rhTT, TT+cursorXLoc], c1;
MDR¬ rC, WriteOK, CANCELBR[$, 2], c2;
Noop, c3;
MAR¬ [rhTT, TT+cursorYLoc], c1;
MDR¬ rD, WriteOK, CANCELBR[$, 2], c2;
rA ¬ 8, GOTO[wait], c3;
wait: MesaIntBr, c1;
BRANCH[NoInt, Int], c2;
NoInt: GOTO[wait], c3;
Int: ClrIntErr ,c3;
Noop ,c1;
rA ¬ rA - 1, ZeroBr ,c2;
BRANCH[wait, walk] ,c3;
SetTask[5];
StartAddress[Task5];
Task5: CANCELBR[Task5,0F], c*;
SetTask[3];
StartAddress[Task3];
Task3: CANCELBR[Task3,0F], c*;
SetTask[2];
StartAddress[Task2];
Task2: CANCELBR[Task2,0F], c*;
SetTask[4];
StartAddress[Task4];
Task4: CANCELBR[Task4,0F], c*;
@
1.1.1.1
log
@first add
@
text
@@
Reference in New Issue View Git Blame Copy Permalink