|
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: 8192 (0x2000)
Types: TextFile
Names: »MIV24«
└─⟦a59f0a452⟧ Bits:30000472 DOMUS disk image
└─⟦this⟧ »/MIV24«
; NIA 81.08.26 TERMINALCOROUTINE PAGE..T1..
;-------------------------------------------------------------
;
; CONVERTING TABLES V.24 LINES (INPUT - CONVERSION )
;
;-------------------------------------------------------------
.RDX 10
.TXTM 1
.TITL AMXI01
.NREL
AI4: ; PROGRAM
1B0 ; SPECIFICATION
AI10 ; START
0 ; CHAIN
AI0-AI4 ; SIZE
.TXT .AXI6<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»
;OKH 18.11.74
;-------------------------------------------------------------------------------
;
; INPUTCONVERSIONTABLE FOR V24-TERMINALS
;
;-------------------------------------------------------------------------------
;
TCONV:
0 ; NUL
1 ; SOH
2 ; STX
3 ; ETX
4 ; EOT
1B2+CANCEL-TCONV ; ENQ: SPECIAL ECHO / DELETE LINE
6 ; ACK
1B0+7 ; BEL : ATT-CHAR
1B2+BACKSP-TCONV ; BS: SPECIAL ECHO / DELETE CHAR
1B2+TAB-TCONV ; HT
1B1+1B2+0B3+CRNL-TCONV ;NL: TERMINATION,SPECIAL ECHO
11 ; VT
1B2+FORMFEED-TCONV ; FF
1B1+1B2+0B3+CRNL-TCONV ; CR
14 ; SO
15 ; SI
16 ; DLE
17 ; DC1
18 ; DC2
19 ; DC3
20 ; DC4
21 ; NAK
22 ; SYN
23 ; ETB
24 ; CAN
1B1+1B2+0B3+ENDM-TCONV ; EM: TERMINATION,SPECIAL ECHO
26 ; SUB
1B0+1B2+ESCAP-TCONV ; ESC: ATTENTIONCHAR,SPECIAL ECHO
1B0+28 ; FS: LOCAL ATTENTION
1B1+29 ; GS: TERMINATION
30 ; RS
31 ; US
32 ; SP
33 ; Å
34 ; "
35 ; Æ
36 ; $
37 ; %
38 ; &
«ff»
;OKH 18.11.74
;------------------------------------------------
39 ; ,
40 ; (
41 ; )
42 ; *
43 ; +
44 ; ,
45 ; -
46 ; .
47 ; /
48 ; 0
49 ; 1
50 ; 2
51 ; 3
52 ; 4
53 ; 5
54 ; 6
55 ; 7
56 ; 8
57 ; 9
58 ; :
59 ; ;
60 ; <
61 ; =
62 ; >
63 ; ?
64 ; @
;------------------------------------
;
;CAPITAL LETTERS:
;
65 ; A
66 ; B
67 ; C
68 ; D
69 ; E
70 ; F
71 ; G
72 ; H
73 ; I
74 ; J
75 ; K
76 ; L
77 ; M
78 ; N
79 ; O
80 ; P
81 ; Q
82 ; R
83 ; S
84 ; T
85 ; U
86 ; V
87 ;W
«ff»
;OKH 18.11.74
;---------------------------------------------
;
88 ; X
89 ; Y
90 ; Z
91 ; A
92 ; O
93 ; A
94 ; .
95 ; _
96 ; .
;-------------------------------------------
;
;SMALL LETTERS:
;
97 ; A
98 ; B
99 ; C
100 ; D
101 ; E
102 ; F
103 ; G
104 ; H
105 ; I
106 ; J
107 ; K
108 ; L
109 ; M
110 ; N
111 ; O
112 ; P
113 ; Q
114 ; R
115 ; S
116 ; T
117 ; U
118 ; V
119 ; W
120 ; X
121 ; Y
122 ; Z
123 ; A
124 ; O
125 ; A
126 ;
1B2+RUBOUT-TCONV ; RUBOUT: SPECIAL ECHO
«ff»
;OKH 18.11.74 TERMINALCOROUTINE
;-----------------------------------------
;
;
; SPECIAL ECHO:
CRNL: ;
.TXT .<0><10><13><10><127><128>.
ENDM:
.TXT .<0><25><13><10><127><128>.
BACKSP:
.TXT .<64+32><0><8><32><8><128>.
CANCEL:
.TXT .<128+32><0><94><128>.
RUBOUT:
.TXT .<64+32><0><95><128>.
ESCAPE:
.TXT .<0><27><127><128>.
TAB:
.TXT .<0><9><9><128>.
FORMFEED:
.TXT .<0><12><12><128>.
«ff»
;
; PROCESS DESCRIPTOR
;
AI0: ; PROCESS DESCRIPTOR
0 ; NEXT
0 ; PREV
0 ; CHAIN
AI2-AI0 ; SIZE
.TXT .AXI6<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»