altoconsts23.mu.txt part of xerox altoconsts23.mu altoconsts23.mu.txt, xerox alto microcode altoconsts23.mu.txt text manual preview

Text preview for : altoconsts23.mu.txt part of xerox altoconsts23.mu xerox alto microcode altoconsts23.mu.txt

Back to : altoconsts23.mu.txt | Home

; A L T O C O N S T S 2 3 . M U

; Symbol and constant definitons for the standard Alto microcode.
; These definitions are for:
; AltoCode23, AltoCode24, AltoIICode2, and AltoIICode3
; By convention, people writing microcode should 'include' this file
; in front of their microcode using the following MU construct:
; #AltoConsts23.mu;
; This entire file is full of magic. If you modify it in any way
; you run the risk of being incompatible with the Alto world,
; not to mention having your Alto stop working.
;
; Revision History:
; September 20, 1977 8:33 PM by Boggs
; Created from old AltoConsts23.mu
; September 23, 1977 12:17 PM by Taft
; October 11, 1977 2:07 PM by Boggs
; Added XMAR definition
; May 21, 1979 6:42 PM by Taft
; Added SRB_ and ESRB_

;Symbol definitions

;Bus Sources
;BS 0 _ RRegister
;BS 1 RRegister_ (zeroes the bus)
;BS 2 is undefined and therefore makes the bus all ones
;BS 3 and 4 are task specific. For the 'Ram related' tasks they are:
; BS 3: _ SRegister
; BS 4: SRegister_ (clobbers the bus with undefined value)
;BS 5 is main memory data (see definition for MD, below)
$MOUSE $L000000,014006,000100; BS = 6
$DISP $L000000,014007,000120; BS = 7

;Standard F1s
$XMAR $L072000,000000,144000; F1 = 1 and F2 = 6 (Extended MAR)
$MAR $L020001,000000,144000; F1 = 1
$TASK $L016002,000000,000000; F1 = 2
$BLOCK $L016003,000000,000000; F1 = 3
$LLSH1 $L000000,022004,000200; F1 = 4
$LRSH1 $L000000,022005,000200; F1 = 5
$LLCY8 $L000000,022006,000200; F1 = 6

;Standard F2s
$BUS=0 $L024001,000000,000000; F2 = 1
$SH<0 $L024002,000000,000000; F2 = 2
$SH=0 $L024003,000000,000000; F2 = 3
$BUS $L024004,000000,000000; F2 = 4
$ALUCY $L024005,000000,000000; F2 = 5
$MD $L026006,014005,124100; F2 = 6, BS = 5

;Emulator specific functions
$BUSODD $L024010,000000,000000; F2 = 10
$LMRSH1 $L000000,062005,000200; F2 = 11 Magic Right Shift
$LMLSH1 $L000000,062004,000200; F2 = 11 Magic Left Shift
$DNS $L030012,000000,060000; F2 = 12 Do Nova Shift
$ACDEST $L030013,032013,060100; F2 = 13 Nova Destination AC
$IR $L026014,000000,124000; F2 = 14 Instruction Register
$IDISP $L024015,000000,000000; F2 = 15 IR Dispatch
$ACSOURCE $L000000,032016,000100; F2 = 16 Nova Source AC

;RAM-related task-specific functions
$SWMODE $L016010,000000,000000; F1 = 10 Switch Mode (emulator only)
$WRTRAM $L016011,000000,000000; F1 = 11 Write Ram
$RDRAM $L016012,000000,000000; F1 = 12 Read Ram
$RMR $L020013,000000,124000; F1 = 13 Reset Mode Register (emulator only)
$SRB $L020013,000000,124000; F1 = 13 Set Register Bank (non-emulator)
$ESRB $L020015,000000,124000; F1 = 15 Set Register Bank (emulator only)

;Emulator specific functions decoded by the ETHERNET board
$RSNF $L000000,070016,000100; F1 = 16 Read Serial (Host) Number
$STARTF $L016017,000000,000000; F1 = 17 Start I/O

$M $R40; The M Register
$L $L040001,036001,144200; The L Register
$T $L052001,054001,124040; ALUF = 1, The T Register

;ALU Functions. * => loads T from ALU output
$ORT $L000000,050002,000002; ALUF = 2 *
$ANDT $L000000,050003,000002; ALUF = 3
$XORT $L000000,050004,000002; ALUF = 4
$+1 $L000000,050005,000002; ALUF = 5 *
$-1 $L000000,050006,000002; ALUF = 6 *
$+T $L000000,050007,000002; ALUF = 7
$-T $L000000,050010,000002; ALUF = 10
$-T-1 $L000000,050011,000002; ALUF = 11
$+INCT $L000000,050012,000002; ALUF = 12 * synonym for +T+1
$+T+1 $L000000,050012,000002; ALUF = 12 *
$+SKIP $L000000,050013,000002; ALUF = 13
$.T $L000000,050014,000002; ALUF = 14 *
$AND NOT T $L000000,050015,000002; ALUF = 15

; A request has been made for the following, but it is unlikely ever to be implemented.
;$ZEROALU $L000000,050016,000040; ALUF = 16
;ALUF 17 is unassigned

;Handy fakes
$SINK $L044000,000000,124000; DF3 = 0 Bus source without dest
$NOP $L042000,000000,000000; NDF3 = 0 every computer needs one

; Definitions for the Nova debugger and DEBAL
$HALT $L042001,000000,000000;
$BREAK $L042003,000000,000000;
$WENB $L042005,000000,000000;
$READY? $L042006,000000,000000;
$NOVA $L044002,046003,124100;
$END $L034000,000000,000000;

;Constant definitions

$0 $L000000,012000,000100; Constant 0 is SUPER SPECIAL

$ALLONES4 $M4:177777; Constant normally ANDed with KSTAT
$ALLONES5 $M5:177777; Constant normally ANDed with MD
$M17 $M6:000017; Constant normally ANDed with MOUSE
$ALLONES7 $M7:177777; Constant normally ANDed with DISP
$M177770 $M7:177770; Mask for DISP
$M7 $M7:000007; Mask for DISP
$X17 $M7:000017; Mask for DISP

$ONE $1; The constant 1
$2 $2;
$-2 $177776; - Disk header word count
$3 $3;
$4 $4;
$5 $5;
$6 $6;
$7 $7;
$10 $10;
$-10 $177770; - Disk label word count
$17 $17;
$20 $20;
$37 $37;
$ALLONES $177777; The REAL -1 (not a mask)
$40 $40;
$77 $77;
$100 $100;
$177 $177;
$200 $200;
$377 $377;
$177400 $177400;
$-400 $177400; - DISK DATA WORD COUNT
$2000 $2000;
$PAGE1 $400;
$DASTART $420; MAIN MEMORY DISPLAY HEADER ADDRESS
$KBLKADR $521; MAIN MEMORY DISK BLOCK ADDRESS
$MOUSELOC $424; MAIN MEMORY MOUSE BLOCK ADDRESS
$CURLOC $426; MAIN MEMORY CURSOR BLOCK ADDRESS
$CLOCKLOC $430;
$CON100 $100;
$CADM $7772; CYLINDER AND DISK MASK
$SECTMSK $170000; SECTOR MASK
$SECT2CM $40000; CAUSES ILLEGAL SECTORS TO CARRY OUT
$-4 $177774; CURRENTLY UNUSED
$177766 $177766; CURRENTLY UNUSED
$177753 $177753; CURRENTLY UNUSED
$TOTUWC $44000; NO DATA TRANSFER, USE WRITE CLOCK
$TOWTT $66000; NO DATA TRANSFER, DISABLE WORD TASK
$STUWC $4000; TRANSFER DATA USING WRITING CLOCK
$STRCWFS $10000; TRANSFER DATA USING NORMAL CLOCK, WAIT FOR SYNC
$177000 $177000;
$77777 $77777;
$77740 $77740;
$LOW14 $177774;
$77400 $77400;
$-67D $177675;
$7400 $7400;
$7417 $7417;
$170360 $170360;
$60110 $60110;
$30000 $30000;
$70531 $70531;
$20411 $20411;
$65074 $65074;
$41023 $41023;
$122645 $122645;
$177034 $177034;
$37400 $37400;
$BIAS $177700; CURSOR Y BIAS
$WWLOC $452; WAKEUP WAITING IN PAGE 1
$PCLOC $500; PC VECTOR IN PAGE 1
$100000 $100000;
$177740 $177740;
$COMERR1 $277; COMMAND ERROR MASK
$-7 $177771; CURRENTLY UNUSED
$177760 $177760;
$-3 $177775;
$4560 $4560;
$56440 $56440;
$34104 $34104;
$64024 $64024;
$176000 $176000;
$177040 $177040;
$177042 $177042;
$203 $203;
$360 $360;
$177600 $177600;
$174000 $174000;
$160000 $160000;
$140000 $140000;
$777 $777;
$1777 $1777;
$3777 $3777;
$7777 $7777;
$17777 $17777;
$37777 $37777;
$1000 $1000;
$20000 $20000;
$40000 $40000;
$-15D $177761;
$TRAPDISP $526;
$TRAPPC $527;
$TRAPCON $470;
$JSRC $6000; JSR@ 0
$MASKTAB $460; Mask Table Starting address for convert
$SH3CONST $14023; DESTINATION = 3, SKIP IF NONZERO CARRY,
; BASE CARRY = 0

$600 $600; Ethernet addresses
$601 $601;
$602 $602;
$603 $603;
$604 $604;
$605 $605;
$606 $606;
$607 $607;
$610 $610;
$612 $612;

$ITQUAN $422;
$ITIBIT $423;
$402 $402; where label block is stored on disk boot
$M177760 $M7:177760; MASK FOR DISP. FOR I/O INSTRUCTIONS
$JSRCX $4000; JSR 0
$KBLKADR2 $523;
$KBLKADR3 $524;

$MFRRDL $177757; DISK HEADER READ DELAY IS 21 WORDS
$MFR0BL $177744; DISK HEADER PREAMBLE IS 34 WORDS
$MIRRDL $177774; DISK INTERRECORD READ DELAY IS 4 WORDS
$MIR0BL $177775; DISK INTERRECORD PREAMBLE IS 3 WORDS
$MRPAL $177775; DISK READ POSTAMBLE LENGTH IS 3 WORDS
$MWPAL $177773; DISK WRITE POSTAMBLE LENGTH IS 5 WORDS
$BDAD $12; ON BOOT, DISK ADDRESS GOES IN LOC 12

$REFMSK $77740; MRT Refresh mask
$X37 $M7:37; NOPAR MASK
$M177740 $M7:177740; DITTO
$EIALOC $177701; LOCATION OF EIA INPUT HARDWARE

$7000 $7000; mapbase
$176 $176; mapmask
$177576 $177576; mapmask3
$30 $30; reprobinc
$15 $15; wrt-1
$1770 $1770; ciad
$101771 $101771; cilow
$175777 $175777; for resetting fbn
$11 $11; just to have small integers
$13 $13;
$14 $14;
$16 $16; for 2CODE
$60 $60; low R to high R bus source
$776 $776;
$177577 $177577; -129
$100777 $100777;
$177677 $177677;
$177714 $177714; (-2fvar+14)

$2527 $2527;
$101 $101;
$630 $630;
$631 $631;
$642 $642;

$lgm1 $M7:1;
$lgm3 $M7:3;
$lgm10 $M7:10;
$lgm14 $M7:14;
$lgm20 $M7:20;
$lgm40 $M7:40;
$lgm100 $M7:100;
$lgm200 $M7:200;

$disp.300 $M7:300;
$-616 $177162;
$-650 $177130;
$22 $22;
$24 $24;
$-20 $177760;
$335 $335; endcode for getframe
$1377 $1377; smallnzero
$401 $401;
$2001 $2001;
$21 $21; just to have them
$23 $23;
$25 $25;
$26 $26;
$27 $27;
$31 $31;
$1675 $1675;
$736 $736;
$-660 $177120;
$300 $300;
$disp.377 $M7:377;
$6001 $6001; f.e. flg, quick flg, use count
$disp.3 $M7:3;

; Constants for subroutine returns using IR.
; See 9.2.1 of the hardware manual for details.

$sr1 $60110;
$sr0 $70531;
$sr2 $61000;
$sr3 $61400;
$sr4 $62000;
$sr5 $62400;
$sr6 $67000; value of 16b mapped to 6 by disp prom
$sr7 $63400;
$sr10 $64024;
$sr11 $64400;
$sr12 $65074;
; Are you wondering why sr13 is missing? So is everyone else.
$sr14 $66000;
$sr15 $66400;
$sr16 $63000; value of 6 mapped to 16b by disp prom
$sr17 $77400;
$sr20 $65400;
$sr21 $65401;
$sr22 $65402;
$sr23 $65403;
$sr24 $65404;
$sr25 $65405;
$sr26 $65406;
$sr27 $65407;
$sr30 $65410;
$sr31 $65411;
$sr32 $65412;
$sr33 $65413;
$sr34 $65414;
$sr35 $65415;
$sr36 $65416;
$sr37 $65417;

$-13D $177763;

$ERRADDR $177024; AltoII MEAR (Memory Error Address Reg)
$ERRSTAT $177025; AltoII MESR (Memory Error Status Reg)
$ERRCTRL $177026; AltoII MECR (Memory Error Control Reg)
$REFZERO $7774;

$2377 $2377; Added for changed Ethernet microcode
$2777 $2777;
$3377 $3377;
$477 $477; Added for BitBlt
$576 $576; Added for Ethernet boot
$177175 $177175;

;Requests for the following new constants have been made:
;NOTE THAT THESE ARE NOT YET DEFINED

;$lgm2 $M7:2;
;$lgm4 $M7:4;
;$32 $32;
;$33 $33;
;$34 $34;
;$35 $35;
;$36 $36;