|
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: 17696 (0x4520)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »FORMA«
└─⟦934333717⟧ Bits:30008597 DDMQ1-0029_Demonstration_Disk_SOURCE_Single_Density_Sept_77
└─⟦this⟧ »FORMA«
SD EQU 0F0
DIT EQU 0F1
FID EQU 0F5
OPTION EQU 0FF
SET 05000
RBUFP CON 0FF
CON 0FF
PASS CON 3
CPTR CON LBUF
STACK EQU 04A00
LBUF EQU 045A0
START LADR RBUFP
DIS
STI RBUF
INC,L
STI, RBUF%
LADR STACK
SPHL
OUTER LADR RBUF
INNER L,A
CI 3
JNZ CO
LADR PASS
L,1
DEC,1
ST,1
JNZ START
CL PRW
LI,A 0F
OUT,07
LI,A 8
OUT,06
CL PRW
STOP
CO CL PRINT
CL IHL
J INNER
IHL INC,L
RNZ
INC,H
R
DHL INC,L
DEC,L
JNZ *+4
DEC,H
DEC,L
R
SAVE LR,1,H
LR,2,L
LADR STACK
ST,1
INC,L
ST,2
R
RES LADR STACK
L,1
INC,L
L,2
LR,H,1
LR,L,2
R
NEWL LADR RBUFP
L,1
INC,L
L,2
LR,L,1
LI,4 LBUF
CHARL LI,A,1
A,L
JNZ MMM
INC,2
MMM LR,L,A
LR,H,2
L,A
LR,1,4
LR,4,L
LR,L,1
LI,H LBUF%
ST,A
O,A
CLM TABQ
CI 0D
JZ FINL
NOTCH INC,L
LR,A,L
CI LBUF+04F
JNZ WALT
DEC,L
WALT LR,1,4
LR,4,L
LR,L,1
J CHARL
TABQ DEC,L
LR,1,A
TABQL DEC,1
RNM
INC,L
STI " "
LR,A,L
CI LBUF+04E
RZ
J TABQL
FINL LADR RBUFP
ST,4
INC,L
ST,2
FINAL LADR CPTR
STI LBUF
R
PRINT CL SAVE
POS LI,1,0
VPOS LI,2 0
CI " "
JZ SP7
ACI 0
DEC,2
CI 9
JZ OUT
INC,2
LR,3,A
CL PRW
LR,A,3
CI 0E
JZ RET
CI 0B
JZ IDX
CI 2
JZ REV
LI,4,0
LR,A,2
S,1
JNC FWD
LR,A,1
S,2
LI,4,4
FWD LR,1,A
A,A
JNC *+5
INC,4
INC,4
A,A
JNC *+4
INC,4
A,1
JNC *+4
INC,4
LR,1,A
LR,A,4
OUT,07
LR,A,1
OUT,06
LR,1,2
LR,A,3
OUT,05
SP7 INC,2
OUT LADR POS+1
ST,1
LADR VPOS+1
ST,2
J RES
RET LI,2 0
IDX LI,A 8
OUT,07
OUT,06
J OUT
REV LI,A 0C
OUT,07
LI,A 4
OUT,06
J OUT
PRW IN,05
O,A
JM PRW
R
RBUF EQU *
CON 0D,0D
CON" --- ---",0D
CON" ö ö"
CON" A/C NO. :",0D,0D
CON 0D
CON" "
CON " DATE :",0D
CON " ö ö"
CON" INV NO. :",0D
CON" --- ---",0D
CON 0D
CON 0D
CON 0D
CON "---------------------------------------"
CON "---------------------------------------",0D
CON " ITEM ö DESCRIPTIONS "
CON" ö UNIT ö PRICE ö QTY ö AMOUNT",0D
CON "======================================="
CON "=======================================",0D
CON " ö ö"
CON " ö ö ö",0D
CON " ö ö"
CON " ö ö ö",0D
CON " ö ö"
CON " ö ö ö",0D
CON " ö ö"
CON " ö ö ö",0D
CON" ö ö"
CON " ö ö ö",0D
CON " ö ö"
CON " ö ö ö",0D
CON " ö ö"
CON " ö ö ö",0D
CON " ö ö"
CON " ö ö ö",0D
CON " ö ö"
CON " ö ö ö",0D
CON"======================================="
CON"=======================================",0D
DUP 55
CON " "
CON "TOTAL :",0D
CON 0D
CON 0D,0D,0D
CON 0D
CON 0D
CON"---------------------------------------"
CON"---------------------------------------",0D,03,0D
EEND END START