DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

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

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦954647cdf⟧ TextFile

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »B6OP7.PRN«

Derivation

└─⟦b2cb6c17b⟧ Bits:30009846 EDB SKOLE - SYSTEM
    └─⟦this⟧ »B6OP7.PRN« 

TextFile

\f

	MACRO-80 3.44	09-Dec-81	PAGE	1


                                         .Z80
                                ;
                                ;
                                ;***************************************
                                ;*                                     *
                                ;*  B96.7      LYSAVIS  (40/125 TEGN)  *
                                ;*                                     *
                                ;* 070285                              *
                                ;* PROGRAMMØR: LEIF BERTELSEN          *
                                ;*                                     *
                                ;***************************************
                                ;
  0000'                         ASEG
                                ORG 103H
                                ;
  0103                          START:
  0103    0E 09                          LD    C,9
  0105    11 013B                        LD    DE,CLEAR      ; SLET SKÆRM
  0108    CD 0005                        CALL  5
                                ; 
  010B                          BEGYND:
  010B    06 28                          LD    B,40
O 010D    00                             LD    HL,TXT
  010E    DD 21 F7A8                     LD    IX,0F000H+12*80*2+2*20    ; IX STÅR I POS.
A 0112    DD 76 00              HOP:     LD    (IX),HL
  0115    23                             INC   HL
  0116    DD 23                          INC   IX
  0118    10 F8                          DJNZ  HOP
                                ;  
  011A    21 013D                        LD    HL,TXT        ; ROKERER 125 TEGN
  011D    7E                             LD    A,(HL)        ; $ TIL D
  011E    0E 7D                          LD    C,125
  0120    47                             LD    B,A
  0121    23                    LOOP:    INC   HL
  0122    7E                             LD    A,(HL)
  0123    2B                             DEC   HL
  0124    77                             LD    (HL),A
  0125    23                             INC   HL
  0126    0D                             DEC   C
  0127    C2 0121                        JP    NZ,LOOP
  012A    78                             LD    A,B
  012B    77                             LD    (HL),A
                                ;
  012C    06 96                          LD    B,150         ; DELAY
  012E    0E 96                 LOOP2:   LD    C,150
  0130    0D                    LOOP1:   DEC   C
  0131    C2 0130                        JP    NZ,LOOP1
  0134    05                             DEC   B
  0135    C2 012E                        JP    NZ,LOOP2
  0138    C3 010B                        JP    BEGYND
                                ;
                                ;
  013B    0C 24                 CLEAR:   DB    12,'$'
  013D    20 44 4A 4E           TXT:     DB    ' DJNZ reducerer B-registeret med 1, og h'   ; 40 TEGN
  0141    5A 20 72 65           
  0145    64 75 63 65           
\f

	MACRO-80 3.44	09-Dec-81	PAGE	1-1


  0149    72 65 72 20           
  014D    42 2D 72 65           
  0151    67 69 73 74           
  0155    65 72 65 74           
  0159    20 6D 65 64           
  015D    20 31 2C 20           
  0161    6F 67 20 68           
  0165    76 69 73 20                    DB    'vis det bliver <> 0, hoppes relativt, el'   ; 40 TEGN
  0169    64 65 74 20           
  016D    62 6C 69 76           
  0171    65 72 20 3C           
  0175    3E 20 30 2C           
  0179    20 68 6F 70           
  017D    70 65 73 20           
  0181    72 65 6C 61           
  0185    74 69 76 74           
  0189    2C 20 65 6C           
  018D    6C 65 72 73                    DB    'lers fortsættes med næste instruktion.  '   ; 40 TEGN
  0191    20 66 6F 72           
  0195    74 73 7B 74           
  0199    74 65 73 20           
  019D    6D 65 64 20           
  01A1    6E 7B 73 74           
  01A5    65 20 69 6E           
  01A9    73 74 72 75           
  01AD    6B 74 69 6F           
  01B1    6E 2E 20 20           
  01B5    52 43 38 35                    DB    'RC855'                                      ;  5 TEGN
  01B9    35                    
                                         END
\f

	MACRO-80 3.44	09-Dec-81	PAGE	S


Macros:

Symbols:
010B 	BEGYND          013B 	CLEAR           0112 	HOP             
0121 	LOOP            0130 	LOOP1           012E 	LOOP2           
0103 	START           013D 	TXT             



2 Fatal error(s)


«eof»