|
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: 8192 (0x2000)
Types: TextFile
Names: »VLLPT«
└─⟦0ea19c315⟧ Bits:30001798 SG0018 Floppy
└─ ⟦this⟧ »/VLLPT«
«ff»
0001 VALPT DOMUS MACRO ASSEMBLER REV 01.06
01 ; DRIVER FOR OLIVETTI-PRINTER
02 ; REV L ALIAS T
03 ; PL+PHK8309281631
04 ; 9600 BAUD, 2 STOP, 7 DATA, NO PARITY
05 ; AMX CH. 7
06 ;
07 ; IKKE TESTET MED AMX-DRIVER INDE !!!!
08 ;
09 ; INITIERER SELV OVENSTÅENDE PARAMETRE
10 ; HANDSHAKE VIA RTS OG RFS PÅ AMX
11 ;
12 ;
.TITL VALPT
14 .NREL
15 0010 .RDXO 16
16 000A .RDX 10
17 0001 .TXTM 1
18 002A .DUSR AMX=42
19
20 00000' C101 PGDS: 1B0+1B1+1B7+1
21 00001' 0007' PGM
22 00002' 0000 0
23 00003' 0047 PCDS-PGDS
24 00004' 4C50 .TXT 'LPT<0><0>'
25 5400
26 0000
27
28 00007' AD00 PGM: SUB 1,1 ; STD DRIVER BRK.
29 00008' 8253 MOVZL 0,0,SNC
30 00009' 4A18 STA 1,RESER,2
31 0000A' 092E JSR WAMX ; SÆTN. SOM DENNE ER NØDV. FOR AMX. ELLERS KAN DEN IKKE FØLGE MED
32 0000B' 2138 LDA 0,C0730 ; INIT AF PARAMS (BAUD,STOP,DATA OG PAR. BITS)
33 0000C' 662A DOC 0,AMX
34 0000D' 092B JSR WAMX
35 0000E' 2136 LDA 0,C071D
36 0000F' 662A DOC 0,AMX
37 00010' 0928 JSR WAMX
38 00011' 2131 LDA 0,C0708 ; SÆT DTR ON, MODEM SIGNAL TIL PRINTER.
39 00012' 622A DOA 0,AMX
40 00013' 0925 JSR WAMX
41 00014' 212D LDA 0,C0702 ; START TRANSMITMODE (SENDER) (DET ER JO DET DET DREJER SIG OM !!)
42 00015' 622A DOA 0,AMX
43 00016' 3020 ST: LDA 2,CUR ; STD FOR DRIVER, SIDE 196 PP DOMUS REF.
44 00017' 0C74 NEXTO
45 00018' 0C79 SETRE
46 00019' 011D JMP P5
47 0001A' 2A16 P1: LDA 1,ADDRE,2
48 0001B' 0C7C GETBY
49 0001C' 2929 P2: LDA 1,C0705 ; HENT MODEM STATUS OG SMID VÆK
50 0001D' 091B JSR WAMX ; RESET'ER AMX-HARDWARE ABS. NØDV.
51 0001E' 6A2A DOA 1,AMX
52 0001F' 0919 JSR WAMX
53 00020' 692A DIA 1,AMX
54 00021' 2925 P3: LDA 1,C0707 ; HVIS OUTPUT BUFFER TOM, SEND CHR. ELLERS PRØV IGEN.
55 00022' 0916 JSR WAMX
56 00023' 6A2A DOA 1,AMX
57 00024' 0914 JSR WAMX
58 00025' 692A DIA 1,AMX
59 00026' AA40 MOVL 1,1
60 00027' AA43 MOVL 1,1,SNC
«ff»
0002 VALPT
01 00028' 01F2 JMP P1
02 00029' 2862 LDA 1,.127 ; FJERN ØVERSTE 9 BIT, OG LÆG CHNR*256 TIL (7*256)
03 0002A' A700 AND 1,0
04 0002B' 2854 LDA 1,.7
05 0002C' AAC0 MOVS 1,1
06 0002D' 8E00 ADD 0,1
07 0002E' 090A JSR WAMX
08 0002F' 6C2A DOB 1,AMX ; SEND CHR. (POKKERS BESVÆR AT SLIPPE AF MED DEN...)
09 00030' 1216 ISZ ADDRE,2
10 00031' 1A17 DSZ COUNT,2
11 00032' 01E8 JMP P1
12 00033' 8500 P4: SUB 0,0 ; STD DRIVER...
13 00034' 0C75 RETUR
14 00035' 01E1 JMP ST
15 00036' 0C79 P5: SETRE
16 00037' 01FC JMP P4
17 00038' 0101 WAMX: JMP .+1
18 00039' 0101 JMP .+1
19 0003A' 0101 JMP .+1
20 0003B' 0101 JMP .+1
21 0003C' 0101 JMP .+1
22 0003D' 0101 JMP .+1
23 0003E' 0101 JMP .+1
24 0003F' 0101 JMP .+1
25 00040' 0300 JMP +0,3
26 00041' 0702 C0702: 1794
27 00042' 0708 C0708: 1800
28 00043' 0730 C0730: 1840
29 00044' 071D C071D: 1821
30 00045' 0705 C0705: 1797
31 00046' 0707 C0707: 1799
32 00047' 0000 PCDS: 0
33 00048' 0000 0
34 00049' 0000 0
35 0004A' 001D PCDSE-PCDS
36 0004B' 4C50 .TXT 'LPT<0><0>'
37 5400
38 0000
39 0004E' 004E' .+0
40 0004F' 004E' .-1
41 00050' 0000 0
42 00051' 0000' PGDS
43 00052' 0000 0
44 00053' 0000 0
45 00054' 0034 52
46 00055' 0007' PGM
47 00056' 0047' PCDS
48 00057' 0000 0
49 00058' 0047' PCDS
50 00059' 0000 0
51 0005A' 000E" PGM*2
52 0005B' 0000 0
53 0005C' 0000 0
54 0005D' 0000 0
55 0005E' 0000 0
56 0005F' 0000 0
57 00060' 0000 0
58 00061' 0000 0
59 00062' 0000 0
60 00063' 0000 0
«ff»
0003 VALPT
01 PCDSE:
02 .END PCDS
0000 SOURCE LINES IN ERROR
«ff»
0004 VALPT
ADD 008600 PS 2/06
ADDRE 000016 PS 1/47 2/09
ALLAS 000E46
ALLOC 000E3C
ALSIZ 00000A
AMX 00002A PS 1/18 1/33 1/36 1/39 1/42 1/51 1/53
1/56 1/58 2/08
AND 008700 PS 2/03
BCALL 000000 MC
C0702 000041' 1/41 2/26
C0705 000045' 1/49 2/30
C0707 000046' 1/54 2/31
C0708 000042' 1/38 2/27
C071D 000044' 1/35 2/29
C0730 000043' 1/32 2/28
CILAS 000E5F
CISIZ 000003
COMUS 000E5C
COUNT 000017 PS 2/10
CUR 000020 PS 1/43
DIA 006100 PS 1/53 1/58
DOA 006200 PS 1/39 1/42 1/51 1/56
DOB 006400 PS 2/08
DOC 006600 PS 1/33 1/36
DSZ 001800 PS 2/10
FILAS 000E58
FILER 000E46
FISIZ 000012
GETBY 000C7C PS 1/48
ISZ 001000 PS 2/09
JMP 000000 PS 1/46 2/01 2/11 2/14 2/16 2/17 2/18
2/19 2/20 2/21 2/22 2/23 2/24 2/25
JSR 000800 PS 1/31 1/34 1/37 1/40 1/50 1/52 1/55
1/57 2/07
LDA 002000 PS 1/32 1/35 1/38 1/41 1/43 1/47 1/49
1/54 2/02 2/04
MAINC 000E5F
MCALL 000E00
MCLAS 000E68
MCSIZ 000009
NEXTO 000C74 PS 1/44
P1 00001A' 1/47 2/01 2/11
P2 00001C' 1/49
P3 000021' 1/54
P4 000033' 2/12 2/16
P5 000036' 1/46 2/15
PCDS 000047' 1/23 2/32 2/35 2/47 2/49 3/02
PCDSE 000064' 2/35 3/01
PGDS 000000' 1/20 1/23 2/42
PGM 000007' 1/21 1/28 2/46 2/51
PRDE1 000089 MC
PRDE2 0000BE MC
RESER 000018 PS 1/30
RETUR 000C75 PS 2/13
SETRE 000C79 PS 1/45 2/15
SNC 000003 PS 1/29 1/60
ST 000016' 1/43 2/14
STA 004000 PS 1/30
SUB 008500 PS 1/28 2/12
TILAS 000E5C
«ff»
0005 VALPT
TIMIN 000E58
TISIZ 000004
WAMX 000038' 1/31 1/34 1/37 1/40 1/50 1/52 1/55
1/57 2/07 2/17
.127 000062 PS 2/02
.7 000054 PS 2/04
«ff»
«eof»