|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 36498 (0x8e92)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »DEPRINT«
└─⟦934333717⟧ Bits:30008597 DDMQ1-0029_Demonstration_Disk_SOURCE_Single_Density_Sept_77
└─⟦this⟧ »DEPRINT«
# NAME: DEPRINT
# PRINTER DEMONSTRATION PROGRAM
SET 04400
CLEARDIS LI,1 0FF
LI,A 1
OUT,04
CL DELA
DISAGA LI,A 020
OUT,03
DEC,1
RZ
CL DELA
J DISAGA
SKIP3 CL PBUSY
LI,A 8
OUT,07
LI,A 18
OUT,06
R
DELA IN,04
SL
RNC
J DELA
PBUSY IN 05
O,A
JM PBUSY
R
INCHL INC,L
RNZ
INC,H
R
DELAY CL DLY1
DLY1 CL DLY2
DLY2 CL DLY3
DLY3 CL DLY4
DLY4 CL DLY5
DLY5 CL DLY6
DLY6 LI,1 0FF
DLY7 DUP 0FF
NOP
DUP 4
L,4
DEC,1
JZ DLY7
R
DISPLAY CL CLEARDIS
LI,A 2
OUT,01
CL DELA
LI,A 1
OUT,04
CL DELA
NEXTDIS L,A
CI 0D
JZ FINISH
OUT,03
CL DELA
CL INCHL
J NEXTDIS
FINISH CL INCHL
R
KBD IN,01
CI,0D
RZ
J KBD
BLN CL PBUSY
LI,A 0
OUT,07
LI,A 0FF
OUT,06
R
PRINT LI,1 0
LR,2,1
LR,3,2
NEXTPR CL PBUSY
L,A
CI,0D
JZ PFINISH
CI 020
JZ SPACE
OUT,05
SPACE CL INCHL
CL PBUSY
LI,A 0
OUT,07
LI,A 5
OUT,06
INC,1
J NEXTPR
PFINISH CL INCHL
CL SKIP
CL PBUSY
LR,A,1
SL
JNC LOCA
INC,2
LOCA SL
JNC LOCB
INC,2
LOCB A,1
JNC LOCC
INC,2
LOCC LR,3,A
LI,A 4
O,2
OUT,07
LR,A,3
OUT,06
R
SKIP CL PBUSY
LI,A 08
OUT,07
OUT,06
R
UNBLN CL PBUSY
LI,A 4
OUT,07
LI,A 0FF
OUT,06
R
# MAIN
MAIN LADR,SP 06000
LI,A 080
DIS
OUT,07
LADR MSG1
CL DISPLAY
DUP 0FD
CL DELAY
LADR MSG2
CL DISPLAY
CL KBD
LADR MSG3
CL DISPLAY
LADR MSG4
CL PBUSY
LI,A 8
OUT,07
LI,A 54
OUT,06
LADR MSG4
CL BLN
CL PRINT
LADR MSG5
CL PRINT
LADR MSG6
CL PRINT
LADR MSG7
CL PRINT
CL SKIP3
LADR MSG8
CL PRINT
LADR MSG9
CL PRINT
LADR MSG10
CL PRINT
LADR MSG11
CL PRINT
CL SKIP3
LADR MSG12
CL DISPLAY
CL KBD
LADR MSG13
CL PRINT
LADR MSG14
CL PRINT
CL SKIP3
LADR MSG15
CL UNBLN
NEX CL PBUSY
L,A
CI,0D
JZ NEXM
OUT,05
CL PBUSY
LI,A 0
OUT,07
LI,A 5
OUT,06
CL INCHL
J NEX
NEXM CL SKIP3
LADR MSG16
CL DISPLAY
CL KBD
CL PBUSY
LI,1 6
LI,A 1
OUT,01
LI,A 7
OUT,07
LI,A 18
OUT,06
CL PBUSY
QQ DEC,1
JZ FINIE
LI,A 1
OUT,01
LI,A 3
OUT,07
LI,A 16
OUT,06
CL PBUSY
LI,A 7
OUT,07
LI,A 16
OUT,06
CL PBUSY
J QQ
FINIE LADR MSG17
CL DISPLAY
CL KBD
CL PBUSY
LI,1 6
DOS DEC,1
JZ FINISHED
LI,A 1
OUT,01
LI,A 12
OUT,07
LI,A 120
OUT,06
CL PBUSY
LI,A 8
OUT,07
LI,A 120
OUT,06
CL PBUSY
J DOS
FINISHED CL PBUSY
LADR MSG18
CL DISPLAY
CL KBD
CL PBUSY
LI,A 8
OUT,07
LI,A 144
OUT,06
LADR MSG19
CL BLN
CL PRINT
LADR MSG20
CL PRINT
LADR MSG21
CL PRINT
LADR MSG22
CL PRINT
LADR MSG23
CL PRINT
CL PBUSY
LI,A 12
OUT,07
LI,A 176
OUT,06
CL UNBLN
CL RULE
LADR MSG24
CL DISPLAY
CL KBD
CL PBUSY
LI,A 010
OUT,07
TTT LI,A 2
OUT,01
ENB
J 04001
RULE CL PBUSY
LI,3 08
LOOP3 LI,1 00
LI,2 03
LLLL LI,A 020
OUT,07
LOOP1 LI,A "ö"
OUT,05
CONST2 LI,A 01
OUT,06
CL PBUSY
LR,A,1
CONST1 SI 01
LR,1,A
LR,A,2
SBI 0
LR,2,A
JNZ LOOP1
DEC,1
INC,1
JNZ LOOP1
LI,A "ö"
OUT,05
CL PBUSY
ANC J AAA
AAA LI,A 024
LADR LLLL+1
ST,A
LI,A AOC%
LADR ANC+2
ST,A
LI,A AOC
DEC,L
ST,A
J AMC
AOC LI,A 020
LADR LLLL+1
ST,A
LI,A AAA%
LADR ANC+2
ST,A
LI,A AAA
DEC,L
ST,A
AMC LI,A 08
OUT,07
LI,A 06
OUT,06
CL PBUSY
DEC,3
JZ END1
LADR CONST1+1
L,A
SL
ST,A
LADR CONST2+1
ST,A
J LOOP3
END1 LI,1 03
LADR CONST1+1
STI 01
LADR CONST2+1
STI 01
LOOP2 LI,A "ö"
OUT,05
LI,A 01
OUT,07
X,A
OUT,06
CL PBUSY
DEC,1
JNZ LOOP2
LI,A "ö"
OUT,05
CL PBUSY
LI,A 08
OUT,07
LI,A 06
OUT,06
CL PBUSY
LI,A 5
OUT,07
X,A
OUT,06
CL PBUSY
LI,A "ö"
OUT,05
LI,A 06
OUT,07
X,A
OUT,06
CL PBUSY
LI,A "ö"
OUT,05
CL PBUSY
LI,A 08
OUT,07
OUT,06
CL PBUSY
LI,A 010
OUT,07
CL PBUSY
LI,3 08
LOOP4 LI,1 00
LI,2 01
CONST5 LI,A 028
OUT,07
LOOP5 LI,A "_"
OUT,05
CONST3 LI,A 01
OUT,06
CL PBUSY
LR,A,1
CONST4 SI 01
LR,1,A
LR,A,2
SBI 00
LR,2,A
JNZ LOOP5
DEC,1
INC,1
JNZ LOOP5
LI,A "_"
OUT,05
CL PBUSY
LADR CONST5+1
LI,A 04
X,M
ST,A
X,A
OUT,07
LI,A 06
OUT,06
CL PBUSY
DEC,3
JZ END2
LADR CONST3+1
L,A
SL
ST,A
LADR CONST4+1
ST,A
J LOOP4
END2 LI,A 08
OUT,07
CL PBUSY
LI,A 0FF
OUT,06
CL PBUSY
R
MSG1 CON "WELCOME TO Q1, LET ME SHOW YOU THE CAPABILITY"
CON " OF THE PRINTER ",0D
MSG2 CON "PLEASE PRESS THE *RETURN* KEY "
CON " WHENEVER YOU ARE READY"
CON " TO GO TO THE NEXT STEP",0D
MSG3 CON "THE PRINTER HAS A 96 CHARACTER SET WITH UPPER"
CON " AND LOWER CASE ALPHABETS",0D
MSG4 CON "The Q1 Serial Impact Printer is quiet and"
CON " extremely ",0D
MSG5 CON "realiable. The average printing speed is 45"
CON " characters ",0D
MSG6 CON "per second. The printer has a 96 characters set"
CON " with ",0D
MSG7 CON "upper and lower case alphabets capability:- ",0D
MSG8 CON "ABCDEFGHIJKLMNOPQRSTUVWXYZ",0D
MSG9 CON "abcdefghijklmnopqrstuvwxyz",0D
MSG10 CON "!",022, "#$%&''()*+,-./:",0D
MSG11 CON ";<=>?@ÄÖÅ~_`~ä!å¬",0D
MSG12 CON "THERE ARE 158 PRINT POSITIONS EACH LINE AT 12"
CON " CHARACTERS PER INCH",0D
MSG13 CON "There are altogether 158 print positions each "
CON "line ",0D
MSG14 CON "at 12 characters per inch:-",0D
MSG15 CON "1234567890123456789012345678901234567890123456"
CON "7890"
CON "12345678901234567890123456789012345678901234567890"
CON "1234567890"
CON "123456789012345678901234567890123456789012345678",0D
MSG16 CON "THE PRINTER CAN SKIP AT A RATE OF 395CHARACTERS"
CON " PER SECOND IN BOTH DIRECTIONS ",0D
MSG17 CON "THE PAPER CAN MOVE EITHER FORWARD OR BACKWARD",0D
MSG18 CON "Q1 CAN PRINT IN BOTH DIRECTIONS AT 1/120",022
CON " HORIZONT"
CON "ALLY AND 1/48",022, " VERTICALLY",0D
MSG19 CON "The Q1 Serial Impact printer can print in both "
CON "directions",0D
MSG20 CON "and the paper can move either forward or "
CON "backward at ",0D
MSG21 CON "a horizontal precision of 1/60 inch and a "
CON "vertical",0D
MSG22 CON "precision of 1/48 inch, giving a lot of "
CON "flexibility ",0D
MSG23 CON "to the output of the Q1 system",0D
MSG24 CON "THANK YOU FOR COMING TO Q1, I HOPE I CAN BE"
CON " OF SERVICE IN THE NEAR FUTURE!",0D
AAB END MAIN