100 REM OPEN1,8,1,"0:HEADER.OBJ 110 [143] SAVE"@0:HEADER.PAL",8 120 [158]700 ;PAL 64 ASSEMBLER 130 ;BLOCKS [184]E. 140 ;THIS PROGRAM LIVES INSIDE THE 1541 150 ; [175] CREATES AN EXTRA HEADER BLOCK 160 ;IT SHOULD BE USED WITH ITS BASIC 170 ; COUNTERPART IN THE C64 180 ; 190 .OPT O1 200 [172][178] $0800 210 JMP $EAA0 ;RESET DISK DRIVE 220 LDA $13FE ;TRACK #;RENTRY FROM BASIC 230 STA $18 240 LDA $13FF ;SEC[164]R # 250 STA $19 260 LDA #$00 ;CHECKSUM [129] HEADER 270 E[176] $16 280 E[176] $17 290 E[176] $18 300 E[176] $19 310 STA $1A 320 JSR $F934 ;C[145]VERT HEADER [164] GCR 330 LDX #$00 340 LOOP1 LDA $24,X ;S[164]RE OUR HEADER 350 STA $1000,X ;IMAGE IN A SAFE PLACE 360 INX 370 CPX #$0A 380 BNE LOOP1 390 LDA $13FE ;SET UP [129] [135]ING 400 STA $06 ;LAST SEC[164]R [145] THIS TRACK 410 LDX $13FF 420 DEX 430 STX $07 440 LDA #$00 450 STA $3D 460 STA $33 470 STA $30 480 LDA #$06 490 STA $32 500 LDA #$03 510 STA $31 520 JSR $F510 ;[135] IN HEADER BLOCK 530 JSR $F556 ;[146] [129] SYNC 540 [146]1 BVC [146]1 ;[135] IN [131] BLOCK 550 CLV 560 LDA $1C01 570 STA ($30),Y 580 INY 590 BNE [146]1 600 LDY #$BA 610 [146]2 BVC [146]2 620 CLV 630 LDA $1C01 640 STA $0100,Y 650 INY 660 BNE [146]2 670 CLV 680 HOLD BVC HOLD ;SEE [139] TAIL GAP IS 690 CLV ;OVER 700 LDA $1C01 710 CMP #$55 720 BEQ HOLD 730 LDA $1C0C 740 [175] #$1F 750 [176]A #$C0 760 STA $1C0C 770 LDA #$FF 780 STA $1C03 790 LDA #$FF ;WRITE OUT 5 SYNC MARKERS 800 STA $1C01 810 LDX #$05 820 [146]3 BVC [146]3 830 CLV 840 DEX 850 BNE [146]3 860 LDX #$00 ;WRITE OUT EXTRA HEADER 870 [146]4 BVC [146]4 ;BLOCK THAT WAS 880 CLV ;[148]D AT $1000 890 LDA $1000,X 900 STA $1C01 910 INX 920 CPX #$0A 930 BNE [146]4 940 LDX #$09 ;WRITE OUT HEADER GAP 950 [146]5 BVC [146]5 960 CLV 970 LDA #$55 980 STA $1C01 990 DEX 1000 BNE [146]5 1010 JSR $FE00 ;TERMINATE WRITE MODE 1020 LDA #$01 ;JUMP [164] ERR[176] H[175]LER 1030 JMP $F969 ;WITH A JOB ALL OK