|
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: 2048 (0x800)
Types: TextFile
Names: »BAPA1«
└─⟦24ab61a13⟧ Bits:30001810 SG0109 Floppy
└─ ⟦this⟧ »/BAPA1«
└─⟦e73eabbe7⟧ Bits:30001774 DOMUS SYSTEM, RC BASIC COMAL 1.27
└─ ⟦this⟧ »/BAPA1«
; BAPAR.03 ; .TITL BAPAR ; 80.03.20 .RDX 10 .TXTM 1 .NREL ; COPS SYSTEM DEFINITIONS, 80.03.20 PAGE 02 ; ; CALL - RETURN - STACK ; .DUSR CALL= JSR@ MZSTART+4 ; .DUSR EXECU= JSR@ MZSTART+4 ; .DUSR RET0= JMP@ MZSTART+5 ; .DUSR RET1= JMP@ MZSTART+6 ; .DUSR RET2= JMP@ MZSTART+7 ; .DUSR ERROR= JSR@ MZSTART+8 ; ; COPS SYSTEM DEFINITIONS, 80.03.20 PAGE 03 ; ; BASIC DECLARATIONS: ; .DUSR USER= COROUT ; ; ; ; ********* SYMBOLS USED IN BASIC ********* ; SPECIAL OPERATIONS: ; .DALC SZ = MOV# 0,0,SZR ; SKIP ZERO .DALC SNZ= MOV# 0,0,SNR ; SKIP NON-ZERO .DALC SP = MOVL# 0,0,SZC ; SKIP POSITIVE .DALC SN = MOVL# 0,0,SNC ; SKIP NEGATIVE .DALC SE = SUB# 0,0,SZR ; SKIP EQUAL .DALC SNE= SUB# 0,0,SNR ; SKIP NOT EQUAL .DALC SL = ADCZ# 0,0,SNC ; SKIP LESS .DALC SLE= SUBZ# 0,0,SNC ; SKIP LESS/EQUAL .DALC SG = SUBZ# 0,0,SZC ; SKIP GREATER .DALC SGE= ADCZ# 0,0,SZC ; SKIP GREATER/EQUAL .DALC SIE= ADC# 0,0,SZR ; SKIP INCREMENT EQUAL .DALC SIN= ADC# 0,0,SNR ; SKIP INCREMENT NOT EQUAL .DALC LZ = SUB 0,0 ; LOAD ZERO .DALC LO = SUBZL 0,0 ; LOAD ONE .DALC LOC= ADC 0,0 ; LOAD ONE COMPLEMENT .DALC LC = SUBCL 0,0 ; LOAD CARRY .EOT «nul»