|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4736 (0x1280)
Types: TextFile
Names: »B6OP7.PRN«
└─⟦b2cb6c17b⟧ Bits:30009846 EDB SKOLE - SYSTEM
└─⟦this⟧ »B6OP7.PRN«
\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»