|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3840 (0xf00)
Types: TextFile
Names: »PARRALPR.NAS«
└─⟦122ca995a⟧ Bits:30005902 Move-IT arbejdsdiskette
└─ ⟦this⟧ »PARRALPR.NAS«
0001 «nul»«nul»«nul»«nul»«nul»«nul»0002 «nul»«nul»«nul»«nul»«nul»«nul»0003 «nul»«nul»«nul»«nul»«nul»«nul»0004 ;************************************ «nul»«nul»«nul»«nul»«nul»«nul»0005 ;**** CENTRONIC PRINTER ROUTINE. **** «nul»«nul»«nul»«nul»«nul»«nul»0006 ;************ 07-05-83.************** «nul»«nul»«nul»«nul»«nul»«nul»0007 «nul»«nul»«nul»«nul»«nul»«nul»0008 «nul»«nul»«nul»«nul»«nul»«nul»0009 ;Printer connections: «nul»«nul»«nul»«nul»«nul»«nul»0010 ;PORT Socket: PRINTER Socket: «nul»«nul»«nul»«nul»«nul»«nul»0011 ;PORT 4,BIT 0 (13) =BUSY (11) «nul»«nul»«nul»«nul»«nul»«nul»0012 ;PORT 4,BIT 1 (15) =STROBE (1) «nul»«nul»«nul»«nul»«nul»«nul»0013 ;PORT 4,STB (11) =Ground (16) «nul»«nul»«nul»«nul»«nul»«nul»0014 ;PORT 5,BIT 0 (10) =DATA 1 (2) «nul»«nul»«nul»«nul»«nul»«nul»0015 ;PORT 5,BIT 1 (8) =DATA 2 (3) «nul»«nul»«nul»«nul»«nul»«nul»0016 ;PORT 5,BIT 2 (6) =DATA 3 (4) «nul»«nul»«nul»«nul»«nul»«nul»0017 ;PORT 5,BIT 3 (4) =DATA 4 (5) «nul»«nul»«nul»«nul»«nul»«nul»0018 ;PORT 5,BIT 4 (2) =DATA 5 (6) «nul»«nul»«nul»«nul»«nul»«nul»0019 ;PORT 5,BIT 5 (1) =DATA 6 (7) «nul»«nul»«nul»«nul»«nul»«nul»0020 ;PORT 5,BIT 6 (3) =DATA 7 (8) «nul»«nul»«nul»«nul»«nul»«nul»0021 ;PORT 5,BIT 7 (5) =DATA 8 (9) «nul»«nul»«nul»«nul»«nul»«nul»0022 ;If printers DATA 8 not being used «nul»«nul»«nul»«nul»«nul»«nul»0023 ;then connect this to Ground. «nul»«nul»«nul»«nul»«nul»«nul»0024 ;GND (16) =Ground (14) «nul»«nul»«nul»«nul»«nul»«nul»0025 ;GND (18) =Ground (16) «nul»«nul»«nul»«nul»«nul»«nul»0026 ; =Chas.Ground (17) «nul»«nul»«nul»«nul»«nul»«nul»0027 «nul»«nul»«nul»«nul»«nul»«nul»0028 ;----------------------- «nul»«nul»«nul»«nul»«nul»«nul»0029 «nul»«nul»«nul»«nul»«nul»«nul»0030 0C80 ORG 0C80H «nul»«nul»«nul»«nul»«nul»«nul»0031 ;MEM $ «nul»«nul»«nul»«nul»«nul»«nul»0032 «nul»«nul»«nul»«nul»«nul»«nul»0033 ;----------------------- «nul»«nul»«nul»«nul»«nul»«nul»0034 ;Set start adress in useroutput routine. «nul»«nul»«nul»«nul»«nul»«nul»0035 ;----------------------- «nul»«nul»«nul»«nul»«nul»«nul»0036 0C80 219C0C START: LD HL,PRINT «nul»«nul»«nul»«nul»«nul»«nul»0037 0C83 22780C LD (0C78H),HL «nul»«nul»«nul»«nul»«nul»«nul»0038 «nul»«nul»«nul»«nul»«nul»«nul»0039 ;----------------------- «nul»«nul»«nul»«nul»«nul»«nul»0040 ;Initialise PIO. «nul»«nul»«nul»«nul»«nul»«nul»0041 ;----------------------- «nul»«nul»«nul»«nul»«nul»«nul»0042 0C86 3ECF INIT: LD A,0CFH ;PORT A SOM CTRL «nul»«nul»«nul»«nul»«nul»«nul»0043 0C88 D306 OUT (6),A «nul»«nul»«nul»«nul»«nul»«nul»0044 0C8A 3EFD LD A,0FDH ;BIT 1 SOM OUTPUT «nul»«nul»«nul»«nul»«nul»«nul»0045 0C8C D306 OUT (6),A «nul»«nul»«nul»«nul»«nul»«nul»0046 0C8E 3E07 LD A,7 ;BIT 0 SOM INPUT «nul»«nul»«nul»«nul»«nul»«nul»0047 0C90 D306 OUT (6),A «nul»«nul»«nul»«nul»«nul»«nul» «nul»«nul»«nul»«nul»«nul»«nul»---------------------------------------------------------------------- «nul»«nul»«nul»«nul»«nul»«nul»PRINTER SIDE 03 «nul»«nul»«nul»«nul»«nul»«nul»0048 0C92 3E0F LD A,0FH ;PORT B SOM DATA «nul»«nul»«nul»«nul»«nul»«nul»0049 0C94 D307 OUT (7),A «nul»«nul»«nul»«nul»«nul»«nul»0050 0C96 3E03 LD A,3 «nul»«nul»«nul»«nul»«nul»«nul»0051 0C98 D307 OUT (7),A «nul»«nul»«nul»«nul»«nul»«nul»0052 0C9A DF5B SCAL 5BH «nul»«nul»«nul»«nul»«nul»«nul»0053 «nul»«nul»«nul»«nul»«nul»«nul»0054 ;----------------------- «nul»«nul»«nul»«nul»«nul»«nul»0055 ;Printout routine. «nul»«nul»«nul»«nul»«nul»«nul»0056 ;----------------------- «nul»«nul»«nul»«nul»«nul»«nul»0057 0C9C F5 PRINT: PUSH AF «nul»«nul»«nul»«nul»«nul»«nul»0058 0C9D DB04 BUSY: IN A,(4) ;Check for BUSY «nul»«nul»«nul»«nul»«nul»«nul»0059 0C9F CB47 BIT 0,A «nul»«nul»«nul»«nul»«nul»«nul»0060 0CA1 20FA JR NZ,BUSY ;if jump. «nul»«nul»«nul»«nul»«nul»«nul»0061 0CA3 F1 POP AF «nul»«nul»«nul»«nul»«nul»«nul»0062 0CA4 D305 OUT (5),A «nul»«nul»«nul»«nul»«nul»«nul»0063 0CA6 F5 PUSH AF «nul»«nul»«nul»«nul»«nul»«nul»0064 0CA7 3E00 LD A,0 ;Strobe ON «nul»«nul»«nul»«nul»«nul»«nul»0065 0CA9 D304 OUT (4),A «nul»«nul»«nul»«nul»«nul»«nul»0066 0CAB 3EFF LD A,0FFH ;Strobe OFF «nul»«nul»«nul»«nul»«nul»«nul»0067 0CAD D304 OUT (4),A «nul»«nul»«nul»«nul»«nul»«nul»0068 0CAF F1 POP AF «nul»«nul»«nul»«nul»«nul»«nul»0069 0CB0 C9 RET «nul»«nul»«nul»«nul»«nul»«nul»0070 «nul»«nul»«nul»«nul»«nul»«nul»0071 «nul»«nul»«nul»«nul»«nul»«nul»0072 0CB1 ZEND: END «nul»«nul»«nul»«nul»«nul»«nul»«eof»