ƒ-default.dbm     -X SEQ formatted GEOS file V1.0‰i˛ đ€‚MPS-801        128 COMM 1351(a)dbm     ƒ-CONVERT 3.0     -X & ŋ˙˙˙€˙ˆ‹˙ÁŠAŠ˙ņŠ€ŠŽŠ€Šŋ‘Š€ŠŸŠ€Šŋ‘Ž€‚ŋ‘ƒ€€€€˙ņ˙˙˙ƒ˙˙Write Image V2.1geoWrite V2.1 Œŋ?ĸÉ1đʎ AŠĸ9 8%­…ÉĐLh9Š2Z­ŋ?\, A0 ˇÁŊ8‰ n5­ū-…­ũ-…Š… Š… ļ'ŠĐF & % t %ŠĐ7Š €ÂŠĐ/ x9ŠĐ‚˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙@0 .macro dis0 @11,u.lc[cr] ;save current line if (arg0<$c000),dist[cr] ;is the specified address too low if (arg0>=$c000),@11,arg0[cr] ;no, so reset u1 if (u.1<$c000),dist[cr] ;check u1 again in case arg0 was not set poff[cr] ;don't look at "a" output m $d506[cr] ;swap in 16K [sp]@$d506 ^ $0b[cr] pon[cr] ;print on @1lc,u.1[cr] ;set u.lc to required address dis[cr] ;display poff[cr] ;print off @11,u.lc[cr] ;save new u.lc m $d506[cr] ;swap out 16k [sp]@$d506 ^ $0b[cr] @1lc,u.1[cr] ;restore u.lc .endm .macro dist pon[cr] pr "dis0 only works for $c000 and above"[cr] stop[cr] .endm