- ld c,read ; load the thing\r
- call bdos ; read records\r
- ; now,\r
- ; copy CCP to bank 0 for reloading\r
- ld hl,0100h\r
- ld bc,ccpsize ; clone 3K, just in case\r
- ld a,(@cbnk)\r
- push af ; save current bank\r
-ld$1:\r
- ld a,tpa$bank\r
- call ?bnksl ; select TPA\r
- ld a,(hl)\r
- push af ; get a byte\r
- ld a,2\r
- call ?bnksl ; select extra bank\r
- pop af\r
- ld (hl),a ; save the byte\r
- cpi ; bump pointer, drop count\r
- jp pe,ld$1\r
- pop af\r
- call ?bnksl ; restore original bank\r
- ret\r
+ ld c,read ; load the thing\r
+ call bdos ; read records\r