|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 36480 (0x8e80)
Names: »CPMMAC.MAC«
└─⟦01b5c9619⟧ Bits:30005906 Microsoft Multiplan v1.05 og HELP
└─ ⟦this⟧ »CPMMAC.MAC«
0x0000…0020 09 2e 7a 38 30 09 09 09 3b 61 63 74 69 76 61 74 6f 72 0d 0a 3b 3b 0d 0a 3b 3b 09 4d 61 63 72 6f ┆ .z80 ;activator ;; ;; Macro┆ 0x0020…0040 20 6c 69 62 72 61 72 79 20 66 6f 72 20 43 50 2f 4d 20 73 79 73 74 65 6d 20 72 6f 75 74 69 6e 65 ┆ library for CP/M system routine┆ 0x0040…0060 73 0d 0a 3b 3b 09 31 33 20 4d 61 72 63 68 20 31 39 38 35 0d 0a 3b 3b 0d 0a 3b 3b 09 55 70 64 61 ┆s ;; 13 March 1985 ;; ;; Upda┆ 0x0060…0080 74 65 64 3a 09 31 39 20 53 65 70 74 65 6d 62 65 72 20 31 39 38 35 0d 0a 3b 3b 0d 0a 3b 3b 09 31 ┆ted: 19 September 1985 ;; ;; 1┆ 0x0080…00a0 2e 30 31 09 09 67 66 6e 61 6d 65 3a 20 63 6f 72 72 65 63 74 65 64 20 66 6f 72 20 64 72 69 76 65 ┆.01 gfname: corrected for drive┆ 0x00a0…00c0 20 6e 75 6d 62 65 72 0d 0a 3b 3b 09 31 31 20 41 75 67 2e 20 31 39 38 35 09 67 66 6e 61 6d 65 3a ┆ number ;; 11 Aug. 1985 gfname:┆ 0x00c0…00e0 20 61 64 64 65 64 20 77 69 74 68 20 61 20 66 63 62 20 6f 70 74 69 6f 6e 0d 0a 3b 3b 09 09 09 77 ┆ added with a fcb option ;; w┆ 0x00e0…0100 72 66 69 6c 65 3a 20 65 6e 74 72 79 20 63 68 61 6e 67 65 64 2e 0d 0a 3b 3b 0d 0a 3b 3b 09 31 2e ┆rfile: entry changed. ;; ;; 1.┆ 0x0100…0120 30 32 09 09 70 66 6e 61 6d 65 3a 20 61 64 64 65 64 20 77 69 74 68 20 64 72 69 76 65 20 61 6e 64 ┆02 pfname: added with drive and┆ 0x0120…0140 20 75 73 65 72 20 6e 75 6d 62 65 72 0d 0a 3b 3b 09 31 38 20 53 65 70 2e 20 31 39 38 35 09 77 72 ┆ user number ;; 18 Sep. 1985 wr┆ 0x0140…0160 66 69 6c 65 3a 09 63 6f 72 72 65 63 74 65 64 20 73 65 63 74 6f 72 20 63 61 6c 63 75 6c 61 74 69 ┆file: corrected sector calculati┆ 0x0160…0180 6e 67 0d 0a 3b 3b 09 09 09 75 73 65 72 3a 09 6e 65 77 20 72 6f 75 74 69 6e 65 0d 0a 3b 3b 0d 0a ┆ng ;; user: new routine ;; ┆ 0x0180…01a0 3b 3b 09 31 2e 30 33 09 09 77 72 66 69 6c 65 3a 09 65 6e 74 72 79 20 63 68 61 6e 67 65 64 0d 0a ┆;; 1.03 wrfile: entry changed ┆ 0x01a0…01c0 3b 3b 09 31 39 20 53 65 70 2e 20 31 39 38 35 0d 0a 3b 3b 0d 0a 3b 3b 0d 0a 3b 3b 4d 61 63 72 6f ┆;; 19 Sep. 1985 ;; ;; ;;Macro┆ 0x01c0…01e0 73 20 69 6e 20 74 68 69 73 20 6c 69 62 72 61 72 79 3a 09 09 66 6c 61 67 73 3a 0d 0a 3b 3b 2d 2d ┆s in this library: flags: ;;--┆ 0x01e0…0200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 09 09 2d 2d 2d 2d 2d 2d 0d 0a 3b ┆--------------------- ------ ;┆ 0x0200…0220 3b 61 62 6f 72 74 09 20 6d 61 63 72 6f 09 63 68 61 72 09 09 09 63 69 2c 63 6f 66 61 6c 67 09 75 ┆;abort macro char ci,cofalg u┆ 0x0220…0240 70 64 3a 09 31 34 30 33 38 35 0d 0a 3b 3b 61 6d 62 69 67 09 20 6d 61 63 72 6f 09 6f 6c 64 2c 6e ┆pd: 140385 ;;ambig macro old,n┆ 0x0240…0260 65 77 09 09 09 28 6e 6f 6e 65 29 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 62 69 6e 62 ┆ew (none) upd: 130385 ;;binb┆ 0x0260…0280 69 6e 20 6d 61 63 72 6f 09 09 09 09 62 6e 66 6c 61 67 09 09 75 70 64 3a 09 31 36 30 33 38 35 0d ┆in macro bnflag upd: 160385 ┆ 0x0280…02a0 0a 3b 3b 63 6c 6f 73 65 09 20 6d 61 63 72 6f 09 70 6f 69 6e 74 72 09 09 09 63 6c 2c 63 6f 2c 63 ┆ ;;close macro pointr cl,co,c┆ 0x02a0…02c0 72 2c 70 72 2c 6f 70 2c 09 75 70 64 3a 09 31 35 30 33 38 35 0d 0a 3b 3b 09 09 09 09 09 6d 76 2c ┆r,pr,op, upd: 150385 ;; mv,┆ 0x02c0…02e0 64 65 2c 63 69 2c 75 6e 2c 72 6e 2c 0d 0a 3b 3b 09 09 09 09 09 73 32 66 6c 61 67 0d 0a 3b 3b 63 ┆de,ci,un,rn, ;; s2flag ;;c┆ 0x02e0…0300 6f 6d 70 61 72 20 6d 61 63 72 6f 09 66 69 72 73 74 2c 73 65 63 6f 6e 64 2c 62 79 74 65 73 09 63 ┆ompar macro first,second,bytes c┆ 0x0300…0320 6d 66 6c 61 67 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 63 6f 6d 70 72 61 20 6d 61 63 ┆mflag upd: 130385 ;;compra mac┆ 0x0320…0340 72 6f 09 66 69 72 73 74 2c 73 65 63 6f 6e 64 2c 62 79 74 65 73 09 63 6d 66 6c 61 67 09 09 75 70 ┆ro first,second,bytes cmflag up┆ 0x0340…0360 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 63 70 6d 76 65 72 20 6d 61 63 72 6f 09 09 09 09 28 6e 6f ┆d: 130385 ;;cpmver macro (no┆ 0x0360…0380 6e 65 29 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 63 72 6c 66 09 20 6d 61 63 72 6f 09 ┆ne) upd: 130385 ;;crlf macro ┆ 0x0380…03a0 09 09 09 63 72 66 6c 61 67 2c 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b ┆ crflag,coflag upd: 130385 ;;┆ 0x03a0…03c0 63 75 72 73 6f 72 20 6d 61 63 72 6f 09 72 6f 77 2c 63 75 6c 75 6e 6d 09 09 63 75 2c 63 6f 66 6c ┆cursor macro row,culunm cu,cofl┆ 0x03c0…03e0 61 67 09 75 70 64 3a 09 31 37 30 33 38 35 0d 0a 3b 3b 64 65 6c 65 74 65 20 6d 61 63 72 6f 09 70 ┆ag upd: 170385 ;;delete macro p┆ 0x03e0…0400 6f 69 6e 74 72 2c 77 68 65 72 65 09 09 64 65 2c 63 69 2c 63 6f 2c 70 72 2c 75 6e 09 75 70 64 3a ┆ointr,where de,ci,co,pr,un upd:┆ 0x0400…0420 09 31 35 30 33 38 35 0d 0a 3b 3b 64 69 76 69 64 65 20 6d 61 63 72 6f 09 64 65 6e 6f 6d 09 09 09 ┆ 150385 ;;divide macro denom ┆ 0x0420…0440 64 76 66 6c 61 67 09 09 75 70 64 3a 09 31 36 30 33 38 35 0d 0a 3b 3b 65 6e 74 65 72 09 20 6d 61 ┆dvflag upd: 160385 ;;enter ma┆ 0x0440…0460 63 72 6f 09 09 09 09 28 6e 6f 6e 65 29 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 65 72 ┆cro (none) upd: 130385 ;;er┆ 0x0460…0480 72 6f 72 6d 20 6d 61 63 72 6f 09 74 65 78 74 2c 77 68 65 72 65 09 09 63 6f 2c 63 72 2c 70 72 66 ┆rorm macro text,where co,cr,prf┆ 0x0480…04a0 6c 61 67 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 65 78 69 74 09 20 6d 61 63 72 6f 09 73 ┆lag upd: 130385 ;;exit macro s┆ 0x04a0…04c0 70 61 63 65 3f 09 09 09 28 6e 6f 6e 65 29 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 66 ┆pace? (none) upd: 130385 ;;f┆ 0x04c0…04e0 69 6c 6c 09 20 6d 61 63 72 6f 09 61 64 64 72 2c 62 79 74 65 73 2c 63 68 61 72 09 09 66 6c 66 6c ┆ill macro addr,bytes,char flfl┆ 0x04e0…0500 61 67 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 66 69 6c 6c 64 09 20 6d 61 63 72 6f 09 ┆ag upd: 130385 ;;filld macro ┆ 0x0500…0520 61 64 64 72 2c 62 79 74 65 73 2c 63 68 61 72 09 09 66 6c 66 6c 61 67 09 09 75 70 64 3a 09 31 36 ┆addr,bytes,char flflag upd: 16┆ 0x0520…0540 30 33 38 35 0d 0a 3b 3b 67 66 6e 61 6d 65 20 6d 61 63 72 6f 09 66 63 62 09 09 09 66 6e 2c 66 6c ┆0385 ;;gfname macro fcb fn,fl┆ 0x0540…0560 2c 72 63 2c 63 6f 2c 63 72 2c 09 75 70 64 3a 09 31 31 30 38 38 35 0d 0a 3b 3b 09 09 09 09 09 72 ┆,rc,co,cr, upd: 110885 ;; r┆ 0x0560…0580 63 66 6c 61 67 0d 0a 3b 3b 68 65 78 68 6c 09 20 6d 61 63 72 6f 09 70 6f 69 6e 74 72 09 09 09 68 ┆cflag ;;hexhl macro pointr h┆ 0x0580…05a0 78 66 6c 61 67 2c 72 63 66 6c 61 67 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 68 6c 64 65 ┆xflag,rcflag upd: 130385 ;;hlde┆ 0x05a0…05c0 63 09 20 6d 61 63 72 6f 09 09 09 09 64 65 2c 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 36 30 33 38 ┆c macro de,coflag upd: 16038┆ 0x05c0…05e0 35 0d 0a 3b 3b 6c 63 68 61 72 09 20 6d 61 63 72 6f 09 70 61 72 09 09 09 6c 6f 66 6c 61 67 09 09 ┆5 ;;lchar macro par loflag ┆ 0x05e0…0600 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 6c 64 66 69 6c 65 20 6d 61 63 72 6f 09 66 63 62 2c ┆upd: 130385 ;;ldfile macro fcb,┆ 0x0600…0620 70 6f 69 6e 74 72 2c 63 68 61 72 09 09 63 6f 2c 64 6d 2c 72 64 66 6c 61 67 09 75 70 67 3a 09 31 ┆pointr,char co,dm,rdflag upg: 1┆ 0x0620…0640 35 30 33 38 35 0d 0a 3b 3b 6d 61 6b 65 09 20 6d 61 63 72 6f 09 70 6f 69 6e 74 72 09 09 09 6d 6b ┆50385 ;;make macro pointr mk┆ 0x0640…0660 2c 63 6f 2c 63 72 2c 70 72 66 6c 61 67 09 75 70 64 3a 09 31 35 30 33 38 35 0d 0a 3b 3b 6d 6f 76 ┆,co,cr,prflag upd: 150385 ;;mov┆ 0x0660…0680 65 09 20 6d 61 63 72 6f 09 66 72 6f 6d 2c 74 6f 2c 62 79 74 65 73 09 09 6d 76 66 6c 61 67 09 09 ┆e macro from,to,bytes mvflag ┆ 0x0680…06a0 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 6d 75 6c 74 09 20 6d 61 63 72 6f 09 74 69 6d 65 73 ┆upd: 130385 ;;mult macro times┆ 0x06a0…06c0 09 09 09 6d 6c 66 6c 61 67 09 09 75 70 64 3a 09 31 36 30 33 38 35 0d 0a 3b 3b 6f 70 65 6e 09 20 ┆ mlflag upd: 160385 ;;open ┆ 0x06c0…06e0 6d 61 63 72 6f 09 70 6f 69 6e 74 72 2c 77 68 65 72 65 09 09 6f 70 2c 63 6f 2c 70 72 2c 63 72 66 ┆macro pointr,where op,co,pr,crf┆ 0x06e0…0700 6c 61 67 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 6f 75 74 68 65 78 20 6d 61 63 72 6f 09 ┆lag upd: 130385 ;;outhex macro ┆ 0x0700…0720 72 65 67 09 09 09 63 78 66 6c 61 67 2c 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 33 30 33 38 35 0d ┆reg cxflag,coflag upd: 130385 ┆ 0x0720…0740 0a 3b 3b 6f 75 74 68 6c 09 20 6d 61 63 72 6f 09 09 09 09 63 78 2c 63 6f 66 6c 61 67 09 75 70 64 ┆ ;;outhl macro cx,coflag upd┆ 0x0740…0760 3a 09 31 36 30 33 38 35 0d 0a 3b 3b 70 63 68 61 72 09 20 6d 61 63 72 6f 09 70 61 72 09 09 09 63 ┆: 160385 ;;pchar macro par c┆ 0x0760…0780 6f 66 6c 61 67 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 70 66 6e 61 6d 65 20 6d 61 63 ┆oflag upd: 130385 ;;pfname mac┆ 0x0780…07a0 72 6f 09 66 63 62 09 09 09 63 6f 2c 70 72 66 6c 61 67 09 75 70 64 3a 09 31 38 30 39 38 35 0d 0a ┆ro fcb co,prflag upd: 180985 ┆ 0x07a0…07c0 3b 3b 70 72 69 6e 74 09 20 6d 61 63 72 6f 09 74 65 78 74 2c 62 79 74 65 73 09 09 70 72 66 6c 61 ┆;;print macro text,bytes prfla┆ 0x07c0…07e0 67 2c 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 70 72 6f 74 65 63 20 6d ┆g,coflag upd: 130385 ;;protec m┆ 0x07e0…0800 61 63 72 6f 09 70 6f 69 6e 74 72 09 09 09 28 6e 6f 6e 65 29 09 09 75 70 64 3a 09 31 36 30 33 38 ┆acro pointr (none) upd: 16038┆ 0x0800…0820 35 0d 0a 3b 3b 72 65 61 64 62 09 20 6d 61 63 72 6f 09 62 75 66 66 72 09 09 09 72 63 66 6c 61 67 ┆5 ;;readb macro buffr rcflag┆ 0x0820…0840 09 09 75 70 64 3a 09 31 33 30 35 38 35 0d 0a 3b 3b 72 65 61 64 63 68 20 6d 61 63 72 6f 09 72 65 ┆ upd: 130585 ;;readch macro re┆ 0x0840…0860 67 09 09 09 63 69 66 6c 61 67 2c 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b ┆g ciflag,coflag upd: 130385 ;┆ 0x0860…0880 3b 72 65 61 64 73 09 20 6d 61 63 72 6f 09 70 6f 69 6e 74 72 2c 73 74 61 72 09 09 72 64 66 6c 61 ┆;reads macro pointr,star rdfla┆ 0x0880…08a0 67 2c 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 35 30 33 38 35 0d 0a 3b 3b 72 65 6e 61 6d 65 20 6d ┆g,coflag upd: 150385 ;;rename m┆ 0x08a0…08c0 61 63 72 6f 09 70 6f 69 6e 74 72 09 09 09 72 6e 2c 63 6f 2c 70 72 2c 63 72 66 6c 61 67 09 75 70 ┆acro pointr rn,co,pr,crflag up┆ 0x08c0…08e0 64 3a 09 31 35 30 33 38 35 0d 0a 3b 3b 72 76 73 6f 66 66 20 6d 61 63 72 6f 09 09 09 09 6f 66 2c ┆d: 150385 ;;rvsoff macro of,┆ 0x08e0…0900 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 37 30 33 38 35 0d 0a 3b 3b 72 76 73 6f 6e 09 20 6d 61 63 ┆coflag upd: 170385 ;;rvson mac┆ 0x0900…0920 72 6f 09 09 09 09 6f 6e 2c 63 6f 66 6c 61 67 09 75 70 64 3a 09 31 37 30 33 38 35 0d 0a 3b 3b 73 ┆ro on,coflag upd: 170385 ;;s┆ 0x0920…0940 65 74 64 6d 61 20 6d 61 63 72 6f 09 70 6f 69 6e 74 72 09 09 09 64 6d 66 6c 61 67 09 09 75 70 64 ┆etdma macro pointr dmflag upd┆ 0x0940…0960 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 73 65 74 75 70 32 20 6d 61 63 72 6f 09 09 09 09 73 32 2c 63 ┆: 130385 ;;setup2 macro s2,c┆ 0x0960…0980 69 2c 63 6f 2c 63 72 2c 63 6d 2c 09 75 70 64 3a 09 31 35 30 33 38 35 0d 0a 3b 3b 09 09 09 09 09 ┆i,co,cr,cm, upd: 150385 ;; ┆ 0x0980…09a0 64 65 2c 6d 6b 2c 6d 76 2c 6f 70 2c 70 72 2c 0d 0a 3b 3b 09 09 09 09 09 75 6e 66 6c 61 67 0d 0a ┆de,mk,mv,op,pr, ;; unflag ┆ 0x09a0…09c0 3b 3b 73 79 73 66 09 20 6d 61 63 72 6f 09 66 75 6e 63 2c 61 65 09 09 09 28 6e 6f 6e 65 29 09 09 ┆;;sysf macro func,ae (none) ┆ 0x09c0…09e0 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 75 63 61 73 65 09 20 6d 61 63 72 6f 09 72 65 67 09 ┆upd: 130385 ;;ucase macro reg ┆ 0x09e0…0a00 09 09 28 6e 6f 6e 65 29 09 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 75 6e 70 72 6f 74 20 ┆ (none) upd: 130385 ;;unprot ┆ 0x0a00…0a20 6d 61 63 72 6f 09 70 6f 69 6e 74 72 09 09 09 75 6e 66 6c 61 67 09 09 75 70 64 3a 09 31 35 30 33 ┆macro pointr unflag upd: 1503┆ 0x0a20…0a40 38 35 0d 0a 3b 3b 75 70 70 65 72 09 20 6d 61 63 72 6f 09 72 65 67 09 09 09 28 6e 6f 6e 65 29 09 ┆85 ;;upper macro reg (none) ┆ 0x0a40…0a60 09 75 70 64 3a 09 31 33 30 33 38 35 0d 0a 3b 3b 75 73 65 72 09 20 6d 61 63 72 6f 09 6e 75 6d 09 ┆ upd: 130385 ;;user macro num ┆ 0x0a60…0a80 09 09 28 75 73 66 6c 61 67 29 09 75 70 64 3a 09 31 38 30 39 38 35 0d 0a 3b 3b 76 65 72 73 6e 09 ┆ (usflag) upd: 180985 ;;versn ┆ 0x0a80…0aa0 20 6d 61 63 72 6f 09 6e 75 6d 09 09 09 28 6e 6f 6e 65 29 09 09 75 70 64 3a 09 31 32 30 33 38 35 ┆ macro num (none) upd: 120385┆ 0x0aa0…0ac0 0d 0a 3b 3b 77 72 66 69 6c 65 20 6d 61 63 72 6f 09 66 63 62 2c 70 6f 69 6e 74 72 2c 73 74 61 72 ┆ ;;wrfile macro fcb,pointr,star┆ 0x0ac0…0ae0 2c 6f 70 74 09 63 6f 2c 63 72 2c 64 6d 2c 77 72 66 6c 61 67 09 75 70 64 3a 09 31 39 30 39 38 35 ┆,opt co,cr,dm,wrflag upd: 190985┆ 0x0ae0…0b00 0d 0a 3b 3b 77 72 69 74 65 73 20 6d 61 63 72 6f 09 70 6f 69 6e 74 72 2c 73 74 61 72 09 09 77 72 ┆ ;;writes macro pointr,star wr┆ 0x0b00…0b20 2c 63 6f 2c 70 72 66 6c 61 67 09 75 70 64 3a 09 31 35 30 33 38 35 0d 0a 3b 0d 0a 3b 0d 0a 65 6f ┆,co,prflag upd: 150385 ; ; eo┆ 0x0b20…0b40 66 09 65 71 75 09 31 61 68 09 09 3b 65 6e 64 20 6f 66 20 66 69 6c 65 0d 0a 65 73 63 09 65 71 75 ┆f equ 1ah ;end of file esc equ┆ 0x0b40…0b60 09 31 62 68 09 09 3b 65 73 63 61 70 65 0d 0a 63 72 09 65 71 75 09 31 33 09 09 3b 63 61 72 72 69 ┆ 1bh ;escape cr equ 13 ;carri┆ 0x0b60…0b80 61 67 65 20 72 65 74 75 72 6e 0d 0a 6c 66 09 65 71 75 09 31 30 09 09 3b 6c 69 6e 65 20 66 65 65 ┆age return lf equ 10 ;line fee┆ 0x0b80…0ba0 64 0d 0a 74 61 62 09 65 71 75 09 39 09 09 3b 63 6f 6e 74 72 6f 6c 2d 49 0d 0a 62 6c 61 6e 6b 09 ┆d tab equ 9 ;control-I blank ┆ 0x0ba0…0bc0 65 71 75 09 32 30 68 09 09 3b 73 70 61 63 65 0d 0a 70 65 72 69 6f 64 09 65 71 75 09 34 36 09 09 ┆equ 20h ;space period equ 46 ┆ 0x0bc0…0be0 3b 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 0d 0a 63 6f 6d 6d 61 09 65 71 75 09 34 34 0d 0a 3b 3b ┆;decimal point comma equ 44 ;;┆ 0x0be0…0c00 0d 0a 3b 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ;;****************************┆ 0x0c00…0c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b ┆***************************** ;┆ 0x0c20…0c40 3b 0d 0a 61 62 6f 72 74 09 6d 61 63 72 6f 09 63 68 61 72 0d 0a 3b 3b 09 31 34 20 4d 61 72 63 68 ┆; abort macro char ;; 14 March┆ 0x0c40…0c60 20 31 39 38 35 0d 0a 3b 3b 09 49 6e 6c 69 6e 65 20 6d 61 63 72 6f 20 74 6f 20 61 62 6f 72 74 20 ┆ 1985 ;; Inline macro to abort ┆ 0x0c60…0c80 70 72 6f 67 72 61 6d 20 77 68 65 6e 0d 0a 3b 3b 09 63 6f 6e 73 6f 6c 65 20 6b 65 79 20 67 69 76 ┆program when ;; console key giv┆ 0x0c80…0ca0 65 6e 20 62 79 20 63 68 61 72 20 69 73 20 70 72 65 73 73 65 64 2e 0d 0a 3b 3b 09 41 6e 79 20 6b ┆en by char is pressed. ;; Any k┆ 0x0ca0…0cc0 65 79 20 77 69 6c 6c 20 64 6f 20 69 66 20 63 68 61 72 20 69 73 20 6f 6d 69 74 74 65 64 2e 0d 0a ┆ey will do if char is omitted. ┆ 0x0cc0…0ce0 3b bb 09 42 72 61 6e 63 68 20 74 6f 20 44 4f 4e 45 20 6f 6e 20 61 62 6f 72 74 2e 0d 0a 3b 3b 0d ┆; Branch to DONE on abort. ;; ┆ 0x0ce0…0d00 0a 3b 3b 09 55 73 61 67 65 3a 09 09 61 62 6f 72 74 09 65 73 63 0d 0a 3b 3b 0d 0a 3b 3b 09 4d 61 ┆ ;; Usage: abort esc ;; ;; Ma┆ 0x0d00…0d20 63 72 6f 73 20 6e 65 65 64 65 64 3a 09 72 65 61 64 63 68 0d 0a 3b 3b 0d 0a 09 6c 6f 63 61 6c 09 ┆cros needed: readch ;; local ┆ 0x0d20…0d40 61 72 6f 75 6e 64 0d 0a 09 70 75 73 68 09 68 6c 0d 0a 09 70 75 73 68 09 64 65 0d 0a 09 70 75 73 ┆around push hl push de pus┆ 0x0d40…0d60 68 09 62 63 0d 0a 09 6c 64 09 63 2c 31 31 09 09 3b 63 6f 6e 73 6f 6c 65 20 73 74 61 74 75 73 0d ┆h bc ld c,11 ;console status ┆ 0x0d60…0d80 0a 09 63 61 6c 6c 09 62 64 6f 73 0d 0a 09 70 6f 70 09 62 63 0d 0a 09 70 6f 70 09 64 65 0d 0a 09 ┆ call bdos pop bc pop de ┆ 0x0d80…0da0 70 6f 70 09 68 6c 0d 0a 09 6a 70 09 6e 63 2c 61 72 6f 75 6e 64 09 3b 6e 6f 20 63 68 61 72 61 63 ┆pop hl jp nc,around ;no charac┆ 0x0da0…0dc0 74 65 72 0d 0a 09 72 65 61 64 63 68 09 09 09 3b 67 65 74 20 63 68 61 72 0d 0a 09 69 66 09 6e 75 ┆ter readch ;get char if nu┆ 0x0dc0…0de0 6c 20 63 68 61 72 0d 0a 09 6a 70 09 64 6f 6e 65 0d 0a 09 65 6c 73 65 0d 0a 09 63 70 09 63 68 61 ┆l char jp done else cp cha┆ 0x0de0…0e00 72 0d 0a 09 6a 70 09 7a 2c 64 6f 6e 65 0d 0a 09 65 6e 64 69 66 0d 0a 61 72 6f 75 6e 64 3a 09 09 ┆r jp z,done endif around: ┆ 0x0e00…0e20 09 09 3b 3b 61 62 6f 72 74 0d 0a 09 65 6e 64 6d 0d 0a 3b 3b 0d 0a 3b 3b 2a 2a 2a 2a 2a 2a 2a 2a ┆ ;;abort endm ;; ;;********┆ 0x0e20…0e40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0e40…0e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 3b 0d 0a 61 6d 62 69 67 09 6d 61 63 ┆***************** ;; ambig mac┆ 0x0e60…0e80 72 6f 09 6f 6c 64 2c 6e 65 77 0d 0a 3b 3b 09 31 33 20 4d 61 72 63 68 20 31 39 38 35 0d 0a 3b 3b ┆ro old,new ;; 13 March 1985 ;;┆ 0x0e80…0ea0 09 49 6e 6c 69 6e 65 20 6d 61 63 72 6f 20 74 6f 20 63 68 61 6e 67 65 20 61 6d 62 69 67 75 6f 75 ┆ Inline macro to change ambiguou┆ 0x0ea0…0ec0 73 20 66 69 6c 65 20 6e 61 6d 65 0d 0a 3b 3b 09 61 74 20 66 63 62 20 6e 65 77 20 74 6f 20 6d 61 ┆s file name ;; at fcb new to ma┆ 0x0ec0…0ee0 74 63 68 20 66 63 62 20 6f 6c 64 2e 0d 0a 3b 3b 0d 0a 3b 3b 09 55 73 61 67 65 3a 09 41 6d 62 69 ┆tch fcb old. ;; ;; Usage: Ambi┆ 0x0ee0…0f00 67 09 66 63 62 31 2c 66 63 62 32 0d 0a 3b 3b 0d 0a 09 70 75 73 68 09 68 6c 0d 0a 09 70 75 73 68 ┆g fcb1,fcb2 ;; push hl push┆ 0x0f00…0f20 09 64 65 0d 0a 09 70 75 73 68 09 62 63 0d 0a 09 6c 64 09 68 6c 2c 6e 65 77 2b 31 0d 0a 09 6c 64 ┆ de push bc ld hl,new+1 ld┆ 0x0f20…0f40 09 64 65 2c 6f 6c 64 2b 31 0d 0a 09 6c 64 09 63 2c 31 31 09 09 3b 6e 75 6d 62 65 72 20 6f 66 20 ┆ de,old+1 ld c,11 ;number of ┆ 0x0f40…0f60 63 68 61 72 0d 0a 61 6d 62 32 3f 3a 0d 0a 09 6c 64 09 61 2c 27 3f 27 0d 0a 09 63 70 09 28 68 6c ┆char amb2?: ld a,'?' cp (hl┆ 0x0f60…0f80 29 09 09 3b 71 75 65 73 74 69 6f 6e 20 6d 61 72 6b 20 3f 0d 0a 09 6a 72 09 6e 7a 2c 61 6d 62 33 ┆) ;question mark ? jr nz,amb3┆ 0x0f80…0fa0 3f 09 3b 6e 6f 0d 0a 3b 0d 0a 3b 63 6f 70 79 20 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 66 72 ┆? ;no ; ;copy one character fr┆ 0x0fa0…0fc0 6f 6d 20 6f 72 69 67 69 6e 61 6c 20 74 6f 20 6e 65 77 0d 0a 3b 0d 0a 09 6c 64 09 61 2c 28 64 65 ┆om original to new ; ld a,(de┆ 0x0fc0…0fe0 29 09 09 3b 67 65 74 20 6f 6c 64 20 63 68 61 72 0d 0a 09 6c 64 09 28 68 6c 29 2c 61 09 09 3b 70 ┆) ;get old char ld (hl),a ;p┆ 0x0fe0…1000 75 74 20 69 6e 74 6f 20 6e 65 77 0d 0a 61 6d 62 33 3f 3a 0d 0a 09 69 6e 63 09 68 6c 09 09 3b 6e ┆ut into new amb3?: inc hl ;n┆ 0x1000…1020 65 77 0d 0a 09 69 6e 63 09 64 65 09 09 3b 6f 6c 64 0d 0a 09 64 65 63 09 63 09 09 3b 63 6f 75 6e ┆ew inc de ;old dec c ;coun┆ 0x1020…1040 74 0d 0a 09 6a 72 09 6e 7a 2c 61 6d 62 32 3f 0d 0a 09 70 6f 70 09 62 63 0d 0a 09 70 6f 70 09 64 ┆t jr nz,amb2? pop bc pop d┆ 0x1040…1060 65 0d 0a 09 70 6f 70 09 68 6c 0d 0a 09 09 09 09 3b 3b 61 6d 62 69 67 0d 0a 09 65 6e 64 6d 0d 0a ┆e pop hl ;;ambig endm ┆ 0x1060…1080 3b 3b 0d 0a 3b 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;; ;;**************************┆ 0x1080…10a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆ 0x10a0…10c0 0a 3b 3b 0d 0a 62 69 6e 62 69 6e 09 6d 61 63 72 6f 0d 0a 3b 3b 09 31 36 20 4d 61 72 63 68 20 31 ┆ ;; binbin macro ;; 16 March 1┆ 0x10c0…10e0 39 38 35 0d 0a 3b 3b 09 49 6e 6c 69 6e 65 20 6d 61 63 72 6f 20 74 6f 20 63 6f 6e 76 72 74 20 62 ┆985 ;; Inline macro to convrt b┆ 0x10e0…1100 69 6e 61 72 79 20 6e 75 6d 62 65 72 20 69 6e 20 41 0d 0a 3b 3b 09 74 6f 20 61 20 73 74 72 69 6e ┆inary number in A ;; to a strin┆ 0x1100…1120 67 20 6f 66 20 41 53 43 49 49 2d 63 6f 64 65 64 20 62 69 6e 61 72 79 20 63 68 61 72 61 63 74 65 ┆g of ASCII-coded binary characte┆ 0x1120…1140 72 73 2e 0d 0a 3b 3b 0d 0a 09 6c 6f 63 61 6c 09 62 69 74 32 2c 61 72 6f 75 6e 64 0d 0a 09 63 61 ┆rs. ;; local bit2,around ca┆ 0x1140…1160 6c 6c 09 62 69 6e 62 32 3f 0d 0a 09 69 66 09 6e 6f 74 20 62 6e 66 6c 61 67 0d 0a 09 6a 70 09 61 ┆ll binb2? if not bnflag jp a┆ 0x1160…1180 72 6f 75 6e 64 0d 0a 62 69 6e 62 32 3f 3a 09 70 75 73 68 09 62 63 0d 0a 09 6c 64 09 63 2c 61 0d ┆round binb2?: push bc ld c,a ┆ 0x1180…11a0 0a 09 6c 64 09 62 2c 38 0d 0a 62 69 74 32 3a 09 6c 64 09 61 2c 63 0d 0a 09 61 64 64 09 61 2c 61 ┆ ld b,8 bit2: ld a,c add a,a┆ 0x11a0…11c0 09 09 3b 3b 73 65 74 20 63 61 72 72 79 0d 0a 09 6c 64 09 61 2c 27 30 27 2f 32 0d 0a 09 61 64 63 ┆ ;;set carry ld a,'0'/2 adc┆ 0x11c0…11e0 09 61 2c 61 0d 0a 09 70 63 68 61 72 0d 0a 09 64 6a 6e 7a 09 62 69 74 32 0d 0a 09 70 6f 70 09 62 ┆ a,a pchar djnz bit2 pop b┆ 0x11e0…1200 63 09 09 3b 3b 68 6c 0d 0a 09 72 65 74 0d 0a 09 2e 38 30 38 30 0d 0a 62 6e 66 6c 61 67 09 73 65 ┆c ;;hl ret .8080 bnflag se┆ 0x1200…1220 74 09 74 72 75 65 0d 0a 09 2e 7a 38 30 0d 0a 09 65 6e 64 69 66 0d 0a 61 72 6f 75 6e 64 3a 09 09 ┆t true .z80 endif around: ┆ 0x1220…1240 09 09 3b 3b 62 69 6e 62 69 6e 0d 0a 09 65 6e 64 6d 0d 0a 3b 3b 0d 0a 3b 3b 2a 2a 2a 2a 2a 2a 2a ┆ ;;binbin endm ;; ;;*******┆ 0x1240…1260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x1260…1280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 3b 0d 0a 63 6c 6f 73 65 09 6d 61 ┆****************** ;; close ma┆ 0x1280…12a0 63 72 6f 09 70 6f 69 6e 74 72 0d 0a 3b 3b 09 31 35 20 4d 61 72 63 68 20 31 39 38 35 0d 0a 3b 3b ┆cro pointr ;; 15 March 1985 ;;┆ 0x12a0…12c0 09 49 6e 6c 69 6e 65 20 6d 61 63 72 6f 20 74 6f 20 63 6c 6f 73 65 20 61 20 6e 65 77 20 66 69 6c ┆ Inline macro to close a new fil┆ 0x12c0…12e0 65 2e 0d 0a 3b 3b 09 50 6f 69 6e 74 72 20 72 65 66 65 72 73 20 74 6f 20 66 69 6c 65 20 63 6f 6e ┆e. ;; Pointr refers to file con┆ 0x12e0…1300 74 72 6f 6c 20 62 6c 6f 63 6b 2e 0d 0a 3b 3b 09 49 66 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 66 ┆trol block. ;; If file is not f┆ 0x1300…1320 6f 75 6e 64 2c 20 62 72 61 6e 63 68 20 74 6f 20 64 6f 6e 65 2e 0d 0a 3b 3b 09 69 66 20 73 32 66 ┆ound, branch to done. ;; if s2f┆ 0x1320…1340 6c 61 67 20 66 72 6f 6d 20 73 65 74 75 70 32 20 69 73 20 74 72 75 65 2c 20 63 68 65 63 6b 20 69 ┆lag from setup2 is true, check i┆ 0x1340…1360 66 0d 0a 3b 3b 09 64 75 70 6c 69 63 61 74 65 20 66 69 6c 65 20 6e 61 6d 65 20 66 6c 61 67 20 64 ┆f ;; duplicate file name flag d┆ 0x1360…1380 75 70 6c 20 69 73 20 73 65 74 2e 20 43 68 61 6e 67 65 0d 0a 3b 3b 09 73 6f 75 72 63 65 20 66 69 ┆upl is set. Change ;; source fi┆ 0x1380…13a0 6c 65 20 6e 61 6d 65 20 74 6f 20 42 41 4b 20 61 6e 64 20 6e 65 77 20 74 6f 20 6f 72 69 67 2e 20 ┆le name to BAK and new to orig. ┆ 0x13a0…13c0 6e 61 6d 65 2e 0d 0a 3b 3b 09 53 65 74 20 73 32 66 6c 61 67 20 66 61 6c 73 65 20 69 6e 20 62 65 ┆name. ;; Set s2flag false in be┆ 0x13c0…13e0 67 69 6e 6e 69 6e 67 2e 0d 0a 3b 3b 0d 0a 3b 3b 09 55 73 61 67 65 3a 09 09 63 6c 6f 73 65 09 64 ┆ginning. ;; ;; Usage: close d┆ 0x13e0…1400 66 63 62 0d 0a 3b 3b 0d 0a 3b 3b 09 4d 61 63 72 6f 73 20 6e 65 65 64 65 64 3a 09 73 79 73 66 2c ┆fcb ;; ;; Macros needed: sysf,┆ 0x1400…1420 65 72 72 6f 72 6d 2c 6f 70 65 6e 2c 70 72 69 6e 74 2c 6d 6f 76 65 2c 64 65 6c 65 74 65 0d 0a 3b ┆errorm,open,print,move,delete ;┆ 0x1420…1440 3b 09 09 09 72 65 6e 61 6d 65 0d 0a 3b 3b 0d 0a 09 6c 6f 63 61 6c 09 61 72 6f 75 6e 64 2c 63 6c ┆; rename ;; local around,cl┆ 0x1440…1460 6f 73 65 33 0d 0a 09 69 66 09 6e 6f 74 20 6e 75 6c 20 70 6f 69 6e 74 72 0d 0a 09 6c 64 09 64 65 ┆ose3 if not nul pointr ld de┆ 0x1460…1480 2c 70 6f 69 6e 74 72 0d 0a 09 65 6e 64 69 66 0d 0a 09 63 61 6c 6c 09 63 6c 6f 73 32 3f 0d 0a 09 ┆,pointr endif call clos2? ┆ 0x1480…14a0 69 6e 63 09 61 09 09 3b 46 46 20 68 65 78 20 69 73 20 65 72 72 6f 72 0d 0a 09 69 66 09 6e 6f 74 ┆inc a ;FF hex is error if not┆ 0x14a0…14c0 20 73 32 66 6c 61 67 09 3b 73 65 74 75 70 32 20 6d 61 63 72 6f 0d 0a 09 6a 70 09 6e 7a 2c 61 72 ┆ s2flag ;setup2 macro jp nz,ar┆ 0x14c0…14e0 6f 75 6e 64 09 3b 6f 6b 0d 0a 09 65 6c 73 65 0d 0a 09 6a 70 09 7a 2c 63 6c 6f 73 33 3f 0d 0a 09 ┆ound ;ok else jp z,clos3? ┆ 0x14e0…1500 6c 64 09 61 2c 28 64 75 70 6c 29 09 3b 64 75 70 6c 69 63 61 74 65 20 6e 61 6d 65 20 3f 0d 0a 09 ┆ld a,(dupl) ;duplicate name ? ┆ 0x1500…1520 6f 72 09 61 0d 0a 09 6a 70 09 7a 2c 61 72 6f 75 6e 64 09 3b 6e 6f 0d 0a 09 6d 6f 76 65 09 27 42 ┆or a jp z,around ;no move 'B┆ 0x1520…1540 41 4b 27 2c 66 63 62 31 2b 31 30 68 2b 39 0d 0a 09 6d 6f 76 65 09 66 63 62 31 2b 39 2c 64 66 63 ┆AK',fcb1+10h+9 move fcb1+9,dfc┆ 0x1540…1560 62 2b 31 30 68 2b 39 2c 33 0d 0a 09 6d 6f 76 65 09 66 63 62 31 2c 66 63 62 31 2b 31 30 68 2c 39 ┆b+10h+9,3 move fcb1,fcb1+10h,9┆ 0x1560…1580 0d 0a 09 6d 6f 76 65 09 64 66 63 62 2c 64 66 63 62 2b 31 30 68 2c 39 0d 0a 09 64 65 6c 65 74 65 ┆ move dfcb,dfcb+10h,9 delete┆ 0x1580…15a0 09 66 63 62 31 2b 31 30 68 09 3b 42 41 4b 20 6e 61 6d 65 20 69 66 20 61 6e 79 0d 0a 09 72 65 6e ┆ fcb1+10h ;BAK name if any ren┆ 0x15a0…15c0 61 6d 65 09 66 63 62 31 09 09 3b 6f 72 69 67 20 74 6f 20 42 41 4b 0d 0a 09 72 65 6e 61 6d 65 09 ┆ame fcb1 ;orig to BAK rename ┆ 0x15c0…15e0 64 66 63 62 09 09 3b 24 24 24 20 74 6f 20 6f 72 69 67 0d 0a 09 6d 6f 76 65 09 27 42 41 4b 27 2c ┆dfcb ;$$$ to orig move 'BAK',┆ 0x15e0…1600 66 63 62 31 2b 39 09 3b 72 65 73 74 6f 72 65 0d 0a 09 6f 70 65 6e 09 66 63 62 31 0d 0a 09 6a 70 ┆fcb1+9 ;restore open fcb1 jp┆ 0x1600…1620 09 61 72 6f 75 6e 64 0d 0a 09 65 6e 64 69 66 09 09 09 3b 3b 73 32 66 6c 61 67 0d 0a 09 69 66 09 ┆ around endif ;;s2flag if ┆ 0x1620…1640 6e 6f 74 20 63 6c 66 6c 61 67 09 3b 6f 6e 65 20 63 6f 70 79 0d 0a 63 6c 6f 73 33 3f 3a 09 65 72 ┆not clflag ;one copy clos3?: er┆ 0x1640…1660 72 6f 72 6d 09 27 3f 46 69 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 3f 27 2c 64 6f 6e 65 0d 0a 63 6c ┆rorm '?File not found?',done cl┆ 0x1660…1680 6f 73 32 3f 3a 09 73 79 73 66 09 31 36 09 09 3b 63 6c 6f 73 65 20 64 69 73 6b 20 66 69 6c 65 0d ┆os2?: sysf 16 ;close disk file ┆ 0x1680…16a0 0a 09 2e 38 30 38 30 0d 0a 63 6c 66 6c 61 67 09 73 65 74 09 74 72 75 65 09 09 3b 6f 6e 6c 79 20 ┆ .8080 clflag set true ;only ┆ 0x16a0…16c0 6f 6e 65 20 63 6f 70 79 0d 0a 09 2e 7a 38 30 0d 0a 09 65 6e 64 69 66 09 09 09 3b 3b 63 6c 66 6c ┆one copy .z80 endif ;;clfl┆ 0x16c0…16e0 61 67 0d 0a 61 72 6f 75 6e 64 3a 09 09 09 09 3b 3b 63 6c 6f 73 65 0d 0a 09 65 6e 64 6d 0d 0a 3b ┆ag around: ;;close endm ;┆ 0x16e0…1700 3b 0d 0a 3b 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆; ;;***************************┆ 0x1700…1720 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a ┆****************************** ┆ 0x1720…1740 3b 3b 0d 0a 63 6f 6d 70 61 72 09 6d 61 63 72 6f 09 66 69 72 73 74 2c 73 65 63 6f 6e 64 2c 62 79 ┆;; compar macro first,second,by┆ 0x1740…1760 74 65 73 0d 0a 3b 3b 09 31 33 20 4d 61 72 63 68 20 31 39 38 35 0d 0a 3b 3b 09 49 6e 6c 69 6e 65 ┆tes ;; 13 March 1985 ;; Inline┆ 0x1760…1780 20 6d 61 63 72 6f 20 74 6f 20 63 6f 6d 70 61 72 65 20 32 20 6d 65 6d 6f 72 79 20 61 72 65 61 73 ┆ macro to compare 2 memory areas┆ 0x1780…17a0 2e 0d 0a 3b 3b 09 5a 65 72 6f 20 66 6c 61 67 20 69 73 20 73 65 74 20 69 66 20 62 6f 74 68 20 61 ┆. ;; Zero flag is set if both a┆ 0x17a0…17c0 72 65 20 74 68 65 20 73 61 6d 65 2c 0d 0a 3b 3b 09 66 69 72 73 74 20 61 6e 64 20 73 65 63 6f 6e ┆re the same, ;; first and secon┆ 0x17c0…17e0 64 20 6d 61 79 20 62 65 20 61 64 64 72 65 73 73 65 73 2c 0d 0a 3b 3b 09 74 68 69 72 64 20 70 61 ┆d may be addresses, ;; third pa┆ 0x17e0…1800 72 61 6d 65 74 65 72 20 69 73 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 2e 0d 0a 3b 3b 09 ┆rameter is number of bytes. ;; ┆ 0x1800…1820 46 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 20 6d 61 79 20 62 65 20 61 20 71 75 6f 74 65 64 20 ┆First parameter may be a quoted ┆ 0x1820…1840 73 74 72 69 6e 67 2c 0d 0a 3b 3b 09 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 74 68 65 72 65 20 ┆string, ;; in which case there ┆ 0x1840…1860 69 73 20 6e 6f 20 74 68 69 72 64 20 70 61 72 61 6d 65 74 65 72 2e 0d 0a 3b 3b 09 41 6e 79 20 6f ┆is no third parameter. ;; Any o┆ 0x1860…1880 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 6d 61 79 20 62 65 20 6f 6d 69 74 74 65 64 2e ┆f the parameters may be omitted.┆ 0x1880…18a0 0d 0a 3b 3b 09 52 65 67 69 73 74 65 72 20 41 20 69 73 20 61 6c 74 65 72 65 64 2e 0d 0a 3b 3b 0d ┆ ;; Register A is altered. ;; ┆ 0x18a0…18c0 0a 3b 3b 09 55 73 61 67 65 3a 09 63 6f 6d 70 61 72 09 66 63 62 31 2c 66 63 62 32 2c 31 32 0d 0a ┆ ;; Usage: compar fcb1,fcb2,12 ┆ 0x18c0…18e0 3b 3b 09 09 63 6f 6d 70 61 72 09 27 3f 3f 3f 27 2c 66 63 62 31 2b 39 0d 0a 3b 3b 09 09 63 6f 6d ┆;; compar '???',fcb1+9 ;; com┆ 0x18e0…1900 70 61 72 09 2c 2c 35 0d 0a 3b 3b 0d 0a 09 6c 6f 63 61 6c 09 6d 65 73 67 2c 61 72 6f 75 6e 64 0d ┆par ,,5 ;; local mesg,around ┆ 0x1900…1920 0a 09 70 75 73 68 09 68 6c 0d 0a 09 70 75 73 68 09 64 65 0d 0a 09 70 75 73 68 09 62 63 0d 0a 09 ┆ push hl push de push bc ┆ […truncated at 200 lines…]