mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-01-11 23:43:17 +00:00
55 lines
1.3 KiB
Plaintext
55 lines
1.3 KiB
Plaintext
* 940 MAG TAPE EXAMPLE
|
|
* based on reference manual example
|
|
*
|
|
BRI OPD 01100000
|
|
*
|
|
*
|
|
AORG 0200
|
|
GWMT PZE
|
|
CLA
|
|
STA COUNT
|
|
SKS 10411 TAPE READY TEST
|
|
BRU $+2
|
|
BRU $-2
|
|
LDA GWMT
|
|
STA FAST SET FAST'S RETURN
|
|
MIN FAST
|
|
WTD *0,1,4
|
|
BRU FAST+1
|
|
*
|
|
FAST PZE
|
|
LDX COUNT
|
|
LDA OKAY
|
|
LDB MASK
|
|
SKM COUNT
|
|
BRU $+2
|
|
BRI FAST FINISHED ALL
|
|
*
|
|
ALC 0 ALERT INTERLACE IN CHAN W
|
|
EXU A,2 IOXX EOM
|
|
POT A+1,2
|
|
MIN COUNT
|
|
MIN COUNT
|
|
BRI FAST RETURN
|
|
*
|
|
A EOM 015600 IOSP, ZERO WORD COUNT INTERRUPT
|
|
DATA 6202000 100 WORDS, LOC 02000
|
|
EOM 015600 IOSP, ZERO WORD COUNT INTERRUPT
|
|
DATA 014402500 200 WORDS, LOC 02500
|
|
EOM 015000 IORD, ZERO WORD COUNT INTERRUPT
|
|
DATA 06203000 100 WORDS, LOC 03000
|
|
OKAY DATA 6
|
|
COUNT DATA 0
|
|
MASK DATA 077777777
|
|
INT BRM FAST
|
|
*
|
|
MAIN LDA INT
|
|
STA 031
|
|
EIR
|
|
BRM GWMT
|
|
NOP
|
|
NOP
|
|
BRU $-2
|
|
END MAIN
|
|
|