|
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: 25201 (0x6271)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »GRAPHA«
└─⟦934333717⟧ Bits:30008597 DDMQ1-0029_Demonstration_Disk_SOURCE_Single_Density_Sept_77
└─⟦this⟧ »GRAPHA«
SET 04400
CON 03,03,03,03,03,03,03,03,02,02,02,02,02,02,02
CON 02,01,01,01,01,01,01,01,00,00
SET 04419
CON 00,00,01,01,01,01,01,01,02,02,02,02,02,02,02
CON 02,02,03,03,03,03,03,03,03,03
SET 04432
CON "180"
SET 04435
CON "360"
SET 04438
CON "540"
SET 0443B
CON "720"
SET 0443E
CON "900"
SET 04441
CON "1080"
SET 04445
CON "+1-"
SET 04448
CON "-1-"
SET 0444B
CON "Y=SIN X"
PBUSY IN,05
NI 080
RZ
J PBUSY
RM CL PBUSY
LI,A 00
OUT,07
CL PBUSY
LI,A 05
OUT,06
DEC,B
JNZ RM
R
LEFT CL PBUSY
LI,A 080
OUT,07
R
CRL CL PBUSY
LI,A 04
OUT,07
CL PBUSY
LI,A 0F0
OUT,06
DEC,B
JNZ CRL
R
BACK CL PBUSY
LI,A 00
OUT,07
CL PBUSY
LI,A 01
OUT,06
CL PBUSY
LI,A 0C
OUT,07
CL PBUSY
L,A
OUT,06
CL PBUSY
LI,A "."
OUT,05
CL INCHL
DEC,B
JNZ BACK
R
INCHL INC,L
RNZ
INC,H
R
PFOWART CL PBUSY
LI,A 08
OUT,07
CL PBUSY
LI,A 04
OUT,06
DEC,B
JNZ PFOWART
R
PRINT CL PBUSY
LI,A 00
OUT,07
CL PBUSY
LI,A 05
OUT,06
CL PBUSY
L,A
OUT,05
CL INCHL
DEC,B
JNZ PRINT
R
FOWARD CL PBUSY
LI,A 00
OUT,07
CL PBUSY
LI,A 01
OUT,06
CL PBUSY
LI,A 08
OUT,07
CL PBUSY
L,A
OUT,06
CL PBUSY
LI,A "."
OUT,05
CL INCHL
DEC,B
JNZ FOWARD
R
PBACK CL PBUSY
LI,A 0C
OUT,07
CL PBUSY
LI,A 080
OUT,06
DEC,B
JNZ PBACK
R
START CL LEFT
LI,B 04
CL RM
LI,B 040
AAA CL PBUSY
LI,A 08
OUT,07
CL PBUSY
LI,A 04
OUT,06
CL PBUSY
LI,A "ö"
OUT,05
DEC,B
JNZ AAA
LI,B 01
CL PBACK
LI,B 060
BBB CL PBUSY
LI,A 00
OUT,07
CL PBUSY
LI,A 05
OUT,06
CL PBUSY
LI,A "-"
OUT,05
DEC,B
JNZ BBB
LI,B 02
CL CRL
CL LEFT
CL PBUSY
LI,B 03
CL RM
CL PBUSY
LI,B 01
CL PFOWART
DEGREE CL PBUSY
LI,A "0"
OUT,05
LI,B 08
CL RM
LADR 04432
LI,B 03
CL PRINT
LI,B 07
CL RM
LADR 04435
LI,B 03
CL PRINT
LI,B 07
CL RM
LADR 04438
LI,B 03
CL PRINT
LI,B 07
CL RM
LADR 0443B
LI,B 03
CL PRINT
LI,B 07
CL RM
LADR 0443E
LI,B 03
CL PRINT
LI,B 06
CL RM
LADR 04441
LI,B 04
CL PRINT
LI,B 020
CL RM
XY CL PBUSY
LI,A "X"
OUT,05
LI,B 01
CL CRL
CL LEFT
LI,B 02
CL RM
LI,B 01
CL PBACK
CL PBUSY
LI,A "Y"
OUT,05
CL LEFT
LI,B 01
CL RM
LI,B 01
PF1 CL PBUSY
LI,A 08
OUT,07
CL PBUSY
LI,A 04C
OUT,06
DEC,B
JNZ PF1
LADR 04445
LI,B 03
CL PRINT
CL LEFT
LI,B 01
CL RM
LI,B 01
PF2 CL PBUSY
LI,A 08
OUT,07
CL PBUSY
LI,A 060
OUT,06
DEC,B
JNZ PF2
LADR 04448
LI,B 03
CL PRINT
ZERO LI,B 01
CL PBUSY
LI,A 0C
OUT,07
CL PBUSY
LI,A 031
OUT,06
DEC,B
JNZ ZERO
LI,B 01
RMM CL PBUSY
LI,A 00
OUT,07
CL PBUSY
LI,A 02
OUT,06
DEC,B
JNZ RMM
CL PBUSY
LI,C 03
DOUBLE LI,B 019
LADR 04400
CL BACK
LADR 04419
LI,B 019
CL FOWARD
LADR 04400
LI,B 019
CL FOWARD
LADR 04419
LI,B 019
CL BACK
DEC,C
JNZ DOUBLE
CENTRE LI,B 01
CL PBUSY
LI,A 04
OUT,07
CL PBUSY
LI,A 0C0
OUT,06
DEC,B
JNZ CENTRE
LI,B 01
PF3 CL PBUSY
LI,A 08
OUT,07
CL PBUSY
LI,A 040
OUT,06
DEC,B
JNZ PF3
LADR 0444B
LI,B 07
CL PRINT
CL PBUSY
LI,B 02
PP2 CL PBUSY
LI,A 08
OUT,07
CL PBUSY
LI,A 090
OUT,06
DEC,B
JNZ PP2
CL LEFT
CL PBUSY
STOP
END START