|
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: 2560 (0xa00)
Types: TextFile
Notes: RCSL-43-GL-10900, RCSL-43-GL-10901, RCSL-43-GL-10902
Names: »S1339«
└─⟦a59f0a452⟧ Bits:30000472 DOMUS disk image
└─ ⟦this⟧ »/S1339«
! RCSL: 43-GL10901
AUTHOR: PBP
DATE: 80.11.14
RC36-01339.00
RC3640 SERIAL PRINTER
CONVERSION TABLE.
(EBCDIC - ASCII )
KEYWORDS: MUSIL, RC3640, CONV. TABLE
ABSTRACT: THIS PROGRAM IS AN RC3640 SERIAL PRINTER OUTPUT TABLE.
EBCDIC TO ASCII.
CONTROL CHARACTERS ARE CONVERTED TO SPACES.
ASCII: RCSL: 43-GL10900
REL.BIN: RCSL: 43-GL10902
«ff»
RC36-01339 PAGE 01
TITLE: RC36-01339.00
DATE: 80.11.14
SIZE: 424 BYTES NREL
!
«ff»
! RC36-01339 PAGE 02 !
! RC3640 OUTPUT TABLE EBCDIC TO ASCII !
CONST
EATAB =
#
! 0 - 7 ! 32 32 32 32 32 32 32 32
! 8 - 15 ! 32 32 32 32 32 32 32 32
! 16 - 23 ! 32 32 32 32 32 32 32 32
! 24 - 31 ! 32 32 32 32 32 32 32 32
! 32 - 39 ! 32 32 32 32 32 32 32 32
! 40 - 47 ! 32 32 32 32 32 32 32 7
! 48 - 55 ! 32 32 32 32 32 32 32 32
! 56 - 63 ! 32 32 32 32 32 32 32 32
! 64 - 71 ! 32 32 32 32 32 32 32 32
! 72 - 79 ! 32 32 215 46 60 40 43 124
! 80 - 87 ! 38 32 32 32 32 32 32 32
! 88 - 95 ! 32 32 33 36 42 41 59 205
! 96 - 103 ! 45 47 32 32 32 32 32 32
! 104 - 111 ! 32 32 252 44 37 95 62 63
! 112 - 119 ! 32 32 32 32 32 32 32 32
! 120 - 127 ! 32 32 58 35 192 39 61 34
! 128 - 135 ! 128 97 98 99 100 101 102 103
! 136 - 143 ! 104 105 32 251 168 32 32 32
! 144 - 151 ! 32 106 107 108 109 110 111 112
! 152 - 159 ! 113 114 32 253 210 32 218 211
! 160 - 167 ! 32 246 115 116 117 118 119 120
! 168 - 175 ! 121 122 32 32 32 219 169 32
! 176 - 183 ! 176 177 178 179 180 181 182 183
! 184 - 191 ! 184 185 32 32 32 221 203 95
! 192 - 199 ! 251 65 66 67 68 69 70 71
! 200 - 207 ! 72 73 32 32 188 32 186 32
! 208 - 215 ! 253 74 75 76 77 78 79 80
! 216 - 223 ! 81 82 32 32 32 32 32 32
! 224 - 231 ! 220 32 83 84 85 86 87 88
! 232 - 239 ! 89 90 32 32 190 32 32 32
! 240 - 247 ! 48 49 50 51 52 53 54 55
! 248 - 255 ! 56 57 252 32 32 32 32 32
#;
«ff»
! RC36-01339 PAGE 03 !
PROCEDURE STOPPROCESS;
CODEBODY P0048;
BEGIN
STOPPROCESS;
END;
«ff»
«ff»
«nul»