|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: TextFile
Notes: RCSL-43-GL-5317, RCSL-43-GL-5318
Names: »BIPAR«
└─⟦24ab61a13⟧ Bits:30001810 SG0109 Floppy
└─ ⟦this⟧ »/BIPAR«
└─⟦e73eabbe7⟧ Bits:30001774 DOMUS SYSTEM, RC BASIC COMAL 1.27
└─ ⟦this⟧ »/BIPAR«
; RCSL : 43-GL5318 ; AUTHER: MLM ; EDITED: 77.10.20 ; BIPAR.01 ;KEYWORDS: RC3600, INSTRUCTION SET ;ABSTRACT: RC3600 BASIC INSTRUCTION DEFINITIONS. ; ASCII PAPER TAPE: RCSL:43-GL5317 «ff» .TITLE BIPAR ; BASIC INSTRUCTION DEFS. .RDXO 16 .RDX 8 ;INSTRUCTION DEFINITON FILE .XPNG ;DELETE ALL SYMBOLS ;MULTIPLY/DIVIDE .DUSR DIV=073101 .DUSR MUL =073301 ;DEFINE MEMORY REFERENCE INSTRUCTIONS THAT DON'T REQUIRE AC'S .DMR JMP = 000000 .DMR JSR=004000 .DMR ISZ=010000 .DMR DSZ=014000 ;DEFINE MEMORY REFERENCE INSTRUCTIONS THAT REQUIRE AC'S .DMRA LDA=020000 .DMRA STA=040000 ;DEFINE THE ALC INSTRUCTIONS .DALC COM=100000 .DALC NEG=100400 .DALC MOV=101000 .DALC INC=101400 .DALC ADC=102000 .DALC SUB=102400 .DALC ADD=103000 .DALC AND=103400 «ff» ;DEFINE THE ALC SKIPS .DUSR SKP=1 .DUSR SZC=2 .DUSR SNC=3 .DUSR SZR=4 .DUSR SNR=5 .DUSR SEZ=6 .DUSR SBN=7 ;DEFINE THE IO INSTRUCTIONS .DIO NIO=060000 .DIOA DIA=060400 .DIOA DOA=061000 .DIOA DIB=061400 .DIOA DOB=062000 .DIOA DIC=062400 .DIOA DOC=063000 ;DEFINE THE IO SKIP INSTRUCTIONS .DIO SKPBN=063400 .DIO SKPBZ=063500 .DIO SKPDN=063600 .DIO SKPDZ=063700 ;DEFINE CPU DEVICE .DUSR CPU= 77 ;DEFINE SPECIAL INSTRUCTIONS .DUSR INTEN=NIOS CPU ;INTERRUPT ENABLE .DUSR INTDS=NIOC CPU ;INTERRUPT DISABLE .DIAC READS=DIA 0,CPU ;READ THE SWITCHES .DIAC INTA= DIB 0,CPU ;INTERRUPT ACKNOWLEDGE .DIAC MSKO= DOB 0,CPU ;MASK OUT .DUSR IORST=DICC 0,CPU ;IO RESET .DUSR HALT= DOC 0,CPU ;HALT .DALC SEQ= SUB# 0,0 SZR ; SKIP IF S=D .DALC SNE= SUB# 0,0 SNR ; SKIP IF S<>D .DALC SLS= ADCZ# 0,0 SNC ; SKIP IF S<D .DALC SNG= SUBZ# 0,0 SNC ; SKIP IF S<=D .DALC SNL= ADCZ# 0,0 SZC ; SKIP IF S>=D .DALC SGR= SUBZ# 0,0 SZC ; SKIP IF S>D .DALC INE= SEQ 0,0 ; IF S<>D THEN EXECUTE .DALC IEQ= SNE 0,0 ; IF S=D THEN EXECUTE .DALC INL= SLS 0,0 ; IF S>=D THEN EXECUTE .DALC IGR= SNG 0,0 ; IF S>D THEN EXECUTE .DALC ILS= SNL 0,0 ; IF S<D THEN EXECUTE .DALC ING= SGR 0,0 ; IF S<=D THEN EXECUTE .EOT «ff» «nul»