Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/format.asm @ 162:3310d08dd353

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Analysis of format. They are different due to differences in hardware
author roug
date Tue, 09 Jul 2002 21:05:30 +0000
parents f418bf788bfa
children 3a847d2b4492
comparison
equal deleted inserted replaced
161:fed96c42e0b4 162:3310d08dd353
22 22
23 mod eom,name,tylg,atrv,start,size 23 mod eom,name,tylg,atrv,start,size
24 24
25 u0000 rmb 1 25 u0000 rmb 1
26 u0001 rmb 1 26 u0001 rmb 1
27 u0002 rmb 1 27 PathNm rmb 1
28 u0003 rmb 1 28 u0003 rmb 1
29 u0004 rmb 1 29 u0004 rmb 1
30 u0005 rmb 2 30 u0005 rmb 2
31 u0007 rmb 1 31 u0007 rmb 1
32 u0008 rmb 1 32 u0008 rmb 1
52 u001F rmb 1 52 u001F rmb 1
53 u0020 rmb 2 53 u0020 rmb 2
54 u0022 rmb 1 54 u0022 rmb 1
55 u0023 rmb 1 55 u0023 rmb 1
56 u0024 rmb 1 56 u0024 rmb 1
57 u0025 rmb 1 57 ClustSz rmb 1
58 u0026 rmb 1 58 u0026 rmb 1
59 u0027 rmb 1 59 u0027 rmb 1
60 u0028 rmb 1 60 u0028 rmb 1
61 u0029 rmb 1 61 u0029 rmb 1
62 u002A rmb 1 62 u002A rmb 1
76 u003D rmb 2 76 u003D rmb 2
77 u003F rmb 4 77 u003F rmb 4
78 u0043 rmb 1 78 u0043 rmb 1
79 u0044 rmb 2 79 u0044 rmb 2
80 u0046 rmb 1 80 u0046 rmb 1
81 u0047 rmb 1 81 DevPath rmb 1 Contains "/"
82 u0048 rmb 13 82 Device rmb 13
83 u0055 rmb 15 83 u0055 rmb 15
84 u0064 rmb 3 84 u0064 rmb 3
85 u0067 rmb 32 85 u0067 rmb 32
86 u0087 rmb 40 86 u0087 rmb 40
87 u00AF rmb 14 87 u00AF rmb 14
88 u00BD rmb 12 88 u00BD rmb 12
89 u00C9 rmb 5 89 DateBf rmb 5
90 u00CE rmb 9 90 u00CE rmb 9
91 u00D7 rmb 17 91 u00D7 rmb 17
92 u00E8 rmb 6 92 u00E8 rmb 6
93 u00EE rmb 177 93 u00EE rmb 177
94 u019F rmb 2 94 u019F rmb 2
95 u01A1 rmb 2 95 u01A1 rmb 2
96 u01A3 rmb 12 96 u01A3 rmb 12
97 u01AF rmb 256 97 DDBuf rmb 256
98 u02AF rmb 3 98 u02AF rmb 3
99 u02B2 rmb 9924 99 u02B2 rmb 9924
100 u2976 rmb 451 100 u2976 rmb 451
101 size equ . 101 size equ .
102 102
242 stu <u0000 242 stu <u0000
243 bsr L00BE 243 bsr L00BE
244 bsr L00CF 244 bsr L00CF
245 bsr L011A 245 bsr L011A
246 lbsr L0295 246 lbsr L0295
247 lbsr L0351 247 lbsr AskBoth
248 lbsr L04A9 248 lbsr L04A9
249 lbsr L0586 249 lbsr L0586
250 lbsr L05BC 250 lbsr L05BC
251 lbsr L07B6 251 lbsr L07B6
252 ldu <u0044 252 ldu <u0044
253 os9 I$Detach 253 os9 I$Detach
254 clrb 254 clrb
255 L00BB os9 F$Exit 255 Exit os9 F$Exit
256 L00BE leay u0002,u 256
257 L00BE leay PathNm,u
257 pshs y 258 pshs y
258 leay >u00AF,u 259 leay >u00AF,u
259 L00C6 clr ,-y 260 L00C6 clr ,-y
260 cmpy ,s 261 cmpy ,s
261 bhi L00C6 262 bhi L00C6
262 puls pc,y 263 puls pc,y
264
263 L00CF lda ,x+ 265 L00CF lda ,x+
264 cmpa #$2F 266 cmpa #'/
265 beq L00DA 267 beq L00DA
266 L00D5 ldb #$D7 268 L00D5 ldb #E$BPNam
267 lbra L08D3 269 lbra ErrExit
268 L00DA os9 F$PrsNam 270 L00DA os9 F$PrsNam
269 lbcs L08D3 271 lbcs ErrExit
270 lda #$2F 272 lda #'/
271 cmpa ,y 273 cmpa ,y
272 beq L00D5 274 beq L00D5
273 sty <u0020 275 sty <u0020
274 leay <u0047,u 276 *
277 * Copy device name from arg to DevPath
278 leay <DevPath,u
275 L00ED sta ,y+ 279 L00ED sta ,y+
276 lda ,x+ 280 lda ,x+
277 decb 281 decb
278 bpl L00ED 282 bpl L00ED
279 leax <u0048,u 283 leax <Device,u
280 lda #$20 284 lda #$20
281 sta ,y 285 sta ,y
282 clra 286
287 clra 0 = Use device capabilities
283 os9 I$Attach 288 os9 I$Attach
284 lbcs L08D3 289 lbcs ErrExit
285 stu <u0044 290 stu <u0044
286 ldu <u0000 291 ldu <u0000
287 lda #$40 292 lda #$40
288 ldb #$20 293 ldb #$20
289 std ,y 294 std ,y
290 lda #$02 295 lda #WRITE.
291 leax <u0047,u 296 leax <DevPath,u
292 os9 I$Open 297 os9 I$Open
293 bcs L00BB 298 bcs Exit
294 sta <u0002 299 sta <PathNm
295 rts 300 rts
296 L011A bsr L0122 301 L011A bsr L0122
297 bsr L015D 302 bsr L015D
298 lbsr L0216 303 lbsr L0216
299 rts 304 rts
300 L0122 leax >u01AF,u 305
306 L0122 leax >DDBuf,u
301 clrb 307 clrb
302 os9 I$GetStt 308 os9 I$GetStt
303 bcs L00BB 309 bcs Exit
304 ldb $07,x 310 ldb $07,x
305 stb <u0012 311 stb <u0012
306 ldb $04,x 312 ldb $04,x
307 pshs b 313 pshs b
308 andb #$01 314 andb #$01
322 ldd $0B,x 328 ldd $0B,x
323 std <u0019 329 std <u0019
324 ldb $0D,x 330 ldb $0D,x
325 stb <u001F 331 stb <u001F
326 ldb #$01 332 ldb #$01
327 stb <u0025 333 stb <ClustSz
328 clrb 334 clrb
329 rts 335 rts
330 L015D ldx <u0020 336 L015D ldx <u0020
331 L015F leay >L0188,pcr 337 L015F leay >L0188,pcr
332 bsr L0176 338 bsr L0176
335 ldd $02,y 341 ldd $02,y
336 leay d,y 342 leay d,y
337 puls b,a 343 puls b,a
338 jsr ,y 344 jsr ,y
339 bcc L015F 345 bcc L015F
340 lbra L00BB 346 lbra Exit
341 L0176 lda ,x+ 347 L0176 lda ,x+
342 L0178 cmpa ,y 348 L0178 cmpa ,y
343 bne L0180 349 bne L0180
344 ldb $01,y 350 ldb $01,y
345 clra 351 clra
392 lbsr L089E 398 lbsr L089E
393 ldd <u001D 399 ldd <u001D
394 tsta 400 tsta
395 beq L0208 401 beq L0208
396 ldb #$01 402 ldb #$01
397 L0208 stb <u0025 403 L0208 stb <ClustSz
398 negb 404 negb
399 decb 405 decb
400 andb <u0025 406 andb <ClustSz
401 beq L0214 407 beq L0214
402 ldb #$01 408 ldb #$01
403 stb <u0025 409 stb <ClustSz
404 L0214 clrb 410 L0214 clrb
405 rts 411 rts
406 L0216 leax >Title,pcr 412 L0216 leax >Title,pcr
407 lbsr L0272 413 lbsr L0272
408 leay >u01AF,u 414 leay >DDBuf,u
409 ldx $0B,y 415 ldx $0B,y
410 tst <u0010 416 tst <u0010
411 beq L0229 417 beq L0229
412 ldx $09,y 418 ldx $09,y
413 L0229 stx <u0017 419 L0229 stx <u0017
414 leax >FmtMsg,pcr 420 leax >FmtMsg,pcr
415 ldy #FmtMLen 421 ldy #FmtMLen
416 lbsr L0276 422 lbsr L0276
417 leax <u0047,u 423 leax <DevPath,u
418 tfr x,y 424 tfr x,y
419 L023B lda ,y+ 425 L023B lda ,y+
420 cmpa #$40 426 cmpa #$40
421 bne L023B 427 bne L023B
422 pshs y 428 pshs y
428 sta -$01,y 434 sta -$01,y
429 lda <u001C 435 lda <u001C
430 bne L01FD 436 bne L01FD
431 L0254 leax >Query,pcr 437 L0254 leax >Query,pcr
432 ldy #QueryLen 438 ldy #QueryLen
433 lbsr L027C 439 lbsr GetYN
434 anda #$DF 440 anda #$DF
435 cmpa #$59 441 cmpa #'Y
436 beq L01FD 442 beq L01FD
437 clrb 443 clrb
438 cmpa #$4E 444 cmpa #'N
439 lbeq L00BB 445 lbeq Exit
440 bra L0254 446 bra L0254
441 L026E leax >HelpCR,pcr 447 L026E leax >HelpCR,pcr
442 L0272 ldy #$0050 448 L0272 ldy #$0050
443 L0276 lda #$01 449 L0276 lda #$01
444 os9 I$WritLn 450 os9 I$WritLn
445 rts 451 rts
446 L027C pshs u,y,x,b,a 452 *
453 * Read a one-byte answer
454 *
455 GetYN pshs u,y,x,b,a
447 bsr L0276 456 bsr L0276
448 leax ,s 457 leax ,s
449 ldy #$0001 458 ldy #$0001
450 clra 459 clra
451 os9 I$Read 460 os9 I$Read
452 lbcs L00BB 461 lbcs Exit
453 bsr L026E 462 bsr L026E
454 puls u,y,x,b,a 463 puls u,y,x,b,a
455 anda #$7F 464 anda #$7F
456 rts 465 rts
466
457 L0295 leax >L001A,pcr 467 L0295 leax >L001A,pcr
458 stx <u000A 468 stx <u000A
459 ldb <u001B 469 ldb <u001B
460 bitb #$C0 470 bitb #$C0
461 bne L02B9 471 bne L02B9
491 lda #$08 501 lda #$08
492 pshs a 502 pshs a
493 ldx <u0023 503 ldx <u0023
494 ldb <u0022 504 ldb <u0022
495 bsr L034C 505 bsr L034C
496 lda <u0025 506 lda <ClustSz
497 pshs a 507 pshs a
498 bsr L034C 508 bsr L034C
499 tstb 509 tstb
500 beq L02FE 510 beq L02FE
501 leax >ClustMsg,pcr 511 leax >ClustMsg,pcr
544 exg d,x 554 exg d,x
545 adcb #$00 555 adcb #$00
546 L034C lsr $02,s 556 L034C lsr $02,s
547 bne L0338 557 bne L0338
548 rts 558 rts
549 L0351 tst <u001B 559
560 AskBoth tst <u001B
550 bpl L036B 561 bpl L036B
551 leax >Both,pcr 562 leax >Both,pcr
552 ldy #BothLen 563 ldy #BothLen
553 lbsr L027C 564 lbsr GetYN
554 anda #$DF 565 anda #$DF
555 cmpa #$59 566 cmpa #'Y
556 beq L036B 567 beq L036B
557 cmpa #$4E 568 cmpa #'N
558 bne L0351 569 bne AskBoth
559 rts 570 rts
560 L036B lda <u0002 571
572 L036B lda <PathNm
561 ldb #SS.Reset 573 ldb #SS.Reset
562 os9 I$SetStt 574 os9 I$SetStt
563 lbcs L00BB 575 lbcs Exit
564 ldd #$0000 576 ldd #$0000
565 std <u0003 577 std <u0003
566 inca 578 inca
567 sta <u0007 579 sta <u0007
568 L037E clr <u0005 580 L037E clr <u0005
584 orb #$04 596 orb #$04
585 L03A1 lda <u0005 597 L03A1 lda <u0005
586 beq L03A7 598 beq L03A7
587 orb #$01 599 orb #$01
588 L03A7 tfr d,y 600 L03A7 tfr d,y
589 lda <u0002 601 lda <PathNm
590 ldb #SS.WTrk 602 ldb #SS.WTrk
591 os9 I$SetStt 603 os9 I$SetStt
592 lbcs L00BB 604 lbcs Exit
593 ldu <u0000 605 ldu <u0000
594 ldb <u0005 606 ldb <u0005
595 incb 607 incb
596 stb <u0005 608 stb <u0005
597 cmpb <u0012 609 cmpb <u0012
711 ldb <u0022 723 ldb <u0022
712 stb ,x 724 stb ,x
713 ldd <u0017 725 ldd <u0017
714 std <$11,x 726 std <$11,x
715 stb $03,x 727 stb $03,x
716 lda <u0025 728 lda <ClustSz
717 sta $07,x 729 sta $07,x
718 clra 730 clra
719 ldb <u0026 731 ldb <u0026
720 tst <u0027 732 tst <u0027
721 beq L04C9 733 beq L04C9
736 L04E3 sta <$10,x 748 L04E3 sta <$10,x
737 ldd <u0026 749 ldd <u0026
738 std $04,x 750 std $04,x
739 lda #$FF 751 lda #$FF
740 sta $0D,x 752 sta $0D,x
741 leax >u00C9,u 753 leax >DateBf,u
742 os9 F$Time 754 os9 F$Time
743 leax >u00CE,u 755 leax >u00CE,u
744 leay <u0067,u 756 leay <u0067,u
745 tst ,y 757 tst ,y
746 beq L0508 758 beq L0508
766 decb 778 decb
767 beq L0508 779 beq L0508
768 lda ,-x 780 lda ,-x
769 ora #$80 781 ora #$80
770 sta ,x 782 sta ,x
771 L053B leax >u00C9,u 783 L053B leax >DateBf,u
772 leay <$40,x 784 leay <$40,x
773 pshs y 785 pshs y
774 ldd #$0000 786 ldd #$0000
775 L0547 addd ,x++ 787 L0547 addd ,x++
776 cmpx ,s 788 cmpx ,s
781 std >u019F,u 793 std >u019F,u
782 ldd >L0016,pcr 794 ldd >L0016,pcr
783 std >u01A1,u 795 std >u01A1,u
784 ldd >L0018,pcr 796 ldd >L0018,pcr
785 std >u01A3,u 797 std >u01A3,u
786 lda <u0002 798 lda <PathNm
787 ldb #SS.Opt 799 ldb #SS.Opt
788 leax >u00EE,u 800 leax >u00EE,u
789 os9 I$GetStt 801 os9 I$GetStt
790 ldb #SS.Reset 802 ldb #SS.Reset
791 os9 I$SetStt 803 os9 I$SetStt
792 lbcs L00BB 804 lbcs Exit
793 leax >u00AF,u 805 leax >u00AF,u
794 lbra L0816 806 lbra L0816
795 L0586 lda <u0002 807 L0586 lda <PathNm
796 os9 I$Close 808 os9 I$Close
797 leax <u0047,u 809 leax <DevPath,u
798 lda #$01 810 lda #READ.
799 os9 I$Open 811 os9 I$Open
800 lbcs L0669 812 lbcs L0669
801 sta <u0002 813 sta <PathNm
802 leax >u00AF,u 814 leax >u00AF,u
803 ldy #$0100 815 ldy #$0100
804 os9 I$Read 816 os9 I$Read
805 lbcs L0669 817 lbcs L0669
806 lda <u0002 818 lda <PathNm
807 os9 I$Close 819 os9 I$Close
808 leax <u0047,u 820 leax <DevPath,u
809 lda #$03 821 lda #UPDAT.
810 os9 I$Open 822 os9 I$Open
811 lbcs L0669 823 lbcs L0669
812 sta <u0002 824 sta <PathNm
813 rts 825 rts
814 L05BC lda <u001B 826 L05BC lda <u001B
815 clr <u0043 827 clr <u0043
816 bita #$80 828 bita #$80
817 beq L05DB 829 beq L05DB
818 L05C4 leax >Verify,pcr 830 L05C4 leax >Verify,pcr
819 ldy #VerifyLen 831 ldy #VerifyLen
820 lbsr L027C 832 lbsr GetYN
821 anda #$DF 833 anda #$DF
822 cmpa #$59 834 cmpa #'Y
823 beq L05DB 835 beq L05DB
824 cmpa #$4E 836 cmpa #'N
825 bne L05C4 837 bne L05C4
838
826 sta <u0043 839 sta <u0043
827 L05DB ldd <u0019 840 L05DB ldd <u0019
828 std <u0015 841 std <u0015
829 clra 842 clra
830 clrb 843 clrb
832 std <u0003 845 std <u0003
833 std <u0008 846 std <u0008
834 std <u0030 847 std <u0030
835 stb <u002F 848 stb <u002F
836 sta <u003A 849 sta <u003A
837 leax >u01AF,u 850 leax >DDBuf,u
838 stx <u0036 851 stx <u0036
839 lbsr L080E 852 lbsr L080E
840 leax >$0100,x 853 leax >$0100,x
841 stx <u0038 854 stx <u0038
842 clra 855 clra
843 ldb #$01 856 ldb #$01
844 std <u0032 857 std <u0032
845 lda <u0025 858 lda <ClustSz
846 sta <u0029 859 sta <u0029
847 clr <u0028 860 clr <u0028
848 clra 861 clra
849 ldb <u0026 862 ldb <u0026
850 tst <u0027 863 tst <u0027
851 beq L0611 864 beq L0611
852 addd #$0001 865 addd #$0001
853 L0611 addd #$0009 866 L0611 addd #$0009
854 std <u002B 867 std <u002B
855 lda <u0025 868 lda <ClustSz
856 L0618 lsra 869 L0618 lsra
857 bcs L0629 870 bcs L0629
858 lsr <u002B 871 lsr <u002B
859 ror <u002C 872 ror <u002C
860 bcc L0618 873 bcc L0618
862 bne L0618 875 bne L0618
863 inc <u002B 876 inc <u002B
864 bra L0618 877 bra L0618
865 L0629 ldb <u002C 878 L0629 ldb <u002C
866 stb <u002D 879 stb <u002D
867 lda <u0025 880 lda <ClustSz
868 mul 881 mul
869 std <u002B 882 std <u002B
870 subd #$0001 883 subd #$0001
871 subb <u0026 884 subb <u0026
872 sbca #$00 885 sbca #$00
874 beq L0640 887 beq L0640
875 subd #$0001 888 subd #$0001
876 L0640 stb <u002A 889 L0640 stb <u002A
877 L0642 tst <u0043 890 L0642 tst <u0043
878 bne L0674 891 bne L0674
879 lda <u0002 892 lda <PathNm
880 leax >u00AF,u 893 leax >u00AF,u
881 ldy #$0100 894 ldy #$0100
882 os9 I$Read 895 os9 I$Read
883 bcc L0674 896 bcc L0674
884 os9 F$PErr 897 os9 F$PErr
891 cmpx <u002B 904 cmpx <u002B
892 bhi L0674 905 bhi L0674
893 L0669 leax >BadSect,pcr 906 L0669 leax >BadSect,pcr
894 L066D lbsr L0272 907 L066D lbsr L0272
895 clrb 908 clrb
896 lbra L00BB 909 lbra Exit
897 L0674 ldd <u0008 910 L0674 ldd <u0008
898 addd #$0001 911 addd #$0001
899 std <u0008 912 std <u0008
900 cmpd <u0015 913 cmpd <u0015
901 bcs L06B9 914 bcs L06B9
931 bne L06C9 944 bne L06C9
932 ldx <u0034 945 ldx <u0034
933 leax $01,x 946 leax $01,x
934 stx <u0034 947 stx <u0034
935 L06C9 clr <u0028 948 L06C9 clr <u0028
936 lda <u0025 949 lda <ClustSz
937 sta <u0029 950 sta <u0029
938 L06CF ldb <u002F 951 L06CF ldb <u002F
939 ldx <u0030 952 ldx <u0030
940 leax $01,x 953 leax $01,x
941 bne L06D8 954 bne L06D8
947 L06E0 stb <u002F 960 L06E0 stb <u002F
948 stx <u0030 961 stx <u0030
949 lbra L0642 962 lbra L0642
950 L06E7 lda #$FF 963 L06E7 lda #$FF
951 sta <u0028 964 sta <u0028
952 leay >u01AF,u 965 leay >DDBuf,u
953 L06EF cmpy <u0036 966 L06EF cmpy <u0036
954 beq L0733 967 beq L0733
955 bsr L06F8 968 bsr L06F8
956 bra L06EF 969 bra L06EF
957 L06F8 ldx <u0036 970 L06F8 ldx <u0036
965 clr <u003A 978 clr <u003A
966 stx <u0036 979 stx <u0036
967 cmpx <u0038 980 cmpx <u0038
968 bne L071A 981 bne L071A
969 bsr L0777 982 bsr L0777
970 leax >u01AF,u 983 leax >DDBuf,u
971 stx <u0036 984 stx <u0036
972 lbsr L080E 985 lbsr L080E
973 L071A rts 986 L071A rts
974 L071B tfr a,b 987 L071B tfr a,b
975 lsra 988 lsra
987 L0732 rts 1000 L0732 rts
988 L0733 lbsr L026E 1001 L0733 lbsr L026E
989 leax >NumGood,pcr 1002 leax >NumGood,pcr
990 ldy #NumGoodLen 1003 ldy #NumGoodLen
991 lbsr L0276 1004 lbsr L0276
992 ldb <u0025 1005 ldb <ClustSz
993 clra 1006 clra
994 ldx <u0034 1007 ldx <u0034
995 pshs x,a 1008 pshs x,a
996 L0748 lsrb 1009 L0748 lsrb
997 bcs L0753 1010 bcs L0753
1020 L0777 pshs y 1033 L0777 pshs y
1021 clra 1034 clra
1022 ldb #$01 1035 ldb #$01
1023 cmpd <u0032 1036 cmpd <u0032
1024 bne L0792 1037 bne L0792
1025 leax >u01AF,u 1038 leax >DDBuf,u
1026 clra 1039 clra
1027 ldb <u002D 1040 ldb <u002D
1028 tfr d,y 1041 tfr d,y
1029 clrb 1042 clrb
1030 os9 F$AllBit 1043 os9 F$AllBit
1031 lbcs L0669 1044 lbcs L0669
1032 L0792 lbsr L0824 1045 L0792 lbsr L0824
1033 leax >u01AF,u 1046 leax >DDBuf,u
1034 bsr L0816 1047 bsr L0816
1035 ldd <u0022 1048 ldd <u0022
1036 cmpd <u002F 1049 cmpd <u002F
1037 bcs L07AD 1050 bcs L07AD
1038 bhi L07AA 1051 bhi L07AA
1086 clrb 1099 clrb
1087 L0810 sta d,x 1100 L0810 sta d,x
1088 decb 1101 decb
1089 bne L0810 1102 bne L0810
1090 rts 1103 rts
1091 L0816 lda <u0002 1104 L0816 lda <PathNm
1092 ldy #$0100 1105 ldy #$0100
1093 os9 I$Write 1106 os9 I$Write
1094 lbcs L00BB 1107 lbcs Exit
1095 rts 1108 rts
1096 L0824 clra 1109 L0824 clra
1097 ldb <u0032 1110 ldb <u0032
1098 tfr d,x 1111 tfr d,x
1099 lda <u0033 1112 lda <u0033
1100 clrb 1113 clrb
1101 tfr d,u 1114 tfr d,u
1102 L082E lda <u0002 1115 L082E lda <PathNm
1103 os9 I$Seek 1116 os9 I$Seek
1104 ldu <u0000 1117 ldu <u0000
1105 lbcs L00BB 1118 lbcs Exit
1106 rts 1119 rts
1107 L083A ldx <u002F 1120 L083A ldx <u002F
1108 lda <u0031 1121 lda <u0031
1109 clrb 1122 clrb
1110 addd #$0100 1123 addd #$0100
1168 std ,s 1181 std ,s
1169 andcc #$FB 1182 andcc #$FB
1170 L08CD puls pc,y,b,a 1183 L08CD puls pc,y,b,a
1171 L08CF orcc #$04 1184 L08CF orcc #$04
1172 puls pc,y,b,a 1185 puls pc,y,b,a
1173 L08D3 lda #$02 1186
1187 ErrExit lda #$02
1174 os9 F$PErr 1188 os9 F$PErr
1175 leax <HelpMsg,pcr 1189 leax <HelpMsg,pcr
1176 ldy #$0154 1190 ldy #$0154
1177 lda #$02 1191 lda #$02
1178 os9 I$WritLn 1192 os9 I$WritLn