Eagles Nest BBS 8

home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / MacsbugBook / MacsBug Book Disk / Debugger Prefs sources / Error.p < prev next >
MacBinary | 1990-10-23 | 2.6 KB | [TEXT/MPS ]
view JSON data |
view as text |
open on a Mac |
open on a PC

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Error.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Oct 23 16:39:38 1990, modified Tue Oct 23 16:39:38 1990, creator 'MPS ', type ASCII, 1333 bytes "Error.p" , at 0x5b5 1049 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 45 72 72 6f 72 2e | 70 00 00 00 00 00 00 00 |..Error.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 35 00 | 00 04 19 a3 4a 5b 0a a3 |......5.|....J[..|
|00000060| 4a 5b 0a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |J[......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 da b4 00 00 |........|........|
|00000080| 55 4e 49 54 20 45 72 72 | 6f 72 3b 0d 0d 7b 24 52 |UNIT Err|or;..{$R|
|00000090| 2d 7d 0d 0d 49 4e 54 45 | 52 46 41 43 45 0d 0d 09 |-}..INTE|RFACE...|
|000000a0| 09 55 53 45 53 20 4d 65 | 6d 54 79 70 65 73 2c 20 |.USES Me|mTypes, |
|000000b0| 64 63 6d 64 3b 0d 09 09 | 0d 20 20 7b 20 50 75 62 |dcmd;...|.  { Pub|
|000000c0| 6c 69 63 20 64 65 63 6c | 61 72 61 74 69 6f 6e 20 |lic decl|aration |
|000000d0| 66 6f 72 20 64 63 6d 64 | 47 6c 75 65 2e 20 4d 75 |for dcmd|Glue. Mu|
|000000e0| 73 74 20 62 65 20 69 6e | 20 65 76 65 72 79 20 64 |st be in| every d|
|000000f0| 63 6d 64 2e 20 54 68 65 | 20 6e 61 6d 65 20 63 61 |cmd. The| name ca|
|00000100| 6e 6e 6f 74 20 62 65 20 | 63 68 61 6e 67 65 64 2e |nnot be |changed.|
|00000110| 20 7d 0d 09 09 50 52 4f | 43 45 44 55 52 45 20 43 | }...PRO|CEDURE C|
|00000120| 6f 6d 6d 61 6e 64 45 6e | 74 72 79 20 28 70 61 72 |ommandEn|try (par|
|00000130| 61 6d 50 74 72 3a 20 64 | 63 6d 64 42 6c 6f 63 6b |amPtr: d|cmdBlock|
|00000140| 50 74 72 29 3b 0d 0d 0d | 49 4d 50 4c 45 4d 45 4e |Ptr);...|IMPLEMEN|
|00000150| 54 41 54 49 4f 4e 0d 0d | 43 4f 4e 53 54 20 43 52 |TATION..|CONST CR|
|00000160| 20 3d 20 24 30 44 3b 0d | 0d 46 55 4e 43 54 49 4f | = $0D;.|.FUNCTIO|
|00000170| 4e 20 47 65 74 45 72 72 | 6f 72 53 74 72 69 6e 67 |N GetErr|orString|
|00000180| 28 65 72 72 4e 75 6d 20 | 3a 20 49 6e 74 65 67 65 |(errNum |: Intege|
|00000190| 72 29 20 3a 20 53 74 72 | 69 6e 67 50 74 72 3b 0d |r) : Str|ingPtr;.|
|000001a0| 09 45 58 54 45 52 4e 41 | 4c 3b 0d 0d 50 52 4f 43 |.EXTERNA|L;..PROC|
|000001b0| 45 44 55 52 45 20 4e 75 | 6d 62 65 72 54 6f 48 65 |EDURE Nu|mberToHe|
|000001c0| 78 20 28 6e 75 6d 62 65 | 72 3a 20 49 6e 74 65 67 |x (numbe|r: Integ|
|000001d0| 65 72 3b 20 56 41 52 20 | 68 65 78 3a 20 53 74 72 |er; VAR |hex: Str|
|000001e0| 32 35 35 29 3b 0d 09 45 | 58 54 45 52 4e 41 4c 3b |255);..E|XTERNAL;|
|000001f0| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 4e 75 6d 62 |..PROCED|URE Numb|
|00000200| 65 72 54 6f 44 65 63 69 | 6d 61 6c 20 28 6e 75 6d |erToDeci|mal (num|
|00000210| 62 65 72 3a 20 49 6e 74 | 65 67 65 72 3b 20 56 41 |ber: Int|eger; VA|
|00000220| 52 20 68 65 78 3a 20 53 | 74 72 32 35 35 29 3b 0d |R hex: S|tr255);.|
|00000230| 09 45 58 54 45 52 4e 41 | 4c 3b 0d 0d 50 52 4f 43 |.EXTERNA|L;..PROC|
|00000240| 45 44 55 52 45 20 43 6f | 6d 6d 61 6e 64 45 6e 74 |EDURE Co|mmandEnt|
|00000250| 72 79 20 28 70 61 72 61 | 6d 50 74 72 3a 20 44 43 |ry (para|mPtr: DC|
|00000260| 6d 64 42 6c 6f 63 6b 50 | 74 72 29 3b 0d 54 59 50 |mdBlockP|tr);.TYP|
|00000270| 45 0d 09 49 6e 74 50 74 | 72 09 3d 09 5e 49 6e 74 |E..IntPt|r.=.^Int|
|00000280| 65 67 65 72 3b 0d 09 4c | 6f 6e 67 50 74 72 09 3d |eger;..L|ongPtr.=|
|00000290| 09 5e 4c 6f 6e 67 49 6e | 74 3b 0d 09 0d 56 41 52 |.^LongIn|t;...VAR|
|000002a0| 20 61 64 64 72 65 73 73 | 3a 20 4c 4f 4e 47 49 4e | address|: LONGIN|
|000002b0| 54 3b 0d 20 20 20 20 63 | 68 3a 20 20 20 20 20 20 |T;.    c|h:      |
|000002c0| 43 48 41 52 3b 0d 09 6f | 6b 3a 20 20 20 20 20 20 |CHAR;..o|k:      |
|000002d0| 42 4f 4f 4c 45 41 4e 3b | 0d 09 76 61 6c 75 65 09 |BOOLEAN;|..value.|
|000002e0| 3a 09 4c 6f 6e 67 49 6e | 74 3b 0d 09 68 65 78 09 |:.LongIn|t;..hex.|
|000002f0| 09 3a 09 53 74 72 32 35 | 35 3b 0d 09 64 65 63 69 |.:.Str25|5;..deci|
|00000300| 6d 61 6c 09 3a 09 53 74 | 72 32 35 35 3b 0d 09 0d |mal.:.St|r255;...|
|00000310| 42 45 47 49 4e 0d 09 49 | 46 20 70 61 72 61 6d 50 |BEGIN..I|F paramP|
|00000320| 74 72 5e 2e 72 65 71 75 | 65 73 74 20 3d 20 64 63 |tr^.requ|est = dc|
|00000330| 6d 64 49 6e 69 74 20 54 | 48 45 4e 20 42 45 47 49 |mdInit T|HEN BEGI|
|00000340| 4e 20 7b 20 54 68 65 20 | 64 63 6d 64 20 67 65 74 |N { The |dcmd get|
|00000350| 73 20 63 61 6c 6c 65 64 | 20 6f 6e 63 65 20 77 68 |s called| once wh|
|00000360| 65 6e 20 6c 6f 61 64 65 | 64 20 74 6f 20 69 6e 69 |en loade|d to ini|
|00000370| 74 20 69 74 73 65 6c 66 | 20 7d 0d 09 45 4e 44 20 |t itself| }..END |
|00000380| 45 4c 53 45 20 49 46 20 | 70 61 72 61 6d 50 74 72 |ELSE IF |paramPtr|
|00000390| 5e 2e 72 65 71 75 65 73 | 74 20 3d 20 64 63 6d 64 |^.reques|t = dcmd|
|000003a0| 44 6f 49 74 20 54 48 45 | 4e 20 42 45 47 49 4e 20 |DoIt THE|N BEGIN |
|000003b0| 7b 20 44 6f 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |{ Do the| command|
|000003c0| 27 73 20 6e 6f 72 6d 61 | 6c 20 66 75 6e 63 74 69 |'s norma|l functi|
|000003d0| 6f 6e 20 7d 0d 09 09 63 | 68 20 3a 3d 20 64 63 6d |on }...c|h := dcm|
|000003e0| 64 47 65 74 4e 65 78 74 | 45 78 70 72 65 73 73 69 |dGetNext|Expressi|
|000003f0| 6f 6e 28 76 61 6c 75 65 | 2c 20 6f 6b 29 3b 0d 09 |on(value|, ok);..|
|00000400| 09 49 46 20 6f 6b 20 54 | 48 45 4e 20 42 45 47 49 |.IF ok T|HEN BEGI|
|00000410| 4e 0d 09 09 09 4e 75 6d | 62 65 72 54 6f 48 65 78 |N....Num|berToHex|
|00000420| 20 28 76 61 6c 75 65 2c | 20 68 65 78 29 3b 0d 09 | (value,| hex);..|
|00000430| 09 09 4e 75 6d 62 65 72 | 54 6f 44 65 63 69 6d 61 |..Number|ToDecima|
|00000440| 6c 20 28 76 61 6c 75 65 | 2c 20 64 65 63 69 6d 61 |l (value|, decima|
|00000450| 6c 29 3b 0d 09 09 09 64 | 63 6d 64 44 72 61 77 4c |l);....d|cmdDrawL|
|00000460| 69 6e 65 28 43 6f 6e 63 | 61 74 28 27 20 27 2c 20 |ine(Conc|at(' ', |
|00000470| 68 65 78 2c 20 27 20 20 | 27 2c 20 64 65 63 69 6d |hex, '  |', decim|
|00000480| 61 6c 2c 20 27 20 20 20 | 27 2c 20 47 65 74 45 72 |al, '   |', GetEr|
|00000490| 72 6f 72 53 74 72 69 6e | 67 28 76 61 6c 75 65 29 |rorStrin|g(value)|
|000004a0| 5e 29 29 3b 0d 09 09 45 | 4e 44 20 45 4c 53 45 0d |^));...E|ND ELSE.|
|000004b0| 09 09 09 64 63 6d 64 44 | 72 61 77 4c 69 6e 65 28 |...dcmdD|rawLine(|
|000004c0| 27 53 79 6e 74 61 78 20 | 65 72 72 6f 72 27 29 3b |'Syntax |error');|
|000004d0| 0d 09 45 4e 44 20 45 4c | 53 45 20 49 46 20 70 61 |..END EL|SE IF pa|
|000004e0| 72 61 6d 50 74 72 5e 2e | 72 65 71 75 65 73 74 20 |ramPtr^.|request |
|000004f0| 3d 20 64 63 6d 64 48 65 | 6c 70 20 54 48 45 4e 20 |= dcmdHe|lp THEN |
|00000500| 42 45 47 49 4e 20 7b 20 | 44 69 73 70 6c 61 79 20 |BEGIN { |Display |
|00000510| 74 68 65 20 63 6f 6d 6d | 61 6e 64 27 73 20 68 65 |the comm|and's he|
|00000520| 6c 70 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 7d |lp infor|mation }|
|00000530| 0d 09 09 64 63 6d 64 44 | 72 61 77 4c 69 6e 65 20 |...dcmdD|rawLine |
|00000540| 28 27 45 72 72 6f 72 20 | 65 78 70 72 27 29 3b 0d |('Error |expr');.|
|00000550| 09 09 64 63 6d 64 44 72 | 61 77 4c 69 6e 65 20 28 |..dcmdDr|awLine (|
|00000560| 27 20 20 20 44 69 73 70 | 6c 61 79 20 74 65 78 74 |'   Disp|lay text|
|00000570| 20 6d 65 73 73 61 67 65 | 20 63 6f 72 72 65 73 70 | message| corresp|
|00000580| 6f 6e 64 69 6e 67 20 74 | 6f 20 65 72 72 6f 72 20 |onding t|o error |
|00000590| 6e 75 6d 6d 62 65 72 20 | 69 6e 20 65 78 70 72 2e |nummber |in expr.|
|000005a0| 27 29 3b 0d 09 45 4e 44 | 3b 0d 45 4e 44 3b 0d 0d |');..END|;.END;..|
|000005b0| 45 4e 44 2e 0d 00 00 00 | 00 00 00 00 00 00 00 00 |END.....|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 03 6b | 00 00 02 6b 00 00 00 ae |.......k|...k....|
|00000610| 09 09 49 4d 50 4f 52 54 | 09 43 6f 6d 6d 61 6e 64 |..IMPORT|.Command|
|00000620| 45 6e 74 72 79 2c 20 5f | 44 41 54 41 49 4e 49 54 |Entry, _|DATAINIT|
|00000630| 07 45 72 72 6f 72 2e 70 | 02 00 00 00 54 45 58 54 |.Error.p|....TEXT|
|00000640| 4d 50 53 20 01 00 00 80 | 00 c0 00 00 00 00 03 c1 |MPS ....|........|
|00000650| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 80 00 c0 |..TEXTMP|S ......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a2 f9 75 c0 00 00 | 05 35 00 00 04 19 76 65 |....u...|.5....ve|
|00000680| 20 75 73 20 61 20 25 41 | 35 49 6e 69 74 20 73 65 | us a %A|5Init se|
|00000690| 67 6d 65 6e 74 2e 0d 0d | 09 09 4c 45 41 09 5f 44 |gment...|..LEA._D|
|000006a0| 41 54 41 49 4e 49 54 2c | 20 41 30 20 0d 09 09 45 |ATAINIT,| A0 ...E|
|000006b0| 4e 44 4d 41 49 4e 0d 0d | 20 0d 4d 61 63 73 42 75 |NDMAIN..| .MacsBu|
|000006c0| 67 54 61 62 6c 65 09 50 | 52 4f 43 0d 09 09 45 58 |gTable.P|ROC...EX|
|000006d0| 50 4f 52 54 09 64 63 6d | 64 44 72 61 77 4c 69 6e |PORT.dcm|dDrawLin|
|000006e0| 65 0d 64 63 6d 64 44 72 | 61 77 4c 69 6e 65 09 42 |e.dcmdDr|awLine.B|
|000006f0| 53 52 2e 53 09 4d 61 63 | 73 42 75 67 44 69 73 70 |SR.S.Mac|sBugDisp|
|00000700| 00 00 00 1b 06 02 60 01 | 00 00 06 36 2e 32 62 31 |......`.|...6.2b1|
|00000710| 31 0d 4d 61 63 73 42 75 | 67 20 36 2e 32 62 31 00 |1.MacsBu|g 6.2b1.|
|00000720| 00 00 48 00 09 4d 6f 6e | 61 63 6f 00 00 02 9c 00 |..H..Mon|aco.....|
|00000730| 00 00 4c 00 01 a6 bc 00 | 31 00 0a 00 31 01 ea 01 |..L.....|1...1...|
|00000740| 49 00 0a 01 49 00 06 00 | 04 00 2a 00 03 03 63 02 |I...I...|..*...c.|
|00000750| 3f 00 2a 00 03 03 63 02 | 3f a3 4a 14 ba 00 00 03 |?.*...c.|?.J.....|
|00000760| f8 00 00 03 f8 00 00 00 | 00 01 00 00 00 00 1e 00 |........|........|
|00000770| 2a 00 03 03 63 02 3f 00 | 2a 00 03 03 63 02 3f 00 |*...c.?.|*...c.?.|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 04 b6 0a 25 e7 00 00 00 | 26 0e 50 61 73 63 61 6c |...%....|&.Pascal|
|000007a0| 20 53 79 6d 62 6f 6c 73 | 00 05 45 52 52 4f 52 04 | Symbols|..ERROR.|
|000007b0| 44 43 4d 44 59 08 4d 45 | 4d 54 59 50 45 53 45 00 |DCMDY.ME|MTYPESE.|
|000007c0| 00 01 4a 00 5a 05 45 52 | 52 4f 52 00 00 00 00 00 |..J.Z.ER|ROR.....|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 3f 3c 00 | 09 01 00 00 70 ff ff ff |.....?<.|....p...|
|00000810| ff 00 00 00 00 00 00 00 | 00 01 00 06 0e 00 00 00 |........|........|
|00000820| 00 01 00 01 4a 00 00 00 | 00 a3 ec 48 17 00 3c 00 |....J...|...H..<.|
|00000830| 09 08 25 00 11 0c 43 4f | 4d 4d 41 4e 44 45 4e 54 |..%...CO|MMANDENT|
|00000840| 52 59 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |RY......|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 52 2f | 4c ff ff ff ff ff ff ff |......R/|L.......|
|00000880| ff ff ff ff ff 00 00 01 | 80 01 00 04 01 00 01 01 |........|........|
|00000890| 00 00 e0 ff ff 00 01 00 | 0c ff ff 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 34 08 50 41 | 52 41 4d 50 54 52 4e 54 |....4.PA|RAMPTRNT|
|000008b0| 52 59 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |RY......|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 80 ff | ff ff ff ff ff ff ff ff |........|........|
|000008f0| ff ff ff ff ff 02 00 0b | 6e 01 00 02 00 00 82 ff |........|n.......|
|00000900| ff 00 02 00 00 00 08 00 | 00 00 01 ff ff 00 00 00 |........|........|
|00000910| 5a a3 4b 78 89 a3 ec 48 | 19 a3 4a 14 ba 00 00 ff |Z.Kx...H|..J.....|
|00000920| ff ff ff 4a 85 08 08 00 | 00 00 00 00 00 01 00 00 |...J....|........|
|00000930| 0a 00 03 00 53 77 46 00 | 53 ab f6 00 02 4e d0 8b |....SwF.|S....N..|
|00000940| 49 00 54 1b 50 00 54 1c | 9a 00 04 a3 ec 48 17 00 |I.T.P.T.|.....H..|
|00000950| 00 00 00 00 00 00 00 00 | 01 a3 ec 48 18 00 00 00 |........|...H....|
|00000960| 00 00 00 00 00 00 00 a3 | c8 91 f6 00 00 01 00 00 |........|........|
|00000970| 00 03 6b 00 00 02 6b 00 | 00 00 ae 00 52 2e 54 14 |..k...k.|....R.T.|
|00000980| 92 00 00 00 1c 00 8a 00 | 02 75 6e 69 74 00 03 00 |........|.unit...|
|00000990| 1a 76 65 72 73 00 00 00 | 4a 4d 50 53 52 00 01 00 |.vers...|JMPSR...|
|000009a0| 56 00 02 00 00 00 00 00 | 8d 00 00 00 00 00 07 00 |V.......|........|
|000009b0| 09 00 00 00 95 00 00 00 | 00 00 03 00 13 00 00 00 |........|........|
|000009c0| bf 00 00 00 00 00 00 00 | 1d 00 00 02 0d 00 00 00 |........|........|
|000009d0| 00 00 02 ff ff 20 00 00 | 00 00 00 00 00 03 ed ff |..... ..|........|
|000009e0| ff 00 00 00 1f 00 00 00 | 00 03 f0 ff ff 00 00 00 |........|........|
|000009f0| 6b 00 00 00 00 08 50 61 | 63 6b 53 79 6d 73 09 55 |k.....Pa|ckSyms.U|
|00000a00| 6e 69 74 4e 61 6d 65 73 | 09 53 79 6d 62 54 61 62 |nitNames|.SymbTab|
|00000a10| 6c 65 06 48 65 61 64 65 | 72 00 00 00 00 00 00 00 |le.Heade|r.......|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+