|
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 - metrics - download
Length: 3072 (0xc00)
Types: TextFile
Names: »MOV24«
└─⟦a59f0a452⟧ Bits:30000472 DOMUS disk image
└─⟦this⟧ »/MOV24«
; NIA 81..08.26 TERMINALCOROUTINE PAGE..T1..
;-------------------------------------------------------------
;
; OUTPUT CONVERSION ON V.24 LINE. ONE ENTRY CONSIST OF KIND
; AND OUTPUT VALUE
; KIND = 1B0 NORMAL OUTPUT
; KIND = 1B1 BLIND CHARACTER
; KIND = 1B2 CHARACTER IN UPPER CASE
; KIND = 0B2 CHARACTER IN LOWER CASE
; KIND = 1B3 CHARACTER IN SUBCONVERSION TABLE
;
;--------------------------------------------------------------
.TXTM 1
.RDX 10
.TITL AMXO01
.NREL
AI4: ; PROGRAM
1B0 ; SPECIFICATION
AI10 ; START
0 ; CHAIN
AI0-AI4 ; SIZE
.TXT .AXO6<0>. ; NAME
AI10:
LDA 2 CUR ; THE PROGRAM
STOPPROCESS ; STOPS ITSELF
JMP .-1 ;
.BLK 2 ; PTERM EXPECTS THE CONVERSION
; TABLE TO START AT ADDRESS 12
;
«ff»
; OUTPUTCONVERSIONTABLE FOR V24-TERMINALS, KSR
;---------------------------------------------
;
TCONO:
1B1 ; CHAR 0 BLIND
CHAR=1 ;
.DO 9 ;
1B0+CHAR ; CHAR 1-9 NORMAL
CHAR=CHAR+1 ;
.ENDC ;
1B3+SUBT ; CHAR 10: SUBSTRING 13 10 127 127 127 127
CHAR= 11 ;
.DO 117 ; CHAR 11-127 NORMAL
1B0+CHAR ;
CHAR=CHAR+1 ;
.ENDC ;
-1 ; LOWER CASE CHAR (DUMMY)
-1 ; UPPER CASE CHAR (DUMMY)
CRNL:
.TXT .<13><10><127><127><127><127><128>.
SUBT= CRNL-TCONO*2
«ff»
;
; PROCESS DESCRIPTOR
;
AI0: ; PROCESS DESCRIPTOR
0 ; NEXT
0 ; PREV
0 ; CHAIN
AI2-AI0 ; SIZE
.TXT .AXO6<0>. ; NAME
AI0+EVENT ; FIRST EVENT
AI0+EVENT ; LAST EVENT
0 ; BUFFER
AI4 ; PROGRAM
0 ; STATE
0 ; TIMER COUNT
1B0 ; PRIORITY
AI10 ; BREAK ADDRESS
AI0 ; AC0
0 ; AC1
AI0 ; AC2
0 ; AC3
AI10*2 ; PSW
0 ; SAVE
AI2: ; TOP OF PROCESS DESCRIPTOR
.END AI0
«ff»
«nul»