Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0027/core.mac
There are 2 other files named core.mac in the archive. Click here to see a list.
	TITLE	CORE FOR SIMULATED PDP8	VERSION #2	SEPT. 1 '69
	SUBTTL	DAVE MCCLURE	JULY/9/69

;CORE WILL BE ASSEMBLED WITH BOTH THE BINARY LOADER AND RIM LOADER IN
;THE TOP PAGE OF CORE FOR ANY SIZE PDP8 MEMORY.

	INTERNAL CORE


	IFE PACK,<
CORE:	BLOCK	<MEMSIZ-161>/3
	SIZE=MEMSIZ-<MEMSIZ/^D12288>*^D12288
IFE SIZE,<
	EXP	12127402
	EXP	740274027402,740274020000,321242601300,775052372212
	EXP	704052271212,764052301214,027413417510,222677505626
	EXP	121402561257,321352300070,620100000000,603152626036
	EXP	321412145660,601152706016,526503004343,704112157402
	EXP	603260146214,125732137604,770013531352,326142265313
	EXP	321512133336,121433764260,335542265275,434374205336
	EXP	321613761355,121553156201,361622167600,533200001376
	EXP	710670067006,135557435262,000600000000,601460115357
	EXP	601671067006,751053747006,601153676016,742037763776
	EXP	535700005301
>
SIZE=SIZE-^D4096
IFE SIZE,<
	EXP	1212
	EXP	740274027402,740274027402,000032124260,130077505237
	EXP	221270405227,121276405230,121402741341,751022267750
	EXP	562612140256,125732135230,007062010000,000060315262
	EXP	603632141214,566060115270,601652650300,434370411215
	EXP	740260326014,621412573213,760477001353,135232614226
	EXP	531332151213,333612143376,426033554226,527543437420
	EXP	533632161376,135512155315,620136162216,760053320000
	EXP	137671067006,700613555743,526200060000,000060146011
	EXP	535760167106,700675105374,700660115367,601674203776
	EXP	337653570000,530100000000
>
SIZE=SIZE-^D4096
IFE SIZE,<
	EXP	121274027402,740274027402,740200003212,426013007750
	EXP	523722127040,522712127640,523012140274,134175102226
	EXP	775056261214,025612573213,523000706201,000000006031
	EXP	526260363214,121456606011,527060165265,030043437041
	EXP	121574026032,601462141257,321376047700,135313523261
	EXP	422653133215,121333361214,337642603355,422652754343
	EXP	742053363216,137613551215,531562013616,221676005332
	EXP	000013767106,700670061355,574352620006,000000006014
	EXP	601153576016,710670067510,537470066011,536760167420
	EXP	377633765357,000053010000
>
>

	IFN PACK,<
CORE:	BLOCK	MEMSIZ-161
BIN:	EXP	1212
	EXP	7402,7402,7402,7402,7402,7402,0000,3212
	EXP	4260,1300,7750,5237,2212,7040,5227,1212
	EXP	7640,5230,1214,0274,1341,7510,2226,7750
	EXP	5626,1214,0256,1257,3213,5230,0070,6201
	EXP	0000,0000,6031,5262,6036,3214,1214,5660
	EXP	6011,5270,6016,5265,0300,4343,7041,1215
	EXP	7402,6032,6014,6214,1257,3213,7604,7700
	EXP	1353,1352,3261,4226,5313,3215,1213,3336
	EXP	1214,3376,4260,3355,4226,5275,4343,7420
	EXP	5336,3216,1376,1355,1215,5315,6201,3616
	EXP	2216,7600,5332,0000,1376,7106,7006,7006
	EXP	1355,5743,5262,0006,0000,0000
RIM:	EXP	6014,6011,5357,6016,7106,7006,7510,5374,7006
	EXP	6011,5367,6016,7420,3776,3376,5357,0000,5301
>
ENTRY	SMP,SPL,CMP

SMP:	AOS	PC		;<6101> SKIP IF MEMORY PARITY ERROR FLAG IS 0
	POPJ	PDP,

SPL:	POPJ	PDP,		;<6102> SKIP IF POWER IS LOW

CMP:	POPJ	PDP,		;<6104> CLEAR MEMORY PARITY ERROR FLAG
	END