DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦ce2f7aafc⟧ TextFile

    Length: 2560 (0xa00)
    Types: TextFile
    Notes: RCSL-43-GL-8284, RCSL-43-GL-8285, RCSL-43-GL-8286
    Names: »S1060«

Derivation

└─⟦a59f0a452⟧ Bits:30000472 DOMUS disk image
    └─ ⟦this⟧ »/S1060« 

TextFile

S1060
!                                                  RCSL:   43-GL8285
 
                                                   AUTHOR: PBP
 
                                                   EDITED: 78.12.15
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                      PROGRAM RC36-01060.00
 
                          CHARSET E27
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
KEYWORDS:        MUSIL,CONVERSION,TABLE,LISTING
 
ABSTRACT:        THIS TABLE IS USED WHEN CONVERSION FROM EBCDIC TO
                 64 CHARACTER ASCII DRUM IS WANTED.
                 SPECIAL TABLE POST & TELEGRAFVAESNET.
 
RCSL: 43-GL8284: ASCII SOURCE TAPE.
RCSL: 43-GL8286: REL.BIN.
!
«ff»

!

 
ABSTRACT:        THIS TABLE IS USED WHEN CONVERSION FROM EBCDIC TO
                 64 CHARACTER ASCII DRUM IS WANTED.
                 SPECIAL TABLE POST & TELEGRAFVAESNET.
 
DATE:            78.12.15
 
 
!
 
 
 
CONST
 

IBMLP=	! 
	   0   1   2   3   4   5   6   7 !
#
!   0 !   32  32  32  32  32  32  32  32
!   8 !   32  32  32  32  32  32  32  32
!  16 !   32  32  32  32  32  32  32  32
!  24 !   32  32  32  32  32  32  32  32
!  32 !   32  32  32  32  32  32  32  32
!  40 !   32  32  32  32  32  32  32  32
!  48 !   32  32  32  32  32  32  32  32
!  56 !   32  32  32  32  32  32  32  32
!  64 !   32  32  32  32  32  32  32  32
!  72 !   32  32  32  46  60  40  43  85
!  80 !   38  32  32  32  32  32  32  32
!  88 !   32  32  33  93  42  41  59  32
!  96 !   45  47  32  32  32  32  32  32
! 104 !   32  32  32  44  37  95  62  63
! 112 !   32  32  32  32  32  32  32  32
! 120 !   32  32  58  91  92  39  61  34
! 128 !   32  65  66  67  68  69  70  71
! 136 !   72  73  32  32  32  32  32  32
! 144 !   32  74  75  76  77  78  79  80
! 152 !   81  82  32  32  32  32  32  32
! 160 !   32  32  83  84  85  86  87  88
! 168 !   89  90  32  32  32  32  32  32
! 176 !   32  32  32  32  32  32  32  32
! 184 !   32  32  32  32  32  32  32  32
! 192 !   32  65  66  67  68  69  70  71
! 200 !   72  73  32  32  32  32  32  32
! 208 !   32  74  75  76  77  78  79  80
! 216 !   81  82  32  32  32  32  32  32
! 224 !   32  32  83  84  85  86  87  88
! 232 !   89  90  32  32  32  32  32  32
! 240 !   48  49  50  51  52  53  54  55
! 248 !   56  57  94  32  32  32  32  32
#;

 
 
PROCEDURE P0048;
CODEBODY;
 
 
BEGIN
 
P0048;                       ! THE PROCESS IS STOPPED !
 
END;


«ff»
«nul»