DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦c3e428d14⟧ TextFile

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »PARRALPR.NAS«

Derivation

└─⟦122ca995a⟧ Bits:30005902 Move-IT arbejdsdiskette
    └─ ⟦this⟧ »PARRALPR.NAS«

TextFile

0001               
0002               
0003               
0004               ;************************************
0005               ;**** CENTRONIC PRINTER ROUTINE. ****
0006               ;************ 07-05-83.**************
0007               
0008               
0009               ;Printer connections:
0010               ;PORT Socket:            PRINTER Socket:
0011               ;PORT 4,BIT 0 (13)      =BUSY        (11)
0012               ;PORT 4,BIT 1 (15)      =STROBE      (1)
0013               ;PORT 4,STB   (11)      =Ground      (16)
0014               ;PORT 5,BIT 0 (10)      =DATA 1      (2)
0015               ;PORT 5,BIT 1 (8)       =DATA 2      (3)
0016               ;PORT 5,BIT 2 (6)       =DATA 3      (4)
0017               ;PORT 5,BIT 3 (4)       =DATA 4      (5)
0018               ;PORT 5,BIT 4 (2)       =DATA 5      (6)
0019               ;PORT 5,BIT 5 (1)       =DATA 6      (7)
0020               ;PORT 5,BIT 6 (3)       =DATA 7      (8)
0021               ;PORT 5,BIT 7 (5)       =DATA 8      (9)
0022               ;If printers DATA 8 not being used
0023               ;then connect this to Ground.
0024               ;GND          (16)      =Ground      (14)
0025               ;GND          (18)      =Ground      (16)
0026               ;                       =Chas.Ground (17)
0027               
0028               ;-----------------------
0029               
0030 0C80                  ORG  0C80H
0031                      ;MEM  $
0032               
0033               ;-----------------------
0034               ;Set start adress in useroutput routine.
0035               ;-----------------------
0036 0C80 219C0C   START:  LD   HL,PRINT
0037 0C83 22780C           LD   (0C78H),HL
0038               
0039               ;-----------------------
0040               ;Initialise PIO.
0041               ;-----------------------
0042 0C86 3ECF     INIT:   LD   A,0CFH     ;PORT A SOM CTRL
0043 0C88 D306             OUT  (6),A
0044 0C8A 3EFD             LD   A,0FDH     ;BIT 1 SOM OUTPUT
0045 0C8C D306             OUT  (6),A
0046 0C8E 3E07             LD   A,7        ;BIT 0 SOM INPUT
0047 0C90 D306             OUT  (6),A




----------------------------------------------------------------------


PRINTER                                                        SIDE 03


0048 0C92 3E0F             LD   A,0FH      ;PORT B SOM DATA
0049 0C94 D307             OUT  (7),A
0050 0C96 3E03             LD   A,3
0051 0C98 D307             OUT  (7),A
0052 0C9A DF5B             SCAL 5BH
0053               
0054               ;-----------------------
0055               ;Printout routine.
0056               ;-----------------------
0057 0C9C F5       PRINT:  PUSH AF
0058 0C9D DB04     BUSY:   IN   A,(4)      ;Check for BUSY
0059 0C9F CB47             BIT  0,A
0060 0CA1 20FA             JR   NZ,BUSY    ;if jump.
0061 0CA3 F1               POP  AF
0062 0CA4 D305             OUT  (5),A
0063 0CA6 F5               PUSH AF
0064 0CA7 3E00             LD   A,0        ;Strobe ON
0065 0CA9 D304             OUT  (4),A
0066 0CAB 3EFF             LD   A,0FFH     ;Strobe OFF
0067 0CAD D304             OUT  (4),A
0068 0CAF F1               POP  AF
0069 0CB0 C9               RET
0070               
0071               
0072 0CB1          ZEND:   END
«eof»