cbmsrc/DOS_1551/con.src at master · mist64/cbmsrc · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
; 08/26/83 ds
;
;
;    *conhdr
;
;    convert header
;    into gcr search image
;    and place in stab
;
;   image contains :
;
;   00 id id tr sc cs hbid
;
;
conhdr  lda  bufpnt+1   ; save buffer pointer
        sta  savpnt+1
;
        lda  #>ovroff
        sta  bufpnt+1
;
        lda  #$11       ; store in staboff @$0111
        sta  gcrpnt
;
        lda  #hbid
        sta  btab
;
        lda  header+4
        sta  btab+1
;
        lda  header+3
        sta  btab+2
;
        lda  header+2
        sta  btab+3
;
        jsr  put4bg
;
        lda  header+1
        sta  btab
;
        lda  header
        sta  btab+1
;
        lda  #0
        sta  btab+2
        sta  btab+3
;
        jsr  put4bg
;
        lda  savpnt+1   ; restore buffer pointer
        sta  bufpnt+1
;
        rts